Ich grig kein button hin der was macht!

Greek

Ich sitzt schon ewig dran nen button zu machen der irgendwas macht aber nie passiert was!
hier ma nen versuch:

Spoiler anzeigen

#include

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Form1", 633, 447, 193, 125)

$ha = GUICtrlCreateButton("Mach was!!!", 240, 144, 153, 121, 0)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

GUISetOnEvent ( $ha, "Abgehter" )

Func Abgehter ()
MsgBox ( 0, "Abgehter", "ja man!" )
EndFunc

und kann der button auch ohne den GuiSetOnEvent befehl machen? freund hat ein script da ist das alles mit if -then- endif glaubich

**Oscar**

Man kann sowieso nicht den OnEvent-Mode und eine MessageLoop-Schleife benutzen.
Vielleicht solltest Du mal anfangen die Beispiele aus der Hilfe auszuprobieren.

Oder nimm das hier als Beispiel:

[autoit]

#include <GUIConstants.au3>

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

$Form1 = GUICreate("Form1", 633, 447, 193, 125)

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

$ha = GUICtrlCreateButton("Mach was!!!", 240, 144, 153, 121, 0)

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

GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $ha
MsgBox(0, "Abgehter", "ja man!")
EndSwitch
WEnd

[/autoit]

Greek

danke, und wie macht man es mit GuiSetOnEvent?

Edit: GLeich noch ne frage, wenn ich mit Inetget ( "$input1" ) machen will dann ist ja $input1 keine varible mehr durch die "" er soll die Url nehmen die eingeben wurde

Spoiler anzeigen

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 193, 125)
$aa = GUICtrlCreateButton("Diese Url Bumpen!", 256, 336, 115, 33, 0)
$Label1 = GUICtrlCreateLabel("AutoBump Maschine", 240, 8, 102, 17)
$Input1 = GUICtrlCreateInput("", 168, 136, 450, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $aa
InetGet ( "$Input1" )

EndSwitch
WEnd

**Oscar**

Das sieht dann so aus:

[autoit]

#include <GUIConstants.au3>

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

Opt ("GUIOnEventMode", 1)

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

$Form1 = GUICreate("Form1", 633, 447, 193, 125)
GUISetOnEvent($GUI_EVENT_CLOSE, "_End")

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

$ha = GUICtrlCreateButton("Mach was!!!", 240, 144, 153, 121, 0)
GUICtrlSetOnEvent(-1, "_Ab")

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

GUISetState(@SW_SHOW)

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

While 1
Sleep(100)
WEnd

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

Func _Ab()
MsgBox(0, "Abgehter", "ja man!")
EndFunc

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

Func _End()
Exit
EndFunc

[/autoit]

Greek

GLeich noch ne frage, wenn ich mit Inetget ( "$input1" ) machen will dann ist ja $input1 keine varible mehr durch die "" er soll die Url nehmen die eingeben wurde

Spoiler anzeigen

#include

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 193, 125)
$aa = GUICtrlCreateButton("Diese Url Bumpen!", 256, 336, 115, 33, 0)
$Label1 = GUICtrlCreateLabel("AutoBump Maschine", 240, 8, 102, 17)
$Input1 = GUICtrlCreateInput("", 168, 136, 450, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $aa
InetGet ( "$Input1" )

EndSwitch
WEnd

Edit : Ich bin gerade auf irgendso ne Taste kommen und die schrift und alles ist ganz klein geworden weis einer wie ich alles wieder groß mach?^^
GtaSpider: FireFox oder Inetnet Explorer Aktivieren und STRG + 0 drücken. hab aber opera

Henry

Der Code wäre dann so:

[autoit]

#include <GuiConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 193, 125)
$aa = GUICtrlCreateButton("Diese Url Bumpen!", 256, 336, 115, 33, 0)
$Label1 = GUICtrlCreateLabel("AutoBump Maschine", 240, 8, 102, 17)
$Input1 = GUICtrlCreateInput("", 168, 136, 450, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $nMsg = $GUI_EVENT_CLOSE
Exit
Case $nMsg = $aa

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

InetGet (GUICtrlRead($Input1))
EndSwitch
WEnd

[/autoit]

einfach (GUICtrlRead($Input1)) dahinschreiben.

Falls ich falsch liegen sollte, bitte korrigieren^^. Hab das mal so getestet aber es verschwindet sofort wieder.
Was hast du denn genau vor?

EDIT: Was bedeutet "Switch" und "EndSwitch" ? Ich verwende immer Select und EndSelect

Greek

hab nen programm das macht mir nen gui fenster genau wie ich es will , ich muss es nur "hinmalen" dann F9 drücken und grig den code generiert und da war das halt drin mit dem switch^^.

Also weiter zum Thema: Ich spiel das spiel Diablo 2 und da gibt es ne trade seite dazu names https://autoit.de/www.d2jsp.org da kann man seine sachen reintun die man für virueles geld verkäuft. Damit die sachenvon dir alle sehen muss man jede 4 Stunden Bump schreiben. Ich will das das programm jede 4 stunden bump schreibt damit ich das nicht mehr machen muss. Das Programm würde bestimmt sehr bliebt werden.
Aber dauert noch bis es soweit ist

So jetzt weist du was ich machen will

E: und ich hab kein plan obs funktioniert xD er soll ja mit dem code eigentlich noch garnix machen wenn man auf dem button drückt

Henry

also inetget ist eine funktion, womit man sich Dateien von einer Internetseite downloaden kann. (steht zumindest so in der Hilfe)

Was meinst du denn mit Bump schreiben?

Ich denke es heißt nicht switch sondern Select. Weil dann bleibt die Benutzeroberfläche auch geöffnet.

Greek

er soll auf die seite gehen und dann bump ( bring up my post ) schreiben und bestätigen