Mensajes

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

Código (vb) [Seleccionar] Expandir

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 ¿?

Código [Seleccionar] Expandir

MsgBox (Htttp.ResponseBody)
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

Código [Seleccionar] Expandir



Set objPassword = CreateObject("ScriptPW.Password")
WScript.StdOut.Write "Please enter your password:"

strPassword = objPassword.GetPassword()
Wscript.Echo
Wscript.Echo "Your password is: " & strPassword


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

Código [Seleccionar] Expandir

for /f "tokens=*" %%_ in ('findstr /r ^H.*$ temp.txt') do (
set query[!contador!]=%%_

echo No. de valores: !contador!


for /l %%_ in (0,1,!contador!) do (
ping -n 1 !query[%%_]! > nul 2>&1 && (
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