用戶登錄  |  用戶注冊
首 頁源碼下載網絡學院最新源碼源碼排行屏蔽廣告
當前位置:新興網絡 > 網絡學院 > 編程開發 > Visual Basic

VB 屏幕融化超級惡搞程序代碼

減小字體 增大字體 作者:佚名  來源:本站整理  發布時間:2010-09-02 15:05:51


這段代碼真的很強悍 !  居然搞的我看不到屏幕 , 就像雪糕一樣被融化了 !

VBScript code復制代碼
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
 

Tags:整人程序 VB

作者:佚名
  • 好的評價 如果您覺得此文章好,就請您
      70%(31)
  • 差的評價 如果您覺得此文章差,就請您
      30%(13)

網絡學院評論評論內容只代表網友觀點,與本站立場無關!

   評論摘要(共 2 條,得分 71 分,平均 35 分) 查看完整評論
[回復] 2游客   打分:1 分  發表時間:2019-01-21
· 用不了
[回復] 1游客   打分:70 分  發表時間:2016-01-05
· 可不可以恢復的
皮皮麻将官网下载 新疆25选7开奖结果 金吊桶高手心水论坛 浙江20选5开奖结 四肖中特赔几倍 网上为什么不能买双色球了 (-^O^-)MG奥林帕斯山的传说巨额大奖视频 辽宁35选7 (★^O^★)MG夢幻邂逅游戏网站 充值10送28的彩票平台 体彩福建36选7玩法 河内5分彩是哪个国家的 (★^O^★)MG运财酷儿怎么玩容易爆分 (★^O^★)MG自由精神爆分技巧 香港六合彩107期 广东26选5选号技巧 湖北快3开奖结果透露