Beiträge von Oscar

Vielleicht so:

#cs
C:\Users\MeineID\AppData\Local\Microsoft\Outlook\meine.mail@gmail.com.ost
D:\Documents\Outlook-Dateien\iCloud Archive.pst
D:\Ordner\Orner1\Ordner2\Outlook-Dateien\iCloud Archive1.pst
F:\Ordner\iCloud Archive2.pst
G:\Ordner\Ordner1\Ordner2\Ordner3\Outlook-Dateien\iCloud Archive3.pst
C:\Users\MeineID\AppData\Local\Microsoft\Outlook\meine.mail1@gmail.com.ost
#ce

#Region zum einlesen des obigen Kommentars
Global $sPath = StringRegExpReplace(FileRead(@ScriptFullPath), '(?s)#cs\v+(.+?)\v+#ce.+', '$1')
Global $aPath = StringSplit($sPath, @CRLF, 3)
#EndRegion zum einlesen des obigen Kommentars

Global $sDir
For $sPath In $aPath
    $sDir = StringRegExpReplace($sPath, '(.+\\).+', '$1') ; nur der Pfad (ohne Dateiname und Endung)
    ConsoleWrite($sDir & @CR)
Next

Zitat von Bitnugger

Oder ginge das auch so: _GuiCtrlBusy_RegisterMessage($hWnd, $WM_LBUTTONDBLCLK, "function"') und _GuiCtrlBusy_RegisterMessage($hWnd, $WM_CLOSE, "function"')

Dafür benötigt man eigentlich keine zusätzlichen Funktionen.

Die Funktion "_GuiCtrlBusy_Create()" gibt doch das Handle des Fensters zurück. Damit kannst Du in Deinem Script mit GUISetOnEvent (OnEventMode) oder mit einer entsprechenden Case-Anweisung (Msg-Loop-Modus) auf linken oder rechten Mausklick und/oder auf das Schließen des Fensters reagieren.

Er hat mir per PN schon mitgeteilt, dass das ganz und gar kein Bot werden soll, nur eine "Hilfe für ein Spiel".

Esukho: Wie ich Dir bereits per PN mitgeteilt habe: geh zum Botforum! Hier wirst Du keine Hilfe bekommen!

[Thread closed]

Esukho: Wenn Du von Deinem Bot nicht ablässt, wirst Du hier nicht alt werden!

[Kommentar BugFix]

Ich finde es immer wieder lustig, dass die Bot Bastler schon an elementaren Programmieraufgaben scheitern, sich in ihren Foren dann aber oft so tolle Namen geben, wie Hack0rZofUnivers3 oder ähnlich.

Zitat von AutoMit

Hat die Funktion nicht nur 2 Parameter?

Oh Mist!

Stimmt! In der Version hier gab es nur 2 Parameter.

Ich hatte die neuere Version noch gar nicht hochgeladen.

Das habe ich oben jetzt mal geändert. Sorry!

Zitat von AutoMit

Was muss man ändern, damit man das blinken beim Programmaufruf aktivieren bzw. deaktivieren kann?

Der dritte Parameter von _GUICtrlClock_SetTime muss auf TRUE gesetzt werden, damit es nicht blinkt.

Da sind zuviele Sonderfälle bei, um sie mit nur einem RegEx-Pattern erfassen zu können.

Ich würde da auch in mehreren Schritten vorgehen:

Global $aFilename[] = ['Dateiname 6.17.pdf', 'Dateiname 0117.txt', 'Dateiname 07.17.xls', 'Dateiname09.2017.pdf', '2.17 Dateiname.txt', 'Dateiname 06-17de.docx', '0516 Dateiname.xls']

Global $sFilename, $sExt, $sDate, $sYear, $sMon, $sNewName
For $i = 0 To UBound($aFilename) - 1
    $aFilename[$i] = StringRegExpReplace($aFilename[$i], '(.*?[0-9\.\-]+)de(\..+)', '$1$2')
    ConsoleWrite(@CRLF & '-> Debug(' & @ScriptLineNumber & ') : Alt = "' & $aFilename[$i] & '"' & @CRLF)
    $sFilename = StringStripWS(StringRegExpReplace($aFilename[$i], '(.*?)[0-9\.\-]+(.*)\..+', '$1$2'), 3)
    $sExt = StringRegExpReplace($aFilename[$i], '.*?[0-9\.\-]+.*(\..+)', '$1')
    $sDate = StringRegExpReplace($aFilename[$i], '.*?([0-9\.\-]+).*\..+', '$1')
    $sMon = StringRegExpReplace($sDate, '(.+)\..+', '$1')
    $sYear = StringRegExpReplace($sDate, '.+\.(.+)', '$1')
    If $sMon = $sDate Then
        $sMon = StringRegExpReplace($sDate, '(.+)\-.+', '$1')
        $sYear = StringRegExpReplace($sDate, '.+\-(.+)', '$1')
    EndIf
    If $sMon = $sDate Then
        $sMon = StringLeft($sDate, 2)
        $sYear = StringMid($sDate, 3)
    EndIf
    If StringLen($sYear) = 2 Then $sYear = '20' & $sYear
    $sNewName = StringFormat('%s %04d-%02d%s', $sFilename, $sYear, $sMon, $sExt)
    ConsoleWrite('+> Debug(' & @ScriptLineNumber & ') : Neu = "' & $sNewName & '"' & @CRLF & @CRLF)
