Beiträge von Buphx

  • Variabel bei GUI

    Ich hätte dass so gemacht:

    Spoiler anzeigen
    [autoit]

    #include <GuiConstantsEx.au3>
    #include <FF.au3>
    Opt('MustDeclareVars', 0)
    $gzeit1 = "10 Minuten"
    $gzeit2 = "20 Minuten"
    $gzeit3 = "30 Minuten"
    $fzeit1 = "1 Stunde"
    $fzeit2 = "2 Stunden"
    $fzeit3 = "3 Stunden"
    $fzeit4 = "4 Stunden"
    $fzeit5 = "5 Stunden"
    $fzeit6 = "6 Stunden"
    $fzeit7 = "7 Stunden"
    $fzeit8 = "8 Stunden"
    GUICreate("GUIÜbung",400,400)
    GUICtrlCreateLabel("label1",10,10)
    GuiCtrlCreateInput("Inputbox1",10,30,100)
    GuiCtrlCreateInput("Inputbox2",10,50,100)
    GuiCtrlCreateLabel("Button",10,80)
    $aus = GUICtrlCreateRadio("Aus",10,100,65)
    $func1 = GUICtrlCreateRadio("Funktion1",10,120,65)
    $fzeit = GUICtrlCreateCombo ("", 75, 120, 80)
    GUICtrlSetData(-1, $fzeit1, $fzeit1)
    GUICtrlSetData(-1, $fzeit2, $fzeit1)
    GUICtrlSetData(-1, $fzeit3, $fzeit1)
    GUICtrlSetData(-1, $fzeit4, $fzeit1)
    GUICtrlSetData(-1, $fzeit5, $fzeit1)
    GUICtrlSetData(-1, $fzeit6, $fzeit1)
    GUICtrlSetData(-1, $fzeit7, $fzeit1)
    GUICtrlSetData(-1, $fzeit8, $fzeit1)
    $func2 = GUICtrlCreateRadio("funktion2",10,140)
    $func3 = GUICtrlCreateRadio("funktion3",10,160)
    $gzeit = GUICtrlCreateCombo ("",75, 160, 80)
    GUICtrlSetData(-1, $gzeit1, $gzeit1)
    GUICtrlSetData(-1, $gzeit2, $gzeit1)
    GUICtrlSetData(-1, $gzeit3, $gzeit1)
    $button1 = GUICtrlCreateButton("Abfrage",10,180)
    GUISetState(@SW_SHOW)
    while 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $aus
    aus ()
    Case $func1
    funktion1 ()
    Case $func2
    funktion2 ()
    Case $func3
    funktion3 ()
    Case $buttton1
    _Abfrage()
    EndSwitch
    WEnd

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

    func aus()
    Sleep(100)
    TrayTip("Pause", "The testgui is paused",0)
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $aus
    aus ()
    Case $func1
    funktion1 ()
    Case $func2
    funktion2 ()
    Case $func2
    funktion3 ()
    EndSwitch
    EndFunc

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

    func _Abfrage()
    Traytip("","",1)
    $read = GUICtrlRead($fzeit)
    If $read = "1 Stunde" then
    MsgBox(0,"",$read)
    ElseIf $read = "2 Stunden" then
    MsgBox(0,"",$read)
    ;...
    Endif
    EndFunc

    [/autoit]

  • Eine Function per Mauseklick starten ?

    Ich brauche ein Script wo eine bestimmte taste gedrückt wird wenn ich einen Mausklick mache.
    aber der mouseclick trotz dem an das programm gesendet wird wo sich der Courser findet.
    z.B

    [autoit]

    Hotkeyset ( Mausklick , "Taste") ; geht eh nicht da der Mausklick abgefangen wird und Mausclick keine Taste ist.
    _ispressed ; weis ich net wie ...

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

    Func Taste ()
    Send("E")
    Endfunc

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

    dake im voraus

  • Text auslesen dann nach jedem 7.Buchstaben trennen. und den code zurck in Buchstaben Vewandeln.

    DAs ist mein Code biss jezt dass nur noch für jeden [1],[2]...... :thumbup:

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>
    $sString = "0001001111111101010100000111"
    Dim $aArray[StringLen($sString)/7]
    for $i = 1 to StringLen($sString)/7
    $aArray[$i-1] = StringLeft($sString, 7)
    $sString = StringTrimLeft($sString, 7)
    Next

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

    If $aArray[0] = 000001 then
    MsgBox(0,"","A")
    ElseIf $aArray[0] = 0000010 then
    MsgBox(0,"","B")
    ElseIf $aArray[0] = 0000011 then
    MsgBox(0,"","C")
    ElseIf $aArray[0] = 0000100 then
    MsgBox(0,"","D")
    ElseIf $aArray[0] = 0000101 then
    MsgBox(0,"","E")
    ElseIf $aArray[0] = 0000110 then
    MsgBox(0,"","E")
    ElseIf $aArray[0] = 0000111 then
    MsgBox(0,"","G")
    ElseIf $aArray[0] = 0001000 then
    MsgBox(0,"","H")
    ElseIf $aArray[0] = 0001001 then
    MsgBox(0,"","I")
    ElseIf $aArray[0] = 0001010 then
    MsgBox(0,"","J")
    ElseIf $aArray[0] = 0001011 then
    MsgBox(0,"","K")
    ElseIf $aArray[0] = 0001100 then
    MsgBox(0,"","L")
    ElseIf $aArray[0] = 0001101 then
    MsgBox(0,"","M")
    ElseIf $aArray[0] = 0001110 then
    MsgBox(0,"","N")
    ElseIf $aArray[0] = 0001111 then
    MsgBox(0,"","O")
    ElseIf $aArray[0] = 0010000 then
    MsgBox(0,"","P")
    ElseIf $aArray[0] = 0010001 then
    MsgBox(0,"","Q")
    ElseIf $aArray[0] = 0010010 then
    MsgBox(0,"","R")
    ElseIf $aArray[0] = 0010011 then
    MsgBox(0,"","S")
    ElseIf $aArray[0] = 0010100 then
    MsgBox(0,"","T")
    ElseIf $aArray[0] = 0010101 then
    MsgBox(0,"","U")
    ElseIf $aArray[0] = 0010110 then
    MsgBox(0,"","V")
    ElseIf $aArray[0] = 0010111 then
    MsgBox(0,"","W")
    ElseIf $aArray[0] = 0011000 then
    MsgBox(0,"","X")
    ElseIf $aArray[0] = 0011000 then
    MsgBox(0,"","Y")
    ElseIf $aArray[0] = 0011000 then
    MsgBox(0,"","Z")
    EndIf
    _ArrayDisplay($aArray)

    [/autoit]

  • Text auslesen dann nach jedem 7.Buchstaben trennen. und den code zurck in Buchstaben Vewandeln.

    das hat schon mal functioniert aber ich möchtenicht immer alles in das Autoit script rein Kopieren muüssen was ich entschlüsseln will kann man das nicht mit

    Code
    _filereadtoarray("Verschlüsselt.txt" $sString)

    als variable speichern?

    Außer dem kommt bei mir dieser error:

    Code
    F:\Downloads\_Vessler.au3 (12) : ==> Subscript used with non-Array variable.:
