Cartas sobre la mesa.
NO se casi nada de autoit.
Buscando un codigo que meta licencias al nod32 para un programa que estoy haciendo me encontre con un codigo.
Es este:
Código:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.5.6 (beta)
Author: by warrior
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
$destination = "1.bmp"
SplashImageOn("MSN administrador@lobosolitario.tk", $destination,228,217)
Sleep(1000)
SplashOff()
$DEL=REGDELETE("HKEY_LOCAL_MACHINE\SOFTWARE\ESET\ESET Security\CurrentVersion\Info","ProductName")
IF $DEL=0 THEN
TRAYTIP("ESET AutoPassword "&"VX","No se detecto Antivirus"&@CR&@CR&"Instala un Antivirus ESET v3 ó v4"&@CR&@CR&"...::: by warrior administrador@videowarrior.tk :::...",5,3)
SLEEP(5000)
EXIT
ENDIF
TRAYTIP("ESET AutoPassword "&"VX","Descargando Licencia"&@CR&@CR&"Para el Nod32 Antivirus"&@CR&@CR&"...::: by warrior administrador@videowarrior.tk :::...",2,1)
InetGet("http://base de datos", @TempDir& "\key.txt", 1)
$file = FileOpen(@TempDir& "\key.txt", 0)
$user = FileReadLine($file,2)
$pass4 = FileReadLine($file,4)
$pass3 = FileReadLine($file,6)
$fecha = FileReadLine($file,8)
FileClose($file)
FileDelete(@TempDir& "\key.txt")
IF $DEL=2 THEN
RUN("egui.exe")
WINACTIVATE("ESET ")
SEND("^u")
WINACTIVATE("License ")
SEND("!u")
SEND($user&"{TAB}")
SEND($pass4&"{ENTer}")
SEND("!{F4}")
TRAYTIP("ESET AutoPassword "&"VX","Se inserto la licencia, valida "&$Fecha&@CR&@CR&"Ya puede empezar actualizar el Antivirus"&@CR&@CR&"...::: by warrior administrador@videowarrior.tk :::...",5,1)
SLEEP(5000)
EXIT
ELSE
REGWRITE("HKEY_LOCAL_MACHINE\SOFTWARE\ESET\ESET Security\CurrentVersion\Plugins\01000400\Profiles\@My profile","Password","REG_BINARY",BINARY("0x"&$pass3))
REGWRITE("HKEY_LOCAL_MACHINE\SOFTWARE\ESET\ESET Security\CurrentVersion\Plugins\01000400\Profiles\@My profile","Username","REG_SZ",$user)
REGWRITE("HKEY_LOCAL_MACHINE\SOFTWARE\ESET\ESET Security\CurrentVersion\Info","EditionName","REG_SZ"," Administrador@videowarrior.tk")
REGWRITE("HKEY_LOCAL_MACHINE\SOFTWARE\ESET\ESET Security\CurrentVersion\Info","ProductName","REG_SZ","ESET NOD32 by warrior")
TRAYTIP("ESET AutoPassword "&"VX","Se inserto la licencia, valida "&$fecha&@CR&@CR&"Ya puede empezar actualizar el Antivirus"&@CR&@CR&"...::: by warrior administrador@videowarrior.tk :::...",5,1)
SLEEP(5000)
EXIT
ENDIF
AutoIt Version: 3.3.5.6 (beta)
Author: by warrior
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
$destination = "1.bmp"
SplashImageOn("MSN administrador@lobosolitario.tk", $destination,228,217)
Sleep(1000)
SplashOff()
$DEL=REGDELETE("HKEY_LOCAL_MACHINE\SOFTWARE\ESET\ESET Security\CurrentVersion\Info","ProductName")
IF $DEL=0 THEN
TRAYTIP("ESET AutoPassword "&"VX","No se detecto Antivirus"&@CR&@CR&"Instala un Antivirus ESET v3 ó v4"&@CR&@CR&"...::: by warrior administrador@videowarrior.tk :::...",5,3)
SLEEP(5000)
EXIT
ENDIF
TRAYTIP("ESET AutoPassword "&"VX","Descargando Licencia"&@CR&@CR&"Para el Nod32 Antivirus"&@CR&@CR&"...::: by warrior administrador@videowarrior.tk :::...",2,1)
InetGet("http://base de datos", @TempDir& "\key.txt", 1)
$file = FileOpen(@TempDir& "\key.txt", 0)
$user = FileReadLine($file,2)
$pass4 = FileReadLine($file,4)
$pass3 = FileReadLine($file,6)
$fecha = FileReadLine($file,8)
FileClose($file)
FileDelete(@TempDir& "\key.txt")
IF $DEL=2 THEN
RUN("egui.exe")
WINACTIVATE("ESET ")
SEND("^u")
WINACTIVATE("License ")
SEND("!u")
SEND($user&"{TAB}")
SEND($pass4&"{ENTer}")
SEND("!{F4}")
TRAYTIP("ESET AutoPassword "&"VX","Se inserto la licencia, valida "&$Fecha&@CR&@CR&"Ya puede empezar actualizar el Antivirus"&@CR&@CR&"...::: by warrior administrador@videowarrior.tk :::...",5,1)
SLEEP(5000)
EXIT
ELSE
REGWRITE("HKEY_LOCAL_MACHINE\SOFTWARE\ESET\ESET Security\CurrentVersion\Plugins\01000400\Profiles\@My profile","Password","REG_BINARY",BINARY("0x"&$pass3))
REGWRITE("HKEY_LOCAL_MACHINE\SOFTWARE\ESET\ESET Security\CurrentVersion\Plugins\01000400\Profiles\@My profile","Username","REG_SZ",$user)
REGWRITE("HKEY_LOCAL_MACHINE\SOFTWARE\ESET\ESET Security\CurrentVersion\Info","EditionName","REG_SZ"," Administrador@videowarrior.tk")
REGWRITE("HKEY_LOCAL_MACHINE\SOFTWARE\ESET\ESET Security\CurrentVersion\Info","ProductName","REG_SZ","ESET NOD32 by warrior")
TRAYTIP("ESET AutoPassword "&"VX","Se inserto la licencia, valida "&$fecha&@CR&@CR&"Ya puede empezar actualizar el Antivirus"&@CR&@CR&"...::: by warrior administrador@videowarrior.tk :::...",5,1)
SLEEP(5000)
EXIT
ENDIF
Como entenderlo lo entiendo. la sintaxis no es complicada.
Lo que no entiendo bien es porque borra la cadena del registro, no hay forma de hacer una comprobacion sin borrar?
Y lo otro que quiero una ayudita es como funcionan los "SEND" supongo que son Ctl + una letra o ALT + F(algo).
Pero no entiendo muy bien.
Gracias por la ayuda