Beiträge von Oscar

  • Funktionstest: _MonitorToggle !

    Mit Errorhandling, lokalen Variablen und so, dass es auch richtig funktioniert ;) :

    [autoit]


    MonitorToggle(0)
    Sleep(3000)
    MonitorToggle(1)

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

    Func MonitorToggle($Off = 1)
    If $Off < 0 Or $Off > 1 Then Return SetError(1, 0, 0)
    Local Const $WM_SYSCOMMAND = 274
    Local Const $SC_MONITORPOWER = 61808
    Local $Opt = Opt("WinTitleMatchMode", 4)
    Local $hWnd = WinGetHandle("classname=Progman")
    Opt("WinTitleMatchMode", $Opt)
    DllCall("user32.dll", "lresult", "SendMessageW", "hwnd", $hWnd, "uint", _
    $WM_SYSCOMMAND, "wparam", $SC_MONITORPOWER, "lparam", 2 - 3 * $Off)
    EndFunc ;==>MonitorToggle

    [/autoit]

  • Stoppuhr - Verbesserungsvorschläge

    Die Convert-Funktion würde ich lieber so schreiben:

    [autoit]


    Func _NewTicksToTime($iTicks)
    Local $iHours, $iMins, $iSecs = Int($iTicks / 1000), $iMSecs = $iTicks - $iSecs * 1000
    $iHours = Int($iSecs / 3600)
    $iSecs = Mod($iSecs, 3600)
    $iMins = Int($iSecs / 60)
    $iSecs = Mod($iSecs, 60)
    Return StringFormat('%02i:%02i:%02i.%03i', $iHours, $iMins, $iSecs, $iMSecs)
    EndFunc ;==>_NewTicksToTime

    [/autoit]


    Ist aber letztendlich der eigene Programmierstil.

  • Internetzensur - Nein Danke

    Mir fällt dazu eher der Roman von George Orwell (1984) ein. ;(

    Diese ganze Regierung ist in meinen Augen völlig unfähig. Die regiert auf der Basis von "Operative Hektik ersetzt geistige Windstille". Hauptsache wir stehen mit unseren Gesetzesentwürfen in der Blödzeitung, dann wird der geBILDete Leser schon glauben, dass wir etwas unternehmen. Und dass sich das jetzt auch noch auf die EU-Gesetzgebung ausweitet, läßt mich schon fast verzweifeln. :pinch:

  • Download pausieren, neustarten, weiterladen

    Du hast jetzt bereits fünf mal "Schreibt mir mal das Skript" gepostet. Sowas stösst bei den meisten Usern nicht gerade auf Gegenliebe (führt oft dazu, dass Du ignoriert wirst).
    Wie wäre es, wenn Du stattdessen mal etwas Eigeninitiative zeigst und selbst ein Skript schreibst, um das Problem zu lösen?
    Wenn Du dabei nicht weiterkommst, kannst Du Deinen Versuch hier posten und evtl. wird sich dann jemand finden, der Dir weiterhelfen kann.

  • _INetGetSource?

    Weil bplaced irgendwas gegen AutoIt hat! ?(
    So geht's:

    [autoit]


    #include <INet.au3>
    HttpSetUserAgent('blabla')
    $test=_INetGetSource("http://ineluki.bplaced.net/version.html")
    MsgBox(0, "", $test)

    [/autoit]

  • HTML-Code wird in eine Zeile geqwetscht

    Bei HTML spielt es keine Rolle, ob der Quellcode in einer Zeile steht oder ob Du da noch Zeilenumbrüche einfügst (naja, kommt darauf an wo, aber prinzipiell).

    Ich habe für Peethebee bereits eine Lösung für das auslesen der Kicktipp-Tabelle geschrieben (ganze ohne Includes und Tempfiles):

    [autoit]


    $sSite = BinaryToString(InetRead('http://www.kicktipp.de/autoit/gesamtuebersicht', 1), 4)
    $sTable = StringRegExpReplace($sSite, '(?s).+(<tbody>.+?</tbody></table>).+', '<table>$1')
    $sTable = StringRegExpReplace($sTable, '<td class="pkt">.+?</td><td class="gesamt">', '<td class="gesamt">')
    ClipPut($sTable)

    [/autoit]


    Nicht, dass ihr euch noch unnötig weiter abmüht. ;)

  • Autostart Control mit RegRead HILFE?!

    Also erstmal: Es gibt mehrere Stellen in der Registry, in der man einen Autostart unterbringen kann. Außerdem gibt es auch noch @StartupDir, in das man das Programm bzw. den Link kopieren kann, um es automatisch starten zu lassen.
    Um alle die wichtigsten Stellen "abzugrasen" habe ich mal ein kleines Skript erstellt:

    Spoiler anzeigen
    [autoit]


    #include <Array.au3>
    #include <File.au3>
    Global $aAutostart[1][3]
    _AddAutostartKeyToArray($aAutostart, 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run')
    _AddAutostartKeyToArray($aAutostart, 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce')
    _AddAutostartKeyToArray($aAutostart, 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices')
    _AddAutostartKeyToArray($aAutostart, 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce')
    _AddAutostartKeyToArray($aAutostart, 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run')
    _AddAutostartKeyToArray($aAutostart, 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RunOnce')
    _AddAutostartKeyToArray($aAutostart, 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RunServices')
    _AddAutostartKeyToArray($aAutostart, 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce')
    $aStartupFiles = _FileListToArray(@StartupDir, '*', 1)
    If IsArray($aStartupFiles) Then
    For $i = 1 To $aStartupFiles[0]
    $aAutostart[UBound($aAutostart) - 1][0] = @StartupDir
    $aAutostart[UBound($aAutostart) - 1][1] = $aStartupFiles[$i]
    $aAutostart[UBound($aAutostart) - 1][2] = $aStartupFiles[$i]
    If StringRight($aStartupFiles[$i], 3) = 'lnk' Then
    $aShortcut = FileGetShortcut(@StartupDir & '\' & $aStartupFiles[$i])
    If Not @error Then $aAutostart[UBound($aAutostart) - 1][2] = $aShortcut[0]
    EndIf
    ReDim $aAutostart[UBound($aAutostart) + 1][3]
    Next
    EndIf
    ReDim $aAutostart[UBound($aAutostart) - 1][3]
    _ArrayDisplay($aAutostart)

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

    Func _AddAutostartKeyToArray(ByRef $aAutostart, $sRegKey)
    Local $iInstance = 1, $sValName
    Do
    $sValName = RegEnumVal($sRegKey, $iInstance)
    If Not @error Then
    $aAutostart[UBound($aAutostart) - 1][0] = $sRegKey
    $aAutostart[UBound($aAutostart) - 1][1] = $sValName
    $aAutostart[UBound($aAutostart) - 1][2] = RegRead($sRegKey, $sValName)
    ReDim $aAutostart[UBound($aAutostart) + 1][3]
    EndIf
    $iInstance += 1
    Until $sValName = ''
    EndFunc

    [/autoit]

    Edit: AspirinJunkie hat mir gerade einen Link geschickt zu den weiteren Möglichkeiten eines Autostarts. Mein Skript zeigt also nur einen Bruchteil der Möglichkeiten. :rolleyes:
    Danke an AspirinJunkie! :thumbup: