1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. akira2012

Beiträge von akira2012

  • Battleknight

    • akira2012
    • 5. Juli 2007 um 10:42

    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 :P


    MfG

    akira2012

  • noob hold'em - einer muß ja mal beginnen

    • akira2012
    • 5. Juli 2007 um 10:19

    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

  • noob hold'em - einer muß ja mal beginnen

    • akira2012
    • 5. Juli 2007 um 01:20

    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

  • SMS Sender - 100%ig kosteloses SMS Senden!

    • akira2012
    • 4. Juli 2007 um 18:58

    ging mir genauso -_-*

  • SMS Sender - 100%ig kosteloses SMS Senden!

    • akira2012
    • 4. Juli 2007 um 18:32

    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

  • Problem mit dem Zufall...

    • akira2012
    • 4. Juli 2007 um 10:34

    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

  • Problem mit dem Zufall...

    • akira2012
    • 4. Juli 2007 um 00:48

    Danke scheint zu funktionieren ;)

    THEMA GELÖST ^^

  • Problem mit dem Zufall...

    • akira2012
    • 4. Juli 2007 um 00:10

    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 ^^

    Spoiler anzeigen
    [autoit]


    ;Das ist der Aufruf für meine Funktion

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

    ;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

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

    ;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

    [/autoit]

    Was ist da falsch? HÜLFEEEEE ;(

  • Brauche einen Script

    • akira2012
    • 3. Juli 2007 um 13:31

    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)

  • Mastermind (ICH HABE WIEDER INTERNET JUCHUU)

    • akira2012
    • 28. Juni 2007 um 21:48

    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:

    Spoiler anzeigen
    [autoit]


    #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] [autoit][/autoit] [autoit]

    AutoIt Version: 3.2.2.0
    Author: akira2012

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

    Script Function:
    Mastermind.

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

    #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>

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

    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

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

    Const $Zahl1=Random(1, 9, 1)
    Const $Zahl2=Random(1, 9, 1)
    Const $Zahl3=Random(1, 9, 1)
    Const $Zahl4=Random(1, 9, 1)

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

    Opt("GUIOnEventMode", 1)

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

    $Master=GUICreate("Mastermind", 440, 500)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")

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

    ;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

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

    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

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

    Next
    $top=20
    for $i = 1 to 10
    $Antwort3[$i]=GUICtrlCreateEdit("", 100, $top, 20, 20, 0x2001)
    GUICtrlSetLimit ( $Antwort3[$i], 1)
    $top = $top+40

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

    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

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

    for $i = 1 to 10
    $Testen[$i]=GUICtrlCreateButton("Prüfen", 380, $top)
    GUICtrlSetOnEvent($Testen[$i], "check")
    $top=$top+40
    Next
    $top=20

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

    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

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

    GUISetState(@SW_SHOW)

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

    while 1
    sleep(1000)
    WEnd

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

    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)

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

    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)

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

    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")

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

    EndIf
    EndFunc

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

    Func CLOSEClicked()
    Exit
    EndFunc

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

    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

    [/autoit]


    Danke schonmal für eure Hilfe ;)


    MfG

    akira2012

  • SMS Sender - 100%ig kosteloses SMS Senden!

    • akira2012
    • 28. Juni 2007 um 20:47

    @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

  • BUG? Galenda 0.30

    • akira2012
    • 27. Juni 2007 um 23:17

    Hallo peethebee ^^

    habe die neue Verision geladen und der "Fehler" besteht weiterhin. Man kann keine Sonderzeichen wählen (nichtmal nen Punkt[.])


    MFG

    akira2012

  • Prozess Explorer

    • akira2012
    • 25. Juni 2007 um 21:42

    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)

  • Prozess Explorer

    • akira2012
    • 25. Juni 2007 um 20:53

    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...

  • BUG? Galenda 0.30

    • akira2012
    • 25. Juni 2007 um 20:49

    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

  • Prozess Explorer

    • akira2012
    • 25. Juni 2007 um 20:33

    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 ^^

  • Product Key Office 2007

    • akira2012
    • 25. Juni 2007 um 20:12

    Was der Alien macht funktioniert immer. Aliens machen keine Fehler :P

  • Prozess Explorer

    • akira2012
    • 25. Juni 2007 um 19:01

    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:

    Spoiler anzeigen
    [autoit]


    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.2.2.0
    Author: akira2012

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

    Script Function:
    Template AutoIt script.

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

    #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>

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

    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()

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

    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

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

    $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)

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

    $suchen=GUICtrlCreateButton("Prozess Suchen", 230, 250, 90)

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

    GUISetState(@sw_show)

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

    While 1
    $msg = GUIGetMsg()

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

    Select

    case $msg = $beenden
    Exit


    case $msg = $suchen

    $suche=GUICtrlRead($Auflistung)
    _search($suche, "C:\")

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

    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")

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

    case $msg = $priochange
    GUICtrlSetState($priochange2, $gui_show)
    GUICtrlSetState($aendern, $gui_show)

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

    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)

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

    _GUICtrlListClear($Auflistung)
    for $i = 1 to $test[0][0]
    IF $test[$i][0] = "[System Process]" Then
    Else
    _GUICtrlListAddItem($Auflistung, $test[$i][0])
    EndIf
    Next

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

    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop

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

    EndSelect
    WEnd

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

    #cs

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

    #ce

    [/autoit]


    Und hier die Suchfunktion -_-*

    Spoiler anzeigen
    [autoit]


    #include <array.au3>
    #include <file.au3>
    func _search($Eingabe, $Laufwerk)
    ;$Eingabe = "*.au3"
    ;$Laufwerk = "C:\"

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

    ;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

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

    ;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

    [/autoit]


    Ich werde das ganze sicher mal überarbeiten und die eigene Suchfunktion vielleicht ersetzen aber wollte erstmal hören was ihr dazu denkt ^^

  • Mastermind (ICH HABE WIEDER INTERNET JUCHUU)

    • akira2012
    • 25. Juni 2007 um 16:27

    Öhm... Gesundheit? ^^ Ich verstehe im Moment nur Bahnhof werde mich heute abend mal wieder damit beschäftigen. Macht wirklich Spaß dazu zu lernen ^^

  • Mastermind (ICH HABE WIEDER INTERNET JUCHUU)

    • akira2012
    • 24. Juni 2007 um 22:50

    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:

    Spoiler anzeigen
    [autoit]


    tives created by AutoIt3Wrapper_GUI ****
    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.2.2.0
    Author: akira2012

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

    Script Function:
    Mastermind.

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

    #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>

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

    Global $Antwort[11], $Antwort2[11], $Antwort3[11], $Antwort4[11], $Ergebnis[11], $Ergebnis2[11], $Ergebnis3[11], $Ergebnis4[11], $Testen[11], $z=1
    $top=20

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

    $Zahl1=Random(1, 9, 1)
    $Zahl2=Random(1, 9, 1)
    $Zahl3=Random(1, 9, 1)
    $Zahl4=Random(1, 9, 1)

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

    Opt("GUIOnEventMode", 1)

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

    $Master=GUICreate("Mastermind", 440, 500)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")

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

    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

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

    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

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

    Next
    $top=20
    for $i = 1 to 10
    $Antwort3[$i]=GUICtrlCreateEdit("", 100, $top, 20, 20, 0x2001)
    GUICtrlSetLimit ( $Antwort3[$i], 1)
    $top = $top+40

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

    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

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

    for $i = 1 to 10
    $Testen[$i]=GUICtrlCreateButton("Prüfen", 380, $top)
    GUICtrlSetOnEvent($Testen[$i], "check")
    $top=$top+40
    Next
    $top=20

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

    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

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

    GUISetState(@SW_SHOW)

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

    while 1
    sleep(1000)
    WEnd

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

    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

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

    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)

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

    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")

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

    EndIf
    EndFunc


    Func CLOSEClicked()
    Exit
    EndFunc

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

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™