Beiträge von Freaky

Freaky

thx jetz gehts habe davor nicht richtig gelesen

Freaky

das lustige ist ja
speichern als exe geht nict aber der button starten macht alles richtig

Freaky

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

[autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;#NoTrayIcon
;Opt ("trayiconhide",1)

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

$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)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit]

Freaky

ich meine
wen man die combo box sichtbar macht und in den tab geht dann flakert es

Freaky

ja schon aber es flakert so derbe das man garnichts erkennt

Freaky

Script

[autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $TabSheet2, $TabSheet3,$Combo1,$Label13

[/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("ScriptMaker by Freaky http://www.NosHacks.de", 338, 271, 192, 124)
$Tab1 = GUICtrlCreateTab(0, 0, 337, 241)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Seite 1")
$Label1 = GUICtrlCreateLabel("(C)(R) by Freaky for http://www.NosHacks.de", 136, 216, 190, 17)
$Edit1 = GUICtrlCreateEdit("", 32, 112, 273, 89, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "Edit1")
$Checkbox3 = GUICtrlCreateCheckbox("Sollen Tasten gedrückt werden ?", 13, 47, 177, 17)
$Checkbox1 = GUICtrlCreateCheckbox("Script mit Login", 13, 25, 81, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Soll nach Farben gesucht werden ?", 13, 72, 209, 17)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateTabItem("")
$Button1 = GUICtrlCreateButton("Script erstellen", 8, 240, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Ende", 88, 240, 75, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Speichern", 168, 240, 75, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Forum", 248, 240, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
ToolTip (GUICtrlRead ($Combo1),0,0)

[/autoit] [autoit][/autoit] [autoit]

If GUICtrlGetState($TabSheet2) = 80 Then
_Tasten_1 ()
EndIf

[/autoit] [autoit][/autoit] [autoit]

$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlSetState($Checkbox1, 4)
GUICtrlSetState($Checkbox2, 4)
GUICtrlSetState($Checkbox3, 4)
Case $Checkbox2
If GUICtrlRead($Checkbox2) = 4 Then GUICtrlDelete($TabSheet3)
If GUICtrlRead($Checkbox2) = 1 Then
If GUICtrlGetState($TabSheet3) = -1 Then
_Tab_2()
If GUICtrlGetState($TabSheet1) <> $GUI_SHOW Then
GUICtrlSetState($TabSheet1, $GUI_SHOW)
EndIf
EndIf
EndIf
Case $Checkbox3
If GUICtrlRead($Checkbox3) = 4 Then GUICtrlDelete($TabSheet2)
If GUICtrlRead($Checkbox3) = 1 Then
If GUICtrlGetState($TabSheet2) = -1 Then
_Tab_1()
If GUICtrlGetState($TabSheet1) <> $GUI_SHOW Then
GUICtrlSetState($TabSheet1, $GUI_SHOW)
EndIf
EndIf
EndIf
Case $Combo1

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _Tab_1()
$TabSheet2 = GUICtrlCreateTabItem("Tasten")
$Combo1 = GUICtrlCreateCombo("0", 232, 56, 81, 25)
GUICtrlSetData (-1,"1|2|3|4|5|6|7|8|9|10")
$Label2 = GUICtrlCreateLabel("Wieviele Tasten sollen gerdrückt werden ?", 8, 56, 206, 17)
EndFunc ;==>_Tab_1

[/autoit] [autoit][/autoit] [autoit]

Func _Tasten_1 ()
If GUICtrlGetState ($Label13) <> 80 Then
$Label13 = GUICtrlCreateLabel("Taste", 24, 88, 31, 17)
$Label14 = GUICtrlCreateLabel("Zeit", 72, 88, 22, 17)
$Label15 = GUICtrlCreateLabel("Taste", 200, 88, 31, 17)
$Label16 = GUICtrlCreateLabel("Zeit", 248, 88, 22, 17)
EndIf

[/autoit] [autoit][/autoit] [autoit]

If GUICtrlRead ($Combo1) = "1" Then
$Label3 = GUICtrlCreateLabel("1", 8, 112, 10, 17)
$Input1 = GUICtrlCreateInput("1", 24, 112, 41, 21)
$Input2 = GUICtrlCreateInput("2", 72, 112, 41, 21)
ElseIf GUICtrlRead ($Combo1) = "2" Then
$Label3 = GUICtrlCreateLabel("1", 8, 112, 10, 17)
$Input1 = GUICtrlCreateInput("1", 24, 112, 41, 21)
$Input2 = GUICtrlCreateInput("2", 72, 112, 41, 21)
$Input3 = GUICtrlCreateInput("2", 72, 136, 41, 21)
$Input4 = GUICtrlCreateInput("1", 24, 136, 41, 21)
$Label4 = GUICtrlCreateLabel("1", 8, 136, 10, 17)
ElseIf GUICtrlRead ($Combo1) = "3" Then
$Label3 = GUICtrlCreateLabel("1", 8, 112, 10, 17)
$Input1 = GUICtrlCreateInput("1", 24, 112, 41, 21)
$Input2 = GUICtrlCreateInput("2", 72, 112, 41, 21)
$Input3 = GUICtrlCreateInput("2", 72, 136, 41, 21)
$Input4 = GUICtrlCreateInput("1", 24, 136, 41, 21)
$Label4 = GUICtrlCreateLabel("1", 8, 136, 10, 17)
$Input5 = GUICtrlCreateInput("2", 72, 160, 41, 21)
$Input6 = GUICtrlCreateInput("1", 24, 160, 41, 21)
$Label5 = GUICtrlCreateLabel("1", 8, 160, 10, 17)
ElseIf GUICtrlRead ($Combo1) = "4" Then
$Label3 = GUICtrlCreateLabel("1", 8, 112, 10, 17)
$Input1 = GUICtrlCreateInput("1", 24, 112, 41, 21)
$Input2 = GUICtrlCreateInput("2", 72, 112, 41, 21)
$Input3 = GUICtrlCreateInput("2", 72, 136, 41, 21)
$Input4 = GUICtrlCreateInput("1", 24, 136, 41, 21)
$Label4 = GUICtrlCreateLabel("1", 8, 136, 10, 17)
$Input5 = GUICtrlCreateInput("2", 72, 160, 41, 21)
$Input6 = GUICtrlCreateInput("1", 24, 160, 41, 21)
$Label5 = GUICtrlCreateLabel("1", 8, 160, 10, 17)
$Input7 = GUICtrlCreateInput("2", 72, 184, 41, 21)
$Input8 = GUICtrlCreateInput("1", 24, 184, 41, 21)
$Label6 = GUICtrlCreateLabel("1", 8, 184, 10, 17)
ElseIf GUICtrlRead ($Combo1) = "5" Then
$Label3 = GUICtrlCreateLabel("1", 8, 112, 10, 17)
$Input1 = GUICtrlCreateInput("1", 24, 112, 41, 21)
$Input2 = GUICtrlCreateInput("2", 72, 112, 41, 21)
$Input3 = GUICtrlCreateInput("2", 72, 136, 41, 21)
$Input4 = GUICtrlCreateInput("1", 24, 136, 41, 21)
$Label4 = GUICtrlCreateLabel("1", 8, 136, 10, 17)
$Input5 = GUICtrlCreateInput("2", 72, 160, 41, 21)
$Input6 = GUICtrlCreateInput("1", 24, 160, 41, 21)
$Label5 = GUICtrlCreateLabel("1", 8, 160, 10, 17)
$Input7 = GUICtrlCreateInput("2", 72, 184, 41, 21)
$Input8 = GUICtrlCreateInput("1", 24, 184, 41, 21)
$Label6 = GUICtrlCreateLabel("1", 8, 184, 10, 17)
$Input9 = GUICtrlCreateInput("2", 72, 208, 41, 21)
$Input10 = GUICtrlCreateInput("1", 24, 208, 41, 21)
$Label7 = GUICtrlCreateLabel("1", 8, 208, 10, 17)
ElseIf GUICtrlRead ($Combo1) = "6" Then
$Label3 = GUICtrlCreateLabel("1", 8, 112, 10, 17)
$Input1 = GUICtrlCreateInput("1", 24, 112, 41, 21)
$Input2 = GUICtrlCreateInput("2", 72, 112, 41, 21)
$Input3 = GUICtrlCreateInput("2", 72, 136, 41, 21)
$Input4 = GUICtrlCreateInput("1", 24, 136, 41, 21)
$Label4 = GUICtrlCreateLabel("1", 8, 136, 10, 17)
$Input5 = GUICtrlCreateInput("2", 72, 160, 41, 21)
$Input6 = GUICtrlCreateInput("1", 24, 160, 41, 21)
$Label5 = GUICtrlCreateLabel("1", 8, 160, 10, 17)
$Input7 = GUICtrlCreateInput("2", 72, 184, 41, 21)
$Input8 = GUICtrlCreateInput("1", 24, 184, 41, 21)
$Label6 = GUICtrlCreateLabel("1", 8, 184, 10, 17)
$Input9 = GUICtrlCreateInput("2", 72, 208, 41, 21)
$Input10 = GUICtrlCreateInput("1", 24, 208, 41, 21)
$Label7 = GUICtrlCreateLabel("1", 8, 208, 10, 17)
$Input11 = GUICtrlCreateInput("2", 248, 112, 41, 21)
$Input12 = GUICtrlCreateInput("1", 200, 112, 41, 21)
$Label8 = GUICtrlCreateLabel("1", 184, 112, 10, 17)
ElseIf GUICtrlRead ($Combo1) = "7" Then
$Label3 = GUICtrlCreateLabel("1", 8, 112, 10, 17)
$Input1 = GUICtrlCreateInput("1", 24, 112, 41, 21)
$Input2 = GUICtrlCreateInput("2", 72, 112, 41, 21)
$Input3 = GUICtrlCreateInput("2", 72, 136, 41, 21)
$Input4 = GUICtrlCreateInput("1", 24, 136, 41, 21)
$Label4 = GUICtrlCreateLabel("1", 8, 136, 10, 17)
$Input5 = GUICtrlCreateInput("2", 72, 160, 41, 21)
$Input6 = GUICtrlCreateInput("1", 24, 160, 41, 21)
$Label5 = GUICtrlCreateLabel("1", 8, 160, 10, 17)
$Input7 = GUICtrlCreateInput("2", 72, 184, 41, 21)
$Input8 = GUICtrlCreateInput("1", 24, 184, 41, 21)
$Label6 = GUICtrlCreateLabel("1", 8, 184, 10, 17)
$Input9 = GUICtrlCreateInput("2", 72, 208, 41, 21)
$Input10 = GUICtrlCreateInput("1", 24, 208, 41, 21)
$Label7 = GUICtrlCreateLabel("1", 8, 208, 10, 17)
$Input11 = GUICtrlCreateInput("2", 248, 112, 41, 21)
$Input12 = GUICtrlCreateInput("1", 200, 112, 41, 21)
$Label8 = GUICtrlCreateLabel("1", 184, 112, 10, 17)
$Input13 = GUICtrlCreateInput("2", 248, 136, 41, 21)
$Input14 = GUICtrlCreateInput("1", 200, 136, 41, 21)
$Label9 = GUICtrlCreateLabel("1", 184, 136, 10, 17)
ElseIf GUICtrlRead ($Combo1) = "8" Then
$Label3 = GUICtrlCreateLabel("1", 8, 112, 10, 17)
$Input1 = GUICtrlCreateInput("1", 24, 112, 41, 21)
$Input2 = GUICtrlCreateInput("2", 72, 112, 41, 21)
$Input3 = GUICtrlCreateInput("2", 72, 136, 41, 21)
$Input4 = GUICtrlCreateInput("1", 24, 136, 41, 21)
$Label4 = GUICtrlCreateLabel("1", 8, 136, 10, 17)
$Input5 = GUICtrlCreateInput("2", 72, 160, 41, 21)
$Input6 = GUICtrlCreateInput("1", 24, 160, 41, 21)
$Label5 = GUICtrlCreateLabel("1", 8, 160, 10, 17)
$Input7 = GUICtrlCreateInput("2", 72, 184, 41, 21)
$Input8 = GUICtrlCreateInput("1", 24, 184, 41, 21)
$Label6 = GUICtrlCreateLabel("1", 8, 184, 10, 17)
$Input9 = GUICtrlCreateInput("2", 72, 208, 41, 21)
$Input10 = GUICtrlCreateInput("1", 24, 208, 41, 21)
$Label7 = GUICtrlCreateLabel("1", 8, 208, 10, 17)
$Input11 = GUICtrlCreateInput("2", 248, 112, 41, 21)
$Input12 = GUICtrlCreateInput("1", 200, 112, 41, 21)
$Label8 = GUICtrlCreateLabel("1", 184, 112, 10, 17)
$Input13 = GUICtrlCreateInput("2", 248, 136, 41, 21)
$Input14 = GUICtrlCreateInput("1", 200, 136, 41, 21)
$Label9 = GUICtrlCreateLabel("1", 184, 136, 10, 17)
$Input15 = GUICtrlCreateInput("2", 248, 160, 41, 21)
$Input16 = GUICtrlCreateInput("1", 200, 160, 41, 21)
$Label10 = GUICtrlCreateLabel("1", 184, 160, 10, 17)
ElseIf GUICtrlRead ($Combo1) = "9" Then
$Label3 = GUICtrlCreateLabel("1", 8, 112, 10, 17)
$Input1 = GUICtrlCreateInput("1", 24, 112, 41, 21)
$Input2 = GUICtrlCreateInput("2", 72, 112, 41, 21)
$Input3 = GUICtrlCreateInput("2", 72, 136, 41, 21)
$Input4 = GUICtrlCreateInput("1", 24, 136, 41, 21)
$Label4 = GUICtrlCreateLabel("1", 8, 136, 10, 17)
$Input5 = GUICtrlCreateInput("2", 72, 160, 41, 21)
$Input6 = GUICtrlCreateInput("1", 24, 160, 41, 21)
$Label5 = GUICtrlCreateLabel("1", 8, 160, 10, 17)
$Input7 = GUICtrlCreateInput("2", 72, 184, 41, 21)
$Input8 = GUICtrlCreateInput("1", 24, 184, 41, 21)
$Label6 = GUICtrlCreateLabel("1", 8, 184, 10, 17)
$Input9 = GUICtrlCreateInput("2", 72, 208, 41, 21)
$Input10 = GUICtrlCreateInput("1", 24, 208, 41, 21)
$Label7 = GUICtrlCreateLabel("1", 8, 208, 10, 17)
$Input11 = GUICtrlCreateInput("2", 248, 112, 41, 21)
$Input12 = GUICtrlCreateInput("1", 200, 112, 41, 21)
$Label8 = GUICtrlCreateLabel("1", 184, 112, 10, 17)
$Input13 = GUICtrlCreateInput("2", 248, 136, 41, 21)
$Input14 = GUICtrlCreateInput("1", 200, 136, 41, 21)
$Label9 = GUICtrlCreateLabel("1", 184, 136, 10, 17)
$Input15 = GUICtrlCreateInput("2", 248, 160, 41, 21)
$Input16 = GUICtrlCreateInput("1", 200, 160, 41, 21)
$Label10 = GUICtrlCreateLabel("1", 184, 160, 10, 17)
$Input17 = GUICtrlCreateInput("2", 248, 184, 41, 21)
$Input18 = GUICtrlCreateInput("1", 200, 184, 41, 21)
$Label11 = GUICtrlCreateLabel("1", 184, 184, 10, 17)
ElseIf GUICtrlRead ($Combo1) = "10" Then
$Label3 = GUICtrlCreateLabel("1", 8, 112, 10, 17)
$Input1 = GUICtrlCreateInput("1", 24, 112, 41, 21)
$Input2 = GUICtrlCreateInput("2", 72, 112, 41, 21)
$Input3 = GUICtrlCreateInput("2", 72, 136, 41, 21)
$Input4 = GUICtrlCreateInput("1", 24, 136, 41, 21)
$Label4 = GUICtrlCreateLabel("1", 8, 136, 10, 17)
$Input5 = GUICtrlCreateInput("2", 72, 160, 41, 21)
$Input6 = GUICtrlCreateInput("1", 24, 160, 41, 21)
$Label5 = GUICtrlCreateLabel("1", 8, 160, 10, 17)
$Input7 = GUICtrlCreateInput("2", 72, 184, 41, 21)
$Input8 = GUICtrlCreateInput("1", 24, 184, 41, 21)
$Label6 = GUICtrlCreateLabel("1", 8, 184, 10, 17)
$Input9 = GUICtrlCreateInput("2", 72, 208, 41, 21)
$Input10 = GUICtrlCreateInput("1", 24, 208, 41, 21)
$Label7 = GUICtrlCreateLabel("1", 8, 208, 10, 17)
$Input11 = GUICtrlCreateInput("2", 248, 112, 41, 21)
$Input12 = GUICtrlCreateInput("1", 200, 112, 41, 21)
$Label8 = GUICtrlCreateLabel("1", 184, 112, 10, 17)
$Input13 = GUICtrlCreateInput("2", 248, 136, 41, 21)
$Input14 = GUICtrlCreateInput("1", 200, 136, 41, 21)
$Label9 = GUICtrlCreateLabel("1", 184, 136, 10, 17)
$Input15 = GUICtrlCreateInput("2", 248, 160, 41, 21)
$Input16 = GUICtrlCreateInput("1", 200, 160, 41, 21)
$Label10 = GUICtrlCreateLabel("1", 184, 160, 10, 17)
$Input17 = GUICtrlCreateInput("2", 248, 184, 41, 21)
$Input18 = GUICtrlCreateInput("1", 200, 184, 41, 21)
$Label11 = GUICtrlCreateLabel("1", 184, 184, 10, 17)
$Input19 = GUICtrlCreateInput("1", 248, 208, 41, 21)
$Input20 = GUICtrlCreateInput("2", 200, 208, 41, 21)
$Label12 = GUICtrlCreateLabel("1", 184, 208, 10, 17)
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Tab_2()
$TabSheet3 = GUICtrlCreateTabItem("Farben Suche")
$Input = GUICtrlCreateInput("20", 32, 88, 73, 21)
$Input21 = GUICtrlCreateInput("21", 112, 88, 41, 21)
$Input22 = GUICtrlCreateInput("22", 160, 88, 41, 21)
$Label19 = GUICtrlCreateLabel("Zeit warten nachdem Farbe gefunden wurde", 32, 120, 214, 17)
$Input23 = GUICtrlCreateInput("23", 256, 120, 57, 21)
$Label20 = GUICtrlCreateLabel("Taste die nach der Zeit gerdückt werden soll", 32, 144, 215, 17)
$Input24 = GUICtrlCreateInput("24", 256, 144, 57, 21)
$Label21 = GUICtrlCreateLabel("Zeit warten nachdem Farbe gefunden wurde", 32, 168, 214, 17)
$Input25 = GUICtrlCreateInput("25", 256, 168, 57, 21)
$Label17 = GUICtrlCreateLabel("Farbe", 40, 64, 31, 17)
$Label18 = GUICtrlCreateLabel("x", 128, 64, 9, 17)
$Label22 = GUICtrlCreateLabel("y", 176, 64, 9, 17)
EndFunc ;==>_Tab_2

[/autoit]

Also
ich will machen wen man in der combobox z.b. 2 auswehlt und dann auf tabsheet 2 reien da sind und wen ich danach wieder 1 mache nur noch 1 da ist

Freaky

Hallo
ich will GUICtrlCreateLabel sagen das es z.b. in $tabsheet1 gehen soll obwohl ich davor schon mherer tabsheets gemacht habe
wie krige ich das hin ?

Freaky

ah thx es geht

Freaky

Hallo
ich habe ein script aber wen ich auf den cheboxen hin und her klicke fangen die tabsheets an zu flakern

Spoiler anzeigen

[autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $TabSheet2,$TabSheet3

[/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("ScriptMaker by Freaky https://autoit.de/www.NosHacks.de", 338, 271, 192, 124)
$Tab1 = GUICtrlCreateTab(0, 0, 337, 241)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Seite 1")
$Label1 = GUICtrlCreateLabel("(C)(R) by Freaky for https://autoit.de/www.NosHacks.de", 136, 216, 190, 17)
$Edit1 = GUICtrlCreateEdit("", 32, 112, 273, 89, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, "Edit1")
$Checkbox3 = GUICtrlCreateCheckbox("Sollen Tasten gedrückt werden ?", 13, 47, 177, 17)
$Checkbox1 = GUICtrlCreateCheckbox("Script mit Login", 13, 25, 81, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Soll nach Farben gesucht werden ?", 13, 72, 209, 17)

[/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateTabItem("")
$Button1 = GUICtrlCreateButton("Script erstellen", 8, 240, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Ende", 88, 240, 75, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Speichern", 168, 240, 75, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Forum", 248, 240, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1

[/autoit] [autoit][/autoit] [autoit]

If GUICtrlRead ($Checkbox3) = 4 Then GUICtrlDelete ($TabSheet2)
If GUICtrlRead ($Checkbox3) = 1 Then
If GUICtrlGetState ($TabSheet2) = -1 Then
_Tab_1 ()
If GUICtrlGetState ($TabSheet1) <> $GUI_SHOW Then
GUICtrlSetState ($TabSheet1,$GUI_SHOW)
EndIf
EndIf
EndIf

[/autoit] [autoit][/autoit] [autoit]

If GUICtrlRead ($Checkbox2) = 4 Then GUICtrlDelete ($TabSheet3)
If GUICtrlRead ($Checkbox2) = 1 Then
If GUICtrlGetState ($TabSheet3) = -1 Then
_Tab_2 ()
If GUICtrlGetState ($TabSheet1) <> $GUI_SHOW Then
GUICtrlSetState ($TabSheet1,$GUI_SHOW)
EndIf
EndIf
EndIf

[/autoit] [autoit][/autoit] [autoit]

ToolTip (GUICtrlGetState ($TabSheet1),0,0)

[/autoit] [autoit][/autoit] [autoit]

$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlSetState ($Checkbox1,4)
GUICtrlSetState ($Checkbox2,4)
GUICtrlSetState ($Checkbox3,4)

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _Tab_1 ()
$TabSheet2 = GUICtrlCreateTabItem("Tasten")
$Combo1 = GUICtrlCreateCombo("Combo1", 232, 56, 81, 25)
$Label2 = GUICtrlCreateLabel("Wieviele Tasten sollen gerdrückt werden ?", 8, 56, 206, 17)
$Label3 = GUICtrlCreateLabel("1", 8, 112, 10, 17)
$Input1 = GUICtrlCreateInput("Input1", 24, 112, 41, 21)
$Input2 = GUICtrlCreateInput("Input2", 72, 112, 41, 21)
$Input3 = GUICtrlCreateInput("Input2", 72, 136, 41, 21)
$Input4 = GUICtrlCreateInput("Input1", 24, 136, 41, 21)
$Label4 = GUICtrlCreateLabel("1", 8, 136, 10, 17)
$Input5 = GUICtrlCreateInput("Input2", 72, 160, 41, 21)
$Input6 = GUICtrlCreateInput("Input1", 24, 160, 41, 21)
$Label5 = GUICtrlCreateLabel("1", 8, 160, 10, 17)
$Input7 = GUICtrlCreateInput("Input2", 72, 184, 41, 21)
$Input8 = GUICtrlCreateInput("Input1", 24, 184, 41, 21)
$Label6 = GUICtrlCreateLabel("1", 8, 184, 10, 17)
$Input9 = GUICtrlCreateInput("Input2", 72, 208, 41, 21)
$Input10 = GUICtrlCreateInput("Input1", 24, 208, 41, 21)
$Label7 = GUICtrlCreateLabel("1", 8, 208, 10, 17)
$Input11 = GUICtrlCreateInput("Input2", 248, 112, 41, 21)
$Input12 = GUICtrlCreateInput("Input1", 200, 112, 41, 21)
$Label8 = GUICtrlCreateLabel("1", 184, 112, 10, 17)
$Input13 = GUICtrlCreateInput("Input2", 248, 136, 41, 21)
$Input14 = GUICtrlCreateInput("Input1", 200, 136, 41, 21)
$Label9 = GUICtrlCreateLabel("1", 184, 136, 10, 17)
$Input15 = GUICtrlCreateInput("Input2", 248, 160, 41, 21)
$Input16 = GUICtrlCreateInput("Input1", 200, 160, 41, 21)
$Label10 = GUICtrlCreateLabel("1", 184, 160, 10, 17)
$Input17 = GUICtrlCreateInput("Input2", 248, 184, 41, 21)
$Input18 = GUICtrlCreateInput("Input1", 200, 184, 41, 21)
$Label11 = GUICtrlCreateLabel("1", 184, 184, 10, 17)
$Input19 = GUICtrlCreateInput("Input2", 248, 208, 41, 21)
$Input20 = GUICtrlCreateInput("Input1", 200, 208, 41, 21)
$Label12 = GUICtrlCreateLabel("1", 184, 208, 10, 17)
$Label13 = GUICtrlCreateLabel("Taste", 24, 88, 31, 17)
$Label14 = GUICtrlCreateLabel("Zeit", 72, 88, 22, 17)
$Label15 = GUICtrlCreateLabel("Taste", 200, 88, 31, 17)
$Label16 = GUICtrlCreateLabel("Zeit", 248, 88, 22, 17)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Tab_2 ()
$TabSheet3 = GUICtrlCreateTabItem("Farben Suche")
$Input = GUICtrlCreateInput("Input20", 32, 88, 73, 21)
$Input21 = GUICtrlCreateInput("Input21", 112, 88, 41, 21)
$Input22 = GUICtrlCreateInput("Input22", 160, 88, 41, 21)
$Label19 = GUICtrlCreateLabel("Zeit warten nachdem Farbe gefunden wurde", 32, 120, 214, 17)
$Input23 = GUICtrlCreateInput("Input23", 256, 120, 57, 21)
$Label20 = GUICtrlCreateLabel("Taste die nach der Zeit gerdückt werden soll", 32, 144, 215, 17)
$Input24 = GUICtrlCreateInput("Input24", 256, 144, 57, 21)
$Label21 = GUICtrlCreateLabel("Zeit warten nachdem Farbe gefunden wurde", 32, 168, 214, 17)
$Input25 = GUICtrlCreateInput("Input25", 256, 168, 57, 21)
$Label17 = GUICtrlCreateLabel("Farbe", 40, 64, 31, 17)
$Label18 = GUICtrlCreateLabel("x", 128, 64, 9, 17)
$Label22 = GUICtrlCreateLabel("y", 176, 64, 9, 17)
EndFunc

[/autoit]

Freaky

Hallo
ich habe eine au3 gesehn das ein downloader hat und den habe ich rausgeschnibbelt aber ich krige das nicht in mein syples script gestopft

könnte es jemand so zurecht rücken das es auch geht pls

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 436, 99, 192, 124)
$Input1 = GUICtrlCreateInput("", 0, 0, 433, 21)
$Progress1 = GUICtrlCreateProgress(0, 24, 430, 17)
$Label1 = GUICtrlCreateLabel("", 0, 48, 428, 17)
$Button1 = GUICtrlCreateButton("ok", 8, 72, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("exit", 120, 72, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlSetData($Label1,"... wird heruntergeladen")
$SSAVEFILEPATH = FileSelectFolder("Speichern unter ... ", @DesktopDir, 7, @DesktopDir)
If @error = 1 Then
Else
InetGet($SFILEPATHONSERVER & $SNAMESELECTEDFILE, $SSAVEFILEPATH & "\" & $SNAMESELECTEDFILE, 1, 1)
While @InetGetActive
GUICtrlSetData($Progress1, (@InetGetBytesRead / $IDATAFILESIZE[$ITEMPINDEX[1] + 1] / 10))
GUICtrlSetData($PLABELINFO, "Download: " & $SNAMESELECTEDFILE & " - " & Int(@InetGetBytesRead / 1000) & "/" & $IDATAFILESIZE[$ITEMPINDEX[1] + 1] & " KB - " & Int((@InetGetBytesRead / $IDATAFILESIZE[$ITEMPINDEX[1] + 1] / 10)) & " %")
Sleep(100)
WEnd
GUICtrlSetData($Progress1, 100)
GUICtrlSetData($Label1, "Fertig geladen!")
Sleep(1000)
EndIf
Case $Button2
Exit
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit]

in den input kommt die url rein zu der datei
mehr braucht man ja nicht sagen

Freaky

das mit dem schwer lesen meine ich ja

ich benutze auch die stabile version jetz auch aber es kommt immer noch
ich mache das jetz so das wen die fehler meldung kommt auf Stop drücke und das dann selber nochmal compile und das geht dann aber das dauert mir immer zu lange

Freaky

ich habe den willen aber kein weg
suche immer noch

Freaky

ich will aber den obfuscator nutzen weil nicht jeder soll meine sorce sehen
oder gibt es eine möglichkeit den decompiler ganz zu blockieren ?

Freaky

ja aber die heisten etwas anders
früher ging es aber seid dem ich die beta (autoit beta) habe geht s nicht mehr

Freaky

hallo
wen ich mein script decompile mit obfuscator kommt das

Spoiler anzeigen

Code

-###2 Obfuscation Error: Found Execute() statement which will lead to problems running your obfuscated script.
>### current Func: _IEFormElementCheckboxSelect
d:\Programme\AutoIt3\include\IE.au3(1706,1) Warning for line:$oItems = Execute("$o_object.elements('" & $s_Name & "')") 


-###2 Obfuscation Error: Found Execute() statement which will lead to problems running your obfuscated script.
>### current Func: _IEFormElementRadioSelect
d:\Programme\AutoIt3\include\IE.au3(1834,1) Warning for line:$oItems = Execute("$o_object.elements('" & $s_Name & "')") 


-###2 Obfuscation Error: Found Execute() statement which will lead to problems running your obfuscated script.
>### current Func: _IEPropertyGet
d:\Programme\AutoIt3\include\IE.au3(3291,1) Warning for line:$aVcard[1][$i] = Execute('$o_object.document.parentWindow.top.navigator.userProfile.getAttribute("' & $aVcard[0][$i] & '")') 


-### Obfuscation Error: Found ObjEvent() statement using unsolvable Func, which will/could lead to problems running your obfuscated script.
>### current Func: _IEErrorHandlerRegister
d:\Programme\AutoIt3\include\IE.au3(3644,1) Warning for line:$oIEErrorHandler = ObjEvent("AutoIt.Error", $s_functionName) 


-### Obfuscation Error: Found ObjEvent() statement using unsolvable Func, which will/could lead to problems running your obfuscated script.
>### current Func: __IEInternalErrorHandlerDeRegister
d:\Programme\AutoIt3\include\IE.au3(4334,1) Warning for line:$oIEErrorHandler = ObjEvent("AutoIt.Error", $sIEUserErrorHandler) 


-#############################################################################################
-#### Obfuscator Found   5 Error(s)!!!!	This means your script could have problems running properly.  ####
-#############################################################################################
+> Obfuscator v1.0.26.12 finished obfuscating 4779 lines, stripped 2577 comment lines. created:C:\Dokumente und Einstellungen\***\Desktop\ \****\nur ***\**** Downloader_Obfuscated.au3

Alles anzeigen

wie kan ich behebn oder würde eine neue IE.au3 helfen ?

Freaky

Hallo
ich will bei autoit über tcp mich auf eine seite einloggen und da ist ein cookie
so brauch ich den cookie oder kann ich es weglassen
wen ich es brauche wie erstelle ich es?

Freaky

ok bin jetz trotzdem bei bplaced
habe kein besseren hoster gefunden

Freaky

bplaced ist sehr offt down

Freaky

Hallo
kent einer von euch ein webspace mit diesen angaben

Code

kostenlos, werbefreiheit, mindestens 20 GB Traffic, mindestens 2 GB Webspace, PHP, MYSQL mit mindestens 60MB(über 200 wären besser). ftp zugang, schnell muss er sein

weil mein forum umzihen will und die db ist fast 30 mb gross

Freaky

und was kann ich damit anfang
I C H kann damit nichts anfangen
auser wen es mir jemand erklärt ohne formeln

Beiträge von Freaky

Script speichert script als exe problem

Script speichert script als exe problem

Script speichert script als exe problem

GUICtrlCreate... Problem

GUICtrlCreate... Problem

GUICtrlCreate... Problem

GUICtrlCreate... Problem

Tabsheet flakert

Tabsheet flakert

Downloader umschreiben

IE.au3 ERROR

IE.au3 ERROR

IE.au3 ERROR

IE.au3 ERROR

IE.au3 ERROR

TCP

Suche Webspace (mit angaben)

Suche Webspace (mit angaben)

Suche Webspace (mit angaben)

Autoit Downloader Problem