Next

So, die Version 3.0.0.0 ist jetzt fertig! Download in Post#1.

@Musashi: Vielen Dank für Deine Mühe (Übersetzung der Spielanleitung)!

Für die meisten Fenster trifft das zu!

Mit ControlClick, ControlSend, ControlCommand und ControlSetText lassen sich so ziemlich alle Funktionen eines Fenster im Hintergrund ansteuern.

Es gibt aber auch immer wieder Ausnahmen (dabei handelt es sich meist um Fenster die nicht dem Windows-Standard entsprechen).

Vielen Dank für die Verbesserungen. Das werde ich so übernehmen.

Wobei ich mit "Stack" für "Kapital" nicht so zufrieden bin. Auch wenn das Pokerterminologie ist, denke ich, dass mein Spiel eben nicht nur Pokerfans spielen werden.

Du musst abspeichern Spalte mit Bild unter Name für Bild in jede Zeile auf Festplatte.

Nein, im Ernst: Wie wäre es, wenn Du mal so eine Beispiel-Tabelle postest? Mit Deiner Beschreibung da oben wird Dir kaum jemand weiterhelfen können.

So die Beta4-Version ist nun fertig (neue Version in Post#1).

Man kann jetzt zwischen Englisch und Deutsch auswählen, aber mein Englisch ist...naja...bescheiden. Vielleicht kann ja mal der Ein oder Andere sich die Übersetzung ansehen und evtl. Verbesserungen posten.

Ich schliesse mich den Worten meines Vorredners an!

Auch von mir die allerbesten Wünsche zu Deinem Geburtstag!

Also 4K auf dem PC-Desktop stelle ich mir schon ganz gut vor. Dann aber auf einem großen Monitor (32 Zoll aufwärts).

Ich könnte mir auch so einen curved-Monitor vorstellen mit 3440 x 1440 Pixel und 34 Zoll.

Gibt es hier jemanden der sowas unter Windows 7 im Einsatz hat und mal ein paar Erfahrungen berichten kann?

Im Moment habe ich hier ein Zwei-Monitor-Betrieb (24 Zoll 1920 x 1200 und 20 Zoll 1600 x 1200).

So ein curved oder 4K wäre da schon eine schöne Alternative...

Yeah! Ich hatte gerade den zweiten "Straight Flush" (Screenshot in Post#1).

Auf dem Screenshot könnt ihr zum Teil auch schon die nächsten Features der Beta4-Version sehen (Auswahl deutsch/englisch, Statistik-Auswahl Gesamt/Spieler).

Es wird auch noch eine schwarze Hintergrund-Gui geben (auswählbar), damit der restliche Desktop nicht stört.

Zitat von Paul01

Da machst dus jz nur für Labels transparent oder?

Mh.. Ist ja echt krampf iwie..

Du wolltest doch, dass man das Hintergrundbild sieht?!

Irgendwie reden wir aneinander vorbei. Zeig doch mal anhand einer Grafik/Zeichnung, wie das aussehen soll.

Ich muss Musashi schon etwas recht geben, dass Deine Beschreibung nicht so ganz eindeutig ist.

Zitat von Tweaky

Ich finde die User-Online-Liste etwas unglücklich.

Stimmt!

Die ganzen Gäste dort aufzulisten ist aber sowieso unsinnig.

Am besten die Gäste ganz aus der Liste streichen (falls das möglich ist).

Meistens schaue ich aber sowieso auf den Kasten (rechts), wer online ist. Die Liste (oben) benutze ich nur selten.

Einen Button kann man nicht transparent machen. Das geht nur bei einem Label.

Vielleicht meinst Du das so:

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

Global $aQA[6][5] = [ _
[' Frage1', 'rAntwort1', 'fAntwort2', 'fAntwort3', 'fAntwort4'], _
[' Frage2', 'fAntwort1', 'rAntwort2', 'fAntwort3', 'fAntwort4'], _
[' Frage3', 'fAntwort1', 'fAntwort2', 'rAntwort3', 'fAntwort4'], _
[' Frage4', 'fAntwort1', 'fAntwort2', 'fAntwort3', 'rAntwort4'], _
[' Frage5', 'rAntwort1', 'fAntwort2', 'fAntwort3', 'fAntwort4'], _
[' Frage6', 'fAntwort1', 'rAntwort2', 'fAntwort3', 'fAntwort4']]

Global $hGui = GUICreate('Quiz', 640, 200)
GUICtrlCreatePic('c:\Program Files (x86)\AutoIt3\Examples\GUI\msoobe.jpg', 0, 0, 640, 200)
GUICtrlSetState(-1, $GUI_DISABLE)
Global $aidQA[5], $iCount = 0, $iIndex
$aidQA[0] = GUICtrlCreateLabel('', 20, 10, 600, 25, $SS_CENTER)
GUICtrlSetFont(-1, 14, 400, 0, 'Arial')
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
Local $sPath = "c:\Program Files (x86)\AutoIt3\Examples\Helpfile\Extras\"
For $i = 0 To UBound($aidQA) - 2
    $aidQA[$i + 1] = GUICtrlCreateLabel('', 20 + Mod($i, 2) * 320, 50 + Int($i / 2) * 60, 280, 40, $SS_CENTER)
    GUICtrlSetFont(-1, 14, 400, 0, 'Arial')
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
Next
_NextQuestion()
GUISetState()
Global $aMsg
While True
    $aMsg = GUIGetMsg(1)
    Switch $aMsg[0]
        Case $GUI_EVENT_CLOSE
            Exit
        Case $aidQA[1] To $aidQA[4]
            $iIndex = $aMsg[0] - $aidQA[0]
            If StringLeft($aQA[$iCount][$iIndex], 1) = 'r' Then
                MsgBox(0, 'Antwort', 'Richtig!')
            Else
                MsgBox(0, 'Antwort', 'Falsch!')
            EndIf
            $iCount += 1
            If $iCount = UBound($aQA) Then $iCount = 0
            _NextQuestion()
    EndSwitch
WEnd

Func _NextQuestion()
    For $i = 0 To UBound($aidQA) - 1
        GUICtrlSetData($aidQA[$i], StringMid($aQA[$iCount][$i], 2))
    Next
EndFunc

Dann geht das nicht mit einem Button.

Nimm stattdessen ein Icon- oder Pic-Control und lege ein Label darüber für den Text.

Wenn Du auf einem Button eine Grafik und Text haben willst, dann am besten die Grafik als Icon ("pic.ico").

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

Global $aQA[6][5] = [ _
[' Frage1', 'rAntwort1', 'fAntwort2', 'fAntwort3', 'fAntwort4'], _
[' Frage2', 'fAntwort1', 'rAntwort2', 'fAntwort3', 'fAntwort4'], _
[' Frage3', 'fAntwort1', 'fAntwort2', 'rAntwort3', 'fAntwort4'], _
[' Frage4', 'fAntwort1', 'fAntwort2', 'fAntwort3', 'rAntwort4'], _
[' Frage5', 'rAntwort1', 'fAntwort2', 'fAntwort3', 'fAntwort4'], _
[' Frage6', 'fAntwort1', 'rAntwort2', 'fAntwort3', 'fAntwort4']]

Global $hGui = GUICreate('Quiz', 640, 200)
Global $aidQA[5], $iCount = 0, $iIndex
$aidQA[0] = GUICtrlCreateLabel('', 10, 10, 600, 25, $SS_CENTER)
GUICtrlSetFont(-1, 14, 400, 0, 'Arial')
Local $sPath = "c:\Program Files (x86)\AutoIt3\Examples\Helpfile\Extras\"
For $i = 0 To UBound($aidQA) - 2
    $aidQA[$i + 1] = GUICtrlCreateButton('', 20 + Mod($i, 2) * 320, 50 + Int($i / 2) * 60, 280, 40, $BS_CENTER)
    GUICtrlSetImage(-1, $sPath & 'Arrow.ico', 0)
    GUICtrlSetFont(-1, 14, 400, 0, 'Arial')
Next
_NextQuestion()
GUISetState()
Global $aMsg
While True
    $aMsg = GUIGetMsg(1)
    Switch $aMsg[0]
        Case $GUI_EVENT_CLOSE
            Exit
        Case $aidQA[1] To $aidQA[4]
            $iIndex = $aMsg[0] - $aidQA[0]
            If StringLeft($aQA[$iCount][$iIndex], 1) = 'r' Then
                MsgBox(0, 'Antwort', 'Richtig!')
            Else
                MsgBox(0, 'Antwort', 'Falsch!')
            EndIf
            $iCount += 1
            If $iCount = UBound($aQA) Then $iCount = 0
            _NextQuestion()
    EndSwitch
WEnd

Func _NextQuestion()
    For $i = 0 To UBound($aidQA) - 1
        GUICtrlSetData($aidQA[$i], StringMid($aQA[$iCount][$i], 2))
    Next
EndFunc