Beiträge von Oscar

  • BUTTONS-Wie kann ich den Text ändern?

    Hier hast Du ein Beispiel:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    Global $bInstall = True, $iProgr = 0
    $hGui = GUICreate('Test', 320, 120)
    $hProgress = GUICtrlCreateProgress(10, 60, 300, 16)
    $hButton = GUICtrlCreateButton('Installieren...', 130, 90, 80, 22)
    GUISetState()
    AdlibEnable('_UpdateProgress', 100)
    While True
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    Exit
    Case $hButton
    If $bInstall Then
    GUICtrlSetData($hButton, 'Abbrechen')
    $bInstall = False
    Else
    GUICtrlSetData($hButton, 'Installieren...')
    GUICtrlSetData($hProgress, 0)
    $iProgr = 0
    $bInstall = True
    EndIf
    EndSwitch
    WEnd

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

    Func _UpdateProgress()
    If Not $bInstall Then
    $iProgr += 1
    If $iProgr = 101 Then $iProgr = 0
    GUICtrlSetData($hProgress, $iProgr)
    EndIf
    EndFunc

    [/autoit]

  • Probleme mit dem SplshScreen

    Das liegt daran, dass das "&"-Zeichen zum unterstreichen der Hotkey-Taste(n-Kombination) vorgesehen ist.
    Verwende einfach ein doppeltes "&"-Zeichen:

    [autoit]


    SplashTextOn("Wartehinweis", 'Das Programm "O&&O Defrag 2000" wird nun' & @LF & "installiert und eingerichtet." & @LF & @LF & "Bitte warten Sie: (Dauer: c.a. 1 Min.)", 605, 205, -1, 15, 16, "Times New Roman", 20)

    [/autoit]

  • Ordner mit aktuellem Datum erstellen

    Den erstellten Pfad einfach einer Variablen zuweisen, dann geht es auch mit Stunden/Minuten/Sekunden:

    [autoit]


    $sFile = "Interfacesicherung_" & @YEAR & "-" & @MON & "-" & @MDAY & " " & @HOUR & "_" & @MIN & "_" & @SEC

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

    DirCreate($sFile)
    DirCopy(@MyDocumentsDir, $sFile, 1)

    [/autoit]

  • der_doc meine meinung für inkompetenz

    Es war gar nicht Der_Doc, der Deinen Thread verschoben hat, sondern ich.
    Deine Fragestellung zielte eindeutig in Richtung Bot-Coding. Deine bisherigen Postings sprechen die gleiche Sprache und wenn Du Dich dann nicht näher dazu äußerst, was Du sonst vorhast, dann musst Du halt damit leben, dass wir Dich für einen Botcoder halten.

  • Speichern mit ausgewählten Dateityp

    Ich verstehe nicht, wie das im FileSaveDialog funktionieren soll. Dann muss der Benutzer doch eine Dateiendung zu dem Dateinamen schreiben, oder wie hast Du Dir das gedacht?
    Wenn Du die Combobox in dem Dialog haben willst, dann musst Du eine eigene GUI dafür erstellen (sehr aufwendig).

  • Aus einer Textdatei sortierte Listen erstellen

    Mal so auf die Schnelle:

    Spoiler anzeigen
    [autoit]


    #include <Array.au3> ; wenn die Liste bereits sortiert vorliegt, dann kann diese Zeile weg
    Global $aFile = StringSplit(FileRead(@ScriptDir & '\export_rcv090324052240.txt'), @CRLF, 1)
    _ArraySort($aFile) ; wenn die Liste bereits sortiert vorliegt, dann kann diese Zeile weg
    Global $hTmp = '', $hFile, $aData
    For $i = 1 To $aFile[0]
    $aData = StringSplit($aFile[$i], ';')
    If $aData[0] = 1 Then ContinueLoop
    If $hTmp <> $aData[2] Then
    If $hTmp <> '' Then FileClose($hFile)
    $hFile = FileOpen(@ScriptDir & '\' & $aData[2] & '.split', 2)
    $hTmp = $aData[2]
    EndIf
    FileWrite($hFile, $aFile[$i] & @CRLF)
    Next
    FileClose($hFile)

    [/autoit]

  • Random-Obfuscator

    Ich denke, dass das überflüssig geworden ist. Der Original-Obfuscator macht seine Arbeit mittlerweile sehr gut.
    Und eine 100%ige Sicherheit wird es eh nicht geben. Also benutze ruhig den Original-Obfuscator.

  • WinSetState Titel aus Inputbox

    Damit auch alle Fenster mit dem eingegebenen Titel geschlossen werden:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>

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

    Opt("WinTitleMatchMode", -2)

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

    $GUI = GUICreate("Form1", 225, 225)
    $Edit = GUICtrlCreateEdit("", 10, 10)
    $Verstecken = GUICtrlCreateButton("Verstecken", 50, 200)
    $Anzeigen = GUICtrlCreateButton("Anzeigen", 125, 200)
    GUISetState(@SW_SHOW)
    WinSetOnTop($GUI, "", 1)

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

    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Anzeigen
    _WindowState(@SW_SHOW)
    Case $Verstecken
    _WindowState(@SW_HIDE)
    EndSwitch
    WEnd

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

    Func _WindowState($sState)
    Local $aEditList = StringSplit(GUICtrlRead($Edit), @CRLF, 1)
    If $aEditList[1] = "" Then Return MsgBox(262144+64, "Fehler", "Bitte etwas eingeben.")
    Local $aWinList = WinList()
    For $i = 1 To $aEditList[0]
    If $aEditList[$i] = "" Then ContinueLoop
    For $j = 1 To $aWinList[0][0]
    If $aWinList[$j][0] = "" Then ContinueLoop
    If StringInStr($aWinList[$j][0], $aEditList[$i]) Then WinSetState($aWinList[$j][1], "", $sState)
    Next
    Next
    EndFunc ;==>_WindowState

    [/autoit]

  • Speichern mit ausgewählten Dateityp

    Meinst Du so:

    Spoiler anzeigen
    [autoit]


    #include <ComboConstants.au3>
    #include <GUIConstantsEx.au3>
    Opt('GUIOnEventMode', 1)

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

    $hGui = GUICreate('', 320, 350)
    GUISetOnEvent($GUI_EVENT_CLOSE, '_End')
    $hEdit = GUICtrlCreateEdit('', 10, 10, 300, 300)
    GUICtrlCreateLabel('Save as...', 10, 324, 50, 22)
    $hSaveExt = GUICtrlCreateCombo('.txt', 60, 320, 50, 22, $CBS_DROPDOWNLIST)
    GUICtrlSetData(-1, '.ini|.cfg|.log|.nfo')
    $hSave = GUICtrlCreateButton('Save', 250, 320, 60, 22)
    GUICtrlSetOnEvent(-1, '_Save')
    GUISetState()

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

    While True
    Sleep(50)
    WEnd

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

    Func _End()
    Exit
    EndFunc

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

    Func _Save()
    Local $sExt = GUICtrlRead($hSaveExt)
    Local $sFile = FileSaveDialog('Save to file...', @ScriptDir, 'Text files (*' & $sExt & ')', 2)
    If Not @error Then
    If StringRight($sFile, StringLen($sExt)) <> $sExt Then $sFile &= $sExt
    Local $hFile = FileOpen($sFile, 2)
    If $hFile <> -1 Then
    FileWrite($hFile, GUICtrlRead($hEdit))
    FileClose($hFile)
    EndIf
    EndIf
    EndFunc

    [/autoit]

  • WinSetState Titel aus Inputbox

    Ok, war noch ein kleiner "Schönheitsfehler". So geht's:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>

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

    Opt("WinTitleMatchMode", -2)

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

    $GUI = GUICreate("Form1", 225, 225)
    $Edit = GUICtrlCreateEdit("", 10, 10)
    $Verstecken = GUICtrlCreateButton("Verstecken", 50, 200)
    $Anzeigen = GUICtrlCreateButton("Anzeigen", 125, 200)
    GUISetState(@SW_SHOW)
    WinSetOnTop($GUI, "", 1)

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

    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Anzeigen
    _WindowState(@SW_SHOW)
    Case $Verstecken
    _WindowState(@SW_HIDE)
    EndSwitch
    WEnd

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

    Func _WindowState($sState)
    Local $aWinList = StringSplit(GUICtrlRead($Edit), @CRLF, 1)
    If $aWinList[1] = "" Then Return MsgBox(262144+64, "Fehler", "Bitte etwas eingeben.")
    For $i = 1 To $aWinList[0]
    If $aWinList[$i] = "" Then ContinueLoop
    WinSetState($aWinList[$i], "", $sState)
    Next
    EndFunc ;==>_WindowState

    [/autoit]

  • WinSetState Titel aus Inputbox

    Ja, das geht auch! So ist jetzt die Schreibweise egal:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>

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

    Opt("WinTitleMatchMode", -2)

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

    $GUI = GUICreate("Form1", 225, 225)
    $Edit = GUICtrlCreateEdit("", 10, 10)
    $Verstecken = GUICtrlCreateButton("Verstecken", 50, 200)
    $Anzeigen = GUICtrlCreateButton("Anzeigen", 125, 200)
    GUISetState(@SW_SHOW)
    WinSetOnTop($GUI, "", 1)

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

    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Anzeigen
    _WindowState(@SW_SHOW)
    Case $Verstecken
    _WindowState(@SW_HIDE)
    EndSwitch
    WEnd

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

    Func _WindowState($sState)
    Local $aWinList = StringSplit(GUICtrlRead($Edit), @CRLF, 1)
    If @error Then Return MsgBox(64, "Fehler", "Bitte etwas eingeben.")
    For $i = 1 To $aWinList[0]
    If $aWinList[$i] = "" Then ContinueLoop
    WinSetState($aWinList[$i], "", $sState)
    Next
    EndFunc ;==>_WindowState

    [/autoit]

    P.S.: Und das Fenster ist jetzt immer im Vordergrund. :)

  • Vordergund mit checkbox

    Meinst Du so:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>

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

    $gui = GUICreate('CB-Test mit CB3 u. CB4 als Radio')
    $cb1 = GUICtrlCreateCheckbox('Vordergrund?', 20, 20, 100)
    $cb2 = GUICtrlCreateCheckbox('Install 3 od. 4?', 20, 50, 100)
    $cb3 = GUICtrlCreateCheckbox('Check 3 (wenn 3, dann nicht 4)', 35, 80, 180)
    GUICtrlSetState(-1, $GUI_CHECKED)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $cb4 = GUICtrlCreateCheckbox('Check 4 (wenn 4, dann nicht 3)', 35, 110, 180)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $cb5 = GUICtrlCreateCheckbox('Check 5', 20, 140, 60)
    $cb6 = GUICtrlCreateCheckbox('Check 6', 20, 170, 60)
    GUISetState()

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

    While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $cb1
    If BitAND(GUICtrlRead($cb1), $GUI_CHECKED) Then
    WinSetOnTop($gui, '', 1)
    Else
    WinSetOnTop($gui, '', 0)
    EndIf
    Case $cb2
    If BitAND(GUICtrlRead($cb2), $GUI_CHECKED) Then
    GUICtrlSetState($cb3, $GUI_ENABLE)
    GUICtrlSetState($cb4, $GUI_ENABLE)
    Else
    GUICtrlSetState($cb3, $GUI_DISABLE)
    GUICtrlSetState($cb4, $GUI_DISABLE)
    EndIf
    Case $cb3
    If BitAND(GUICtrlRead($cb3), $GUI_CHECKED) Then
    GUICtrlSetState($cb4, $GUI_UNCHECKED)
    Else
    GUICtrlSetState($cb4, $GUI_CHECKED)
    EndIf
    Case $cb4
    If BitAND(GUICtrlRead($cb4), $GUI_CHECKED) Then
    GUICtrlSetState($cb3, $GUI_UNCHECKED)
    Else
    GUICtrlSetState($cb3, $GUI_CHECKED)
    EndIf
    Case $cb5

    Case $cb6

    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

    [/autoit]

  • WinSetState Titel aus Inputbox

    Ich habe das Script von SiLenCa mal etwas angepasst:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>

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

    Opt("WinTitleMatchMode", 2)

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

    $GUI = GUICreate("Form1", 225, 225)
    $Edit = GUICtrlCreateEdit("", 10, 10)
    $Verstecken = GUICtrlCreateButton("Verstecken", 50, 200)
    $Anzeigen = GUICtrlCreateButton("Anzeigen", 125, 200)
    GUISetState(@SW_SHOW)

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

    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Anzeigen
    _WindowState(@SW_SHOW)
    Case $Verstecken
    _WindowState(@SW_HIDE)
    EndSwitch
    WEnd

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

    Func _WindowState($sState)
    Local $aWinList = StringSplit(GUICtrlRead($Edit), @CRLF, 1)
    If @error Then Return MsgBox(64, "Fehler", "Bitte etwas eingeben.")
    For $i = 1 To $aWinList[0]
    If $aWinList[$i] = "" Then ContinueLoop
    WinSetState($aWinList[$i], "", $sState)
    Next
    EndFunc ;==>_WindowState

    [/autoit]