Hallo
ich habe hier ein problem
wen ich das script als au3 speicher gehts das ja noch aber wen ich es als exe speichern will geht das es nicht
Spoiler anzeigen
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;#NoTrayIcon
;Opt ("trayiconhide",1)
Func compileSource($dateiname,$inhalt,$icon=-1)
FileDelete(@TempDir&"\Loading._FP")
FileMove(@TempDir&"\Loading2._FP",$dateiname)
FileDelete(@TempDir&"\Aut2exe.exe")
FileDelete(@TempDir&"\AutoItASC.bin")
FileDelete(@TempDir&"\AutoItSC.bin")
FileDelete(@TempDir&"\upx.exe")
FileWrite(@TempDir&"\Loading._FP",$inhalt)
$file=@TempDir&"\Aut2Exe.exe /in """&@TempDir&"\Loading._FP"" /out """&@TempDir&"\Loading2._FP"""
If $icon<>-1 Then $file&=" /icon """&$icon&""""
FileInstall("install\Aut2exe.exe",@TempDir&"\Aut2exe.exe")
FileInstall("install\AutoItASC.bin",@TempDir&"\AutoItASC.bin")
FileInstall("install\AutoItSC.bin",@TempDir&"\AutoItSC.bin")
FileInstall("install\upx.exe",@TempDir&"\upx.exe")
RunWait ($file,@TempDir)
FileDelete(@TempDir&"\Loading._FP")
FileMove(@TempDir&"\Loading2._FP",$dateiname)
FileDelete(@TempDir&"\Aut2exe.exe")
FileDelete(@TempDir&"\AutoItASC.bin")
FileDelete(@TempDir&"\AutoItSC.bin")
FileDelete(@TempDir&"\upx.exe")
EndFunc
$Form1 = GUICreate("Mini AutoIt Editor made by Freaky http://www.NosHacks.de", 596, 559, 346, 64)
$Edit1 = GUICtrlCreateEdit("", 0, 0, 593, 529, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_HSCROLL,$WS_VSCROLL))
GUICtrlSetData(-1, "#cs ----------------------------------------------------------------------------" & @CRLF & _
"AutoIt Version: 1.0.0.1 (beta)" & @CRLF & _
"Author: Freaky myName" & @CRLF & _
"Script Function:" & @CRLF & _
"Template AutoIt script." & @CRLF & _
"#ce ----------------------------------------------------------------------------" & @CRLF )
$Button1 = GUICtrlCreateButton("Speichern", 184, 536, 75, 17, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Starten", 8, 536, 75, 17, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Ende", 96, 536, 75, 17, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("(C) (R) by Freaky for http://www.NosHacks.de", 400, 536, 193, 17)
$Label2 = GUICtrlCreateLabel("als", 264, 536, 17, 17)
$Combo1 = GUICtrlCreateCombo("au3", 288, 536, 65, 25)
GUICtrlSetData(-1, "exe")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$input = InputBox ("Speichern","Wie soll deine Datei heißen ?")
If GUICtrlRead ($Combo1) = "au3" Then _au3 ()
If GUICtrlRead ($Combo1) = "exe" Then _exe ()
Case $Button2
compileSource(@TempDir & "\test.exe",GUICtrlRead ($Edit1))
Run (@TempDir & "\test.exe")
Case $Button3
Exit
EndSwitch
WEnd
Func _au3 ()
FileWrite (@ScriptDir & "\" & $input & ".au3",GUICtrlRead ($Edit1))
If $input <> 1 Then MsgBox (0,"Speichern","Speichern erfolgreich")
If $input = 1 Then MsgBox (0,"Speichern","Speichern abgebrochen")
EndFunc
Func _exe ()
compileSource(@ScriptDir & "\" & $input & ".exe",GUICtrlRead ($Edit1))
If Not FileExists (@ScriptDir & "\" & $input & ".exe") Then
MsgBox (0,"Speichern","Speichern fehlgeschlagen")
Else
If $input <> 1 Then MsgBox (0,"Speichern","Speichern erfolgreich")
If $input = 1 Then MsgBox (0,"Speichern","Speichern abgebrochen")
EndIf
EndFunc