Mein erstes Programm mit AutoIt

.Cdog · 06/12/2011, 23:57

Hey leute,
Ich bin seit jetzt 5Monaten neben bei und sehr wenig an autoit dran.
Aber es kommen immer wider sprünge die mir sagen:
Wie cool were es bots zu schreiben.
Deswegen habe ich mich mit der hilfe von BlackHybrid.

Also hier mall der Code:

Spoiler

Edit:
Neuer Scipt bischen verbessert(nur button hinzugefügt):

Spoiler

EDIT:
Verfolstendigter Scipt:

Spoiler

Quote:

#include <GUIConstantsEx.au3>

GUICreate("Seiten öffner",300,246)
GuiCtrlCreateLabel("Hallo und Herzlich Wilkommen Suche dir nun deine Section aus in die du möchtest:",0,0,300,40)
$Button = GUICtrlCreateButton("Elitepvpers.com",0,49,300,50)
$Button1 = GUICtrlCreateButton("Elite*Gold Traiding",0,98,300,50)
$Button2 = GUICtrlCreateButton("Elitepvpers Posteingang",0,147,300,50)
$Button3 = GUICtrlCreateButton("Guild Wars",0,196,300,50)
GUISetState()
$gui = GUICreate("Guild Wars Bereich", 300,295)
GuiCtrlCreateLabel("Hallo und Herzlich Wilkommen Suche dir nun deine Section aus in die du möchtest:",0,0,300,40)
$Button4 = GUICtrlCreateButton("Guild Wars",0,196,300,50)
$Button5 = GUICtrlCreateButton("Guild Wars Questions",0,245,300,50)
$Button6 = GUICtrlCreateButton("Guild Wars Traiding",0,147,300,50)
$Button7 = GUICtrlCreateButton("Guild Wars Hacks",0,98,300,50)
GUISetState(@SW_HIDE)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button
MSGBox(1,"Viel Spaß", "Ich wünsche dir viel Spaß bei Elitepvpers.com")
ShellExecute("http://www.elitepvpers.com/")
Case $Button1
MSGBox(1,"Viel Spaß", "Ich wünsche dir viel Spaß bei dem elite*gold Traiding")
ShellExecute("http://www.elitepvpers.com/forum/elite-gold-trading/")
Case $Button2
MSGBox(1,"Viel Spaß", "Ich wünsche dir viel Spaß bei Epvp")
ShellExecute("http://www.elitepvpers.com/forum/private.php")
Case $Button3
GUISetState(@SW_SHOW, $gui)
Case $Button4
MSGBox(1,"Viel Spaß", "Ich wünsche dir viel Spaß bei Der question Section")
ShellExecute("http://www.elitepvpers.com/forum/guild-wars/")
Case $Button5
MSGBox(1,"Viel Spaß", "Ich wünsche dir viel Spaß bei Der question Section")
ShellExecute("http://www.elitepvpers.com/forum/gw-bot-discussions-questions/")
Case $Button6
MSGBox(1,"Viel Spaß", "Ich wünsche dir viel Spaß bei dem Guild Wars Traiding")
ShellExecute("http://www.elitepvpers.com/forum/guild-wars-trading/")
Case $Button7
MSGBox(1,"Viel Spaß", "Ich wünsche dir viel Spaß bei dem Guild Wars Hacks Bots and more")
ShellExecute("http://www.elitepvpers.com/forum/gw-exploits-hacks-bots-tools-macros/")
EndSwitch
WEnd

Edit:
Das neuste zurzeit:

Spoiler

