Beiträge von Oscar

  • Einzeiliger Script funktioniert nicht >.<

    Not kann auch bei Stringvergleichen einen Sinn ergeben. Nämlich dann, wenn man zusätzlich auf Groß-/Kleinschreibung testen will.
    Der Fehler, der dabei aber oft gemacht wird, liegt darin, dass Not eine höhere Priorität gegenüber dem Gleichheitszeichen besitzt und somit zuerst interpretiert wird.
    Um das zu umgehen, muss man den Ausdruck in Klammern setzen:

    [autoit]

    If Not (@ScriptDir == @StartupDir) Then MsgBox(0,0,'')

    [/autoit]


    Für einfache Vergleiche (ohne Groß-/Kleinschreibung) würde ich aber ebenfalls das "<>" verwenden:

    [autoit]

    If @ScriptDir <> @StartupDir Then MsgBox(0,0,'')

    [/autoit]

    Edit:  @Ubuntu: Du solltest @StartupDir benutzen. Das funktioniert bei jedem Windows.

  • Zeichen aus String

    Entweder so:

    [autoit]


    $string = "C:\Programme\Programm\test.exe"
    $string = StringMid($string, StringInStr($string, "\", 0, -1) + 1)
    MsgBox(0, 0, $string)

    [/autoit]


    oder mit StringRegExp:

    [autoit]


    $string = "C:\Programme\Programm\test.exe"
    $string = StringRegExpReplace($string, '.+\\(.+)', '$1')
    MsgBox(0, 0, $string)

    [/autoit]

  • _FTP_ geht nicht

    Wenn man die richtigen Parameter einträgt, dann funktioniert es auch. ;)

    Spoiler anzeigen
    [autoit]


    #include <FTPEx.au3>
    $OpenFTP = _FTP_Open("FTP")
    Local $Connect = _FTP_Connect($OpenFTP, "fctcl.fc.funpic.de", "fctcl", "mate4ever", "", 21)
    ConsoleWrite('Fehlernr.: ' & @error & @CR)
    FileWrite(@ScriptDir & "\File.txt", "abc")
    _FTP_FilePut($Connect, @ScriptDir & "\File.txt", "File.txt")
    ConsoleWrite('Fehlernr.: ' & @error & @CR)
    _FTP_Close($OpenFTP)

    [/autoit]

  • Tcp-chat ohne server -- Probleme bei den Ports

    Es gibt keine Ports, die "auf jeden Fall" freigeschaltet sind (und das ist auch gut so).
    Der "Server" muss bei seinem Router eine Port-Weiterleitung einrichten auf seine lokale IP-Adresse.

    Bitte statt den Quellcode-Button auf den AutoIt-Button klicken. Und bei längeren Skripts zusätzlich einen Spoiler benutzen.

  • falls process existiert cmdline weitergeben

    Ich hatte das bei meinem Starplayer mit einem Edit-Control gelöst:

    Spoiler anzeigen
    [autoit]


    Global $sTitle = 'Starplayer v2.7.3'
    Global $iSelfPID = _WinAPI_GetCurrentProcessID()
    Global $aProcessList = ProcessList('Starplayer.exe')
    If $aProcessList[0][0] > 1 Then
    If $iSelfPID <> $aProcessList[1][1] Then WinWait($sTitle)
    EndIf
    If WinExists($sTitle) Then ; If Starplayer exists, then send Commandline to 1st instance.
    If $CmdLine[0] > 0 Then
    For $i = 1 To $CmdLine[0]
    If FileExists($CmdLine[$i]) Then
    Switch StringRight($CmdLine[$i], 4)
    Case '.mp3', '.m3u'
    ControlCommand($sTitle, '', '[CLASS:Edit; INSTANCE:3]', 'EditPaste', $CmdLine[$i] & @CRLF)
    EndSwitch
    EndIf
    Next
    EndIf
    Exit ; Only one instance. Exit the 2nd.
    EndIf

    [/autoit]

  • Desktopsperre per USB-Stick

    Upps, das Programm wurde ja schon 157 mal gedownloadet. Wusste gar nicht, dass das so viele gebrauchen können. :rolleyes:
    Habe das Programm selbst noch nicht unter Win7 getestet. Das werde ich aber mal nachholen (besitze ja mittlerweile Win7 64 Bit) und sehen, was sich da noch verbessern lässt.

  • .pls Sound Datei in Autoit öffnen

    Bei dem Format kann man zum auslesen IniRead benutzen:

    Spoiler anzeigen
    [autoit]


    #include <Array.au3>
    $sInifile = @ScriptDir & '\listen-dsl.pls'

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

    $iCount = IniRead($sInifile, 'playlist', 'NumberOfEntries', 0)
    If $iCount = 0 Then Exit
    Dim $aFiles[$iCount][3]
    For $i = 1 To $iCount
    $aFiles[$i-1][0] = IniRead($sInifile, 'playlist', 'File' & $i, '')
    $aFiles[$i-1][1] = IniRead($sInifile, 'playlist', 'Title' & $i, '')
    $aFiles[$i-1][2] = IniRead($sInifile, 'playlist', 'Length' & $i, '')
    Next
    _ArrayDisplay($aFiles)

    [/autoit]