Beiträge von L3viathan

  • Tray watcher Script Wer kann Helfen?

    [autoit]

    $drive=InputBox("Start","Laufwerksbuchstaben eingeben","D:")
    HotKeySet("{ESC}","_exit")
    While True
    $status=DriveStatus($drive)
    If $status = "NOTREADY" Then _next()
    sleep(1000)
    WEnd
    Func _next()
    Run("cli.exe");Aufruf des Programms
    Do
    Sleep(1000)
    Until $status <> "NOTREADY"
    EndFunc
    Func _exit()
    Exit
    EndFunc

    [/autoit]

  • Buttons aus Variablen

    Etwa so:?

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("T", 120, 190)
    $Button1 = GUICtrlCreateButton("1", 0, 0, 40, 40, 0)
    $Button2 = GUICtrlCreateButton("2", 40, 0, 40, 40, 0)
    $Button3 = GUICtrlCreateButton("3", 80, 0, 40, 40, 0)
    $Button4 = GUICtrlCreateButton("4", 0, 40, 40, 40, 0)
    $Button5 = GUICtrlCreateButton("5", 40, 40, 40, 40, 0)
    $Button6 = GUICtrlCreateButton("6", 80, 40, 40, 40, 0)
    $Button7 = GUICtrlCreateButton("7", 0, 80, 40, 40, 0)
    $Button8 = GUICtrlCreateButton("8", 40, 80, 40, 40, 0)
    $Button9 = GUICtrlCreateButton("9", 80, 80, 40, 40, 0)
    $Button0 = GUICtrlCreateButton("0", 40, 120, 40, 40, 0)
    $sternbutton = GUICtrlCreateButton("*", 0, 120, 40, 40, 0)
    $rautbutton = GUICtrlCreateButton("#", 80, 120, 40, 40, 0)
    $Input1 = GUICtrlCreateInput("", 5, 165,110,20)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    _add(1)
    Case $Button2
    _add(2)
    Case $Button3
    _add(3)
    Case $Button4
    _add(4)
    Case $Button5
    _add(5)
    Case $Button6
    _add(6)
    Case $Button7
    _add(7)
    Case $Button8
    _add(8)
    Case $Button9
    _add(9)
    Case $Button0
    _add(0)
    Case $sternbutton
    _add("*")
    Case $rautbutton
    _add("#")
    EndSwitch
    WEnd
    Func _add($content)
    GUICtrlSetData($Input1,GUICtrlRead($Input1) & $content)
    EndFunc

    [/autoit]

  • Absoluter einsteiger

    So geht das Aktionen zuordnen:

    Spoiler anzeigen
    [autoit]


    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ListViewConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 633, 447, 293, 126)
    $ListView1 = GUICtrlCreateListView("", 48, 80, 129, 225)
    $Button1 = GUICtrlCreateButton("VNC", 48, 56, 59, 25, $WS_GROUP)
    $Button2 = GUICtrlCreateButton("Liste Laden", 48, 304, 129, 25, $WS_GROUP)
    $Button3 = GUICtrlCreateButton("User aus AD", 48, 328, 131, 25, $WS_GROUP)
    $Button4 = GUICtrlCreateButton("Computer Aus AD", 48, 352, 131, 25, $WS_GROUP)
    $Button5 = GUICtrlCreateButton("Action 1", 112, 56, 67, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    MsgBox(0,"","Aktion1")
    EndSwitch
    WEnd

    [/autoit]

  • Random

    Arghh, progandy, jetzt hab ich mich extra 5 Mins an dieses Skript gesetzt (<1 ms):

    Spoiler anzeigen
    [autoit]


    #include <Array.au3>
    dim $source[20]=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20]
    dim $dest[20]
    $stamp=TimerInit()
    For $i=0 To 19
    $ran=Random(1,Ubound($source)-1,1)
    $dest[$i]=$source[$ran]
    _ArrayDelete($source,$ran)
    Next
    $time=TimerDiff($stamp)
    _ArrayDisplay($dest)
    MsgBox(0,0,$time)

    [/autoit]


    ... und dann postest du sowas früher... :huh:

  • Random

    EDIT: Neu, jetzt getestet:

    [autoit]


    #include <Array.au3>
    Dim $array[20]
    For $i=1 To 20
    Do
    $tempran=Random(1,20,1)
    TrayTip("",$tempran,1)
    Until _ArraySearch($array,$tempran) = -1
    $array[$i-1]=$tempran
    Next
    _ArrayDisplay($array)

    [/autoit]

  • GUICtrlSetData < from ini und run("c:\ti.exe (& n1 &) aber wie ?, bitte um ratschlag

    Zitat von mauric

    Hallo zusammen
    1 ) Hier habe ich ein auswahlmenü erstellt
    GUICtrlSetData(-1, "Laptop Z60m|Laptop Z61m|Laptop Z62m|Laptop Z63m", "leer")
    möchte aber erreichen das die erwähnten Laptops aus einem "Laptopconfig.ini" file kommen würden,
    somit könnte mein geräte zuwachs erweitert werden ohne das ich mein script neu kompilieren müsste.

    2 ) Ich möchte erreichen das wenn zb. "Laptop Z60m" ausgewählt würde dies in eine variable
    geschrieben würde "($n1)" und in ein existierendes externes files geschrieben würde.

    oder wenn möglich wie in meinem demo bespiel das aber nicht korrekt lauft

    run("c:\temp\ti_cons.exe", (& $n1 &) , @SW_MAXIMIZE)

    gerne lege ich hier noch mein bios jetzt erstelltes Skript bei und freue mich auf eure antworten


    Willkommen im Forum!
    Erstmal, bei Skripten immer die [ autoit]-Tags benutzen, bei größeren den [ spoiler].
    Zu 1.)

    [autoit]

    For $i=1 To IniRead("laptops.ini","global","anzahl",1)
    GUICtrlSetData($n1, IniRead("laptops.ini","laptops",$i, "")
    Next

    [/autoit]


    Zu 2.)

    [autoit]


    Switch GUIGetMsg()
    Case $n2
    MsgBox(0, "Ausgewähltes Image .. ", GUICtrlRead($n1)) ; anzeige gewähltes Image
    If GUICtrlRead($n1) <> "" Then Run("C:\Temp\ti_cons.exe " & GUICtrlRead($n1));ausführen
    IniWrite("laptops.ini","global","aktuell",GUICtrlRead($n1));oder in die Ini-Datei schreiben
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch

    [/autoit]