LoL
Ich find das immer lustig. "Kann mir mal jemand was Scripten?"
Hier hilft dir sicher gerne jeder bei dem Projekt aber das heiß nicht das wir es für dich machen ![]()
MfG
akira2012
LoL
Ich find das immer lustig. "Kann mir mal jemand was Scripten?"
Hier hilft dir sicher gerne jeder bei dem Projekt aber das heiß nicht das wir es für dich machen ![]()
MfG
akira2012
sry aber rofl ![]()
das tauschen heißt nur das du eine Karte mit einer aus dem Stock austauschst und nicht die Karten untereinander
Wäre ja ziemlich unsinnig ![]()
MfG
akira2012
Hallo Leute,
ich weiß die Idee war nicht von mir und ich weiß auch nicht ob Ihr jetzt sauer seit aaaaber - ich hab da mal was vorbereitet ^^.
Ja ich konnte es nicht lassen und habe schonmal angefangen und da ich ja ein netter Kerl bin dürft Ihr euch das Ergebnis bis jetzt mal anschauen. Aber bitte kein "Das tut ja garnicht". Das Spiel ist noch lange nicht fertig. Ich habe erstmal sowas wie das "Grundgerüst" gebaut. Zu den fertigen Funktionen gehört:
- Haupgui erstellt (Design nicht fertig)
- Zufällige Kartengenerierung mit ausschließung doppelter Karten.
- Karten "tausch"-funktion
- Bietfelder generiert und mit entsprechenden berechnungen gefüllt
- Kartenbilder implementiert
- noch so dies und da ![]()
>>> Poker.zip <<<
Ehrlich gesagt habe ich auch kein Problem damit es alleine weiter zu führen aber da ich erstens denke das dies aufgrund der Tatsache das es ein Gemeinschaftsprojekt werden soll sehr egoistisch wäre und zweitens das fast schon ZUVIEL für eine Person ist. Ich hoffe das gibt den Anstoß von euch auch mal einfach was dran rumzubasteln. Ich werde auch weiterarbeiten soweit ich es schaffe. Wenn allerdings jetzt immer noch nichts von euch kommt behalte ich es mir vor das ganze alleine zuende zu führen! ![]()
MfG
akira2012
ging mir genauso -_-*
nice one =)
Ich muß aber beipflichten das das Handy etwas groß geraten ist
Ich denke mal du hast einfach eine höhere Bildschirmauflösung - bei mir mit meinen 1078x768 ist das BILDSCHIRMFÜLLEND.
Ach und nochwas... Wäre es nicht toll wenn man mit einem Mausklick auf die Handytasten auch Zahlen eingeben könnte? Ich bin mir sicher für nen Profi wie dich ist das kein Problem ![]()
Aber ansonsten SUPER_DUPER_ARBEIT.
_applaude($gtaspider)
MfG
Akira2012
klingt jetzt irgendwie logisch -.-
Naja bin ja noch Anfänger ^_^. Vielen Dank für die Hilfe - die Sache mit dem Return ist echt cool werd ich bestimmt noch öfter brauchen.
MfG
akira2012
Danke scheint zu funktionieren ![]()
THEMA GELÖST ![]()
Hallo!
Ich mal wieder mit einem Problem. Ich versuche zufällig Strings zu erzeugen wie z.B. "Kiste 6" mit was auch gut funktioniert. Dann soll aber falls "Kiste 6" schon existiert meine funktion die diesen String generiert erneut aufgerufen werden und den vorhandenen DOPPELTEN String ersetzen. Ich habe alles versucht aber es funktioniert nicht. Wenn ich die ergebnisse der Generierung in einen Array Schreibe und dann vergleichen will findet er nie etwas bzw gibt IMMER ERROR = 0 aus. Ich könnte mir das nur so erklären das ARRAY-Search oder _Arraybinarysearch nicht strings mit leerzeichen erkennen aber bei 10 anderen Lösungsversuchen bin ich auch gescheitert...
Ich versuch mal das zu posten was nötig ist da das Projekt noch recht geheim ist ![]()
;Das ist der Aufruf für meine Funktion
;Nummer 1
for $i = 1 to 3
$left=$left+100
_string($Nummer[$i])
_ArrayAdd($pruefen, $Nummer1[$i])
_check($Nummer1[$i])
GUICtrlCreateLabel($Nummer1[$i], $left, $top, 70, 100, 0x1001 )
Next
;hier die checkfunktion
[/autoit] [autoit][/autoit] [autoit]func _check(BYREF $CHECKEN)
[/autoit] [autoit][/autoit] [autoit]$ENDE=Ubound($pruefen, 1)-1
_ArraySearch($pruefen, $CHECKEN, 1, $ENDE, 0, FALSE)
IF @ERROR = 3 Then
_string($CHECKEN)
EndIf
EndFunc
Was ist da falsch? HÜLFEEEEE ![]()
Mal abgesehen davon das ich den Aussagen meiner Vorredner zustimmen muß hört sich dein Programmwunsch stark nach etwas an was du brauchst um jemanden zu veräppeln. So Von wegen "deine Festplatte wird gelöscht..." (haha)
Hallo,
ich konnte deine Funktion (wie du ja schon weißt
) adaptieren. AABER ich habe ein größeres Prolblem festgestellt. Also manchmal werden Zahlen die zuerst als Falsch angezeigt werden in der nächsten oder übernächsten Reihe als richtig angezeigt. Ich gehe davon aus das die generierten Zufallszahlen nicht constant bleiben. Wenn man zum Schluß (wenn das game gelöst ist) und dann das Spiel minimiert und wieder maximiert sind alle Farben falsch.
Kann es sein das das Script immer wieder durchlaufen wird? Das würde auch den ursprünglichen array Fehler erklären der in einer Zeile auftrat wo das Script eigentlich schon viel weiter war und der jetzt durch eine IF Abfrage abgefangen wird.
ALSO MEINE FRAGE (DAMDADADAMM):
Wie stoppe ich das Script das es NICHT diese seltsame automatische wiederholung startet. Das Script ist nun wesentlich kürzer weshalb eine fundierte Analyse sicherlich leichter (und angenehmer) wird.
Das neue Script:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Icon.ico
#AutoIt3Wrapper_outfile=Mastermind.exe
#AutoIt3Wrapper_Allow_Decompile=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.2.0
Author: akira2012
Script Function:
Mastermind.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]#include<array.au3>
#include<guiConstants.au3>
#include<file.au3>
#include <GuiEdit.au3>
Global $Antwort[11], $Antwort2[11], $Antwort3[11], $Antwort4[11], $Ergebnis[11], $Ergebnis2[11], $Ergebnis3[11], $Ergebnis4[11], $Testen[11], $z=1
Global $top=20, $reply, $reply2, $reply3, $reply4, $behalten1, $behalten2, $behalten3, $behalten4
Const $Zahl1=Random(1, 9, 1)
Const $Zahl2=Random(1, 9, 1)
Const $Zahl3=Random(1, 9, 1)
Const $Zahl4=Random(1, 9, 1)
Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]$Master=GUICreate("Mastermind", 440, 500)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
;GUISetBkColor(0x0000FF)
;GUICtrlCreatePic("AlbumArtSmall.jpg", 1, 1, 500, 500)
for $i = 1 to 10
$Antwort[$i]=GUICtrlCreateEdit("", 20, $top, 20, 20, 0x2001)
GUICtrlSetLimit($Antwort[$i], 1)
$top = $top+40
Next
$top=20
$i=0
for $i = 1 to 10
$Antwort2[$i]=GUICtrlCreateEdit("", 60, $top, 20, 20, 0x2001)
GUICtrlSetLimit ( $Antwort2[$i], 1)
$top = $top+40
Next
$top=20
for $i = 1 to 10
$Antwort3[$i]=GUICtrlCreateEdit("", 100, $top, 20, 20, 0x2001)
GUICtrlSetLimit ( $Antwort3[$i], 1)
$top = $top+40
Next
$top=20
for $i = 1 to 10
$Antwort4[$i]=GUICtrlCreateEdit("", 140, $top, 20, 20, 0x2001)
GUICtrlSetLimit ( $Antwort4[$i], 1)
$top = $top+40
Next
$top=20
for $i = 1 to 10
$Testen[$i]=GUICtrlCreateButton("Prüfen", 380, $top)
GUICtrlSetOnEvent($Testen[$i], "check")
$top=$top+40
Next
$top=20
for $i = 2 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]while 1
sleep(1000)
WEnd
func check ()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]_Select($reply, $Antwort, $Zahl1, $behalten1, 200)
_Select($reply2, $Antwort2, $Zahl2, $behalten2, 240)
_Select($reply3, $Antwort3, $Zahl3, $behalten3, 280)
_Select($reply4, $Antwort4, $Zahl4, $behalten4, 320)
GUICtrlSetState($Antwort[$z], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$z], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$z], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$z], $GUI_DISABLE)
GUICtrlSetState($Testen[$z], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
$z=$z+1
IF $z < 11 Then
GUICtrlSetState($Testen[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort[$z],$GUI_ENABLE)
GUICtrlSetState($Antwort2[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort3[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort4[$z], $GUI_ENABLE)
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort[$z], 1, $behalten1)
GUICtrlSetState($Antwort[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[$z], 1, $behalten2)
GUICtrlSetState($Antwort2[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[$z], 1, $behalten3)
GUICtrlSetState($Antwort3[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[$z], 1, $behalten4)
GUICtrlSetState($Antwort4[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
EndIf
EndIf
IF $z = 11 Then
if $Zahl1 = "leer" Then
$Zahl1=$behalten1
EndIf
if $Zahl2 = "leer" Then
$Zahl2=$behalten2
EndIf
if $Zahl3 = "leer" Then
$Zahl3=$behalten3
EndIf
if $Zahl4 = "leer" Then
$Zahl4=$behalten4
EndIf
GUICtrlCreateLabel("LOOOOOOOOOSER! :p Die richtige Antwort wäre gewesen: "&$Zahl1&$Zahl2&$Zahl3&$Zahl4, 20, 450)
SoundPlay("Lachen.wav")
EndIf
EndFunc
Func CLOSEClicked()
Exit
EndFunc
Func _Select($REPLY, $ANTWORT, ByRef $ZAHL, ByRef $BEHALTEN, $widht)
$REPLY=GUICtrlRead($ANTWORT[$z])
select
case $REPLY = $ZAHL
GUICtrlCreatePic("grün.gif", $widht, $top, 20, 20)
$BEHALTEN=$REPLY
$ZAHL = "leer"
case $REPLY = $Zahl2 OR $REPLY = $Zahl3 OR $REPLY = $Zahl4
GUICtrlCreatePic("grau.gif", $widht, $top, 20, 20)
case $REPLY <> $ZAHL OR $REPLY <> $Zahl2 OR $REPLY <> $Zahl3 OR $REPLY <> $Zahl4
GUICtrlCreatePic("rot.gif", $widht, $top, 20, 20)
EndSelect
EndFunc
Danke schonmal für eure Hilfe ![]()
MfG
akira2012
@Snoopy
Das mit dem Fehler bekomme ich auch. Da es passiert wenn man im Phonebook zuerst auf "ADD" und dann auf "Abbrechen" klickt ist doch eigentlich (denke ich zumindest ^^) klar was passiert. Er hat Probleme damit das keine Daten eingetragen werden - folglich existiert kein Array. Wieso hab ich keine Ahnung durch deinen Code steig ich irgendwie nicht so ganz durch. Ich hätte es wohl etwas simpler gestaltet ![]()
Das Programm ansich finde ich S U P E R funktioniert einwandfrei. Meine Freundin hat die SMS zwar 2 mal bekommen aber da es kostenlos ist... wayne?
MfG
akira2012
Hallo peethebee ![]()
habe die neue Verision geladen und der "Fehler" besteht weiterhin. Man kann keine Sonderzeichen wählen (nichtmal nen Punkt[.])
MFG
akira2012
1. BUG: Die Suche durchsucht nicht alle Verzeichnisse (keine Ahnung wieso). Folge ist das nicht alle Prozesse gefunden werden.
2. BUG: Es lassen sich nicht alle Programme beenden die mit dem Taskmanager beendet werden können. (Obwohl das glaube ich rechtebedingte Gründe von Windows aus)
Ja das ist richtig und ich wollte das auch noch ändern und weiß auch wie ich das machen muß aber bevor ich den Bug in meiner Suchfunktion nicht gefunden habe wollte ich das nicht machen...
Hallo,
war doch nicht so doof xD habe jetzt Galenda 1.5 geladen und es ist immer noch so das wenn man Kalendernamen mit Sonderzeichen wie ' nimmt einfach nochmal nach einem Namen gefragt wird und es wäre doch schön wenn wenigstens ne Info käme das das nicht geht =)
MfG
akira2012
Lol. Sry das ist die eine Version bei der ich auf Fehlersuche war ich Update das jetzt mal - schaut in 10 min nochmal nach
(peinlichpeinlich)
EDIT: Ok die Suchfunktion wurde berichtigt und ist oben zu holen ![]()
Was der Alien macht funktioniert immer. Aliens machen keine Fehler ![]()
Hier noch so ein Ding aus meiner Internetlosen Zeit. Ein Prozess Explorer ähnlich dem vom Windows. Er zeigt alle Prozesse an die im Moment laufen. Dazu kann man diese dann auch noch beenden. Und die besonderheit hingegen zum Windows Tastmanager - man kann Prozesse auch suchen. Ich persönlich hatte mich nämlich bei manchen Prozessen gefragt --> Was ist das? Und WO kommt das her.
Das ganze wäre aber zu einfach wenn es ohne probleme funtionieren würde. Da ich ja kein Internet hatte habe ich mir die Suchfunktion selbst gebastelt und als UDF gespeichert. Naja diese Suchfunktion lässt nur einige Verzeichnisse aus >_<. Und auch beim beenden von Prozessen gibts Probleme. Mein Prozess-Explorer kann nicht alle Prozesse beenden die der Windows Taskmanager beenden kann...
hier erstmal die Scripte:
Der Explorer:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.2.0
Author: akira2012
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]#include <array.au3>
#include <file.au3>
#include <GUIConstants.au3>
#include <GuiList.au3>
#include <Process.au3>
#include <guicombo.au3>
#include <search.au3>
dim $test[10]
[/autoit] [autoit][/autoit] [autoit];$Festplatten=DriveGetDrive("FIXED")
;_ArrayDisplay($Festplatten, "")
$PEX=GUICreate("Prozess Explorer", 330, 400)
$beenden=GUICtrlCreateButton("Beenden", 10, 300, 90)
$killprocess=GUICtrlCreateButton("Kill Process", 120, 300, 90)
$Anzeige=GUICtrlCreateProgress(10, 350, 200)
$prioritaet=GUICtrlCreateButton("Priorität auslesen", 230, 300, 90)
$test=ProcessList()
if $test[0][0] > 20 then
$hoch = 240
Else
$hoch = $test[0][0] * 10
EndIf
$Auflistung=GUICtrlCreateList("", 10, 10, 150, $hoch)
_GUICtrlListClear($Auflistung)
for $i = 1 to $test[0][0]
IF $test[$i][0] = "[System Process]" Then
Else
_GUICtrlListAddItem($Auflistung, $test[$i][0])
EndIf
Next
$priochange=GUICtrlCreatebutton("Priorität ändern", 230, 350, 90)
[/autoit] [autoit][/autoit] [autoit]$priochange2=GUICtrlCreateCombo("", 230, 10)
_GUICtrlComboAddString( $priochange2, "Gering")
_GUICtrlComboAddString( $priochange2, "Unter Normal")
_GUICtrlComboAddString( $priochange2, "Normal")
_GUICtrlComboAddString( $priochange2, "Über Normal")
_GUICtrlComboAddString( $priochange2, "Hoch")
_GUICtrlComboAddString( $priochange2, "Echtzeit")
$aendern=GUICtrlCreateButton("Ändern", 230, 50, 90)
GUICtrlSetState($priochange2, $gui_hide)
GUICtrlSetState($aendern, $gui_hide)
$suchen=GUICtrlCreateButton("Prozess Suchen", 230, 250, 90)
[/autoit] [autoit][/autoit] [autoit]GUISetState(@sw_show)
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GUIGetMsg()
Select
case $msg = $beenden
Exit
case $msg = $suchen
$suche=GUICtrlRead($Auflistung)
_search($suche, "C:\")
case $msg = $Prioritaet
$Failure=-1
$Idle=0
$BelowNormal=1
$Normal=2
$AboveNormal=3
$High=4
$Realtime=5
$prozess=GUICtrlRead($Auflistung)
for $i = 1 to $test[0][0]
$prio=_ProcessGetPriority($test[$i][1])
IniWrite("prio.ini", "Prozess", $test[$i][0], $prio)
Next
$ausgabe=IniRead("prio.ini", "Prozess", $prozess, "")
If $ausgabe=$Failure Then
beep (500, 100)
MsgBox(0, "", "Die Priorität des Prozesses """&$prozess&""" ist nicht bekannt")
ElseIf $ausgabe=$Idle Then
beep (500, 100)
MsgBox(0, "", "Die Priorität des Prozesses """&$prozess&""" ist ""niedrig"".")
ElseIf $ausgabe=$BelowNormal Then
beep (500, 100)
MsgBox(0, "", "Die Priorität des Prozesses """&$prozess&""" ist ""unter Normal"".")
ElseIf $ausgabe=$Normal Then
beep (500, 100)
MsgBox(0, "", "Die Priorität des Prozesses """&$prozess&""" ist ""Normal"".")
ElseIf $ausgabe=$AboveNormal Then
beep (500, 100)
MsgBox(0, "", "Die Priorität des Prozesses """&$prozess&""" ist ""Über Normal"".")
ElseIf $ausgabe=$High Then
beep (500, 100)
MsgBox(0, "", "Die Priorität des Prozesses """&$prozess&""" ist ""Hoch"".")
ElseIf $ausgabe=$Realtime Then
beep (500, 100)
MsgBox(0, "", "Die Priorität des Prozesses """&$prozess&""" ""Echtzeit"".")
EndIf
IniDelete("prio.ini", "Prozess")
case $msg = $priochange
GUICtrlSetState($priochange2, $gui_show)
GUICtrlSetState($aendern, $gui_show)
case $msg=$aendern
$prozess=GUICtrlRead($Auflistung)
$ergebnis=GUICtrlRead($priochange2)
if $ergebnis="Gering" Then
ProcessSetPriority($prozess, $idle)
IF _ProcessGetPriority($prozess) = 0 Then
beep (500, 100)
MsgBox(0, "Info", "Der Prozess hat jetzt die Priorität ""Gering""")
Else
beep (500, 100)
MsgBox(0, "Fehler", "Die Priorität des Prozesses kann nicht geändert werden!")
EndIf
ElseIf $ergebnis="Unter normal" Then
ProcessSetPriority($prozess, $BelowNormal)
IF _ProcessGetPriority($prozess) = 1 Then
beep (500, 100)
MsgBox(0, "Info", "Der Prozess hat jetzt die Priorität ""Unter Normal""")
Else
beep (500, 100)
MsgBox(0, "Fehler", "Die Priorität des Prozesses kann nicht geändert werden!")
EndIf
ElseIf $ergebnis="Normal" Then
ProcessSetPriority($prozess, $Normal)
IF _ProcessGetPriority($prozess) = 2 Then
beep (500, 100)
MsgBox(0, "Info", "Der Prozess hat jetzt die Priorität ""Normal""")
Else
beep (500, 100)
MsgBox(0, "Fehler", "Die Priorität des Prozesses kann nicht geändert werden!")
EndIf
ElseIf $ergebnis="Über normal" Then
ProcessSetPriority($prozess, $AboveNormal)
IF _ProcessGetPriority($prozess) = 3 Then
beep (500, 100)
MsgBox(0, "Info", "Der Prozess hat jetzt die Priorität ""Über Normal""")
Else
beep (500, 100)
MsgBox(0, "Fehler", "Die Priorität des Prozesses kann nicht geändert werden!")
EndIf
ElseIf $ergebnis="Hoch" Then
ProcessSetPriority($prozess, $High)
IF _ProcessGetPriority($prozess) = 4 Then
beep (500, 100)
MsgBox(0, "Info", "Der Prozess hat jetzt die Priorität ""Hoch""")
Else
beep (500, 100)
MsgBox(0, "Fehler", "Die Priorität des Prozesses kann nicht geändert werden!")
EndIf
ElseIf $ergebnis="Echtzeit" Then
ProcessSetPriority($prozess, $Realtime)
IF _ProcessGetPriority($prozess) = 5 Then
beep (500, 100)
MsgBox(0, "Info", "Der Prozess hat jetzt die Priorität ""Echtzeit""")
Else
beep (500, 100)
MsgBox(0, "Fehler", "Die Priorität des Prozesses kann nicht geändert werden!")
EndIf
EndIf
case $msg = $killprocess
$prozess=GUICtrlRead($Auflistung)
ProcessClose($prozess)
$i=0
$label=GUICtrlCreateLabel("Prozess wird beended...", 10, 330)
Do
$i=$i+1
GUICtrlSetData($anzeige, $i)
sleep(100)
until not ProcessExists($prozess) OR $i = 100
IF Not ProcessExists($prozess) THEN
$i=100
GUICtrlSetData($anzeige, $i)
GUICtrlDelete($label)
$label=GUICtrlCreateLabel("Prozess beended!", 10, 330)
beep (500, 100)
MsgBox(0, "Beenden erfolgreich", "Der Prozess wurde erfolgreich beended")
Else
GUICtrlDelete($label)
$label=GUICtrlCreateLabel("Prozess beenden fehlgeschlagen!", 10, 330)
beep (500, 100)
MsgBox(0, "Beenden fehlgeschlagen", "Beenden fehlgeschlagen! Der Prozess lässt sich nicht beenden.")
EndIf
$i = 0
GUICtrlSetData($anzeige, $i)
_GUICtrlListClear($Auflistung)
for $i = 1 to $test[0][0]
IF $test[$i][0] = "[System Process]" Then
Else
_GUICtrlListAddItem($Auflistung, $test[$i][0])
EndIf
Next
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
WEnd
#cs
[/autoit] [autoit][/autoit] [autoit]#ce
[/autoit]Und hier die Suchfunktion -_-*
#include <array.au3>
#include <file.au3>
func _search($Eingabe, $Laufwerk)
;$Eingabe = "*.au3"
;$Laufwerk = "C:\"
;Suche im Rootverzeichniss
$Verzeichnisse=_FileListToArray($Laufwerk, "*", 2)
FOR $i = 1 to $Verzeichnisse[0]
FileChangeDir($Laufwerk & $Verzeichnisse[$i])
$Suche = FileFindFirstFile($Eingabe)
While 1
$file = FileFindNextFile($Suche)
If @error Then ExitLoop
MsgBox(4096, "File:", @workingdir &"\"& $file)
WEnd
FileClose($Suche)
Next
;Suche im 2. Verzeichniss
$Verzeichnisse=_FileListToArray($Laufwerk, "*", 2)
FOR $i = 1 to $Verzeichnisse[0]
FileChangeDir($Laufwerk & $Verzeichnisse[$i])
$Aktuell = @WorkingDir
;MsgBox(0, "", @Workingdir)
$Verzeichnisse2=_FileListToArray($Aktuell, "*", 2)
IF @Error = 4 then
;MsgBox(0, "", "Der Ordner "&$Aktuell&" hat keine Unterordner")
Else
FOR $o = 1 to $Verzeichnisse2[0]
FileChangeDir($Aktuell&"\"&$Verzeichnisse2[$o])
;MsgBox(0, "", $Aktuell&"\"&$Verzeichnisse2[$o])
$Suche = FileFindFirstFile($Eingabe)
While 1
$file = FileFindNextFile($Suche)
If @error Then ExitLoop
MsgBox(4096, "File:", @workingdir &"\"& $file)
WEnd
Next
EndIf
FileClose($Suche)
Next
;Suche im 3.Verzeichniss
$Verzeichnisse=_FileListToArray($Laufwerk, "*", 2)
FOR $i = 1 to $Verzeichnisse[0]
FileChangeDir($Laufwerk & $Verzeichnisse[$i])
$Aktuell = @WorkingDir
$Verzeichnisse2=_FileListToArray($Aktuell, "*", 2)
IF @Error = 4 OR @ERROR = 1 then
;MsgBox(0, "", "Der Ordner "&$Aktuell&" hat keine Unterordner")
Else
FOR $o = 1 to $Verzeichnisse2[0]
FileChangeDir($Aktuell&"\"&$Verzeichnisse2[$o])
$Aktuell = @Workingdir
;_ArrayDisplay($Verzeichnisse2, $Aktuell)
$Verzeichnisse3=_FileListToArray($Aktuell, "*", 2)
IF @Error = 4 OR @ERROR = 1 then
;MsgBox(0, "", "Der Ordner "&$Aktuell&" hat keine Unterordner")
Else
FOR $p = 1 to $Verzeichnisse3[0]
FileChangeDir($Aktuell &"\"& $Verzeichnisse3[$p])
$Suche = FileFindFirstFile($Eingabe)
While 1
$file = FileFindNextFile($Suche)
If @error Then ExitLoop
MsgBox(4096, "File:", @workingdir &"\"& $file)
WEnd
Next
EndIf
Next
EndIf
FileClose($Suche)
Next
;Suche im 4. Verzeichniss
$Verzeichnisse=_FileListToArray($Laufwerk, "*", 2)
FOR $i = 1 to $Verzeichnisse[0]
FileChangeDir($Laufwerk & $Verzeichnisse[$i])
$Aktuell = @WorkingDir
;MsgBox(0, "", @Workingdir)
$Verzeichnisse2=_FileListToArray($Aktuell, "*", 2)
IF @Error = 4 then
;MsgBox(0, "", "Der Ordner "&$Aktuell&" hat keine Unterordner")
Else
FOR $o = 1 to $Verzeichnisse2[0]
FileChangeDir($Aktuell&"\"&$Verzeichnisse2[$o])
$Aktuell = @Workingdir
$Verzeichnisse3=_FileListToArray($Aktuell, "*", 2)
IF @Error = 4 then
;MsgBox(0, "", "Der Ordner "&$Aktuell&" hat keine Unterordner")
Else
FOR $p = 1 to $Verzeichnisse3[0]
FileChangeDir($Aktuell &"\"& $Verzeichnisse3[$p])
$Aktuell = @Workingdir
$Verzeichnisse4=_FileListToArray($Aktuell, "*", 2)
IF @Error = 4 then
;MsgBox(0, "", "Der Ordner "&$Aktuell&" hat keine Unterordner")
Else
FOR $u = 1 to $Verzeichnisse4[0]
FileChangeDir($Aktuell &"\"& $Verzeichnisse4[$u])
$Suche = FileFindFirstFile($Eingabe)
While 1
$file = FileFindNextFile($Suche)
If @error Then ExitLoop
MsgBox(4096, "File:", @workingdir &"\"& $file)
WEnd
Next
EndIf
Next
EndIf
Next
EndIf
FileClose($Suche)
Next
;Suche im 5. Verzeichniss
$Verzeichnisse=_FileListToArray($Laufwerk, "*", 2)
FOR $i = 1 to $Verzeichnisse[0]
FileChangeDir($Laufwerk & $Verzeichnisse[$i])
$Aktuell = @WorkingDir
;MsgBox(0, "", @Workingdir)
$Verzeichnisse2=_FileListToArray($Aktuell, "*", 2)
IF @Error = 4 then
;MsgBox(0, "", "Der Ordner "&$Aktuell&" hat keine Unterordner")
Else
FOR $o = 1 to $Verzeichnisse2[0]
FileChangeDir($Aktuell&"\"&$Verzeichnisse2[$o])
$Aktuell = @Workingdir
$Verzeichnisse3=_FileListToArray($Aktuell, "*", 2)
IF @Error = 4 then
;MsgBox(0, "", "Der Ordner "&$Aktuell&" hat keine Unterordner")
Else
FOR $p = 1 to $Verzeichnisse3[0]
FileChangeDir($Aktuell &"\"& $Verzeichnisse3[$p])
$Aktuell = @Workingdir
$Verzeichnisse4=_FileListToArray($Aktuell, "*", 2)
IF @Error = 4 then
;MsgBox(0, "", "Der Ordner "&$Aktuell&" hat keine Unterordner")
Else
FOR $u = 1 to $Verzeichnisse4[0]
FileChangeDir($Aktuell &"\"& $Verzeichnisse4[$u])
$Aktuell = @Workingdir
$Verzeichnisse5=_FileListToArray($Aktuell, "*", 2)
IF @Error = 4 then
;MsgBox(0, "", "Der Ordner "&$Aktuell&" hat keine Unterordner")
Else
For $t = 1 to $Verzeichnisse5[0]
FileChangeDir($Aktuell &"\"& $Verzeichnisse5[$t])
$Suche = FileFindFirstFile($Eingabe)
While 1
$file = FileFindNextFile($Suche)
If @error Then ExitLoop
MsgBox(4096, "File:", @workingdir &"\"& $file)
WEnd
Next
EndIf
Next
EndIf
Next
EndIf
Next
EndIf
FileClose($Suche)
Next
;Suche im 6. Verzeichniss
$Verzeichnisse=_FileListToArray($Laufwerk, "*", 2)
FOR $i = 1 to $Verzeichnisse[0]
FileChangeDir($Laufwerk & $Verzeichnisse[$i])
$Aktuell = @WorkingDir
;MsgBox(0, "", @Workingdir)
$Verzeichnisse2=_FileListToArray($Aktuell, "*", 2)
IF @Error = 4 then
;MsgBox(0, "", "Der Ordner "&$Aktuell&" hat keine Unterordner")
Else
FOR $o = 1 to $Verzeichnisse2[0]
FileChangeDir($Aktuell&"\"&$Verzeichnisse2[$o])
$Aktuell = @Workingdir
$Verzeichnisse3=_FileListToArray($Aktuell, "*", 2)
IF @Error = 4 then
;MsgBox(0, "", "Der Ordner "&$Aktuell&" hat keine Unterordner")
Else
FOR $p = 1 to $Verzeichnisse3[0]
FileChangeDir($Aktuell &"\"& $Verzeichnisse3[$p])
$Aktuell = @Workingdir
$Verzeichnisse4=_FileListToArray($Aktuell, "*", 2)
IF @Error = 4 then
;MsgBox(0, "", "Der Ordner "&$Aktuell&" hat keine Unterordner")
Else
FOR $c = 1 to $Verzeichnisse4[0]
FileChangeDir($Aktuell &"\"& $Verzeichnisse4[$c])
$Aktuell = @Workingdir
$Verzeichnisse5=_FileListToArray($Aktuell, "*", 2)
IF @Error = 4 then
;MsgBox(0, "", "Der Ordner "&$Aktuell&" hat keine Unterordner")
Else
For $r = 1 to $Verzeichnisse5[0]
FileChangeDir($Aktuell &"\"& $Verzeichnisse5[$r])
$Aktuell = @Workingdir
$Verzeichnisse6=_FileListToArray($Aktuell, "*", 2)
IF @Error = 4 then
;MsgBox(0, "", "Der Ordner "&$Aktuell&" hat keine Unterordner")
Else
For $g = 1 to $Verzeichnisse6[0]
FileChangeDir($Aktuell &"\"& $Verzeichnisse6[$g])
$Suche = FileFindFirstFile($Eingabe)
While 1
$file = FileFindNextFile($Suche)
If @error Then ExitLoop
MsgBox(4096, "File:", @workingdir &"\"& $file)
WEnd
Next
EndIf
Next
EndIf
Next
EndIf
Next
EndIf
Next
EndIf
FileClose($Suche)
Next
EndFunc
Ich werde das ganze sicher mal überarbeiten und die eigene Suchfunktion vielleicht ersetzen aber wollte erstmal hören was ihr dazu denkt ![]()
Öhm... Gesundheit?
Ich verstehe im Moment nur Bahnhof werde mich heute abend mal wieder damit beschäftigen. Macht wirklich Spaß dazu zu lernen ![]()
ja das weiß ich ja auch alles
Also die Sache ist die. Wenn das Script abbricht ist es bereits in der 10. und damit letzten Reihe. Wenn man dan´n auf Prüfen geht bricht er ab und gibt die Fehlermeldung aus. Der Fehler ist nur dann logisch bzw WÄRE logisch wenn er die Schleife nochmal durchgeht aber das wiederrum ist total schwachsinnig weil nirgens irgendwo steht das er dann alles nochmal von vorne machen soll. Er stopt also einfach nicht darum kommt es zu dem Fehler. Wie gesagt. Der Fehler wird ja in Zeile 151-159 ausgelöst aber das Script ist da schon lange an der Stelle vorbei. Einzige erklärung ist das er wirklich nicht stopt und das verstehe ich nicht ![]()
EDIT: FEHLER GEFUNDEN JUCHEIHASSA :p
Hier das "leicht" geänderte Script:
tives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.2.0
Author: akira2012
Script Function:
Mastermind.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]#include<array.au3>
#include<guiConstants.au3>
#include<file.au3>
#include <GuiEdit.au3>
Global $Antwort[11], $Antwort2[11], $Antwort3[11], $Antwort4[11], $Ergebnis[11], $Ergebnis2[11], $Ergebnis3[11], $Ergebnis4[11], $Testen[11], $z=1
$top=20
$Zahl1=Random(1, 9, 1)
$Zahl2=Random(1, 9, 1)
$Zahl3=Random(1, 9, 1)
$Zahl4=Random(1, 9, 1)
Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]$Master=GUICreate("Mastermind", 440, 500)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
GUISetBkColor(0x0000FF)
;GUICtrlCreatePic("AlbumArtSmall.jpg", 1, 1, 500, 500)
for $i = 1 to 10
$Antwort[$i]=GUICtrlCreateEdit("", 20, $top, 20, 20, 0x2001)
GUICtrlSetLimit($Antwort[$i], 1)
$top = $top+40
Next
$top=20
$i=0
for $i = 1 to 10
$Antwort2[$i]=GUICtrlCreateEdit("", 60, $top, 20, 20, 0x2001)
GUICtrlSetLimit ( $Antwort2[$i], 1)
$top = $top+40
Next
$top=20
for $i = 1 to 10
$Antwort3[$i]=GUICtrlCreateEdit("", 100, $top, 20, 20, 0x2001)
GUICtrlSetLimit ( $Antwort3[$i], 1)
$top = $top+40
Next
$top=20
for $i = 1 to 10
$Antwort4[$i]=GUICtrlCreateEdit("", 140, $top, 20, 20, 0x2001)
GUICtrlSetLimit ( $Antwort4[$i], 1)
$top = $top+40
Next
$top=20
for $i = 1 to 10
$Testen[$i]=GUICtrlCreateButton("Prüfen", 380, $top)
GUICtrlSetOnEvent($Testen[$i], "check")
$top=$top+40
Next
$top=20
for $i = 2 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]while 1
sleep(1000)
WEnd
func check ()
[/autoit] [autoit][/autoit] [autoit]$reply=GUICtrlRead($Antwort[$z])
select
case $reply = $Zahl1
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
global $behalten1=$reply
global $Zahl1 = "leer"
case $reply = $Zahl2 OR $reply = $Zahl3 OR $reply = $Zahl4
GUICtrlCreatePic("grau.gif", 200, $top, 20, 20)
case $reply <> $Zahl1 OR $reply <> $Zahl2 OR $reply <> $Zahl3 OR $reply <> $Zahl4
GUICtrlCreatePic("rot.gif", 200, $top, 20, 20)
EndSelect
$reply2=GUICtrlRead($Antwort2[$z])
select
case $reply2 = $Zahl2
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
global $behalten2=$reply2
global $Zahl2 = "leer"
case $reply2 = $Zahl1 OR $reply2 = $Zahl3 OR $reply2 = $Zahl4
GUICtrlCreatePic("grau.gif", 240, $top, 20, 20)
case $reply2 <> $Zahl1 OR $reply2 <> $Zahl2 OR $reply2 <> $Zahl3 OR $reply2 <> $Zahl4
GUICtrlCreatePic("rot.gif", 240, $top, 20, 20)
EndSelect
$reply3=GUICtrlRead($Antwort3[$z])
select
case $reply3 = $Zahl3
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
global $behalten3=$reply3
global $Zahl3 = "leer"
case $reply3 = $Zahl1 OR $reply3 = $Zahl2 OR $reply3 = $Zahl4
GUICtrlCreatePic("grau.gif", 280, $top, 20, 20)
case $reply3 <> $Zahl1 OR $reply3 <> $Zahl2 OR $reply3 <> $Zahl3 OR $reply3 <> $Zahl4
GUICtrlCreatePic("rot.gif", 280, $top, 20, 20)
EndSelect
$reply4=GUICtrlRead($Antwort4[$z])
select
case $reply4 = $Zahl4
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
global $behalten4=$reply4
global $Zahl4 = "leer"
case $reply4 = $Zahl1 OR $reply4 = $Zahl2 OR $reply4 = $Zahl3
GUICtrlCreatePic("grau.gif", 320, $top, 20, 20)
case $reply4 <> $Zahl1 OR $reply4 <> $Zahl2 OR $reply4 <> $Zahl3 OR $reply4 <> $Zahl4
GUICtrlCreatePic("rot.gif", 320, $top, 20, 20)
EndSelect
GUICtrlSetState($Testen[$z], $GUI_DISABLE)
$top=$top+40
IF $Zahl1="leer" AND $Zahl2="leer" AND $Zahl3="leer" AND $Zahl4="leer" Then
for $i = 1 to 10
GUICtrlSetState($Testen[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort2[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort3[$i], $GUI_DISABLE)
GUICtrlSetState($Antwort4[$i], $GUI_DISABLE)
Next
SoundPlay("ifeel.wav")
GUICtrlCreateLabel("Herzlichen Glückwunsch!!! Du bist das MASTERMIND! ;)", 20, 450)
Else
$z=$z+1
IF $z < 11 Then
GUICtrlSetState($Testen[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort[$z],$GUI_ENABLE)
GUICtrlSetState($Antwort2[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort3[$z], $GUI_ENABLE)
GUICtrlSetState($Antwort4[$z], $GUI_ENABLE)
if $Zahl1 = "leer" Then
_GUICtrlEditSetSel($Antwort[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort[$z], 1, $behalten1)
GUICtrlSetState($Antwort[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 200, $top, 20, 20)
EndIf
IF $Zahl2 = "leer" Then
_GUICtrlEditSetSel($Antwort2[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort2[$z], 1, $behalten2)
GUICtrlSetState($Antwort2[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 240, $top, 20, 20)
EndIf
IF $Zahl3 = "leer" Then
_GUICtrlEditSetSel($Antwort3[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort3[$z], 1, $behalten3)
GUICtrlSetState($Antwort3[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 280, $top, 20, 20)
EndIf
IF $Zahl4 = "leer" Then
_GUICtrlEditSetSel($Antwort4[$z], 1,2)
_GUICtrlEditReplaceSel ($Antwort4[$z], 1, $behalten4)
GUICtrlSetState($Antwort4[$z], $GUI_DISABLE)
GUICtrlCreatePic("grün.gif", 320, $top, 20, 20)
EndIf
EndIf
EndIf
IF $z = 11 Then
if $Zahl1 = "leer" Then
$Zahl1=$behalten1
EndIf
if $Zahl2 = "leer" Then
$Zahl2=$behalten2
EndIf
if $Zahl3 = "leer" Then
$Zahl3=$behalten3
EndIf
if $Zahl4 = "leer" Then
$Zahl4=$behalten4
EndIf
GUICtrlCreateLabel("LOOOOOOOOOSER! :p Die richtige Antwort wäre gewesen: "&$Zahl1&$Zahl2&$Zahl3&$Zahl4, 20, 450)
SoundPlay("Lachen.wav")
EndIf
EndFunc
Func CLOSEClicked()
Exit
EndFunc