Bildschirmschoner mit PB

Für allgemeine Fragen zur Programmierung mit PureBasic.
Antworten
Benutzeravatar
PBZecke
Beiträge: 399
Registriert: 02.09.2004 17:34

Beitrag von PBZecke »

Das Previewwindow kann man auch leicht machen. Wenn der Parameter p an
den eigenen Bildschirmschoner geschickt wird, schickt Windows als zweiten
Parameter das Windowhandle des kleinen Preview-Monitors mit.
Jetzt braucht man nur noch ein kleines Previewwindow basteln und dieses
mit setparent_() in den Previewmonitor verfrachten. Zumindest ein kleines
Bild könnte man auf diese Weise dort anzeigen.
Nein, ich habe die Suche nicht benutzt, und deshalb auch nichts dazu gefunden... :lol:
Nach oben
Benutzeravatar
mk-soft
Beiträge: 3845
Registriert: 24.11.2004 13:12
Wohnort: Germany

Beitrag von mk-soft »

Hatte ich schon irgendwann, irgendwo, igrendwie mal ausprobiert. :D

Hab den Code noch bei mir gefunden.

Code: Alles auswählen

;*******************************************************************
;Einfacher Bildschirmschoner, der aber alles enthaellt was ein
;Schoner so braucht. Vorschau, Passwort-Abfrage, Passwort-Aenderung
;usw.
;Ist als Grundgeruest gedacht !
;Nach dem Compilieren die EXE in SCR umbenennen !
;Andreas Miethe * Dezember 2002
;*******************************************************************

Declare setBlack(wnd)
Declare SetPassword()
Declare ConfigSaver()
Declare.l VerifyPassword(wnd)
Declare.l CloseSaver(wnd)
Declare ExecuteSaver(wnd)
Declare.l PreviewCallback(Wnd, Message, wParam, lParam)
Declare Preview(wnd)
Declare.l WindowCallback(Wnd, Message, wParam, lParam)
Declare Main()

Global Param$,Param1$;Startparameter
Global Hwnd.l,SHwnd.l,SParanet.l;Hauptfenster,Vorschaufenster,Elternfenster(Vorschau)
Global PreviewDC.l;Devicecontext Vorschau
Global TI.l;Thread fuer Aktionen
Global Preview.l,HHDC.l;Flag,Devicecontext-Hauptfenster
Global MaxMouse.l;maximale Mausbewegung

Dim MousePos.Point(0);Mausposition-Start
Dim CurrentMousePos.Point(0);aktuelle Mausposition
#MainWindow = 1000
#PreviewWindow = 1001

