Ayuda codigo autoit

[Elemental Code]

Hola.
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 [Seleccionar] Expandir

#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

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

[bywarrior]

  En si cual es tu duda chaval, Quieres Que te explique como funciona el codigo?

[bywarrior]

Código [Seleccionar] Expandir

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.9.4 (beta)
Author:         bywarrior

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here


$destination = "1.bmp"

SplashImageOn("MSN administrador@lobosolitario.tk", $destination,228,217)
Sleep(1000)
SplashOff()
$DEL=REGread("HKEY_LOCAL_MACHINE\SOFTWARE\ESET\ESET Security\CurrentVersion\Info","ProductName")
IF $DEL=1 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://bywarrior.com/eset.txt", @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

[Danyfirex]

para comprobar simplemente pueder hacer esto

Código [Seleccionar] Expandir

if $del=1 la clave fue borrada.

fijate el valor de retorno

Código [Seleccionar] Expandir

Return Value
Success: Returns 1.
Special: Returns 0 if the key/value does not exist.
Failure: Returns 2 if error deleting key/value.
@error can be set to following values :
1 if unable to open requested key
2 if unable to open requested main key
3 if unable to remote connect to the registry
-1 if unable to delete requested value
-2 if unable to delete requested key/value.

Sobre el send

debes fijarte en la tabla de ayuda de send.


ejemplo para enviar Ctrl+f  es  

Código [Seleccionar] Expandir

send("^f")
y de esa forma lo estas simulando como si persionaras esas teclas.