準備：一個窗口（_啟動窗口），一個畫板（畫板1），一個時鐘（時鐘1）
我們提供的服務(wù)有：成都做網(wǎng)站、成都網(wǎng)站制作、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認證、渝水ssl等。為1000多家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學管理、有技術(shù)的渝水網(wǎng)站制作公司
_啟動窗口 和 畫板1 的 可視 都為 假，時鐘1 的 時間周期 為 0，_啟動窗口 的 總在最前 為 真。
到 _啟動窗口 對應(yīng)的 窗口程序集，把下面的代碼拷貝過去即可。
.版本?2
.支持庫?OPenGL
.支持庫?EThread
.支持庫?spec
.支持庫?iext
.支持庫?eAPI
.程序集?窗口程序集1,?,?,?高仿黑客帝國
.程序集變量?t,?整數(shù)型
.程序集變量?x,?整數(shù)型
.程序集變量?y,?整數(shù)型
.程序集變量?z,?整數(shù)型
.程序集變量?屏幕高度,?整數(shù)型,?,?,?屏幕高度
.程序集變量?屏幕寬度,?整數(shù)型,?,?,?屏幕寬度
.子程序?__啟動窗口_創(chuàng)建完畢
屏幕高度?＝?取屏幕高度?()
屏幕寬度?＝?取屏幕寬度?()
畫板1.畫板背景色?＝?#黑色
_啟動窗口.移動?(0,?0,?屏幕寬度,?屏幕高度)
畫板1.移動?(0,?0,?屏幕寬度,?屏幕高度)
t?＝?0
z?＝?屏幕高度?÷?20
顯示光標?(假)
_啟動窗口.可視?＝?真
畫板1.可視?＝?真
_啟動窗口.調(diào)整層次?(1)
定義?()
畫板1.獲取焦點?()
時鐘1.時鐘周期?＝?400??'?每列產(chǎn)生間隔(ms)
啟動線程?(數(shù)字雨輸出,?,?)
延遲?(400)
啟動線程?(數(shù)字雨輸出,?,?)
延遲?(300)
啟動線程?(數(shù)字雨輸出,?,?)
延遲?(200)
啟動線程?(數(shù)字雨輸出,?,?)
延遲?(200)
啟動線程?(數(shù)字雨輸出,?,?)
延遲?(200)
啟動線程?(數(shù)字雨輸出,?,?)
延遲?(200)
時鐘2.時鐘周期?＝?1000
_時鐘2_周期事件?()
.子程序?_畫板1_鼠標位置被移動,?邏輯型
.參數(shù)?橫向位置,?整數(shù)型
.參數(shù)?縱向位置,?整數(shù)型
.參數(shù)?功能鍵狀態(tài),?整數(shù)型
.如果真?(取絕對值?(橫向位置?－?x)?＞?50?或?取絕對值?(縱向位置?－?y)?＞?50)
定義?()
t?＝?t?＋?1
.如果真?(t?＞?3)??'?事不過三
結(jié)束?()
.如果真結(jié)束
.如果真結(jié)束
.子程序?_畫板1_按下某鍵,?邏輯型
.參數(shù)?鍵代碼,?整數(shù)型
.參數(shù)?功能鍵狀態(tài),?整數(shù)型
結(jié)束?()
.子程序?定義
x?＝?取鼠標水平位置?()
y?＝?取鼠標垂直位置?()
.子程序?數(shù)字雨輸出,?,?,?數(shù)字雨輸出
.局部變量?E,?整數(shù)型,?,?,?垂直位置
.局部變量?F,?整數(shù)型,?,?,?水平位置,起點
.局部變量?G,?整數(shù)型,?,?,?顯示長度,單位=位
.局部變量?H,?整數(shù)型,?,?,?下降速度
.局部變量?I,?整數(shù)型,?,?,?移動次數(shù)
.局部變量?J,?整數(shù)型,?,?,?綠與白
.局部變量?CHR,?文本型,?,?"1000"
置隨機數(shù)種子?()
J?＝?取隨機數(shù)?(1,?5)
.如果?(J?＝?1?或?J?＝?3?或?J?＝?5)
置隨機數(shù)種子?()
E?＝?取隨機數(shù)?(0,?屏幕寬度)
置隨機數(shù)種子?()
F?＝?取隨機數(shù)?(0,?到整數(shù)?(屏幕高度?×?0.75))
置隨機數(shù)種子?()
G?＝?取隨機數(shù)?(z?×?0.2,?z?×?0.65)
置隨機數(shù)種子?()
H?＝?取隨機數(shù)?(10,?600)
.判斷循環(huán)首?(真)
'?畫板1.字體.字體名稱?＝?“黑體”
'?畫板1.字體.字體大小?＝?16
CHR?[I?＋?1]?＝?獲取字符?()
畫板1.文本顏色?＝?#綠色
畫板1.定位寫出?(E,?F?＋?I?×?20,?CHR?[I?＋?1])
.如果真?(I?≠?0)
畫板1.文本顏色?＝?#墨綠
畫板1.定位寫出?(E,?F?＋?(I?－?1)?×?20,?CHR?[I])
.如果真結(jié)束
.如果真?(I?＞?G?＋?1)
畫板1.文本顏色?＝?取顏色值?(0,?40,?0)
畫板1.定位寫出?(E,?F?＋?(I?－?G?－?1)?×?20,?CHR?[I?－?G])
畫板1.文本顏色?＝?#黑色
畫板1.定位寫出?(E,?F?＋?(I?－?G?－?2)?×?20,?CHR?[I?－?G?－?1])
.如果真結(jié)束
I?＝?I?＋?1
.如果真?(F?＋?I?×?20?＞?屏幕高度)
跳出循環(huán)?()
.如果真結(jié)束
延遲?(H)??'?避免CPU過高
.如果真?(I?＞?1000)
結(jié)束?()
.如果真結(jié)束
.判斷循環(huán)尾?()
.判斷循環(huán)首?(真)
.如果真?(I?＞?G?＋?1)
畫板1.文本顏色?＝?取顏色值?(0,?40,?0)
畫板1.定位寫出?(E,?F?＋?(I?－?G?－?1)?×?20,?CHR?[I?－?G])
畫板1.文本顏色?＝?#黑色
畫板1.定位寫出?(E,?F?＋?(I?－?G?－?2)?×?20,?CHR?[I?－?G?－?1])
.如果真結(jié)束
I?＝?I?＋?1
.如果真?(F?＋?I?×?20?－?(G?＋?2)?×?20?＞?屏幕高度)
跳出循環(huán)?()
.如果真結(jié)束
延遲?(H)??'?避免CPU過高
.如果真?(I?＞?1000)
結(jié)束?()
.如果真結(jié)束
.判斷循環(huán)尾?()
.否則
置隨機數(shù)種子?()
E?＝?取隨機數(shù)?(0,?屏幕寬度)
置隨機數(shù)種子?()
F?＝?取隨機數(shù)?(0,?到整數(shù)?(屏幕高度?×?0.75))
置隨機數(shù)種子?()
G?＝?取隨機數(shù)?(z?×?0.2,?z?×?0.65)
置隨機數(shù)種子?()
H?＝?取隨機數(shù)?(10,?600)
.判斷循環(huán)首?(真)
'?畫板1.字體.字體名稱?＝?“黑體”
'?畫板1.字體.字體大小?＝?16
CHR?[I?＋?1]?＝?獲取字符?()
畫板1.文本顏色?＝?#白色
畫板1.定位寫出?(E,?F?＋?I?×?20,?CHR?[I?＋?1])
.如果真?(I?≠?0)
畫板1.文本顏色?＝?#淺灰
畫板1.定位寫出?(E,?F?＋?(I?－?1)?×?20,?CHR?[I])
.如果真結(jié)束
.如果真?(I?＞?G?＋?1)
畫板1.文本顏色?＝?#灰色
畫板1.定位寫出?(E,?F?＋?(I?－?G?－?1)?×?20,?CHR?[I?－?G])
畫板1.文本顏色?＝?#黑色
畫板1.定位寫出?(E,?F?＋?(I?－?G?－?2)?×?20,?CHR?[I?－?G?－?1])
.如果真結(jié)束
I?＝?I?＋?1
.如果真?(F?＋?I?×?20?＞?屏幕高度)
跳出循環(huán)?()
.如果真結(jié)束
延遲?(H)??'?避免CPU過高
.如果真?(I?＞?1000)
結(jié)束?()
.如果真結(jié)束
.判斷循環(huán)尾?()
.判斷循環(huán)首?(真)
.如果真?(I?＞?G?＋?1)
畫板1.文本顏色?＝?#灰色
畫板1.定位寫出?(E,?F?＋?(I?－?G?－?1)?×?20,?CHR?[I?－?G])
畫板1.文本顏色?＝?#黑色
畫板1.定位寫出?(E,?F?＋?(I?－?G?－?2)?×?20,?CHR?[I?－?G?－?1])
.如果真結(jié)束
I?＝?I?＋?1
.如果真?(F?＋?I?×?20?－?(G?＋?2)?×?20?＞?屏幕高度)
跳出循環(huán)?()
.如果真結(jié)束
延遲?(H)??'?避免CPU過高
.如果真?(I?＞?1000)
結(jié)束?()
.如果真結(jié)束
.判斷循環(huán)尾?()
.如果結(jié)束
.子程序?獲取字符,?文本型
.局部變量?A,?文本型
置隨機數(shù)種子?()
A?＝?字符?(取隨機數(shù)?(27,?127))
.判斷循環(huán)首?(A?＝?“”?或?A?＝?“?”?或?A?＝?“ ”)
置隨機數(shù)種子?()
A?＝?字符?(取隨機數(shù)?(27,?127))
.判斷循環(huán)尾?()
A?＝?到全角?(A)
返回?(A)
.子程序?_時鐘1_周期事件
啟動線程?(數(shù)字雨輸出,?,?)
'101個標簽，一個按鈕，一個圖片框，一個時鐘，背景圖片自己找
V_car(100) as long
Private Sub Command3_Click()
For i = 0 To 100
Label1(i).Top = Picture_BeiJing.Height + 500
Label1(i).AutoSize = True
Label1(i).BackStyle = 0
Next
Timer_Con.Interval =40'每秒25次移動
Timer_Con.Enabled = True
End Sub
Private Sub Timer_Con_Timer()
For i = 0 To 100
If Label1(i).Top Picture_BeiJing.Height Then
Label1(i).Top = Label1(i).Top + V_car(i)
Else
Label1(i).Top = -200'移到頂部
Randomize
Label1(i).Left = Int((Picture_BeiJing.Width - Label1(i).Width) * Rnd)'水平定位
Randomize
Label1(i).Caption = i 'Int(10 * Rnd)'改變字符,注意這里去除1和引號后才行,這樣是測試用的
Randomize
Label1(i).FontSize = 8 + Int(30 * Rnd)'改變字體大小
Randomize
Label1(i).ForeColor = RGB(Int(250 * Rnd), Int(250 * Rnd), Int(250 * Rnd))'改變字體顏色
Randomize
V_car(i) = 10 + Int(100 * Rnd)'重新設(shè)置下降速度
End If
Next
回到電腦桌面，在電腦桌面空白區(qū)域點擊鼠標右鍵-》點擊個性化設(shè)置（也可以按鍵盤R鍵），打開系統(tǒng)個性化設(shè)置界面。
統(tǒng)個性化設(shè)置界面左側(cè)菜單欄選擇鎖屏界面－》右側(cè)便會出現(xiàn)關(guān)于鎖屏界面的預(yù)覽圖以及相關(guān)的配置信息。
點擊背景-》下面的下拉菜單展開鎖屏類型。win10的鎖屏界面有三種不同的類型：windows聚焦、圖片、幻燈片放映。比較常用的就是選一張漂亮的圖片作為鎖屏界面。
點擊選擇圖片下方的圖片進行選擇，如果對系統(tǒng)默認的圖片不滿意，可以點擊下方的‘瀏覽’按鈕進行選擇。
將右側(cè)滾動條往下拉直到出現(xiàn)‘屏幕保護程序設(shè)置’，點擊系統(tǒng)會自動彈出設(shè)置屏幕保護的界面。
點擊屏幕保護程序下面的下拉菜單選擇屏幕保護的類型，類型包括：3D文字、變幻線、彩帶、空白、氣泡、照片。點擊選擇之后可以點擊右側(cè)的預(yù)覽按鈕進行預(yù)覽。
等到？分鐘的意思是當鼠標和鍵盤多長時間沒有操作時系統(tǒng)會進入屏幕保護的時間間隔。后面的復選框勾上則關(guān)閉屏保的時候會進入電腦登錄頁面，輸入密碼才能進入電腦。
重慶分公司
重慶分公司
