添加下列代碼即可，一個如融化屏幕般的屏保Option Explicit Private Declare Function GetDC Lib quotuser32quot _ByVal hWnd As Long As Long Private Declare Function ReleaseDC Lib quotuser32quot _ByVal hWnd As Long；急急急！謝謝大家的幫忙我急要一個屏幕保護程序的源代碼文件，希望大家能幫幫我 急急急！謝謝大家的幫忙我急要一個屏幕保護程序的源代碼文件，希望大家能幫幫我 展開 #xE768 我來答。

這是一個特別逗的屏保，畫面就是一只小狗狗跑來跑去然后舔屏幕的樣子，還是蠻有趣的，獵奇的小伙伴可以去設置看看06色彩時鐘 The Colour Clock是一個色彩時鐘，它會將時間對應到十六進制顏色代碼，所以每一秒都會有一個；在WndProc這個回調函數(shù)里加個鼠標移動消息WM_MOUSEMOVE的判斷即可由于這個消息很靈敏，你感覺鼠標沒有動，實際也退出了所以，在這個消息下面再加上一個移動距離的判斷即可距離越短，鼠標移動時退出檢測就越靈敏例如。

設置關閉屏保的程序代碼 CDialogEndDialogIDOK單擊“Add Handler”，然后單擊“Edit Existing”，在光標提示處添加代碼如下設置關閉屏保的程序代碼 CDialogEndDialogIDOK九 添加WM_Destory的消息響應函數(shù)；我的做法是，每個星星都是一個sprite，在構造函數(shù)里通過graphicsdrawCircle畫一個白色的圓，然后在主類中控制其位置和大小x， y， scaleX， scaleY，不斷向屏幕外側移動，并且不斷增大尺寸下面是原代碼spaceaspack。

BackColor = vbBlack SetWindowPos Mehwnd， HWND_TOPMOST， 0， 0， ScreenWidth， ScreenHeight， WM_SHOWWINDOW End Sub #39如果要設為屏保，需將生成的exe文件后綴改為scr，保存到system32中，并在電腦中選擇此屏保。

代碼滾動字幕怎么設置

1在Cydia里搜索下載并安裝LiveWallpaper2該插件以分割視圖模式來顯示圖片，用戶可以選擇對其進行自定義設置用戶選定之后，點擊 Done 按鍵，系統(tǒng)會對圖片進行處理并將其設置成為 iPhone 主屏幕的滾動壁紙二設置飄落。

把得到的路徑也保存到注冊表中，并讓屏保啟動時讀picdir的值，picdir等于quotnoquot時的代碼筆者已實現(xiàn)了，picdir不等于quotnoquot時的代碼由讀者實現(xiàn)也就是讓讀者實現(xiàn)一個能把picdir目錄里的圖片輪流顯示的屏保程序二 實現(xiàn)方法首先介紹幾個。

一SCRNSAVEBAS 此模塊文件包含四個子程序 HideMouse，ShowMouse，EndScrnsave，Main前三個子程序分別用于隱藏鼠標光標重新顯示鼠標光標和結束屏幕保護程序返回Windows當在Windows控制面板的桌面對話框中對屏幕保護程序進行“。

畫一個圓當做屏保圖案坐標是x，y 大小是d public void run TODO Autogenerated method stub whiletrue ifxlt=0 dir=rannextInt8whiledir==0dir==3dir==5dir=rannextInt8。

代碼僅供參考，BAT文件和屏保程序放在一起echo offAfor L %%a in 59，1，0 do echo 60秒后將運行屏保1echo 還剩余 %%a 秒ping n 2 localhost 1nul 2nulclsstart 屏保1scrfor L %%a in 59。

代碼滾動屏保怎么設置

1、很簡單程序form1需要一個計時器timer1一個標簽label1，以下是代碼Dim LOrR As Boolean #39此變量表示label向左移還是右移 Private Sub Form_LoadForm1Left = 0#39Form1Top = 0#39Form1Width =。

2、并設置好其它相關內容set EnableText3d=1設置三維文字顯示內容set Text3d=福建設置文本字體set Font=宋體主執(zhí)行代碼，如非必要，請勿修改，以免執(zhí)行出錯nul 21 quot%SystemRoot%\System32\caclsexequot quot%。

3、1鼠標移動到桌面空白處，右鍵在下拉框中選擇查看“屬性”2然后在電腦桌面顯示屬性窗口中選擇“屏幕保護程序”菜單，然后在屏幕保護程序下拉選項中選擇“三維文字”程序，選擇完成后再點擊下拉選項右邊的設置按鈕3然后。