Mein erstes Programm mit grafischer Oberfläche [Brauche Hilfe]

mongobongo

Könnt ihr mier hierbei helfen:

[autoit]

#include

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

Opt('MustDeclareVars', 1)

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

Main()

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

Func _Main()
Local $YesID, $ExitID, $msg

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

GUICreate("Name", 400, 400)

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

GUICtrlCreateLabel("Text", 10, 10)

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

$YesID = GUICtrlCreateButton("Ja", 10, 10, 50, 25)
$ExitID = GUICtrlCreateButton("Exit", 100, 100, 50, 20)

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

GUISetState()

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

Do
$msg = GUIGetMsg()

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

Select
Case
$msg = $YesID
Sleep(5000)
Mouseclick("left",930,500,1)
Sleep(1500)
Mouseclick("left",887,387,1)
Send("123456")
Mouseclick("left",684,453,1)
Sleep(1000)
Mouseclick("left",688,475,1)
Sleep(1000)
Mouseclick("left",930,511,1)
Sleep(1500)
Mouseclick("left",887,387,1)
Send("123456")
Mouseclick("left",684,453,1)
Sleep(1000)
Mouseclick("left",688,475,1)
Sleep(1000)
Mouseclick("left",930,522,1)
Sleep(1500)
Mouseclick("left",887,387,1)
Send("123456")
Mouseclick("left",684,453,1)
Sleep(1000)
Mouseclick("left",688,475,1)
Exit
Case $msg = $ExitID
Exit
EndSelect
Until
EndFunc

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

PS:Wäre echt nett!
mongobongo

**peethebee**

Wo ist das Problem?
Was soll passieren? Was passiert? Fehlermeldung? Was hast du schon versucht als Lösungsansatz?

Mit den Antworten können wir schneller und besser helfen :).

peethebee

mongobongo

Da kommt:
Line 5
Main()
^^error

**Raupi**

Des heißt _Main() in Zeile 5 dann klappt des .

mongobongo

jetzt sagt der aber:
Line 53
Until
Until ^error

**Raupi**

Hier mal deine Fehler :
1. Zeile seht #Include .??? Was willst du Includieren ?
Zeilen 23 und 24 gehören Zusammen also Case $msg = $YesID
Eine Do Until Schleife braucht auch ne Abbruchbedingung . Schau dir mal die Hilfe an .
Besser ist eine While Wend Schleife . Hier mal dein Code Lauffähig.

Spoiler anzeigen

[autoit]

Opt('MustDeclareVars', 1)

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

_Main()

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

Func _Main()
Local $YesID, $ExitID, $msg

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

GUICreate("Name", 400, 400)

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

GUICtrlCreateLabel("Text", 10, 10)

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

$YesID = GUICtrlCreateButton("Ja", 10, 10, 50, 25)
$ExitID = GUICtrlCreateButton("Exit", 100, 100, 50, 20)

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

GUISetState()

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

While 1123456123456123456
$msg = GUIGetMsg()

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

Select
Case $msg = $YesID
Sleep(5000)
MouseClick("left", 930, 500, 1)
Sleep(1500)
MouseClick("left", 887, 387, 1)
Send("123456")
MouseClick("left", 684, 453, 1)
Sleep(1000)
MouseClick("left", 688, 475, 1)
Sleep(1000)
MouseClick("left", 930, 511, 1)
Sleep(1500)
MouseClick("left", 887, 387, 1)
Send("123456")
MouseClick("left", 684, 453, 1)
Sleep(1000)
MouseClick("left", 688, 475, 1)
Sleep(1000)
MouseClick("left", 930, 522, 1)
Sleep(1500)
MouseClick("left", 887, 387, 1)
Send("123456")
MouseClick("left", 684, 453, 1)
Sleep(1000)
MouseClick("left", 688, 475, 1)
Exit
Case $msg = $ExitID
Exit
EndSelect
Wend
EndFunc ;==>_Main

[/autoit]

Was soll des eigentlich werden? Ein Klickbot? Wenn ja, lese mal die Forenregeln.

MOZ

du musst nach dem Until auch was stehte haben. Z.B Until $variable = 10 oder so

RR04

Herzlich Willkommen mongobongo !
Raupi war schneller

Spoiler anzeigen

[autoit]

Opt('MustDeclareVars', 1)

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

_Main()

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

Func _Main()
Local $YesID, $ExitID, $msg

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

