Beiträge von blackdeath911

  • Dateien nach Kriterien durchsuchen

    So gehts irgendwie nicht...

    Wenn man den Punkt vor dem txt entfernt und kein leerzeichen einfügt (weiß nich obs auch mit leerzeichen so is) dann bleibt der punkt vor Punktentxt stehen...

    Gibt es nicht eine Funktion zum Testen eines Pfades darauf ob es eine Datei oder ein Ordner ist? muss ja nichts elegantes sein kann ja auch sein, dass ein @Error ausgelesen wird wenn eine Datei nicht ausgelesen werden kann dann isses ja nen ordner...

    Es soll nachher ja nicht nur Punkte entfernt werden sondern diese sachen: _ . - "0-9 der 1. 4 Stellen" und mal sehen was manchmal noch nervt bei heruntergeladenen dateien im dateinamen...

    MFG: Blacky911

  • Dateien nach Kriterien durchsuchen

    Aber wie umgehe ich das mit dem Punkt vor dem Dateitypen?

    Alle bekannten Dateitypen in nen Array schreiben und überprüfen lassen bzw. nen Stringsplit machen wie mit dem Dateinamen nur das letzte rausfiltern sozusagen den letzten punkt und es am ende wieder dranhängen?

    Oder gibt es da auch so ne tolle funktion wie die mit dem nur dateinamen? :)

    Habe noch ein Problem gefunden wenn ich es mit StringTrimLeft mache... wenn man es mit ordnern anwendet und kein . im ordner ist wird es ja erstmal nen fehler geben und es gibt ja keinen Datentyp der wieder drangesetzt werden muss...
    Wie unterscheide ich ob es sich um eine Datei oder einen Ordner handelt?

    MFG: Blacky911

  • Dateien nach Kriterien durchsuchen

    Okay das hab ich nun schonmal...
    Je mehr dateien ich mit senden an markiere desto größer wird $CMDLINE[0]

    Aber wie sage ich dem Programm jetzt das er nur den Dateinamen betrachten soll und nicht den ganzen pfad?
    Stringslpit "/" oder geht das noch anders irgendwie?

    Und wenn ich die Punkte entfernen lasse ist ja automatisch auch z.B. das *.txt nachher nurnoch ein *txt
    Wie umgehe ich das?

    MFG: Blacky911

  • Dateien nach Kriterien durchsuchen

    Wenn ich es jetzt mit der Senden an Methode mache...

    Dann leg ich ja mein Script in diesen sendto ordner in win7 ab...
    Aber was wird da übergeben bzw. wie verändere ich den namen des Ordners/der Datei auf die ich rechtsklick -> senden an gemacht habe?

    Wird der Pfad übergeben oder irgendwas womit man arbeiten kann?

    MFG: Blacky911

  • Dateien nach Kriterien durchsuchen

    Wie meinst du das mit dem regestrieren?

    Ich hatte mir das so gedacht, dass autoit sich den ordnernamen/dateinamen anschaut und dann halt nach den Kriterien mit Stringsplit die punkte oder sonstige zeichen durch leerzeichen ersetzt bzw. nichts...

    Und wie bekomme ich das script auf rechtsklick das es immer da ist und ich es nicht immer anmachen muss?

  • Dateien nach Kriterien durchsuchen

    Hallo an alle erstmal :)

    Ich habe mir folgedendes vorgestellt...
    Man Klickt auf eine Date oder Ordner mit rechtsklick und dann hat man einen unterpunkt wie (neues Autoit Script erstellen)
    Dieser Unterpunkt soll dann z.B. heißen Dateinamen Durchsuchen

    Ich möchte nämlich eine Date oder Ordner bei Rechtklich -> Dateinamen Durchsuchen dann nach bestimmten kriterien durchsuchen lassen (am besten aus einer ini damit man sie einfach erweitern kann) und sollte eines der Kriterien enthalten sein sollen diese ersetzt oder gelöscht werden aus dem namen...

    Leider weiß ich nicht wie man so einen Punkt unter rechtsklick hinbekommt und wie man die datei nach bestimmten sachen durchsucht,...

    Hättet ihr da eventuell mal einen kleinen denkanstoß für mich?

    MFG: Blacky911

  • 4 Gewinnt

    @ Blume: Das geht bei Autoit auch? ^^ hab das nie versucht kannt das nur bei C++

    @ Andere: Klar kann man das Grafisch noch etwas aufwerten aber finde es so erstmal ausreichend...
    Aber hättet ihr ein paar links wo ich mir mal anschauen könnte das etwas grafischer zu machen?

    Und wie sieht es aus mit der Lan fähigkeit habe mir das so vorgestellt das ich oben noch 2 Buttons mache mit einmal Spiel Hosten und Spiel suchen... aber weiß nicht in wie weit das realisierbar ist und ob sich es da nich lohnen würd alles neu zu schreiben...

    MFG: Blacky911

  • 4 Gewinnt

    Hallo liebe gemeinde :)

    Ich habe mich mal rangesetzt und 4 Gewinnt geschrieben :)
    Man kann die Namen der Spieler eingeben und dann wie bei dem normalen 4 Gewinnt abwechselnd spielen...

    Hier mal der Quellcode:

    Spoiler anzeigen
    [autoit]

    #include <Constants.au3>
    #include <Array.au3>
    #include <GUIConstants.au3>
    #include <WindowsConstants.au3>
    #include <GuiButton.au3>

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

    ;Gui
    ;Gui
    Global $title="4 Gewinnt"
    Global $buttonanzahl=42
    Global $high
    Global $width
    Global $buttonh=40
    Global $buttonw=40
    Global $button[$buttonanzahl]
    Global $buttonhoriz=7
    Global $buttonverti=6
    Global $main
    Global $reset
    ;Zählervariabeln
    Global $i,$h,$c,$v=$buttonanzahl-1
    Global $abstandweite=0
    Global $abstandhoehe=0
    ;Spielervariabeln
    Global $p1rot="Rot"
    Global $p2gelb="Gelb"
    Global $gelb=0xffff00
    Global $rot=0xff0000
    Global $scorerot=0
    Global $scoregelb=0
    Global $unentschieden=0
    Global $turn=$rot
    Global $aktuell
    Global $win=0
    Global $rottext=" "
    Global $gelbtext=" "
    Global $scorebuttonred
    Global $scorebuttongelb
    Global $labeltext=$p1rot

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

    $high=$buttonh*$buttonverti+80
    $width=$buttonw*$buttonhoriz+20
    Guicreate("Spielernamen",220,100)
    $input1=GUICtrlCreateInput("Roter Spieler",10,10)
    $input2=GUICtrlCreateInput("Gelber Spieler",10,40)
    $check=GUICtrlCreateButton("Spiel Starten",85,70)

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

    GUISetState(@SW_SHOW)
    Do
    $msg = GUIGetMsg($main)
    If $msg = $check Then
    $p1rot=GUICtrlRead($input1)
    $p2gelb=GUICtrlRead($input2)
    GUIDelete()
    ExitLoop
    EndIf
    Until $msg = -3

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

    $labeltext=$p1rot
    ; Gui
    $main=GUICreate($title,$width,$high)
    ;Buttons erstellen
    For $i=0 to $buttonverti-1 step +1
    For $h=0 to $buttonhoriz-1 step +1
    $button[$v]=GUICtrlCreateButton(" ",10+$abstandweite,75+$abstandhoehe,$buttonw,$buttonh)
    $abstandweite=$abstandweite+$buttonw
    $v=$v-1
    Next
    $abstandhoehe=$abstandhoehe+$buttonh
    $abstandweite=0
    Next
    ;Text oben
    GUICtrlCreateLabel("4 Gewinnt - Coded by me ^^",10,10,160)
    Guictrlsetfont(-1,9)
    GUICtrlCreateLabel("Spielerstände:",10,30,80)
    Guictrlsetfont(-1,9)
    GUICtrlCreateLabel("Rot:",120,30,80)
    Guictrlsetfont(-1,9)
    $scorebuttonred=GUICtrlCreateLabel($scorerot,145,30)
    Guictrlsetfont(-1,11)
    GUICtrlCreateLabel("Gelb:",200,30,80)
    Guictrlsetfont(-1,9)
    $scorebuttongelb=GUICtrlCreateLabel($scoregelb,232,30)
    Guictrlsetfont(-1,11)
    $reset=GUICtrlCreateButton("Reset",255,5)
    $aktuell=GUICtrlCreateLabel("--- Du bist dran "&$labeltext&". ---",60,50,200)
    Guictrlsetfont(-1,9)

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

    ;GUI Anzeigen
    GUISetState(@SW_SHOW)
    Do
    $msg = GUIGetMsg($main)
    ;Reset button Funktion
    If $reset = $msg Then
    _clearall()
    EndIf
    ;Alle buttons abfragen
    For $i=0 to Ubound($button)-1
    If $button[$i] = $msg Then
    If GUICtrlRead($button[$i])=" " Then
    ;Wenn über 1. Zeile dann nachschauen ob darunter leer sind
    If $i>=7 Then
    $mod=mod($i,7)
    If Guictrlread($button[$mod])=" " Then
    _setfield($mod)
    _gewinner()
    _checkall()
    Else
    For $mod=$mod to $buttonanzahl-1 step +$buttonhoriz
    If Guictrlread($button[$mod])=" " Then
    _setfield($mod)
    _gewinner()
    _checkall()
    ExitLoop
    EndIf
    Next
    EndIf
    Else
    ;Wenn 1. Zeile Feld Setzen
    _setfield($i)
    EndIf
    EndIf

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

    EndIf
    Next
    Until $msg = -3

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

    Func _gewinner()
    Local $w=0
    Local $s=0
    Local $winr=0,$wing=0
    ;Horizontale Abfrage auf gewinner
    For $c=0 to $buttonanzahl-1 step +7
    For $w=0 to 3 step +1
    For $s=0 to 3 step +1
    If Guictrlread($button[$w+$s+$c])=$rottext Then
    $winr=$winr+1
    EndIf
    If Guictrlread($button[$w+$s+$c])=$gelbtext Then
    $wing=$wing+1
    EndIf
    Next
    If $winr=4 Then
    MsgBox(0,"Gewinner","Spieler Rot hat gewonnen!")
    _clearall()
    $scorerot=$scorerot+1
    GUICtrlSetData($scorebuttonred,$scorerot)
    $winr=0
    $wing=0
    Elseif $wing=4 Then
    MsgBox(0,"Gewinner","Spieler Gelb hat gewonnen!")
    _clearall()
    $scoregelb=$scoregelb+1
    GUICtrlSetData($scorebuttongelb,$scoregelb)
    $wing=0
    $winr=0
    Else
    $winr=0
    $wing=0
    EndIf
    Next
    Next
    ; Horizontale abfrage fertig

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

    ;Vertikale abfrage auf gewinner
    For $c=0 to 7 step +1
    For $w=0 to 13 step +1
    For $s=0 to 21 step +7
    If Guictrlread($button[$w+$s+$c])=$rottext Then
    $winr=$winr+1
    EndIf
    If Guictrlread($button[$w+$s+$c])=$gelbtext Then
    $wing=$wing+1
    EndIf
    Next
    If $winr=4 Then
    MsgBox(0,"Gewinner","Spieler Rot hat gewonnen!")
    _clearall()
    $scorerot=$scorerot+1
    GUICtrlSetData($scorebuttonred,$scorerot)
    $winr=0
    $wing=0
    Elseif $wing=4 Then
    MsgBox(0,"Gewinner","Spieler Gelb hat gewonnen!")
    _clearall()
    $scoregelb=$scoregelb+1
    GUICtrlSetData($scorebuttongelb,$scoregelb)
    $wing=0
    $winr=0
    Else
    $winr=0
    $wing=0
    EndIf
    Next
    Next
    ;Vertikale abfrage fertig

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

    ;Diagonale abfrage auf gewinner
    ;Diagonal von unten rechts nach oben Links
    For $c=0 to 7 step +1
    For $w=0 to 10 step +1
    For $s=0 to 24 step +8
    If Guictrlread($button[$w+$s+$c])=$rottext Then
    $winr=$winr+1
    EndIf
    If Guictrlread($button[$w+$s+$c])=$gelbtext Then
    $wing=$wing+1
    EndIf
    Next
    If $winr=4 Then
    MsgBox(0,"Gewinner","Spieler Rot hat gewonnen!")
    _clearall()
    $scorerot=$scorerot+1
    GUICtrlSetData($scorebuttonred,$scorerot)
    $winr=0
    $wing=0
    Elseif $wing=4 Then
    MsgBox(0,"Gewinner","Spieler Gelb hat gewonnen!")
    _clearall()
    $scoregelb=$scoregelb+1
    GUICtrlSetData($scorebuttongelb,$scoregelb)
    $wing=0
    $winr=0
    Else
    $winr=0
    $wing=0
    EndIf
    Next
    Next
    ;Diagonal von unten links nach oben rechts
    For $c=3 to 17 step +7
    For $w=0 to 4 step +1
    For $s=0 to 18 step +6
    If Guictrlread($button[$w+$s+$c])=$rottext Then
    $winr=$winr+1
    EndIf
    If Guictrlread($button[$w+$s+$c])=$gelbtext Then
    $wing=$wing+1
    EndIf
    Next
    If $winr=4 Then
    MsgBox(0,"Gewinner","Spieler Rot hat gewonnen!")
    _clearall()
    $scorerot=$scorerot+1
    GUICtrlSetData($scorebuttonred,$scorerot)
    $winr=0
    $wing=0
    Elseif $wing=4 Then
    MsgBox(0,"Gewinner","Spieler Gelb hat gewonnen!")
    _clearall()
    $scoregelb=$scoregelb+1
    GUICtrlSetData($scorebuttongelb,$scoregelb)
    $wing=0
    $winr=0
    Else
    $winr=0
    $wing=0
    EndIf
    Next
    Next
    ;Diagonale abfrage fertig
    EndFunc

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

    Func _setfield($i)
    GUICtrlSetBkColor($button[$i],$turn)
    If $turn=$rot Then
    GUICtrlSetData($button[$i],$rottext)
    $turn=$gelb
    $labeltext=$p2gelb
    GUICtrlSetData($aktuell,"--- Du bist dran "&$labeltext&". ---")
    Else
    GUICtrlSetData($button[$i],$gelbtext)
    $turn=$rot
    $labeltext=$p1rot
    GUICtrlSetData($aktuell,"--- Du bist dran "&$labeltext&". ---")
    EndIf
    EndFunc

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

    Func _checkall()
    Local $allcheck=0
    For $c=0 to 41 step +1
    If Guictrlread($button[$c])=" " Then
    sleep(0)
    Else
    $allcheck=$allcheck+1
    EndIf
    Next
    If $allcheck=42 Then
    MsgBox(0,"Unentschieden","Das Spiel ist unentschieden ausgegangen, probiert es doch einfach nochmal")
    _clearall()
    $allcheck=0
    Else
    $allcheck=0
    EndIf
    EndFunc

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

    Func _clearall()
    For $c=0 to 41 step +1
    _GUICtrlButton_SetStyle($button[$c], $GUI_SS_DEFAULT_GUI)
    GUICtrlSetData($button[$c]," ")
    Next
    EndFunc

    [/autoit]

    Im Anhand die .au3 zum Download...

    Würde mich über verbesserungen, Lob, Kritik freuen...

    Was ich mir noch vorgestellt habe ist das man das über Netzwerk spielen kann aber damit habe ich mich noch nie befasst... weiß also nicht wie ich da anfangen sollt und umschreiben müsste... aber nunja so ist es finde ich auch schonmal ausreichend :)

    MFG: Blacky911

  • mittelschweres Würfelspiel (viertelfertig)

    Ich kenne das spiel auch nur das wir es so gemacht haben das die kombination 1,2,3,4,5 ncihts bringt (bis auf die 5) sondern bei uns die kombination 1,2,3,4,5,6 direkt zum sieg geführt hat :)


    Wie hast du dir denn die GUI vorgestellt?


    Hätte auch schon interesse daran das zu Programmieren allzu schwer ist es ja nicht :)


    MFG: Blacky911

  • Fenster Verstecken und Sound abschalten

    Was meinst du mit drängelt?
    Es dreht sich hier eher weniger um die mutter ;) sondern eher um den ausbilder ^^
    Weil bis jetzt hab ichs ja hinbekommen mit Modern Warfare 2 das es in den HIDE geht und internet exploer sich öffnet :) aber mit Counterstrike gehts halt nicht,..

    Werd das script auch noch erweitert, sodass sogar ein Wlan wechsel möglich ist da wir 1 Netz privat zum spielen haben und das andere ist das firmennetz wo das internet drauf läuft...

    Nur ich steh halt echt nur vor dem Problem das sich Counterstrike nicht in den HIDE versetzen lässt...
    Wie kann ich herausfinden ob ich den richtigen Fensternaen habe?

    Ich habe es ausprobiert mit folgendem Code

    [autoit]

    If winactive ("Counter") Then
    Winsetstate ("Counter","",@SW_HIDE)
    MSgbox(0,0,"Fenster gefunden")
    Endif

    [/autoit]

    Die MSgbox kam aber das fenster war nicht im Hide

    MFG: Blacky911

  • Fenster Verstecken und Sound abschalten

    Okay werde die Funktion zuhause dann mal testen,
    Aber wie sieht es denn aus mit meinem anderen Problem was ich da habe?

    Wie minimiere ich das Fenster? mit Winsetstate wollte es nicht wirklich funktionieren... habe auch schon getestet gehabt ob er überhaupt das fenster erkennt mit ner abfrage... und da hat er mir die kontroll msgbox angezeigt...

    Was kann ich da tun?
    MFG: Blacky911

  • Fenster Verstecken und Sound abschalten

    Hallo liebe gemeinde :)

    Ich habe folgendes Problem.
    Ich möchte ein Spiel minimieren (Counterstrike 1.6)
    Doch leider geht es irgendwie nicht wie mit Modern Warfare 2 mit Winsetstate auf @SW_HIDE

    Gibt es da einen Unterschied das man fenster nicht auf @SW_HIDE setzen kann wenn sie im Vollbild modus ausgeführt werden?

    Dann mein weiteres Problem ist, dass ich gleichzeitig mit dem Verstecken des Fensters auch den Sound ausschalten will (am besten wäre ein Mute der aktuellen lautstärke und durch eine andere funktion den Mute wieder aufheben damit es wieder gleichlaut ist) --> Betriebssystem ist Win7 x64

    Könnt ihr mir eventuell helfen?
    Wäre echt sehr nett von euch :)

    MFG: Blacky911

  • Bild in GUI ändern ohne flackern

    Hab es selbst gelöst :)

    Hier das Script jetzt (bzw. der Teil)

    [autoit]

    $s=_ArraySearch($programms,Guictrlread($combo))

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

    If $picpfad[$s]="" Then
    GUICtrlSetImage($grafik,@Scriptdir&"\pics\nopic.jpg")
    Else
    GUICtrlSetImage($grafik,$picpfad[$s])
    EndIf

    [/autoit]

    MFG: Blacky911

  • Bild in GUI ändern ohne flackern

    Hi @ all...

    Also ich hab mir ne GUI gebastelt, wo der User via einstellungen bilderpfade eintragen kann etc.
    Diese sollen dann (je nach dem ob eingetragen oder nicht) erscheinen sobalt die Combobox diesen Eintrag "gefudnen" hat
    Ist für den eintrag kein Bild eingetragen soll mein standart bild kommen...

    Hier mal der Quelltextauszug

    Spoiler anzeigen
    [autoit]

    ; Pic Changen
    For $s=0 to UBound($programms)-1
    If GUICtrlRead($combo)=$programms[$s] Then
    If $picpfad[$s]="" Then
    Else
    GUICtrlSetImage($grafik,$picpfad[$s])
    EndIf
    Else
    GUICtrlSetImage($grafik,@Scriptdir&"\pics\nopic.jpg")
    EndIf
    Next

    [/autoit]

    Also $programms stehen die Namen für die Combobox drinne die der dann überpfüft und in $picpfad die pfadangaben der Bilder dazu.
    Das Else ist dann für das Standartpic...

    So, nun hab ich es halt mit der Schreibweise hinbekommen, dass das standartpic nicht flackert aber das eingetragene Flackert...
    Ist ja logisch denn beim prüfen prüft der ja auch weiter und bekommt dann wieder ungleichheiten.

    Wie kann ich es also so schrieben, dass der das bild nur changed wenn vorhanden, und wenn nicht vorhanden halt nur auf standart bleiben ohne zu flackern.

    MFG: Blacky911