Beiträge von i2c

  • Send befehl

    ???
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 245, 52, 640, 375)
    $Input1 = GUICtrlCreateInput("", 8, 16, 121, 21)
    $Button1 = GUICtrlCreateButton("Button1", 144, 16, 75, 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
    GUICtrlSetData($Input1, @HOUR & ":" & @MIN & ":" & @SEC)
    EndSwitch
    WEnd

    [/autoit]

  • fahrstunden planer

    Ich würde damit anfangen die Listview Elemente dynamisch zu erstellen. Mit InireadSection die gesammte Sektion in ein Array auslesen und dann in einer For-Schleife die Elemente erstellen. Damit wärst du schonmal diese statische Begrenzung los.

    Ungetestet aber ungefähr so könnte das gehen ...

    [autoit]

    $array = IniReadSection(@ScriptDir & "\text.ini", "Section1")
    for $i = 0 To $array[0][0]
    GUICtrlCreateListViewItem($array[$i][1], $listview)
    Next

    [/autoit]

    ich mang keine Listviews :)

  • Wie kann ich ein Programmpfad auslesen und dann ein Programm mit diesem Pfad öffnen

    [autoit]

    $pfad = FileOpenDialog("Pfad", @ProgramsDir & "\", "Alle(*.*)", 3) ; Dateidialog öffnen

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

    If @error Then ;wenn Fehler - dann Info
    MsgBox(4096, "", "Keine Datei ausgewählt")
    Else ;ansonsten
    IniWrite(@ScriptDir & "\pfad.ini", "pfad", "erster_pfad", $pfad) ;.ini im Skriptverzeichnis öffnen und in Sektion "pfad", Key "erster_Pfad" die Rückgabe von FileOpenDialog speichern
    MsgBox(0, "", "Der Pfad " & $pfad & " wurde in " & @ScriptDir & "\pfad.ini gespeichert")
    EndIf

    [/autoit]

    Einfach mal ausführen, erklärt sich von selbst. Ausgelesen wird mit IniRead(). Schau einfach mal in die Hilfe. Ist keine grosse Sache.

  • Datenaustausch zwischen Scripten

    Du kannst das Skript auf deinem Stick per ShellExecute() mit den gewünschten Parametern staren.
    Die Parameter wertest du dann mit diesen Funktionen aus.

    Spoiler anzeigen
    [autoit]

    Func _GetCmdLine($aArgument, $bArgument = '', $CmdDelim = "/")
    Local $RetCmd = _GetMidleString($CmdLineRaw, $aArgument, ' ')
    If $RetCmd = '' Then $RetCmd = _GetMidleString($CmdLineRaw, $aArgument, ' ' & $CmdDelim)
    If $RetCmd = '' Then $RetCmd = _GetMidleString($CmdLineRaw, $aArgument, '$')
    If $RetCmd = '' Then $RetCmd = _GetMidleString($CmdLineRaw, $aArgument, $bArgument)
    Return StringStripWS($RetCmd, 3)
    EndFunc ;==>_GetCmdLine

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

    Func _GetMidleString($sString, $sStart, $sEnd, $iCase = -1, $iRetType = 0)
    Local $iCaseSence = ''
    If $iCase = -1 Then $iCaseSence = '(?i)'

    Local $aArray = StringRegExp($sString, '(?s)' & $iCaseSence & $sStart & '(.*?)' & $sEnd, 3)
    Local $IsArrayCheck = IsArray($aArray)

    If $IsArrayCheck And $iRetType = 1 Then Return $aArray
    If $IsArrayCheck And $iRetType = 2 Then
    Local $iUbound = UBound($aArray)
    If Not StringInStr($aArray[$iUbound - 1], "Next") Then Return $aArray[$iUbound - 1]
    If ($iUbound - 2) >= 0 Then Return $aArray[$iUbound - 2]
    Return $aArray[$iUbound - 1]
    EndIf

    If $IsArrayCheck Then Return $aArray[0]
    Return SetError(1, 0, "")
    EndFunc ;==>_GetMidleString

    [/autoit]


    Quelle unbekannt.

  • "Ziel" einer Verknüpfung editieren???

    [autoit]

    FileCreateShortcut ( "file", "lnk" [, "workdir" [, "args" [, "desc" [, "icon" [, "hotkey" [, icon number [, state]]]]]]] )

    [/autoit]

    args = [optional] Zusätzliche Dateiargumente.

    [autoit]

    FileCreateShortcut($explorerpfad, @DesktopDir & "\Shortcut Test.lnk", $ausfuehren, "+restart")

    [/autoit]

  • Eure Meinung zu BOTS

    Zitat von Jonathan

    Also als ich mit AutoIT angefangen habe (15) oder DjBlume (13 oder 14) waren wir demnach auchnoch ScriptKiddies :rofl:

    Dann solltest du dich nicht angesprochen fühlen. Als Script Kiddie bezeichnet man der Definition nach nicht einen jungen, unerfahrenen Programmierer sondern vielmehr jemanden der Skripte Anderer einsetzt weil er selbst nicht in der Lage ist sie zu schreiben. Grund - fehlende Lernbereitschaft.

  • Eure Meinung zu BOTS

    Zitat von Sprenger120

    S***** Bots wer nicht zocken kann der solls lassen.

    Zitat von JuraX

    bots sind schwachsinnig spiele sin da um zu unterhalten wer ein bot hat macht aber nichts das verfehlt den sinn der spiele...


    Volle Zustimmung. Ausserdem ist dieses Argument mit den Arbeitslosen nicht nur unsinnig sondern auch mehr als geschmacklos. Hoffentlich kommst du nie in diese Situation.

  • ini

    Bin heut etwas neben der Spur und blick das auch nicht wirklich ....
    Du willst doch nur einen Pfad in die INI schreiben, oder? Wozu diese While Schleife? Selbst wenn da mehrere Pfade eingetragen werden sollen erscheint mir der Ansatz etwas merkwürdig.

    einen einzigen Pfad kannst du doch so einfügen ....

    [autoit]

    $wertePfadeAusINI = IniReadSection($aktPfad & "\" & $sSettingsName, $pfadangaben)
    IniWrite ($sSettingsName, "Pfade", "profil" & UBound($wertePfadeAusINI), $Phat) ;$wertePfadeAusINI)+1 dürfte nicht nötig sein da in $result[0][0] lediglich die Länge des Arrays steht.

    [/autoit]


    (ob du die Länge per UBound() ermittelst oder aus $array[0][0] liest musst du wissen. Ich benutz lieber UBound)

    Wenn es mehrere Pfade sein sollen, ermittle die Anzahl der einzutragenden Pfade und bau eine For Schleife drumrum. For $i=0 To $anzahlpfade -1 .... .

  • ini

    kleines Beispiel ...

    [autoit]

    $array = IniReadSection(@ScriptDir & "\test.ini", "pfade")
    iniwrite(@scriptdir & "\test.ini", "pfade", "profil" & UBound($array)+1, "d:\bluber")

    [/autoit]