Endless Screen 2.0

    Wiedermal ein kleines Tool~
    Auch wieder mit GUI als Startbildschirm.
    (Das Bild "Preview.jpg" muss im gleichen Ordner sein wie die .exe - noch keinen weg gefunden das bild in die exe einzubinden q.q)

    Das original Script kommt von ihrgend einer englischen AutoIt site,
    hab den namen vergessen xD

    War aber noch leicht verbuggt bei größeren auflösungen etc
    also hier mal das fertige, bug freie~


    ;---------------------------------------------------------------------------—
    ; Endless Screen
    ; By Sen // Christopher Klay
    ; Last Update - Mittwoch, 29 April 2009
    ;---------------------------------------------------------------------------—
    ; Version - V 2.0 (GUI Version)
    ;---------------------------------------------------------------------------—
    ; Beschreibung:
    ; Verlässt der Mauszeiger den Desktop
    ; erscheint er wieder auf der anderen Seite
    ;---------------------------------------------------------------------------—-
    ; Download: http://www.box.net/shared/f6cijjoo2u (Endlich überwunden es zu uppen lol)
    ;---------------------------------------------------------------------------—-
    ; Source: autoit.de/wcf/attachment/4597/
    ;---------------------------------------------------------------------------—-

    Kommentare oder verbesserungs vorschläge sind wie
    immer gern gesehen.

    Nix großes, aber trotzdem nützlich ^^

    Hab auch noch ne Version in der Schublade liegen:

    Hab ich mal i.wann gemacht...

    Spoiler anzeigen
    [autoit]

    HotKeySet ("^!{c}", "_Start")
    HotKeySet ("^!{p}", "_Pause")
    HotKeySet ("{ESC}", "_Ende")
    ; ---
    _Pause ()
    ; ---
    Func _Start ()
    TrayTip ("Das Programm ist gestartet.", "Pause mit Strg+Alt+P" & @CRLF & "Beenden mit ESC", 10)
    While 1
    $Pos = MouseGetPos ()
    If $Pos[0] > @DesktopWidth -2 Then
    MouseMove (3, $Pos[1], 0)
    EndIf
    ; ---
    If $Pos[0] < @DesktopWidth - @DesktopWidth +2 Then
    MouseMove (@DesktopWidth -3, $Pos[1], 0)
    EndIf
    ; ---
    If $Pos[1] < 2 Then
    MouseMove ($Pos[0], @DesktopHeight -3, 0)
    EndIf
    ; ---
    If $Pos[1] > @DesktopHeight -2 Then
    MouseMove ($Pos[0], 3, 0)
    EndIf
    WEnd
    EndFunc ;==> _Start
    ; ---
    Func _Pause ()
    TrayTip ("Das Programm ist pausiert.", "Start mit Strg+Alt+C" & @CRLF & "Beenden mit ESC", 10)
    While 1
    Sleep (100)
    WEnd
    EndFunc ;==> _Pause
    ; ---
    Func _Ende ()
    $Msg = MsgBox (4+32, "Beenden", "Wollen Sie das Programm wirklich beenden?")
    If $Msg = 6 Then
    Exit
    Else
    _Pause ()
    EndIf
    EndFunc ;==> _Ende

    [/autoit]

    PS: Für was steht das "nerd" in deinem Avatar? ^^

    Einmal editiert, zuletzt von Commander21 (30. April 2009 um 11:45)

    lol, is doch net schlimm, jeder bekommt von jedem nen Spizname. Wenns dir garnich passt, dann red mit deinen Freunden, wenn das gute freunde sind, höhren sie danach auf ^^

    Zitat von Sen

    Der Avatar is aus langeweile entstanden,
    meine Freunde nennen mich 90% der Zeit so

    Wie nenen sie IDCH?

    "Binäry-Man", von Binärsystem abgeleitet?
    Oder "425", da die 4 Binärwerte zusammen 425 ergeben?

    Verstehe ich gerade nicht.

    Lieben Gruß,
    Alina

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Geheime Information: ;)
    k3mrwmIBHejryPvylQSFieDF5f3VOnk6iLAVBGVhKQegrFuWr3iraNIblLweSW4WgqI0SrRbS7U5jI3sn50R4a15Cthu1bEr

    Zitat von Alina

    Wie nenen sie IDCH?

    "Binäry-Man", von Binärsystem abgeleitet?
    Oder "425", da die 4 Binärwerte zusammen 425 ergeben?

    Verstehe ich gerade nicht.


    01101110011001010111001001100100
    -> Binärdarstellung von nerd

    Alina, jag den Binärcode mal durch nen übersetzer.

    n = 01101110
    e = 01100101
    r = 01110010
    d = 01100100

    Ein Buchstabe bzw. Zeichen bestehtn aus Zeichen, die sich aus 0 und 1 zusammensetzt.
    In dem Ava-Bilde gibt es 4 Zeilen, also 4 Zeichen = nerd ^^

    Will demnächst auch mal nen Binärcode-übersetzer scripten. is nich so schwer...

    Naja, da bin ich nicht drauf gekommen, das es ein Name ist.
    Aber danke das IHR BEIDE noch eine Frau wie mich aufklärt. :rofl:

    Lieben Gruß,
    Alina

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Geheime Information: ;)
    k3mrwmIBHejryPvylQSFieDF5f3VOnk6iLAVBGVhKQegrFuWr3iraNIblLweSW4WgqI0SrRbS7U5jI3sn50R4a15Cthu1bEr

    Der Script ist cool. gefällt mir.

    Zum packen des Bildes in die exe: Das geht mit FileInstall(Quelldatei, Zieldatei)

    Probiers aus ;)

    Gruß
    JnK

    Zitat von Sen


    (Das Bild "Preview.jpg" muss im gleichen Ordner sein wie die .exe - noch keinen weg gefunden das bild in die exe einzubinden q.q)


    schau dir mal das hier an

    [autoit]

    FileInstall

    [/autoit]


    grafik mit in die exe kopieren, mit ner systemvariable einfach in den temp lagern und von dort aus aufrufen

    Zitat von achim89

    grafik mit in die exe kopieren, mit ner systemvariable einfach in den temp lagern und von dort aus aufrufen

    und bei Programmende in @TempDir auch wieder löschen ! Temp <> "Mülleimer" :D

    Es ist eine Unsitte dort alles liegen zu lassen. Gerade bei Servergespeicherten Profilen im Firmennetz, kann dies schnell zu längeren Wartezeiten führen.

    Zur Nutzung dieses Forum's, ist ein Übersetzer für folgende Begriffe unerlässlich:

    "On-Bort, weier, verscheiden, schädliges, Butten steyling, näckstet, Parr, Porblem, scripe, Kompletenz, harken, manuel zu extramieren, geckukt, würglich, excell, acces oder Compilevorgeng"

    [autoit]

    #NoTrayIcon
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Outfile=self.exe
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    ;---------------------------------------------------------------------------—
    ; Endless Screen
    ; By Sen // Christopher Klay
    ; Last Update - Mittwoch, 29 April 2009
    ;---------------------------------------------------------------------------—
    ; Version - V 2.0 (GUI Version)
    ;---------------------------------------------------------------------------—
    ; Beschreibung:
    ; Verlässt der Mauszeiger den Desktop
    ; erscheint er wieder auf der anderen Seite
    ;---------------------------------------------------------------------------—-

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

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    Dim $mpos[4242][2]
    HotKeySet("^k", "Terminate")
    $Form1 = GUICreate("Endless Screen", 481, 251, 517, 370)
    $Label1 = GUICtrlCreateLabel("Endless Screen", 0, 0, 477, 29, $SS_CENTER)
    GUICtrlSetFont(-1, 12, 800, 0, "Verdana")
    $Pic1 = GUICtrlCreatePic("Preview.jpg", 8, 40, 150, 150, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
    $Label2 = GUICtrlCreateLabel(" Endless Screen ist ein kleines Tool das bewirkt das der Mauszeiger automatisch die Seite des Bildschirmes wechselt, wenn er diese berührt. Verlassen sie z.b. den Bildschirm auf der unteren Seiten wie auf der Abbildung links, findet sich der Mauszeiger auf der oberen Seite des Bildschirmes wieder. Das Programm lässt sich jederzeit mit dem Tastenkürzel Strg+K beenden.", 160, 40, 313, 150)
    $Button1 = GUICtrlCreateButton("Starten", 344, 208, 129, 33, $WS_GROUP)
    $Label3 = GUICtrlCreateLabel("© by Christopher Klay", 8, 224, 139, 20)
    FileInstall("Preview.jpg", @TempDir & "/Preview.jpg")
    GUISetState(@SW_SHOW)
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    GUISetState(@SW_HIDE)
    While 2
    Sleep(20)
    $width = @DesktopWidth
    $height = @DesktopHeight
    $mpos = MouseGetPos()
    If $mpos[0] = ($width - 1) Then
    MouseMove(1, $mpos[1], 0)
    Sleep(200)
    EndIf
    If $mpos[1] = ($height - 1) Then
    MouseMove($mpos[0], 1, 0)
    Sleep(200)
    EndIf
    If $mpos[0] = 0 Then
    MouseMove(($width - 1), $mpos[1], 0)
    Sleep(200)
    EndIf
    If $mpos[1] = 0 Then
    MouseMove($mpos[0], ($height - 1), 0)
    Sleep(200)
    EndIf
    WEnd
    EndSwitch
    WEnd
    Func Terminate()
    FileDelete(@TempDir & "/Preview.jpg")
    Exit 0
    EndFunc ;==>Terminate

    [/autoit]


    So gefällt es mir besser, weniger CPU Belastung. Hotkeys vielleicht noch für Pause und Start. Mit FileInstall. Gute Idee, werde ich wahrscheinlich im Autostart behalten.