GUICreate("Name", 400, 400)
GUICtrlCreateLabel("Text", 10, 10)
$YesID = GUICtrlCreateButton("Ja", 10, 10, 50, 25)
$ExitID = GUICtrlCreateButton("Exit", 100, 100, 50, 20)

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

GUISetState()

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

While 1
$msg = GUIGetMsg()

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

Select
Case $msg = $ExitID
Exit
Case $msg = $YesID
Sleep(5000)
MouseClick("left", 930, 500, 1)
Sleep(1500)
MouseClick("left", 887, 387, 1)
Send("123456")
MouseClick("left", 684, 453, 1)
Sleep(1000)
MouseClick("left", 688, 475, 1)
Sleep(1000)
MouseClick("left", 930, 511, 1)
Sleep(1500)
MouseClick("left", 887, 387, 1)
Send("123456")
MouseClick("left", 684, 453, 1)
Sleep(1000)
MouseClick("left", 688, 475, 1)
Sleep(1000)
MouseClick("left", 930, 522, 1)
Sleep(1500)
MouseClick("left", 887, 387, 1)
Send("123456")
MouseClick("left", 684, 453, 1)
Sleep(1000)
MouseClick("left", 688, 475, 1)
Exit
EndSelect
WEnd
EndFunc ;==>_Main

[/autoit]

Viel Erfolg !

mongobongo

Danke Leute !
Jetzt hab ich es komplett verstanden.
PS:Hatte es fast richtig!
mongobongo

mongobongo

Hab noch ein Problem!
Ich hab das Prog noch einem Bild versehen und jetzt eine Fortschrittsleiste eingebaut,nur ich weiß nicht wie die funzt!!!
Der Prozess dauert 14,5 Sekunden,wie kann ich das machen das die ladeleiste in richtigen schritten fortschritte macht?
UNd warum ist das Bild nich tzu sehen?WEnn ich bild und ladeleiste zusammen habe funzt es nicht,aber bei nur bild schon!

Spoiler anzeigen

[autoit]

Opt('MustDeclareVars', 1)

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

_Main()

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

Func _Main()
Local $YesID, $NoID, $msg

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

GUICreate("Name", 400, 400)
GUICtrlCreateLabel("Text", 90, 50)
GUICtrlCreatePic("pic.jpg", 75, 100, 200, 200)
GUICtrlSetColor(-1, 0xffffff)
GUICtrlCreateProgress(100, 320, 200, 20)
GUICtrlSetData(+1, 10)
$YesID = GUICtrlCreateButton("Ja", 75, 350, 50, 20)
$NoID = GUICtrlCreateButton("Nein", 275, 350, 50, 20)

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

GUISetState()

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

While 1
$msg = GUIGetMsg()

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

Select
Case $msg = $NoID
Exit
Case $msg = $YesID
Sleep(5000)
MouseClick("left", 930, 500, 1)
Sleep(1500)
MouseClick("left", 887, 387, 1)
Send("123456")
MouseClick("left", 684, 453, 1)
Sleep(1000)
MouseClick("left", 688, 475, 1)
Sleep(1000)
MouseClick("left", 930, 511, 1)
Sleep(1500)
MouseClick("left", 887, 387, 1)
Send("123456")
MouseClick("left", 684, 453, 1)
Sleep(1000)
MouseClick("left", 688, 475, 1)
Sleep(1000)
MouseClick("left", 930, 522, 1)
Sleep(1500)
MouseClick("left", 887, 387, 1)
Send("123456")
MouseClick("left", 684, 453, 1)
Sleep(1000)
MouseClick("left", 688, 475, 1)
Exit
EndSelect
WEnd
EndFunc ;==>_Main

[/autoit]

**Raupi**

Hab dein Script mal getestet. Des PIc wird angezeigt auch mit Progressbar. Ich denke des liegt allein daran, das du das Pic nicht richtig aufrufst.
Die Dateiangabe für dein Pic sollte am besten mit Pfadangabe sein.
Beispiel:

[autoit]

GUICtrlCreatePic(@ScriptDir&"\pic.jpg", 75, 100, 200, 200)

[/autoit]

Und um Fragen wegen dem Pfad vorzubeugen. Die Angabe @ScriptDir ist ein Macro von Autoit. Siehe Hilfe unter Macro Referenz.

Edit: Zum Thema Progress schau dir mal das Beispiel von GUICtrlCreateProgress an und überlege mal wo und wie du das in dein Script integrieren kannst.
Selbst ist der Mann und Probieren geht über Studieren.

mongobongo

Ich hab ne andere Lösung gefunden!
GuiCtrlCreateProgress hat nicht gefunzt.
mongobongo