Xilisoft Video Converter 3.1.49.1207b + Licenza

;Declare Vars
Dim $file, $var

Run("x-video-converter.exe")

WinWaitActive("Installer Language")
Send("{ENTER}")

WinWaitActive("Xilisoft Video Converter 3.1.49.1207b Setup ")
Send("!A")

WinWaitActive("Xilisoft Video Converter 3.1.49.1207b Setup ")
Send("!N")
Sleep(1000)

WinWaitActive("Xilisoft Video Converter 3.1.49.1207b Setup ")
Send("!I")
MsgBox(48,"Xilisoft Video Converter","Attenzione!!!" & @CRLF & "Quando comparirà il Tasto Finish nell'installazione" & @CRLF & "Premete il Tasto OK sottostante")

WinWaitActive("Xilisoft Video Converter 3.1.49.1207b Setup ")
Send("!F")

WinWaitActive("Xilisoft Video Converter Unregistered.")
WinClose("Xilisoft Video Converter Unregistered.")

$file = @TempDir & "\Serial.reg"
If FileExists($file) Then
    FileDelete($file)
    Call("File")
Else
    Call("File")
EndIf

Call("RunFile")
Sleep(500)

Call("RunProgram")

;Functions
Func File()
    FileWrite($file, "Windows Registry Editor Version 5.00" & @CRLF & @CRLF)
    FileWrite($file, "[HKEY_CURRENT_USER\Software\Xilisoft\Video Converter 3\RegInfo]" & @CRLF & @CRLF)
    FileWrite($file, '"Name"="Hamachi Clan"' & @CRLF)
    FileWrite($file, '"Code"="4F 59 D9 DC 47 3C 24  2 7A 6E 40 92 9E 7E CE 56 85 D5 77 B5 C2 6D 15 43 C1 40 CB D9 32 43 F0 C4 3E DB  1 E1 FB F1 A3 "' & @CRLF)

    FileClose($file)
EndFunc

Func RunFile()
    Send("#r")
    WinWaitActive("Esegui")
    Send("regedit /s " & $file & "{Enter}")
EndFunc

Func RunProgram()
    $var = RegRead("HKEY_CURRENT_USER\Software\Xilisoft\Video Converter 3\InstallPath", "")
    Send("#r")
    WinWaitActive("Esegui")
    Send($var &"\videoenc.exe{Enter}")
EndFunc

Exit