VB 螢幕融化超級惡搞程式程式碼
'這段程式碼真的很強悍 ! 居然搞的我看不到螢幕 , 就像雪糕一樣被融化了
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
Dim x As Integer, y As Integer
Dim Buffer As Long, hBitmap As Long, Desktop As Long, hScreen As Long, ScreenBuffer As Long
Private Declare Sub InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Any, ByVal bErase As Long)
Private Sub Form_Load()
Me.Hide
Desktop = GetWindowDC(GetDesktopWindow())
hBitmap = CreateCompatibleDC(Desktop)
hScreen = CreateCompatibleDC(Desktop)
Buffer = CreateCompatibleBitmap(Desktop, 32, 32)
ScreenBuffer = CreateCompatibleBitmap(Desktop, Screen.Width / 15, Screen.Height / 15)
SelectObject hBitmap, Buffer
SelectObject hScreen, ScreenBuffer
BitBlt hScreen, 0, 0, Screen.Width / 15, Screen.Height / 15, Desktop, 0, 0, SRCCOPY
For i = 0 To 1E+17
y = (Screen.Height / 15) * Rnd
x = (Screen.Width / 15) * Rnd
BitBlt hBitmap, 0, 0, 32, 32, Desktop, x, y, SRCCOPY
BitBlt Desktop, x + (1 - 2 * Rnd), y + (1 - 2 * Rnd), 32, 32, hBitmap, 0, 0, SRCCOPY
DoEvents
Next i
End Sub
相關文章
- 用VB製作螢幕保護程式 (轉)
- 利用VB編寫螢幕保護程式 (轉)
- 判斷螢幕旋轉的事件程式碼事件
- 螢幕控制示例程式
- ios一句程式碼搞定螢幕旋轉iOS
- 用VB實現螢幕陰暗操作 (轉)
- js判斷螢幕是否旋轉程式碼例項JS
- 關於螢幕程式設計(轉)程式設計
- javascript獲取移動裝置螢幕尺寸的程式碼JavaScript
- 女程式設計師是這樣被惡搞的程式設計師
- 程式設計師經典幽默之惡搞對聯程式設計師
- Aerial for Mac鳥瞰螢幕保護程式Mac
- 金鋒螢幕保護程式2.0破解
- 圖片大小自適應手機螢幕程式碼例項
- Mac簡單時鐘螢幕保護程式Mac
- 螢幕擷取程式Ashampoo SnapYa! v1.53
- 最罪惡的程式碼
- abap screnn螢幕程式設計,對螢幕中的欄位追加多選search help程式設計
- Java及Jquery獲取螢幕解析度的實現程式碼JavajQuery
- javascript獲取視窗和螢幕解析度等尺寸程式碼JavaScript
- 超級有用的9個PHP程式碼片段PHP
- 讓應用程式禁止Windows螢幕保護 (轉)Windows
- Unity3D結合NGUI的螢幕自適應程式碼分享Unity3DNGUI
- iOS專案開發實戰——使用程式碼獲取螢幕寬高iOS
- 常見機箱LCD螢幕顯示程式碼對應資訊詳解
- VPNFilter 惡意程式能降級 HTTPSFilterHTTP
- 惡意程式碼清除實戰
- Get_Next的VB程式碼
- 想用就用,VB基礎程式碼 (轉)
- 幾個超級實用的css程式碼片段CSS
- 超級程式設計師程式設計師
- 叮咚外賣小程式6.4.3原始碼+超級跑腿2.0.3+前端程式原始碼前端
- S3C2410觸控式螢幕驅動程式碼分析1S3
- JS彈幕程式碼分析JS
- sap abap螢幕程式設計中使用的table 和call子程式的程式設計
- 微信小程式中圖片佔滿整個螢幕微信小程式
- Aerial for Mac(mac最美的鳥瞰螢幕保護程式)Mac
- 用C#Builder編寫螢幕保護程式 (轉)UI