Procedure setBlack(wnd)
    ;schwarzer Hintergrund
    R1.rect
    dc = GetDC_(wnd)
    Blackbrush.l = GetStockObject_(#BLACK_BRUSH)
    r1\left = 0
    r1\top = 0
    r1\right = GetSystemMetrics_(#SM_CXSCREEN)
    r1\bottom = GetSystemMetrics_(#SM_CYSCREEN)
    SetBkColor_(dc,RGB(0,0,0))
    FillRect_(dc,r1,blackbrush)
    ReleaseDC_(wnd,dc)
EndProcedure

Procedure SetPassword()
    ;Password setzen
    If OpenLibrary(0,"mpr.dll")
        CallFunction(0 ,"PwdChangePasswordA","SCRSAVE",ScrWnd,0,0)
        CloseLibrary(0)
    EndIf
    End
EndProcedure

Procedure ConfigSaver()
    ;Konfiguration des Schoners
    MessageRequester("Screensaver","© 2002 by ampsoft"+Chr(13)+"Nichts einzurichten",64)
    End
EndProcedure

Procedure.l VerifyPassword(wnd)
    ;Passwort abfragen
    If (OSVersion()=#PB_OS_Windows_95) Or (OSVersion()=#PB_OS_Windows_98)Or (OSVersion()=#PB_OS_Windows_ME)
        Retval = 0
        hKey.l=0
        If RegOpenKeyEx_(#HKEY_CURRENT_USER,"'Control Panel\desktop",0,#KEY_READ,@hKey)
            ;Ist Passwortschutz aktiv ?
            If OpenLibrary(0,"Password.cpl")
                ;Abfrage
                ShowCursor_(1)
                Retval = CallFunction(0,"VerifyScreenSavePwd",wnd)
                ShowCursor_(Retval)
                CloseLibrary(0)
            EndIf
            RegCloseKey_(hKey)
        EndIf
    EndIf
    ProcedureReturn Retval
EndProcedure

Procedure.l CloseSaver(wnd)
    ;Schoner beenden und Resourcen freigeben
    If (OSVersion()=#PB_OS_Windows_95) Or (OSVersion()=#PB_OS_Windows_98)Or (OSVersion()=#PB_OS_Windows_ME)
        If VerifyPassword(wnd)
            DeleteDC_(GGDC)
            KillThread(TI)
            SystemParametersInfo_(#SPI_SCREENSAVERRUNNING, 0, @oldval, 0)
            ShowWindow_(wnd,0)
            DestroyWindow_(wnd)
            RedrawWindow_(0,0,0,$0581)
            PostQuitMessage_(0)
            End
        Else
            SetBlack(wnd)
        EndIf
    EndIf
    If (OSVersion()=#PB_OS_Windows_NT_4) Or (OSVersion()=#PB_OS_Windows_2000)Or (OSVersion()<>#PB_OS_Windows_XP)Or (OSVersion()<>#PB_OS_Windows_NT3_51)
        DeleteDC_(GGDC)
        KillThread(TI)
        SystemParametersInfo_(#SPI_SCREENSAVERRUNNING, 0, @oldval, 0)
        ShowWindow_(wnd,0)
        DestroyWindow_(wnd)
        RedrawWindow_(0,0,0,$0581)
        PostQuitMessage_(0)
        End
    EndIf
    ProcedureReturn Retval
EndProcedure

Procedure ExecuteSaver(wnd)
    ;Hiew laeuft alles ab was beim "Schonen" passieren soll.
    ;Angepasst an das Elternfenster ( Vorschau oder Vollbild )
    HHwnd = CreateWindowEx_(0,"Static","",#WS_VISIBLE|#WS_CHILD|#WS_CLIPSIBLINGS,0,0,0,0,wnd,0,GetModuleHandle_(0),0)
    HHDC = GetDC_(HHwnd)
    SetBlack(wnd)
    Brush = GetStockObject_(#BLACK_BRUSH)
    wr.RECT
    GetWindowRect_(wnd,wr)
    If Preview
        wr\right = wr\right - wr\left
        wr\bottom = wr\bottom - wr\top
    Else
        wr\left = 0
        wr\top = 0
        wr\right = GetSystemMetrics_(#SM_CXSCREEN)
        wr\bottom = GetSystemMetrics_(#SM_CYSCREEN)
    EndIf
    rr.RECT
    Repeat
        rr\right = ww
        rr\bottom = hh
        FillRect_(HHDC,rr,brush)
        WW = wr\right / (Random(6)+2)
        HH = wr\bottom / (Random(6)+2)
        XX = Random(wr\right) - ww
        YY = Random(wr\bottom) - hh
        MoveWindow_(HHWnd,XX,YY,WW,HH,0)
        PaintDesktop_(HHDC)
        UpdateWindow_(HHwnd)
        Delay(200)
        ForEver
EndProcedure

Procedure PreviewCallback(Wnd, Message, wParam, lParam)
    ;Callback fuer Vorschau
    Select message
    Case #WM_PAINT
    setBlack(Wnd)
    Case #WM_CLOSE
        DeleteDC_(PreviewDC)
        DeleteObject_(Hrgn)
        DeleteDC_(GGDC)
        KillThread(TI)
        UnregisterClass_("MyScrClass",GetModuleHandle_(0))
        DestroyWindow_(wnd)
        End
    EndSelect
    Result = DefWindowProc_(wnd,message,wParam,lParam)
    ProcedureReturn Result
EndProcedure

Procedure Preview(wnd)
    ;Vorschau-Prozedur
    ;Eigene Fensterklasse fuer die Vorschau anlegen
    Dim ScrClass.WNDCLASS(0)
    Classname$ = "MyScrClass"
    ScrClass(0)\style = #CS_HREDRAW | #CS_VREDRAW
    ScrClass(0)\lpfnWndProc = @PreviewCallback()
    ScrClass(0)\cbClsExtra = 0
    ScrClass(0)\cbWndExtra = 0
    ScrClass(0)\hInstance = GetModuleHandle_(0)
    ScrClass(0)\hIcon = 0
    ScrClass(0)\hCursor = 0
    ScrClass(0)\hbrBackground = 0
    ScrClass(0)\lpszMenuName = 0
    ScrClass(0)\lpszClassName = @Classname$
    RegisterClass_(ScrClass(0));Fensterklasse registrieren
    
    r.RECT
    GetWindowRect_(wnd,r)
    r\right = r\right - r\left
    r\bottom = r\bottom - r\top
    SHwnd  = CreateWindowEx_(0, "MyScrClass", "",#WS_CHILD|#WS_VISIBLE, 0, 0, r\right,r\bottom, wnd, 0, GetModuleHandle_(0), 0)
    If Shwnd
        TI = CreateThread(@ExecuteSaver(),SHWnd)
        While GetMessage_(m.MSG,0,0,0)
            TranslateMessage_(m)
            DispatchMessage_(m)
        Wend
    EndIf
EndProcedure

Procedure.l WindowCallback(Wnd, Message, wParam, lParam)
    ;Callback fuer Hauptfenster
    Result = DefWindowProc_(wnd,message,wParam,lParam)
    Select message
    Case #WM_KEYUP
        If wparam <> 17 ;Strg abfangen
            result = CloseSaver(wnd)
        EndIf
    Case #WM_SYSKEYUP
        result = CloseSaver(wnd)
    Case #WM_MOUSEMOVE
        GetCursorPos_(CurrentMousePos(0))
        If ((CurrentMousePos(0)\x - Mousepos(0)\x) > MaxMouse) Or ((CurrentMousePos(0)\y - Mousepos(0)\y) > MaxMouse)
            result = CloseSaver(wnd)
            GetCursorPos_(MousePos(0))
        EndIf
    EndSelect
    ProcedureReturn Result
EndProcedure

Procedure Main()
    ;Hauptfenster-Prozedur
    ShowCursor_(0)
    Hwnd = OpenWindow(#MainWindow, 0, 0, GetSystemMetrics_(#SM_CXSCREEN),GetSystemMetrics_(#SM_CYSCREEN), #PB_Window_BorderLess , "")
    If Hwnd
        SetWindowCallback(@WindowCallback())
        SystemParametersInfo_(#SPI_SCREENSAVERRUNNING, 1, @oldval, 0)
        ;Windows mitteilen dass ein Schoner laeuft
        SetWindowPos_(Hwnd,#HWND_TOPMOST,0,0,GetSystemMetrics_(#SM_CXSCREEN),GetSystemMetrics_(#SM_CYSCREEN),#SWP_SHOWWINDOW)
        ;Fenster ganz nach "Oben" bringen
        GetCursorPos_(MousePos(0))
        ;Mausposition ermitteln
        MaxMouse = 10
        ;maximale Mausbewegung einstellen
        setBlack(hwnd)
        ;Hintergrund schwarz
        TI = CreateThread(@ExecuteSaver(),Hwnd)
        ;Thread fuer Aktionen starten
        While GetMessage_(m.MSG,0,0,0)
            TranslateMessage_(m)
            DispatchMessage_(m)
        Wend
    EndIf
EndProcedure


;Mehrfachstart verhindern
MutextString$ = "PB-Screensaver"
MutexHandle.l = CreateMutex_(0,1,MutexString$)
If GetLastError_() = #ERROR_ALREADY_EXISTS ;Programm läuft schon
    End
EndIf

;Start-Parameter aufbereiten
;Die Parameter können mit einem - oder / beginnen und zwischen erstem
;und zweitem Parameter können sich entweder ein Doppelpunkt
;oder ein Leerzeichen befinden.
;Sind sie mit einem Doppelpunkt verbunden,
;erkennt sie PB nicht als zwei Parameter,
;und speichert beide in ProgrammParameter 1

Param$ = UCase(ProgramParameter())

If Len(Param$) > 2
    Param1$ = RemoveString(Param$, Left(Param$,2),1)
Else
    Param1$ = ProgramParameter()
EndIf

Param$ = RemoveString(Param$, Left(Param$,1),1)
Param$ = Left(Param$,1)

Select Param$
Case ""
    ConfigSaver()
Case "C"
    ;Einstellungen
    ConfigSaver()
Case "P"
    ;Vorschau
    Preview = 1
    SParent = Val(Param1$)
    Preview(SParent)
Case "A"
    ;Passwort
    SetPassword()
Case "S"
    ;Hauptprogramm
    Preview = 0
    Main()
EndSelect
FF :wink:
Alles ist möglich, fragt sich nur wie...
Projekte ThreadToGUI / EventDesigner V3 / OOP-BaseClass-Modul
Downloads auf MyWebspace / OneDrive
Nach oben
Benutzeravatar
bobobo
jaAdmin
Beiträge: 3873
Registriert: 13.09.2004 17:48
Kontaktdaten:
Kontaktdaten von bobobo

Beitrag von bobobo »

hier ging's zu einer eventuell unangemessenen Anwort (Mülleimer)
http://www.purebasic.fr/german/viewtopi ... highlight=

ich hab aber eben auf nen falschen Knopf gedrückt und nu isses ganz weg
(ja ja .ich weiss nun wie das aussieht , der Mod hat zu geschlagen weil er
persönlich auf unangemessenste Art und Weise an den Arsch gepackt
worden ist .. und so .. ist aber echt nur aus Versehen passiert.. )


der Code da oben auch im CodeArchiv aus Purearea.net zu finden , wie
viele andere schöne Codes auch .. dort mal gucken kann nie schaden.
‮pb aktuel 6.2 windoof aktuell und sowas von 10
Ich hab Tinnitus im Auge. Ich seh nur Pfeifen.
Nach oben
Benutzeravatar
Rattlesnake Entertainment
Beiträge: 34
Registriert: 25.10.2005 16:17

Beitrag von Rattlesnake Entertainment »

Die Bildschirmschoner müssten aber so gebaut sein, dass sich nach zB 30 min. kein Windows-Standard-Bildschirmschoner startet

@DDragon:
SORRY :oops: :oops: :oops:
Aber (Auslachungen könnt ihr euch sparen) ich weiß gar nicht, wie man die SF benutzt :roll: :roll:
======================
|| Rattlesnake Entertainment ||
======================
Nach oben
Kaeru Gaman
Beiträge: 17389
Registriert: 10.11.2004 03:22

Beitrag von Kaeru Gaman »

> Die Bildschirmschoner müssten aber so gebaut sein, dass sich nach zB 30 min. kein Windows-Standard-Bildschirmschoner startet

NEI-EN!

wenn du eine .exe in eine .scr änderst, dann stellst du ja auch in der systemsteuerung dieses programm als bildschirmschoner ein!


menno! lies doch erstmal den ganzen krempel, den wir posten, bevor du irgendwelchen bla von dir gibst!

sorry für die deutlichen worte. musste sein.


> wie man die SF benutzt

SF?
Der Narr denkt er sei ein weiser Mann.
Der Weise weiß, dass er ein Narr ist.
Nach oben
Benutzeravatar
Zaphod
Beiträge: 2875
Registriert: 29.08.2004 00:40

Beitrag von Zaphod »

Na die Soard Fuche um das Soard zu durchfuchen. ;)


"Pferft then purchhen zu phoden!" (Pontius Pilatus)
Nach oben
Benutzeravatar
Alves
Beiträge: 1208
Registriert: 19.04.2006 18:24
Kontaktdaten:
Kontaktdaten von Alves

Beitrag von Alves »

Nicht auslachen! Es gibt durchaus Leute, die waren in ihrem ganzen Leben noch in keinen Board tätig.

Also: Oben, über der Übersicht, ist ein Link, bei vielen anderen, der heißt "Suchen". Da klickt man drauf, es öffnet sich ein neuer Screen. Dann, rechts von der Mitte oben, ist ein eingabefeld. Dort gibt man/frau den/die Suchbegriff/e ein, und drückt auf - einmal herunterscrollen - "Suchen", einen Button unen in der Mitte. Dann öffnet sich ein Bildschirm mit den Suchergebnissen. Dort findetman sich dann so zurecht wie im normalen Forum.
Nach oben
Benutzeravatar
Rattlesnake Entertainment
Beiträge: 34
Registriert: 25.10.2005 16:17

Beitrag von Rattlesnake Entertainment »

SF = Suchfunktion und nicht Fuch Sunktion oder Huch Munition :lol:

So viel ich weiß, kann man zwar eine *.SCR in eine .EXE umwandeln ABER - Keine EXE in eine SCR umwandeln (hab' ich mal im X-Profan 7² Handbuch gelesen...)
:|
mk-soft hat geschrieben:Hatte ich schon irgendwann, irgendwo, igrendwie mal ausprobiert. :very happy:

Hab den Code noch bei mir gefunden.

Code: Alles auswählen


  ;******************************************************************* 
;Einfacher Bildschirmschoner, der aber alles enthaellt was ein 
;Schoner so braucht. Vorschau, Passwort-Abfrage, Passwort-Aenderung 
;usw. 
;Ist als Grundgeruest gedacht ! 
;Nach dem Compilieren die EXE in SCR umbenennen ! 
;Andreas Miethe * Dezember 2002 
;******************************************************************* 
 
Declare setBlack(wnd) 
Declare SetPassword() 
Declare ConfigSaver() 
Declare.l VerifyPassword(wnd) 
Declare.l CloseSaver(wnd) 
Declare ExecuteSaver(wnd) 
Declare.l PreviewCallback(Wnd, Message, wParam, lParam) 
Declare Preview(wnd) 
Declare.l WindowCallback(Wnd, Message, wParam, lParam) 
Declare Main() 
 
Global Param$,Param1$;Startparameter 
Global Hwnd.l,SHwnd.l,SParanet.l;Hauptfenster,Vorschaufenster,Elternfenster(Vorschau) 
Global PreviewDC.l;Devicecontext Vorschau 
Global TI.l;Thread fuer Aktionen 
Global Preview.l,HHDC.l;Flag,Devicecontext-Hauptfenster 
Global MaxMouse.l;maximale Mausbewegung 
 
Dim MousePos.Point(0);Mausposition-Start 
Dim CurrentMousePos.Point(0);aktuelle Mausposition 
#MainWindow = 1000 
#PreviewWindow = 1001 
 
Procedure setBlack(wnd) 
    ;schwarzer Hintergrund 
    R1.rect 
    dc = GetDC_(wnd) 
    Blackbrush.l = GetStockObject_(#BLACK_BRUSH) 
    r1\left = 0 
    r1\top = 0 
    r1\right = GetSystemMetrics_(#SM_CXSCREEN) 
    r1\bottom = GetSystemMetrics_(#SM_CYSCREEN) 
    SetBkColor_(dc,RGB(0,0,0)) 
    FillRect_(dc,r1,blackbrush) 
    ReleaseDC_(wnd,dc) 
EndProcedure 
 
Procedure SetPassword() 
    ;Password setzen 
    If OpenLibrary(0,"mpr.dll") 
        CallFunction(0 ,"PwdChangePasswordA","SCRSAVE",ScrWnd,0,0) 
        CloseLibrary(0) 
    EndIf 
    End 
EndProcedure 
 
Procedure ConfigSaver() 
    ;Konfiguration des Schoners 
    MessageRequester("Screensaver","© 2002 by ampsoft"+Chr(13)+"Nichts einzurichten",64) 
    End 
EndProcedure 
 
Procedure.l VerifyPassword(wnd) 
    ;Passwort abfragen 
    If (OSVersion()=#PB_OS_Windows_95) Or (OSVersion()=#PB_OS_Windows_98)Or (OSVersion()=#PB_OS_Windows_ME) 
        Retval = 0 
        hKey.l=0 
        If RegOpenKeyEx_(#HKEY_CURRENT_USER,"'Control Panel\desktop",0,#KEY_READ,@hKey) 
            ;Ist Passwortschutz aktiv ? 
            If OpenLibrary(0,"Password.cpl") 
                ;Abfrage 
                ShowCursor_(1) 
                Retval = CallFunction(0,"VerifyScreenSavePwd",wnd) 
                ShowCursor_(Retval) 
                CloseLibrary(0) 
            EndIf 
            RegCloseKey_(hKey) 
        EndIf 
    EndIf 
    ProcedureReturn Retval 
EndProcedure 
 
Procedure.l CloseSaver(wnd) 
    ;Schoner beenden und Resourcen freigeben 
    If (OSVersion()=#PB_OS_Windows_95) Or (OSVersion()=#PB_OS_Windows_98)Or (OSVersion()=#PB_OS_Windows_ME) 
        If VerifyPassword(wnd) 
            DeleteDC_(GGDC) 
            KillThread(TI) 
            SystemParametersInfo_(#SPI_SCREENSAVERRUNNING, 0, @oldval, 0) 
            ShowWindow_(wnd,0) 
            DestroyWindow_(wnd) 
            RedrawWindow_(0,0,0,$0581) 
            PostQuitMessage_(0) 
            End 
        Else 
            SetBlack(wnd) 
        EndIf 
    EndIf 
    If (OSVersion()=#PB_OS_Windows_NT_4) Or (OSVersion()=#PB_OS_Windows_2000)Or (OSVersion()<>#PB_OS_Windows_XP)Or (OSVersion()<>#PB_OS_Windows_NT3_51) 
        DeleteDC_(GGDC) 
        KillThread(TI) 
        SystemParametersInfo_(#SPI_SCREENSAVERRUNNING, 0, @oldval, 0) 
        ShowWindow_(wnd,0) 
        DestroyWindow_(wnd) 
        RedrawWindow_(0,0,0,$0581) 
        PostQuitMessage_(0) 
        End 
    EndIf 
    ProcedureReturn Retval 
EndProcedure 
 
Procedure ExecuteSaver(wnd) 
    ;Hiew laeuft alles ab was beim "Schonen" passieren soll. 
    ;Angepasst an das Elternfenster ( Vorschau oder Vollbild ) 
    HHwnd = CreateWindowEx_(0,"Static","",#WS_VISIBLE|#WS_CHILD|#WS_CLIPSIBLINGS,0,0,0,0,wnd,0,GetModuleHandle_(0),0) 
    HHDC = GetDC_(HHwnd) 
    SetBlack(wnd) 
    Brush = GetStockObject_(#BLACK_BRUSH) 
    wr.RECT 
    GetWindowRect_(wnd,wr) 
    If Preview 
        wr\right = wr\right - wr\left 
        wr\bottom = wr\bottom - wr\top 
    Else 
        wr\left = 0 
        wr\top = 0 
        wr\right = GetSystemMetrics_(#SM_CXSCREEN) 
        wr\bottom = GetSystemMetrics_(#SM_CYSCREEN) 
    EndIf 
    rr.RECT 
    Repeat 
        rr\right = ww 
        rr\bottom = hh 
        FillRect_(HHDC,rr,brush) 
        WW = wr\right / (Random(6)+2) 
        HH = wr\bottom / (Random(6)+2) 
        XX = Random(wr\right) - ww 
        YY = Random(wr\bottom) - hh 
        MoveWindow_(HHWnd,XX,YY,WW,HH,0) 
        PaintDesktop_(HHDC) 
        UpdateWindow_(HHwnd) 
        Delay(200) 
        ForEver 
EndProcedure 
 
Procedure PreviewCallback(Wnd, Message, wParam, lParam) 
    ;Callback fuer Vorschau 
    Select message 
    Case #WM_PAINT 
    setBlack(Wnd) 
    Case #WM_CLOSE 
        DeleteDC_(PreviewDC) 
        DeleteObject_(Hrgn) 
        DeleteDC_(GGDC) 
        KillThread(TI) 
        UnregisterClass_("MyScrClass",GetModuleHandle_(0)) 
        DestroyWindow_(wnd) 
        End 
    EndSelect 
    Result = DefWindowProc_(wnd,message,wParam,lParam) 
    ProcedureReturn Result 
EndProcedure 
 
Procedure Preview(wnd) 
    ;Vorschau-Prozedur 
    ;Eigene Fensterklasse fuer die Vorschau anlegen 
    Dim ScrClass.WNDCLASS(0) 
    Classname$ = "MyScrClass" 
    ScrClass(0)\style = #CS_HREDRAW | #CS_VREDRAW 
    ScrClass(0)\lpfnWndProc = @PreviewCallback() 
    ScrClass(0)\cbClsExtra = 0 
    ScrClass(0)\cbWndExtra = 0 
    ScrClass(0)\hInstance = GetModuleHandle_(0) 
    ScrClass(0)\hIcon = 0 
    ScrClass(0)\hCursor = 0 
    ScrClass(0)\hbrBackground = 0 
    ScrClass(0)\lpszMenuName = 0 
    ScrClass(0)\lpszClassName = @Classname$ 
    RegisterClass_(ScrClass(0));Fensterklasse registrieren 
    
    r.RECT 
    GetWindowRect_(wnd,r) 
    r\right = r\right - r\left 
    r\bottom = r\bottom - r\top 
    SHwnd  = CreateWindowEx_(0, "MyScrClass", "",#WS_CHILD|#WS_VISIBLE, 0, 0, r\right,r\bottom, wnd, 0, GetModuleHandle_(0), 0) 
    If Shwnd 
        TI = CreateThread(@ExecuteSaver(),SHWnd) 
        While GetMessage_(m.MSG,0,0,0) 
            TranslateMessage_(m) 
            DispatchMessage_(m) 
        Wend 
    EndIf 
EndProcedure 
 
Procedure.l WindowCallback(Wnd, Message, wParam, lParam) 
    ;Callback fuer Hauptfenster 
    Result = DefWindowProc_(wnd,message,wParam,lParam) 
    Select message 
    Case #WM_KEYUP 
        If wparam <> 17 ;Strg abfangen 
            result = CloseSaver(wnd) 
        EndIf 
    Case #WM_SYSKEYUP 
        result = CloseSaver(wnd) 
    Case #WM_MOUSEMOVE 
        GetCursorPos_(CurrentMousePos(0)) 
        If ((CurrentMousePos(0)\x - Mousepos(0)\x) > MaxMouse) Or ((CurrentMousePos(0)\y - Mousepos(0)\y) > MaxMouse) 
            result = CloseSaver(wnd) 
            GetCursorPos_(MousePos(0)) 
        EndIf 
    EndSelect 
    ProcedureReturn Result 
EndProcedure 
 
Procedure Main() 
    ;Hauptfenster-Prozedur 
    ShowCursor_(0) 
    Hwnd = OpenWindow(#MainWindow, 0, 0, GetSystemMetrics_(#SM_CXSCREEN),GetSystemMetrics_(#SM_CYSCREEN), #PB_Window_BorderLess , "") 
    If Hwnd 
        SetWindowCallback(@WindowCallback()) 
        SystemParametersInfo_(#SPI_SCREENSAVERRUNNING, 1, @oldval, 0) 
        ;Windows mitteilen dass ein Schoner laeuft 
        SetWindowPos_(Hwnd,#HWND_TOPMOST,0,0,GetSystemMetrics_(#SM_CXSCREEN),GetSystemMetrics_(#SM_CYSCREEN),#SWP_SHOWWINDOW) 
        ;Fenster ganz nach "Oben" bringen 
        GetCursorPos_(MousePos(0)) 
        ;Mausposition ermitteln 
        MaxMouse = 10 
        ;maximale Mausbewegung einstellen 
        setBlack(hwnd) 
        ;Hintergrund schwarz 
        TI = CreateThread(@ExecuteSaver(),Hwnd) 
        ;Thread fuer Aktionen starten 
        While GetMessage_(m.MSG,0,0,0) 
            TranslateMessage_(m) 
            DispatchMessage_(m) 
        Wend 
    EndIf 
EndProcedure 
 
 
;Mehrfachstart verhindern 
MutextString$ = "PB-Screensaver" 
MutexHandle.l = CreateMutex_(0,1,MutexString$) 
If GetLastError_() = #ERROR_ALREADY_EXISTS ;Programm läuft schon 
    End 
EndIf 
 
;Start-Parameter aufbereiten 
;Die Parameter können mit einem - oder / beginnen und zwischen erstem 
;und zweitem Parameter können sich entweder ein Doppelpunkt 
;oder ein Leerzeichen befinden. 
;Sind sie mit einem Doppelpunkt verbunden, 
;erkennt sie PB nicht als zwei Parameter, 
;und speichert beide in ProgrammParameter 1 
 
Param$ = UCase(ProgramParameter()) 
 
If Len(Param$) > 2 
    Param1$ = RemoveString(Param$, Left(Param$,2),1) 
Else 
    Param1$ = ProgramParameter() 
EndIf 
 
Param$ = RemoveString(Param$, Left(Param$,1),1) 
Param$ = Left(Param$,1) 
 
Select Param$ 
Case "" 
    ConfigSaver() 
Case "C" 
    ;Einstellungen 
    ConfigSaver() 
Case "P" 
    ;Vorschau 
    Preview = 1 
    SParent = Val(Param1$) 
    Preview(SParent) 
Case "A" 
    ;Passwort 
    SetPassword() 
Case "S" 
    ;Hauptprogramm 
    Preview = 0 
    Main() 
EndSelect

FF :wink:
Bei mir ist alles so, als würde man nur

Code: Alles auswählen

MessageRequester("Screensaver","© 2002 by ampsoft"+Chr(13)+"Nichts einzurichten",64)
schreiben, oder ist das wieder ein muss-selber-ausfüllen-code?
======================
|| Rattlesnake Entertainment ||
======================
Nach oben
Benutzeravatar
ZeHa
Beiträge: 4760
Registriert: 15.09.2004 23:57
Wohnort: Friedrichshafen
Kontaktdaten:
Kontaktdaten von ZeHa

Beitrag von ZeHa »

Code: Alles auswählen

 ;******************************************************************* 
;Einfacher Bildschirmschoner, der aber alles enthaellt was ein 
;Schoner so braucht. Vorschau, Passwort-Abfrage, Passwort-Aenderung 
;usw. 
;Ist als Grundgeruest gedacht ! 
;Nach dem Compilieren die EXE in SCR umbenennen ! 
;Andreas Miethe * Dezember 2002 
;*******************************************************************
Lies mal Zeile 4...
Bild     Bild

ZeHa hat bisher kein Danke erhalten.
Klicke hier, wenn Du wissen möchtest, woran ihm das vorbeigeht.
Nach oben
Benutzeravatar
ZeHa
Beiträge: 4760
Registriert: 15.09.2004 23:57
Wohnort: Friedrichshafen
Kontaktdaten:
Kontaktdaten von ZeHa

Beitrag von ZeHa »

Und das hier auch noch...

Code: Alles auswählen

Select Param$ 
Case "" 
    ConfigSaver() 
Case "C" 
    ;Einstellungen 
    ConfigSaver() 
Case "P" 
    ;Vorschau 
    Preview = 1 
    SParent = Val(Param1$) 
    Preview(SParent) 
Case "A" 
    ;Passwort 
    SetPassword() 
Case "S" 
    ;Hauptprogramm 
    Preview = 0 
    Main() 
EndSelect
Bild     Bild

ZeHa hat bisher kein Danke erhalten.
Klicke hier, wenn Du wissen möchtest, woran ihm das vorbeigeht.
Nach oben
Antworten

Zurück zu „Allgemein“