vb·net屏保代碼 vbs鎖屏代碼

如何用VB.NET寫一個(gè)簡(jiǎn)單的屏幕保護(hù)程序？

在窗體上建立2個(gè)文本框text1和text2，一個(gè)按鈕command1，text1里面輸入你要轉(zhuǎn)換的字符串，text2里面顯示結(jié)果，代碼如下：

貴德ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景，ssl證書未來市場(chǎng)廣闊！成為成都創(chuàng)新互聯(lián)公司的ssl證書銷售渠道，可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：13518219792（備注：SSL證書合作）期待與您的合作！

Dim MyString As String

Dim EveryStr(50) As String

Dim TargetStr As String

Private Sub Command1_Click()

MyString = Text1

For i = 1 To Len(MyString)

EveryStr(i) = Right(Left(MyString, i), 1)

If Asc(EveryStr(i)) 123 And Asc(EveryStr(i)) 96 Then EveryStr(i) = \"_\"

If Asc(EveryStr(i)) 91 And Asc(EveryStr(i)) 64 Then EveryStr(i) = \"_\"

TargetStr = TargetStr EveryStr(i)

Next i

Text2 = TargetStr

TargetStr = \"\"

End Sub

引號(hào)前面怎么自動(dòng)給加了個(gè)“\”？用的時(shí)候請(qǐng)手動(dòng)把那幾個(gè)“\”去掉

求VB屏保的代碼....要簡(jiǎn)單的 進(jìn)入(黑色)屏保後，例如只要按一下ESC就可以回到正常這樣就可以了,,,,郵箱

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Const HWND_TOPMOST = -1

Private Const HWND_TOP = 0

Private Const WM_SHOWWINDOW = H18

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = 27 Then

Unload Me

End If

End Sub

Private Sub Form_Load()

'在屬性窗口中將Form1的BorderStyle設(shè)為None

Me.BackColor = vbBlack

SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, Screen.Width, Screen.Height, WM_SHOWWINDOW

End Sub

'如果要設(shè)為屏保，需將生成的exe文件后綴改為scr，保存到system32中，并在電腦中選擇此屏保

vb屏幕保護(hù)代碼

'直接復(fù)制·什么都不用

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Dim WithEvents Label1 As Label '在線添加一個(gè)label時(shí)的聲明

Dim WithEvents Timer1 As Timer '在線添加一個(gè)timer的聲明

Dim X1%, Y1%, X2%, Y2%, I%, k%, orignX, orignY, J As Boolean

Private Sub Form_Load()

Set Label1 = Me.Controls.Add("VB.Label", "Label1") '在線添加Label1控件

Set Timer1 = Me.Controls.Add("VB.Timer", "Timer1") '在線添加Timer1控件

With Me

.BorderStyle = 0

.Caption = ""

.BackColor = H0 '窗體的背景色為黑色

.FillColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) '窗體的填充色為隨機(jī)

.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) '窗體的前景色為隨機(jī)

.DrawMode = 13 '窗體輸出的外觀為13

.DrawWidth = 2 '窗體輸出的線條寬度為2

.FillStyle = 7 '窗體的填充樣式為7

.KeyPreview = True

.WindowState = 2 '窗體展開樣式

.Move 0, 0, Screen.Width, Screen.Height

End With

With Label1

.Visible = True 'label可見性為true

.AutoSize = True 'label自動(dòng)調(diào)整大小

.BackStyle = 0 'label背景色為透明

.Caption = "I LOVE YOU" '設(shè)置標(biāo)題

.Font.Size = 60 '字體大小為60

.ForeColor = HFF00 'label前景色為黑色

'設(shè)置label的位置

.Top = Me.Height / 2 - Label1.Height / 2

.Left = Me.Width / 2 - Label1.Width / 2

End With

Timer1.Enabled = True 'timer為有效

Timer1.Interval = 10 'timer時(shí)間 間隔為0.001秒

SetCursorPos Screen.Width \ 15, 0 '將鼠標(biāo)移出窗體外

orignX = Screen.Width \ 15: orignY = 0 '設(shè)置鼠標(biāo)原始位置

End Sub

Private Sub Form_Activate()

I = 100: k = 100

X1 = Me.Width / 2: Y1 = Me.Height / 3

X2 = X1: Y2 = Y1

End Sub

Private Sub Form_Unload(Cancel As Integer)

Set Form1 = Nothing

End

End Sub

Private Sub Timer1_Timer()

Me.Circle (X1, Y1), 250 '在窗體上畫圓

Me.Circle (X2, Y2), 250 '在窗體上畫圓

If Y1 = Me.Height - 1200 Then '在指定高度運(yùn)行

X1 = X1 + k: Y1 = Y1 - I

X2 = X2 - k: Y2 = Y2 - I

I = I - 2

k = IIf(Y1 = Me.Height / 3, k - 1, IIf(Y1 = Me.Height \ 3, k - 5, k))

Else

I = 100: k = 100

X1 = Me.Width / 2: Y1 = Me.Height / 3

X2 = X1: Y2 = Y1

Me.FillColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) '窗體的填充色為隨機(jī)

Me.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) '窗體的前景色為隨機(jī)

End If

Me.DrawWidth = 3 '窗體輸出的線條寬度為3

'在窗體上隨機(jī)畫點(diǎn)

Me.PSet (Rnd * Me.Width, Rnd * Me.Height), RGB(Rnd * 225, Rnd * 225, Rnd * 225)

Me.DrawWidth = 2 '窗體輸出的線條寬度為2

End Sub

'在窗體上按下按鍵時(shí)退出程序

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode 0 Then Unload Me

End Sub

'在窗體上移動(dòng)鼠標(biāo)或單擊鼠標(biāo)時(shí)退出程序

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button 0 Or Abs(X \ 15 - orignX) = 3 Or Abs(Y \ 15 - orignY) 3 Then Unload Me

End Sub

文章名稱：vb·net屏保代碼 vbs鎖屏代碼
瀏覽路徑：http://muchs.cn/article2/doegdoc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站收錄、移動(dòng)網(wǎng)站建設(shè)、營(yíng)銷型網(wǎng)站建設(shè)、網(wǎng)站建設(shè)、品牌網(wǎng)站制作、網(wǎng)站改版

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)