Quote:

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

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("New", 300, 200, 302, 218)
$Button = GUICtrlCreateButton("Elitepvpers.com",150,49,150,5 0,$WS_GROUP)
GUICtrlSetBkColor(-1, 0x7CFC00)
$Button1 = GUICtrlCreateButton("Elite*Gold Traiding",150,98,150,50)
GUICtrlSetBkColor(-1, 0x7CFC00)
$Button2 = GUICtrlCreateButton("Elitepvpers Posteingang",0,49,150,50,$WS_GROUP)
GUICtrlSetBkColor(-1, 0x7CFC00)
$Button3 = GUICtrlCreateButton("Guild Wars",0,98,150,50,$WS_GROUP)
GUICtrlSetBkColor(-1, 0x7CFC00)
$Pic1 = GUICtrlCreatePic("für Cdog.jpg", -8, 0, 344, 368, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState()
$gui = GUICreate("Guild Wars Bereich", 300,295)
GuiCtrlCreateLabel("Hallo und Herzlich Wilkommen Suche dir nun deine Section aus in die du möchtest:",0,0,300,40)
$Button4 = GUICtrlCreateButton("Guild Wars",0,196,300,50,$WS_GROUP)
GUICtrlSetBkColor(-1, 0x7CFC00)
$Button5 = GUICtrlCreateButton("Guild Wars Questions",0,245,300,50)
GUICtrlSetBkColor(-1, 0x7CFC00)
$Button6 = GUICtrlCreateButton("Guild Wars Traiding",0,147,300,50,$WS_GROUP)
GUICtrlSetBkColor(-1, 0x7CFC00)
$Button7 = GUICtrlCreateButton("Guild Wars Hacks",0,98,300,50,$WS_GROUP)
GUICtrlSetBkColor(-1, 0x7CFC00)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button
MSGBox(1,"Viel Spaß", "Ich wünsche dir viel Spaß bei Elitepvpers.com")
ShellExecute("http://www.elitepvpers.com/")
Case $Button1
MSGBox(1,"Viel Spaß", "Ich wünsche dir viel Spaß bei dem elite*gold Traiding")
ShellExecute("http://www.elitepvpers.com/forum/elite-gold-trading/")
Case $Button2
MSGBox(1,"Viel Spaß", "Ich wünsche dir viel Spaß bei Epvp")
ShellExecute("http://www.elitepvpers.com/forum/private.php")
Case $Button3
GUISetState(@SW_SHOW, $gui)
Case $Button4
MSGBox(1,"Viel Spaß", "Ich wünsche dir viel Spaß bei Der question Section")
ShellExecute("http://www.elitepvpers.com/forum/guild-wars/")
Case $Button5
MSGBox(1,"Viel Spaß", "Ich wünsche dir viel Spaß bei Der question Section")
ShellExecute("http://www.elitepvpers.com/forum/gw-bot-discussions-questions/")
Case $Button6
MSGBox(1,"Viel Spaß", "Ich wünsche dir viel Spaß bei dem Guild Wars Traiding")
ShellExecute("http://www.elitepvpers.com/forum/guild-wars-trading/")
Case $Button7
MSGBox(1,"Viel Spaß", "Ich wünsche dir viel Spaß bei dem Guild Wars Hacks Bots and more")
ShellExecute("http://www.elitepvpers.com/forum/gw-exploits-hacks-bots-tools-macros/")
EndSwitch
WEnd

Es handelt sich hier jeleglich um einen Seiten öffner eingendlich etwas stink normales.

Also bitte Kritik und Bewertung leute.

Vendactus · 06/13/2011, 02:33

ist wirklich nichts 'neues' aber ich finds witzig

~~ichhassedich~~ · 06/13/2011, 19:31

Danke, ich werde das Programm sicherlich immer benutzen.
Ich hasse es, immer die verschiednden Trading Sektionen zu suchen.
Danke

BlackHybrid · 06/13/2011, 19:44

Benutze mal für deine Scripts [PHP] und nicht code dann kann mans ist es ein wenig übersichtlicher. Drück mal im SciTE also dem Scripteditor Strg+T dass dein Script ein wenig formatiert wird. Macht das ganze noch ein wenig übersichtlicher.

Düsseldoorf' · 06/13/2011, 19:47

trading statt traiding ...

xShizoidx · 06/13/2011, 21:22

In Zeile 18 kam bei mir eine Fehlermeldung, da du dort an einer Stelle ein Komma gesetzt hast.

Für alle, bei denen die Fehlermeldung auch auftritt :

Code:

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

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("New", 300, 200, 302, 218)
$Button = GUICtrlCreateButton("Elitepvpers.com",150,49,150,50,$WS_GROUP)
GUICtrlSetBkColor(-1, 0x7CFC00)
$Button1 = GUICtrlCreateButton("Elite*Gold Traiding",150,98,150,50)
GUICtrlSetBkColor(-1, 0x7CFC00)
$Button2 = GUICtrlCreateButton("Elitepvpers Posteingang",0,49,150,50,$WS_GROUP)
GUICtrlSetBkColor(-1, 0x7CFC00)
$Button3 = GUICtrlCreateButton("Guild Wars",0,98,150,50,$WS_GROUP)
GUICtrlSetBkColor(-1, 0x7CFC00)
$Pic1 = GUICtrlCreatePic("für Cdog.jpg", -8, 0, 344, 368, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState()
$gui = GUICreate("Guild Wars Bereich", 300,295)
GuiCtrlCreateLabel("Hallo und Herzlich Wilkommen Suche dir nun deine Section aus in die du möchtest:",0,0,300,40)
$Button4 = GUICtrlCreateButton("Guild Wars",0,196,300,50,$WS_GROUP)
GUICtrlSetBkColor(-1, 0x7CFC00)
$Button5 = GUICtrlCreateButton("Guild Wars Questions",0,245,300,50)
GUICtrlSetBkColor(-1, 0x7CFC00)
$Button6 = GUICtrlCreateButton("Guild Wars Traiding",0,147,300,50,$WS_GROUP)
GUICtrlSetBkColor(-1, 0x7CFC00)
$Button7 = GUICtrlCreateButton("Guild Wars Hacks",0,98,300,50,$WS_GROUP)
GUICtrlSetBkColor(-1, 0x7CFC00)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button
MSGBox(1,"Viel Spaß", "Ich wünsche dir viel Spaß bei Elitepvpers.com")
ShellExecute("http://www.elitepvpers.com/")
Case $Button1
MSGBox(1,"Viel Spaß", "Ich wünsche dir viel Spaß bei dem elite*gold Traiding")
ShellExecute("http://www.elitepvpers.com/forum/elite-gold-trading/")
Case $Button2
MSGBox(1,"Viel Spaß", "Ich wünsche dir viel Spaß bei Epvp")
ShellExecute("http://www.elitepvpers.com/forum/private.php")
Case $Button3
GUISetState(@SW_SHOW, $gui)
Case $Button4
MSGBox(1,"Viel Spaß", "Ich wünsche dir viel Spaß bei Der question Section")
ShellExecute("http://www.elitepvpers.com/forum/guild-wars/")
Case $Button5
MSGBox(1,"Viel Spaß", "Ich wünsche dir viel Spaß bei Der question Section")
ShellExecute("http://www.elitepvpers.com/forum/gw-bot-discussions-questions/")
Case $Button6
MSGBox(1,"Viel Spaß", "Ich wünsche dir viel Spaß bei dem Guild Wars Traiding")
ShellExecute("http://www.elitepvpers.com/forum/guild-wars-trading/")
Case $Button7
MSGBox(1,"Viel Spaß", "Ich wünsche dir viel Spaß bei dem Guild Wars Hacks Bots and more")
ShellExecute("http://www.elitepvpers.com/forum/gw-exploits-hacks-bots-tools-macros/")
EndSwitch
WEnd

BlackHybrid · 06/13/2011, 21:30

Die Zeile 18 nennt man auch 9, in der man ein Leerzeichen reingeschmuggelt hat.