Foro de elhacker.net

 Buenas intento eNviar esto a un vbs server que lo escriba en un text
LAS VECES k hagan falta ,el texto va de un inputbox

Dim winsock, SendData, RecieveData, secs
 
'****** CHANGE THESE SETTINGS *********
 
Const RemoteHost           = "127.0.0.1"
Const RemotePort           = 1337
 
'***************************************
 
Const skClosed            = 0 '// Default. Closed 
Const skOpen              = 1 '// Open 
Const skListening         = 2 '// Listening 
Const skConnectionPending = 3 '// Connection pending 
Const skResolvingHost     = 4 '// Resolving host 
Const skHostResolved      = 5 '// Host resolved 
Const skConnecting        = 6 '// Connecting 
Const skConnected         = 7 '// Connected 
Const skClosing           = 8 '// Peer is closing the connection 
Const skError             = 9 '// Error 
 
MsgBox "Client Started."
WriteData Now & " - Client Started"
 
'// CREATE WINSOCK
On Error Resume Next
Set winsock = Wscript.CreateObject("MSWINSOCK.Winsock")
If Err.Number <> 0 Then
    MsgBox "Winsock Object Error!" & vbCrLf & "Script will exit now."
    WriteData Now & " - Winsock Object Error."
    WScript.Quit
End If
On Error Goto 0
 
'// CONNECT NOW
'winsock.RemoteHost = RemoteHost
'winsock.RemotePort = RemotePort 
'winsock.Connect
 
'// MAIN DELAY - WAITS FOR CONNECTED STATE
'// SOCKET ERROR RAISES WINSOCK ERROR SUB
klos()
while winsock.State <> skError And winsock.state <> skConnected And winsock.state <> skClosing And secs <> 25
    WScript.Sleep 1000  '// 1 sec delay in loop
    secs = secs + 1     '// wait 25 secs max
Wend
 
'// CONNECTION TIMED OUT
If secs > 24 Then
    MsgBox "Timed Out"
    WriteData Now & " - Client Timed Out"
    ClientClose()
End If
 
'// SEND DATA NOW
  Sub datei(shit)
   klos()
 MsgBox("xD")
  MsgBox(shit)
  klos()
  inout = InputBox("HAK?" & Chr(13))
 
  winsock.SendData (inout)
 
 Msgbox (winsock.State)
  'wscript.sleep 7000
  End Sub
  'Loop 'While inout <> "IWO" 
'If 7 > 1 Then
Call datei("s")
Call datei("s")
Call datei("s")
Call datei("s") 
Function klos()
 MsgBox "reinicia conxion"
 winsock.Close()
  winsock.RemoteHost = RemoteHost
winsock.RemotePort = RemotePort 
winsock.Connect
End Function
 
'End If
 '// WAIT INCASE NO RESPONSE
' ript.Sleep 25000
'riteData Now & " - Client No Response. Winsock State: " & winsock.state
'lientClose()
 
'// WINSOCK DATA ARRIVES
Sub winsock_dataArrival(bytesTotal)
    Dim strData
    winsock.GetData strData, vbString
    RecieveData = strData 
    WriteData Now & " - Client Recieved: " & RecieveData
    winsock.SendData "Test"  
    WScript.Sleep 1000
    WriteData Now & " - Client Sent Data"
    MsgBox ("a xerrar")
    ClientClose()
End Sub
 
'// WINSOCK ERROR
Sub winsock_Error(Number, Description, SCode, Source, HelpFile, HelpContext, CancelDisplay)
    MsgBox "Cient Error: " & Number & vbCrLf & Description
    WriteData Now & " - Cient Error: " & Number & ". " & Description
    ClientClose()
End Sub
 
'// EXIT SCRIPT
Sub ClientClose()
    If winsock.state <> skClosed Then winsock.Close
    Set winsock = Nothing
    WriteData Now & " - Client Closed."
    Wscript.Quit
End SUb
 
'// CREATE LOG ENTRY
Function WriteData(Data)
    Dim fso, file
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.OpenTextFile("C:\WSClient.log", 8, True)
    file.write Data & vbCrLf
    file.Close
    Set file = Nothing
    Set fso = Nothing
End Function

¿Es visual basic script(vbs) o es visual basic?

No importa , es vbscript ,y por cierto no hay activex winsock en 7 al parecer

Si no aportas ningún dato sobre el problema...

¿En que línea te da error de sintaxis?

Es un input box de una subrutina llamada datei en la 59 es un inputbox
que pide data para enviar a un vbs server lo que pasa es que solo deja
una vez ,la funcion klos es intenta reiniciar la conexión
pero cuando pones dos mensajes pone el estado de la conexion blabla

Yo voy a revisar tu codigo para esta noche.. yaya no tengo tiempo ya que para probar un codigo siemppre se necesita una "maquina" nueva y para eso uso virtual pc. ya que yo terngo muchas cosas instaladas con los idles.

Lo mas importante es que sepas que si no tienes VB instalado en el ordenador esto ya no funcionara. aunque puedes registrar la dll e intentar que funcione.

Cuando disponga de mas tiempo reviso bien el codigo. igual yo te recomiendo usar Chilkat aunque la instalacion automatica es mas delicada es mucho mas seguro que funcione: http://www.example-code.com/vbscript/socket.asp

Saludos.