If $aArray[$i] = 0000001 Then $aArray = "A"
If $aArray^ ERROR
>Exit code: 1	Time: 0.208

  • Text auslesen dann nach jedem 7.Buchstaben trennen. und den code zurck in Buchstaben Vewandeln.

    Sry Script ist auf schul pC Komme da nich ran kann erst morgen wieder Posten
    Also noch mal genauer
    Jeder Buchstabe wird in 0en und 1sen aufgeteilt. Für jeden Buchstaben einen 7stelligen Code.
    A = 000000
    B = 000001
    C = 000010
    D = 000011
    ... = ...

    So wie kann ich nun was Programieren das eine Text datei in der nur 0en + 1sen sind ausgelesenwird und mir alles wieder entschlüsselt wird.

  • Text auslesen dann nach jedem 7.Buchstaben trennen. und den code zurck in Buchstaben Vewandeln.

    Ich habe mit Hotkeyset jeder Taste eine Function zugewiesen Z.B. Taste A = Send(0000000) ,B = Send 000001 usw.
    das verschlüsselt den text.

    ich bekomme es aber nicht hin, den code wieder umzuwandeln.
    Ich muss die Datei auslesen nach jedem 7. trennen und dann so mit if i-wie den code endschlüsseln,

    Währe net wenn ihr mir helfen könntet

    mfg
    Buphx

    Spoiler anzeigen