VB 屏幕融化超级恶搞程序代码

最新推荐文章于 2024-08-03 18:25:25 发布

miaozk2006

最新推荐文章于 2024-08-03 18:25:25 发布

阅读量2.6k

点赞数

本文链接：https://blog.csdn.net/miaozk2006/article/details/82416998

版权

这篇博客分享了一段VB代码，该代码能够实现屏幕恶搞效果，让屏幕看起来像被融化一般。通过GetWindowDC, CreateCompatibleBitmap等API函数，代码实现了屏幕图像的复制和随机位置的覆盖，造成屏幕‘融化’的视觉效果。" 105963895,2116373,Prometheus监控系统详解与应用,"['监控报警', 'Prometheus', '大数据', '系统监控']

摘要由CSDN通过智能技术生成

'这段代码真的很强悍！居然搞的我看不到屏幕，就像雪糕一样被融化了

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 Lo