Beiträge von Fast2

  • Cookies

    In Firefox kannst du bei den Einstellungen im Tab "Datenschutz" einstellen welche Cookies du immer bzw. nie annehmen willst und die Liste einsehen, wo du sie löschen und auch exportieren kannst, Außerdem würde ich das Add-On "CookieSafe" empfehlen, dieses zeigt jedes mal eine Meldung an, wenn eine Website einen Cookie setzen will, und ermöglicht kompfortableren Zugang zu den genannten Funktionen.

  • Spezielle Variablen deklarieren

    @jendrik: Ich glaube du suchst Assign()

    [autoit]

    Dim $Var1 = "abc", $Var2
    Assign($Var2, $Var1 & "j")
    MsgBox(0, "Ergebnis", $Var2

    [/autoit]


    Edit: Mist da war jemand schneller :D
    PS: BugFix : Machs doch einfach so:

    Spoiler anzeigen
    [autoit]

    Dim $var0 = "abc"
    For $i = 1 To 9
    Assign('var' & $i, Eval("var" & $i -1) & "j ")
    ConsoleWrite("var" & $i & " = " & Eval("var" & $i) & @CRLF)
    Nex

    [/autoit]

  • Eigene Funktion - Integerwert durch den angegebenen Default ersetzen

    So, ich habe hier eine kleine eigene Funktion die aus einer von progandy entstanden ist.

    Code
    [autoit]

    #include-once
    #include <Winapi.au3>
    ;===============================================================================
    ;
    ; Function Name: _Win_SetTransEx($Title, [$Text, [$Transparency, [$NoClick]]])
    ; Description:: Makes a window transparent and/or not to recieve mouse clicks(so that you can click through)
    ; Parameter(s): $Title -> Title or hWnd of Window
    ; $Text [Optional] -> Text in Window
    ; $NoClick [Optional] -> 0(default): Window will still register mouse input; 1: Mouse input will pass; 2: The window will be clickable and intransparent again($Transparency will be ignored)
    ; Requirement(s): <WINApi.au3>
    ; Return Value(s): Success: 1, Error: 0 and @error
    ; @error Values: 1 -> Window does not exist
    ; 2 -> Error in Setting the Styles
    ; Author(s): Prog@ndy (most of code) and Fast2 (some changes)
    ;
    ;===============================================================================
    ;
    Func _WinSetTransEx($Title, $Text = "", $Transparency = 220, $NoClick = 0)
    Local $hWnd = WinGetHandle($Title, $Text)
    If @Error Then Return SetError(1, 0, 0)
    Switch $NoClick
    Case 0
    WinSetTrans($hWnd, "", $Transparency)
    If @Error Then Return SetError(2, 0, 0)
    Case 1
    _WinAPI_SetWindowLong($hWnd, $GWL_EXSTYLE, BitOR(_WinAPI_GetWindowLong($hWnd, $GWL_EXSTYLE), $WS_EX_TRANSPARENT))
    If @Error Then Return SetError(2, 0, 0)
    WinSetTrans($hWnd, "", $Transparency)
    If @Error Then Return SetError(2, 0, 0)
    Case 2;Restore
    _WinAPI_SetWindowLong($hWnd, $GWL_EXSTYLE, BitAND(_WinAPI_GetWindowLong($hWnd, $GWL_EXSTYLE), BitNOT($WS_EX_TRANSPARENT)))
    If @Error Then Return SetError(2, 0, 0)
    WinSetTrans($hWnd, "", 255)
    If @Error Then Return SetError(2, 0, 0)
    EndSwitch
    Return 1
    EndFunc

    [/autoit]


    So, beim testen ist mir aber aufgefallen das man den Parameter $Transparency nicht mit "Default" ersetzen kann. Jetzt wüsste ich gerne weshalb.

  • Var Call

    Wie wäre es dafür einfach Select zu nehmen? Und wenn du es wirklich brauchst, dann For Schleife mit Eval drin.
    Edit:

    [autoit]

    ;Mit Select:
    Select
    Case $calc1
    MsgBox(0, "Ergebnis", "calc1 ist True")
    Case $calc2
    ;...
    EndSelect
    ;Und mit For:
    For $i = 1 To 3
    If Eval("calc" & $i) Then MsgBox(0, "Ergebnis", "calc" & $i & " ist True")
    Next

    [/autoit]

    So hab ich die Problemstellung aufgefasst

  • countdown hilfe

    So, hab den Code a weng aufgeräumt. :)
    PS: Wie wäre es mit einer UpDown Schaltfläche statt einer Input Control? Und die GUI is a bissl zu klein

    Spoiler anzeigen
    [autoit]

    #include<EditConstants.au3>
    #include<GUIDefaultConstants.au3>
    #include<GUIConstantsEx.au3>
    #region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 116, 82, 194, 125)
    $Input1 = GUICtrlCreateInput("Input1", 0, 0, 97, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_Number))
    $List1 = GUICtrlCreateList("", 0, 56, 97, 19)
    $Button1 = GUICtrlCreateButton("Button1", 8, 32, 73, 17, 0)
    $Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 96, 32, 17, 17)
    GUISetState(@SW_SHOW)
    #endregion ### START Koda GUI section ### Form=
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $Zeit = GUICtrlRead($Input1)
    $Sek_oder_Min = GUICtrlRead($Checkbox1)
    If BitAND(GUICtrlRead($Sek_oder_Min), $GUI_CHECKED) = $GUI_CHECKED Then
    GUICtrlSetData($List1, $Zeit * 60)
    Else
    For $Akt_Zeit = $Zeit To 0 Step -1
    GUICtrlSetData($List1, $Akt_Zeit)
    Sleep(1000)
    Next
    EndIf
    EndSwitch
    WEnd

    [/autoit]

  • Autoit vs. Solaris

    Ja wie gehts denn jetzt? Ich nehme an so:

    [autoit]

    Send("obx SY901M `date '+%Y%m%d'` Y#", 1)
    Send("{Enter}")

    [/autoit]


    Es geht leider nicht "in einem wisch", da sich der Raw-Mode nicht mit {ENTER} verträgt.

  • Array und StringTrimLeft Probleme

    Hallo,
    Ich habe folgendes Script:

    Script
    [autoit]

    #include<Array.au3>
    $String="Hier kann jeder beliebige Satz rein.(Immer ASCII)"
    $ASCII_Stringlaenge = StringLen($String)*3+1;Zwischenschritt, da ich nicht wusste ob man das direkt in die eckigen Klammern packen kann
    ConsoleWrite($ASCII_Stringlaenge& @CRLF);Zum debuggen
    Global $ASCII_Werte[$ASCII_Stringlaenge]
    For $E=1 To UBound($ASCII_Werte)
    $ASCII_Werte[$E] = StringLeft($String, 1)
    StringTrimLeft($String, 1)
    ConsoleWrite("$E:"& $E& " $ASCII_Werte[$E]:"& $ASCII_Werte[$E]& @CRLF);Zum debuggen
    Sleep(600);Zum debuggen
    Next
    _ArrayDisplay($ASCII_Werte)
    While 1
    Sleep(1000)
    WEnd

    [/autoit]


    Bei diesem gehen 2 Sachen nicht: 1. schneidet das StringTrimLeft nix ab, 2. Ich bekomm immer folgende Fehlermeldung:

    Meldung

    C:\Dokumente und Einstellungen\Fabian\Desktop\AutoItDateien\Scripte\Zwischenspeicher.au3 (7) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
    $ASCII_Werte[$E] = StringLeft($String, 1)
    ^ ERROR

  • Msgbox help^^

    Hast du's jetzt oder nicht? Bei einem Edit lässt man normalerweise eine Zeile frei und schreibt dann "Edit:" oder je nach Geschmack auch "//Edit:".
    Zu deiner Frage: Das Programm heißt "AutoIt Window Info Tool" und befindet sich im AutoIt Lieferumfang, die Maus mit AutoIt an einen bestimmten Punkt setzen geht mit MouseMove

  • Ausgabe in CMD mittlerweile möglich ?

    ???
    Meinst du sowas wie: Script1 startet Script2 und schreibt dann per StdinWrite in den Eingabe Stream vom 2.Script, welches das dann z.B. per MsgBox ausgeben soll? Wie das geht hab ich mich auch schon gefragt, habe es aber 1. Noch nicht gebraucht und 2. Vergessen zu fragen :D