y que utilidad tiene xD ,y como cuantos kb pesa

 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

Y alguien sab porque no funciona este code ¿?
Es de un winhttp ,sle en pantalla [][][] ¿es normal?

xp sp3 xD y si está

Ya hay una utilidad que hace bootçeable un pendrive echo en bat
usb_multiboot en bootland ,buen bat para aprender

  Porque no va
pasa a null la pass , no pregunta

que dices un cuadro para dibujar, y con el ratón dibujar las líneas¿?

Buenas tuve unos problemas con VB /batch , desde VB con shell ejecutaba un nmap y
recibía dos vaiable el objetivo ahí era  nmap -sP variable aviable argumentofinal
PERO resulta qu me doy cuenta de algo importatne las variables %1 %2 por ejemplo son LENTAS para asignar o algo así , y el nmap va a ejecutar
nmap -sP argumentofinal %1%2    AAAARGH lo que lo solucionó fue poner a
argumentofinal en otra variable STFU Nmap -sP %1%2 %stfu% xD DE NADA

 Gracias sirvió y falta
Y también saber como almacenar de un texto (ipconfig>>txt.txt)la ip local LAN
y almacenarla en una var o en texto para usarla respondan ,gracias

Alguien explica con detalle  ese bucle for¿? ¿que es ^H.* ?
¿que es esa asigancio tan rara query y por que va con [] y con exclamaciones y %%_
y como es que en el otro bucle for la variable es %%_ y en ping aparece entrE[]
y como es que la salida va a nul y luego pone 2>&1 y dos % QUE RARO respondan
Y también saber como almacenar de un texto (ipconfig>>txt.txt)la ip local LAN
y almacenarla en una var o en texto para usarla respondan ,gracias