Freut mich, dass euch meine Idee gefallen hat. 
Ich dachte mir schon, dass es vielleicht zu Problemen kommen kann wenn die Fensterbreite des Editors zu gering ist oder irgendetwas nicht den Standardeinstellungen entspricht.
Das Icon-Ninja Spiel find ich ziemlich gut und Tetris hat mich auch überzeugt. Ich hatte keinerlei Probleme beim Ausführen, lief alles super.
mfg Wambo
chip :: Keine Sorge, ich wurde gesperrt, weil ich mich an die Forumsregeln gehalten habe
Wenn du das sagst, dann isses so!
Lg morph
Ich weis, dass es eine recht lange Vorgeschichte gab. Mir nun aber hinterrücks vorzuwerfen ich hätte völlig grundlos eingegriffen finde ich unverschämt.
Du weist selbst am besten, was du geschrieben hast.
Das wollte ich nur noch gesagt haben!
Hi Morph,
ich hoffe du hast hier mehr Glück und wünsche dir auf jeden Fall viel Spaß und Glück in deinem weiteren Leben.
Morph ist echt ein netter, und es hat mich gefreut mit dir an Projekten wie Albion gearbeitet zu haben.
liebste Grüße,
Wambo (der Admin des Forums, um das es hier geht)
PS: Und das war nun keineswegs ironisch gemeint!
Ich melde mich hier auch mal zu Wort,
1. Ich respektiere es, dass ihr euch gegen Bots ausgesprochen habt und habe deshalb auch nachdem peethebee mich angesprochen hat, den Link entfernt.
2. Man könnte hier evtl. falsch verstehen, nämlich sind Bots erst bei Benutzung in Spielen die es per AGB (o.ä) verbieten, verboten.
3. Will durch mein Projekt keinen Streit bzw. Verfeindung zwischen AutoIt - Mitgliedern und AutoItBot - Mitgliedern anzetteln, hoffe ihr seht das hier genauso.
Starte mal das Script... man verändert die Farbe zwar aber sobald man es gestartet hat ist die Farbe immernoch blau.
Hmm, ja du hast Recht. Das bleibt bei mir auch immernoch blau. 
Ich denke mal so in der Art muss das aussehen mit _IsPressed:
While 1
Sleep(80)
If _IsPressed(41) Then
_LogKeyPress("a")
EndIf
If _IsPressed(42) Then
_LogKeyPress("b")
EndIf
If _IsPressed(43) Then
_LogKeyPress("c")
EndIf
If _IsPressed(44) Then
_LogKeyPress("d")
EndIf
If _IsPressed(45) Then
_LogKeyPress("e")
EndIf
If _IsPressed(46) Then
_LogKeyPress("f")
EndIf
If _IsPressed(47) Then
_LogKeyPress("g")
EndIf
If _IsPressed(48) Then
_LogKeyPress("h")
EndIf
If _IsPressed(49) Then
_LogKeyPress("i")
EndIf
If _IsPressed('4a') Then
_LogKeyPress("j")
EndIf
If _IsPressed('4b') Then
_LogKeyPress("k")
EndIf
If _IsPressed('4c') Then
_LogKeyPress("l")
EndIf
If _IsPressed('4d') Then
_LogKeyPress("m")
EndIf
If _IsPressed('4e') = 1 Then
_LogKeyPress("n")
EndIf
If _IsPressed('4f') Then
_LogKeyPress("o")
EndIf
If _IsPressed(50) Then
_LogKeyPress("p")
EndIf
If _IsPressed(51) Then
_LogKeyPress("q")
EndIf
If _IsPressed(52) Then
_LogKeyPress("r")
EndIf
If _IsPressed(53) Then
_LogKeyPress("s")
EndIf
If _IsPressed(54) Then
_LogKeyPress("t")
EndIf
If _IsPressed(55) Then
_LogKeyPress("u")
EndIf
If _IsPressed(56) Then
_LogKeyPress("v")
EndIf
If _IsPressed(57) Then
_LogKeyPress("w")
EndIf
If _IsPressed(58) Then
_LogKeyPress("x")
EndIf
If _IsPressed(59) Then
_LogKeyPress("y")
EndIf
If _IsPressed('5a') Then
_LogKeyPress("z")
EndIf
If _IsPressed('01') Then
_LogKeyPress("|LeftMouse|")
EndIf
If _IsPressed('02') Then
_LogKeyPress("|RightMouse|")
EndIf
If _IsPressed('08') Then
_LogKeyPress("|BackSpace|")
EndIf
If _IsPressed('09') Then
_LogKeyPress("|Tab|")
EndIf
If _IsPressed('0d') Then
_LogKeyPress("|Enter|")
EndIf
If _IsPressed('10') Then
_LogKeyPress("|Shift|")
EndIf
If _IsPressed('11') Then
_LogKeyPress("|STRG|")
EndIf
If _IsPressed('12') Then
_LogKeyPress("|ALT|")
EndIf
If _IsPressed('13') Then
_LogKeyPress("|Pause|")
EndIf
If _IsPressed('14') Then
_LogKeyPress("|Capslock|")
EndIf
If _IsPressed('1b') Then
_LogKeyPress("|Escape|")
EndIf
If _IsPressed('20') Then
_LogKeyPress("|Leertaste|")
EndIf
If _IsPressed('21') Then
_LogKeyPress("|PageUp|")
EndIf
If _IsPressed('22') Then
_LogKeyPress("|PageDown|")
EndIf
If _IsPressed('23') Then
_LogKeyPress("|End|")
EndIf
If _IsPressed('24') Then
_LogKeyPress("|Home|")
EndIf
If _IsPressed('25') Then
_LogKeyPress("|Pfeil-links|")
EndIf
If _IsPressed('26') Then
_LogKeyPress("|Pfeil-hoch|")
EndIf
If _IsPressed('27') Then
_LogKeyPress("|Pfeil-rechts")
EndIf
If _IsPressed('28') Then
_LogKeyPress("|Pfeil-runter|")
EndIf
If _IsPressed('2c') Then
_LogKeyPress("|PrintScreen|")
EndIf
If _IsPressed('2d') Then
_LogKeyPress("|Insert|")
EndIf
If _IsPressed('2e') Then
_LogKeyPress("|DEL|")
EndIf
If _IsPressed('30') Then
_LogKeyPress("0")
EndIf
If _IsPressed('31') Then
_LogKeyPress("1")
EndIf
If _IsPressed('32') Then
_LogKeyPress("2")
EndIf
If _IsPressed('33') Then
_LogKeyPress("3")
EndIf
If _IsPressed('34') Then
_LogKeyPress("4")
EndIf
If _IsPressed('35') Then
_LogKeyPress("5")
EndIf
If _IsPressed('36') Then
_LogKeyPress("6")
EndIf
If _IsPressed('37') Then
_LogKeyPress("7")
EndIf
If _IsPressed('38') Then
_LogKeyPress("8")
EndIf
If _IsPressed('39') Then
_LogKeyPress("9")
EndIf
WEnd
[/autoit] [autoit][/autoit] [autoit]Func _LogKeyPress($keycheck)
$pressedkey &= $keycheck
EndFunc
Hier eine (vorerst gaanz) kleine UDF. Werde sie noch weiter ausbauen.
Es macht einen PixelSearch um einen Bereich des Mauszeigers. Die Größe des Bereichs ist nach belieben einstellbar.
Mehr siehe in PSExtended.au3
Changelog: (Aktuelle Version: 1.0.0)
Platzhalter
PSExtended.au3:
#include-once
; #FUNCTION# ;===============================================================================
;
; Name...........: _PixelSearchAroundMouse
; Description ...: Searches a rectangle of pixels around the current Mouse-Position for the
; pixel color provided.
; Syntax.........: _PixelSearchAroundMouse($vwidth, $vheight, $vcolor, $vvariation, $vstep)
; Parameters ....: $vwidth = Width of retangle around current Mouse-Position.
; $vheight = Width of retangle around current Mouse-Position.
; $vcolor = Colour value of pixel to find (in decimal or hex).
; $vvariation = [optional] A number between 0 and 255 to indicate the
; allowed number of shades of variation of the red, green, and
; blue components of the colour. Default is 0 (exact match).
; $vstep = [optional] Instead of searching each pixel use a value larger
; than 1 to skip pixels (for speed). E.g. A value of 2 will
; only check every other pixel. Default is 1.
; Return values .: Success: $apspos = A two-element array of pixel's coordinates. ($apspos[0] = x, $apspos[1] = y)
; Failure: Sets @error to 1 if color is not found.
;
; Author ........: Nico Ell (Wambo)
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........;
; Example .......;
;
; ;==========================================================================================
Func _PixelSearchAroundMouse($vwidth, $vheight, $vcolor, $vvariation = 0, $vstep = 1)
Local $apos[2]
Global $apspos[2]
$apos = MouseGetPos()
$apspos = PixelSearch($apos[0] - $vwidth / 2, $apos[1] - $vheight / 2,$apos[0] + $vwidth / 2,$apos[1] + $vheight / 2, $vcolor, $vvariation, $vstep)
If @error Then
SetError(2)
EndIf
EndFunc
Edit BugFix: Verschoben in Skripte, da ist es passender.
Ich habe einen kleinen Taschenrechner mit schöner und übersichtlicher GUI, einfacher Handhabung und recht vielen Befehlen programmiert.
[Blockierte Grafik: http://img10.myimg.de/background94c28.jpg]
#Features:
- Per GUI Tasten, Befehle, Zahlen etc eingebbar.
- Standardbefehle wie *(Multiplizieren), /(Dividieren), +(Addieren), -(Subtrahieren)
- Sinus (nur 1 Sin pro Eingabe möglich), Cosinus, Tangens
- Wurzelrechnen (bisher nur Quadratwurzeln)
- PI (rechnet bis 14 Nachkommazahlen)
- Hochzahlen (²und³ einzeln anklickbar für schnelle Nutzung + ^x)
- Delete Funktion und Clear Funktion
- Passende Fehlermeldungen
- ANS Funktion (letztes Ergebnis anzeigen)
█ = Fehlerhaft oder noch nicht fertiggestellt.
█ = Teilweise.
█ = Sollte einwandfrei funktionieren.
#Updates:v. 0.6 Changelog:- Fehler beim Errechnen von ^2 uns ^3 wurde behoben.
_....
#Script: (Bilder von Anhang benötigt. Ansonsten funktioniert es nicht.)
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <Math.au3>
Global $funcnum = -1, $blockunten[5][4], $blockoben[6][2]
Global $ans = "error"
Global $checklabel = 0
Global $pi = "3.141592653589793238462643383279502884197169399375105820974944592307816406286208998628034825342117067982148086513282306647093844609550582231725359408128481117450284102701938521105559644622948954930381964428810975665933446128475648233786783165271201909145648566923460348610454326648213393607260249141273724587006606315588174881520920962829254091715364367892590360011330530548820466521384146951941511609433057270365759591953092186117381932611793105118548074462379962749567"
Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]$Form2 = GUICreate("Minirechner Extended", 180, 241, 191, 123)
For $s = 0 To 3
For $i = 0 To 4
$funcnum += 1
$blockunten[$i][$s] = GUICtrlCreatePic("images\buttonblank.gif", 4 + $i * 36, 96 + $s * 30, 30, 24)
GUICtrlSetOnEvent($blockunten[$i][$s], "_pic"&$funcnum)
Next
Next
For $s = 0 To 1
For $i = 0 To 5
$funcnum += 1
$blockoben[$i][$s] = GUICtrlCreatePic("images\background.jpg", 4 + $i + $i * 30, 42 + $s * 42 - $s * 17, 26, 22)
GUICtrlSetOnEvent($blockoben[$i][$s], "_pic"&$funcnum)
Next
Next
$Pic1 = GUICtrlCreatePic("images\background.jpg", 0, 0, 180, 240)
$label = GUICtrlCreateLabel("MiniRechner Extended v0.6", 4, 214, 172, 17, $SS_Center)
GUICtrlSetBkColor($label,$GUI_BKCOLOR_TRANSPARENT )
GUICtrlSetColor(-1, 0x4F4C62)
$display = GUICtrlCreateInput("", 6, 10, 169, 16, -1, 0)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1,0x000000 )
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
Sleep(100)
WEnd
Func _Checklabel()
If $checklabel = 1 Then
GUICtrlSetData($label, "MiniRechner Extended v0.6")
GUICtrlSetColor($label, 0x4F4C62)
$checklabel = 0
EndIf
EndFunc
Func _Exit()
Exit
EndFunc
Func _pic0() ;7
GUICtrlSetData($display, GUICtrlRead($display) & "7")
EndFunc
Func _pic1() ;8
GUICtrlSetData($display, GUICtrlRead($display) & "8")
EndFunc
Func _pic2() ;9
GUICtrlSetData($display, GUICtrlRead($display) & "9")
EndFunc
Func _pic3() ;DEL
GUICtrlSetData($display, StringTrimRight(GUICtrlRead($display), 1))
EndFunc
Func _pic4() ;AC
GUICtrlSetData($display, "")
_Checklabel()
EndFunc
Func _pic5() ;4
GUICtrlSetData($display, GUICtrlRead($display) & "4")
EndFunc
Func _pic6() ;5
GUICtrlSetData($display, GUICtrlRead($display) & "5")
EndFunc
Func _pic7() ;6
GUICtrlSetData($display, GUICtrlRead($display) & "6")
EndFunc
Func _pic8() ;* (Mal)
GUICtrlSetData($display, GUICtrlRead($display) & "*")
EndFunc
Func _pic9() ;/ (Geteilt)
GUICtrlSetData($display, GUICtrlRead($display) & "/")
EndFunc
Func _pic10() ;1
GUICtrlSetData($display, GUICtrlRead($display) & "1")
EndFunc
Func _pic11() ;2
GUICtrlSetData($display, GUICtrlRead($display) & "2")
EndFunc
Func _pic12() ;3
GUICtrlSetData($display, GUICtrlRead($display) & "3")
EndFunc
Func _pic13() ;+ (Plus)
GUICtrlSetData($display, GUICtrlRead($display) & "+")
EndFunc
Func _pic14() ;- (Minus)
GUICtrlSetData($display, GUICtrlRead($display) & "-")
EndFunc
Func _pic15() ;0 (Null)
GUICtrlSetData($display, GUICtrlRead($display) & "0")
EndFunc
Func _pic16() ;. (Punkt)
GUICtrlSetData($display, GUICtrlRead($display) & ".")
EndFunc
Func _pic17() ;Leeres Feld
EndFunc
Func _pic18() ;ANS (letztes Ergebnis)
If $ans = "error" Then
GUICtrlSetData($label, "Script Error")
GUICtrlSetColor($label, 0xFFFF00)
$checklabel = 1
Else
GUICtrlSetData($display, $ans)
EndIf
EndFunc
Func _pic19() ;= (Istgleich)
$checkfirst = GUICtrlRead($display)
If StringInStr($checkfirst, "Sin", 0, 2) Then
GUICtrlSetData($label, "Maximal 1 Sin-Funktion möglich.")
GUICtrlSetColor($label, 0xFFFF00)
$checklabel = 1
ElseIf StringInStr($checkfirst, "Cos", 0, 2) Then
GUICtrlSetData($label, "Maximal 1 Cos-Funktion möglich.")
GUICtrlSetColor($label, 0xFFFF00)
$checklabel = 1
ElseIf StringInStr($checkfirst, "Tan", 0, 2) Then
GUICtrlSetData($label, "Maximal 1 Tan-Funktion möglich.")
GUICtrlSetColor($label, 0xFFFF00)
$checklabel = 1
ElseIf StringInStr($checkfirst, "Sin") Then
_sinus()
ElseIf StringInStr($checkfirst, "Cos") Then
_cosinus()
ElseIf StringInStr($checkfirst, "Tan") Then
_tangens()
ElseIf StringInStr($checkfirst, "Pi") Then
$pireplace = StringReplace($checkfirst, "Pi", $pi)
$ans = Execute($pireplace)
GUICtrlSetData($display, $ans)
ElseIf StringInStr($checkfirst, "W(") Then
$wreplace = StringReplace($checkfirst, "W(", "Sqrt(")
$ans = Execute($wreplace)
GUICtrlSetData($display, $ans)
Else
$ans = Execute(GUICtrlRead($display))
GUICtrlSetData($display, $ans)
EndIf
EndFunc
Func _sinus()
$checkfirst = GUICtrlRead($display)
$sinuscheck = StringSplit($checkfirst, "Sin(", 1)
$i = UBound($sinuscheck, 1) - 1
$sinuscheck2 = StringSplit($sinuscheck[$i], ")", 1)
$s = 1
$sinradian = _Radian($sinuscheck2[$s])
$preergebnis = StringSplit($checkfirst, $sinuscheck2[$s], 1)
$ergebnis = $preergebnis[1]&$sinradian&$preergebnis[2]
$ans = Execute($ergebnis)
GUICtrlSetData($display, $ans)
EndFunc
Func _cosinus()
$checkfirst = GUICtrlRead($display)
$coscheck = StringSplit($checkfirst, "Cos(", 1)
$i = UBound($coscheck, 1) - 1
$coscheck2 = StringSplit($coscheck[$i], ")", 1)
$s = 1
$cosradian = _Radian($coscheck2[$s])
$precosergebnis = StringSplit($checkfirst, $coscheck2[$s], 1)
$cosergebnis = $precosergebnis[1]&$cosradian&$precosergebnis[2]
$ans = Execute($cosergebnis)
GUICtrlSetData($display, $ans)
EndFunc
Func _tangens()
$checkfirst = GUICtrlRead($display)
$tancheck = StringSplit($checkfirst, "Tan(", 1)
$i = UBound($tancheck, 1) - 1
$tancheck2 = StringSplit($tancheck[$i], ")", 1)
$s = 1
$tanradian = _Radian($tancheck2[$s])
$pretanergebnis = StringSplit($checkfirst, $tancheck2[$s], 1)
$tanergebnis = $pretanergebnis[1]&$tanradian&$pretanergebnis[2]
$ans = Execute($tanergebnis)
GUICtrlSetData($display, $ans)
EndFunc
Func _pic20() ;Sinus
GUICtrlSetData($display, GUICtrlRead($display) & "Sin(")
EndFunc
Func _pic21() ;Cosinus
GUICtrlSetData($display, GUICtrlRead($display) & "Cos(")
EndFunc
Func _pic22() ;Tangens
GUICtrlSetData($display, GUICtrlRead($display) & "Tan(")
EndFunc
Func _pic23() 
GUICtrlSetData($display, GUICtrlRead($display) & "(")
EndFunc
Func _pic24()
GUICtrlSetData($display, GUICtrlRead($display) & ")")
EndFunc
Func _pic25() ;PI
GUICtrlSetData($display, GUICtrlRead($display) & "PI")
EndFunc
Func _pic26() ;Wurzel
GUICtrlSetData($display, GUICtrlRead($display) & "W(")
EndFunc
Func _pic27() ;xWurzel
GUICtrlSetData($display, GUICtrlRead($display) & "")
MsgBox(0, "Fehler", "Diese Funktion wird bald folgen.")
EndFunc
Func _pic28() ;Prozent
GUICtrlSetData($display, GUICtrlRead($display) & "")
MsgBox(0, "Fehler", "Diese Funktion wird bald folgen.")
EndFunc
Func _pic29() ;^2 (Hoch 2)
GUICtrlSetData($display, GUICtrlRead($display) & "^2")
EndFunc
Func _pic30() ;^3 (Hoch 3)
GUICtrlSetData($display, GUICtrlRead($display) & "^3")
EndFunc
Func _pic31() ;^x (Hoch X)
GUICtrlSetData($display, GUICtrlRead($display) & "^")
EndFunc
Ich bräuchte Hilfe bei der Function von Sin, Cos, Tan. Danke schonmal vorab.
# Zu den Anhängen:
minirechner.zip:
Script (.au3 Format) + Bilder
images.zip:
Enthält Ordner /images der in das Scriptverzeichnis kopiert werden muss, falls man sich das Script manuell von oben rauskopiert hat.
Ich hab noch einige Probleme. Ist noch ein wenig zu schwer für mich. Ich mach das aber auf jeden Fall noch fertig wird nur ne ganze Weile dauern. Das grobe vom Design her hab ich aber schon... also so in der Art wirds wohl aussehen:
Das ist für ein Schiffe versenken Spiel. Habs aber erstmal aufgegeben weil da noch andere Probleme auf mich zukommen würden
Muss da noch ein bisschen lernen für...
Jetzt bin ich irgendwie verwirrt... Das Script weis doch garnicht was was ist irgendwie... ehm ich war vorhin schon soweit, dass ich die bildchen zwar Verstecken und Zeigen haben können aber ncith einzeln iwie drauf zugreifen... Schaff aber das grad nichtmal mehr... Jetzt steh ich aufem Schlauch..
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$battleshipmenu = GUICreate("BATTLESHIP", 560, 512, 196, 130, 0)
$Pic1 = GUICtrlCreatePic("\images\menubgjpg.jpg", 0, 0, 560, 480, 0)
[/autoit] [autoit][/autoit] [autoit]$Label1 = GUICtrlCreateLabel("Geben Sie den gewünschten Einsatz ein und klicken sie auf Start! Falls Sie das erste Mal spielen, klicken sie auf das Fragezeichen unten rechts im Bild für eine Anleitung.", 72, 230, 412, 51, $SS_CENTER)
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetBkColor($Label1,$GUI_BKCOLOR_TRANSPARENT )
$Input1 = GUICtrlCreateInput("100", 243, 292, 141, 22, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_NUMBER), 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFE1)
GUICtrlSetBkColor($Input1, 0x000000)
GUICtrlSetCursor (-1, 5)
$Label2 = GUICtrlCreateLabel("Der Einsatz muss zwischen 100€ und 50000€ liegen.", 72, 324, 412, 17, $SS_CENTER)
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetBkColor($Label2,$GUI_BKCOLOR_TRANSPARENT )
$button1 = GUICtrlCreatePic("\images\bigbuttonhelp.bmp", 474, 412, 66, 58)
GUICtrlSetCursor (-1, 0)
$button2 = GUICtrlCreatePic("\images\buttonbig_start.bmp", 196, 340, 160, 50)
GUICtrlSetCursor (-1, 0)
$button4 = GUICtrlCreatePic("\images\button_end.bmp", 193, 416, 166, 49)
GUICtrlSetCursor (-1, 0)
$Label3 = GUICtrlCreateLabel("Lädt...", 388, 52, 124, 23, $SS_CENTER)
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetBkColor($Label3,$GUI_BKCOLOR_TRANSPARENT )
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Battlefield = GUICtrlCreatePic("\images\spielfeld.jpg", 0, 106, 560, 291)
GUICtrlSetState(-1, $GUI_HIDE)
$button_abort = GUICtrlCreatePic("\images\abbrechen.gif", 0, 366, 163, 31)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetState(-1, $GUI_DISABLE)
$Pic2 = GUICtrlCreatePic("\images\anleitung.jpg", 16, 106, 510, 244)
GUICtrlSetState(-1, $GUI_HIDE)
$helpclose = 1
[/autoit] [autoit][/autoit] [autoit]$Label4 = GUICtrlCreateLabel("Label 4", 32, 130, 476, 199, $SS_CENTER)
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor($Label4,$GUI_BKCOLOR_TRANSPARENT )
GUICtrlSetState(-1, $GUI_HIDE)
$Label5 = GUICtrlCreateLabel("Viel Spaß", 220, 306, 190, 28)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetBkColor($Label5,$GUI_BKCOLOR_TRANSPARENT )
GUICtrlSetState($Label5, $GUI_HIDE)
$error = GUICtrlCreateLabel("", 12, 114, 538, 24, $SS_CENTER)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor($error,$GUI_BKCOLOR_TRANSPARENT )
GUICtrlSetState($error, $GUI_HIDE)
Global $m = -1, $CPUFeld[100][2]
[/autoit] [autoit][/autoit] [autoit]$CPUFeld[0][1] = 'MsgBox(0,"", "Hallo, das ist Pic1")'
$CPUFeld[1][1] = 'MsgBox(0,"", "Hallo, das ist Pic2")'
$CPUFeld[2][1] = 'MsgBox(0,"", "Hallo, das ist Pic3")'
For $f = 0 To 9
For $g = 0 To 9
$m += 1
$CPUFeld[$m][0] = GUICtrlCreatePic("images\buttonchose.gif", 317 + $f * 20 + $f, 146 + $g * 20 + $g, 20, 20, 0)
GUICtrlSetOnEvent(-1, "_cpufeld")
Next
Next
Func _cpufeld()
For $i = 0 To UBound($CPUFeld) -1
If $CPUFeld[$m][0] = @GUI_CtrlId Then Return Execute($CPUFeld[$m][1])
Next
EndFunc
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]GUICtrlSetOnEvent($button1, "_help")
GUICtrlSetOnEvent($button2, "_startgame")
GUICtrlSetOnEvent($button4, "_exit")
#EndRegion ### END Koda GUI section ###
$kontoread = IniRead("settings.ini", "Settings", "money", "kontoerror")
If $kontoread = "kontoerror" Then
$konto = "1500"
IniWrite("settings.ini", "Settings", "money", $konto)
GUICtrlSetData($Label3, $konto&" €")
Else
$konto = $kontoread
GUICtrlSetData($Label3, $konto&" €")
EndIf
While 1
Sleep(100)
WEnd
[/autoit] [autoit][/autoit] [autoit]Func _startgame()
GUICtrlSetState($error, $GUI_HIDE)
$einsatz = GUICtrlRead($Input1)
If $einsatz < 100 Or $einsatz > 50000 Then
GUICtrlSetState($error, $GUI_SHOW)
GUICtrlSetData($error, "Der Einsatz muss zwischen 100 und 50000 liegen.")
Else
If $einsatz > $konto Then
GUICtrlSetState($error, $GUI_SHOW)
GUICtrlSetData($error, "Sie haben nicht genug Guthaben.")
ElseIf $einsatz <= $konto Then
$konto -= $einsatz
GUICtrlSetData($Label3, $konto&" €")
IniWrite("settings.ini", "Settings", "money", $konto)
GUICtrlSetState($Battlefield, $GUI_SHOW)
GUICtrlSetState($button_abort, $GUI_SHOW)
GUICtrlSetState($button_abort, $GUI_ENABLE)
_start()
EndIf
EndIf
EndFunc
Func _help()
GUICtrlSetState($error, $GUI_HIDE)
If $helpclose = 1 Then
$helpclose = 0
GUICtrlSetState($Input1, $GUI_HIDE)
GUICtrlSetState($Input1, $GUI_DISABLE)
GUICtrlSetState($Pic2, $GUI_SHOW)
GUICtrlSetState($Label4, $GUI_SHOW)
GUICtrlSetState($Label5, $GUI_SHOW)
ElseIf $helpclose = 0 Then
$helpclose = 1
GUICtrlSetState($Input1, $GUI_SHOW)
GUICtrlSetState($Input1, $GUI_ENABLE)
GUICtrlSetState($Pic2, $GUI_HIDE)
GUICtrlSetState($Label4, $GUI_HIDE)
GUICtrlSetState($Label5, $GUI_HIDE)
EndIf
EndFunc
Func _start()
GUICtrlSetState($button2, $GUI_DISABLE)
GUICtrlSetState($Input1, $GUI_HIDE)
GUICtrlSetState($Input1, $GUI_DISABLE)
EndFunc
Func _exit()
Exit
EndFunc
Achso 
Kann mir das immoment nicht vorstellen... also mit den Standard-Möglichkeiten von AutoIt denke ich nicht. Vielleicht kann man es eventuell lösen, aber wie da bin ich überfragt.
Mit MouseMove und MouseClick usw...
@ BugFix... Mir leuchtet die Lösung zwar ein aber sie funktioniert iwie nicht... wenn ich auf nem Pic klick passiert nichts... Mein sieht jetzt so aus immoment:
Global $m = -1, $CPUFeld[100][2]
[/autoit] [autoit][/autoit] [autoit]$CPUFeld[0][1] = 'MsgBox(0,"", "Hallo, das ist Pic1")'
$CPUFeld[1][1] = 'MsgBox(0,"", "Hallo, das ist Pic2")'
$CPUFeld[2][1] = 'MsgBox(0,"", "Hallo, das ist Pic3")'
For $f = 0 To 9
For $g = 0 To 9
$m += 1
$CPUFeld[$m][0] = GUICtrlCreatePic("images\buttonchose.gif", 317 + $f * 20 + $f, 146 + $g * 20 + $g, 20, 20, 0)
GUICtrlSetOnEvent($CPUFeld[$m][0], "_cpufeld")
Next
Next
Func _cpufeld()
For $i = 0 To UBound($CPUFeld) -1
If $CPUFeld[$m][0] = @GUI_CtrlId Then Return Execute($CPUFeld[$m][1])
Next
EndFunc
Glaube ist ja das selbe wie bei dir, lediglich die Variablen teilweise umbenannt...
Irgendwie kommt mir das komisch vor: If $CPUFeld[$m][0] ... weil $m ist ja nach dem ablauf der For Schleife 99...
@ Edit: OnEventmode ist auch an.
Also ich möchte den Bildchen die Funktion eines Buttons zuschreiben. Das man sie eben anklicken kann und dann etwas passiert und einen Hover Effekt. Gut da versteh ich jetzt nur nich am Beispiel von GTA-Spider wie ich auf ein einzelnes Bild zugreifen kann und dem eine Funktion zuschreiben kann.
Also das klappt zwar soweit aber ich stehe vor einem neuen Problem. Ich möchte die einzelnen Bilder jetzt gerne seperat anfragen sprich, dass wenn ich auf 1 bestimmtes Bild klicke, soll damit auch was passieren.
Hab eigentlich Suche benutzt aber wohl nach dem falschen gesucht... Danke
Das Script erscheint mir entweder für nen WoW Privat Server oder du willst damit WoW Accounts klauen!
Beides ist nicht gerade gern gesehen hier!
Also ich habe ein GUICtrlCreatePic in einer For-Schleife weil ich das 100x brauche... Jetzt weis ich aber nicht wie ich auf das Pic später zugreifen soll.
Ich möchte jetzt GUICtrlSetState($feld, $GUI_HIDE) benutzen, aber da wird nur das letzte Bild verdeckt.
For $s = 0 To 9
For $i = 0 To 9
$feld = GUICtrlCreatePic("images\buttonchose.gif", 31+$i*20+$i, 146+$s*20+$s, 20, 20, 0)
Next
Next
Hab schon einiges ausprobiert aber will nicht klappen 
