恶趣味程序之《徒有其表》

这个非常有意思又带着“幽默”趣味小程序是我近日在一个网友的贴子中得到的灵感。

程序：徒有其表 1.0

开发环境：VB6.0 + windows xp

运行效果：隐藏桌面的一切，并且制造一个一模样的“假象”。

源码：为了不养成网友们只会“伸手”的坏习惯，主要部分的源码我会在讲解中贴出来，但不提供下载。

下面开始讲述，首先列出程序的流程：

1.显示桌面。

2.完整的截屏并保存成图片文件（相当于PrintScreen键的功能）。

3.隐藏桌面图标与任务栏。

4.把截屏保存的图片设置成桌面壁纸。

5.完成之桌面看起来并没有什么变化，只是什么也打不开，鼠标左右键都置若罔闻，类似假死现象。

源码：

'显示桌面
Private Sub DeskShow()
Dim m_Shell   As New Shell32.Shell
m_Shell.MinimizeAll
End Sub

'截屏未保存(数据在缓存区)
Private Sub Cap()
BitBlt Me.hDC, 0, 0, Screen.Width, Screen.Height, GetDC(GetActiveWindow), 0, 0, vbSrcCopy '抓屏
End Sub
'完整路径
Private Function Format(path As String, exten As String)
Format = path & "back" & exten
End Function
'截屏保存
Private Sub PrintScreen()
Dim sFile As String
Call Cap
sFile = Format("c:\", ".jpg")
SavePicture Me.Image, sFile '保存数据   Me.hDC
End Sub

'隐藏桌面图标
Private Sub HideDisk(window As String, hide As Integer)
Dim Hwd As Long
Dim rtn As Long
Hwd = FindWindow(window, vbNullString)
If (hide = 1) Then
rtn = ShowWindow(Hwd, SW_HIDE)
ElseIf (hide = 0) Then
rtn = ShowWindow(Hwd, SW_RESTORE)
End If
End Sub

'调用

    Call HideDisk("Progman", 1)         '隐藏桌面图标
Call HideDisk("Shell_TrayWnd", 1)   '隐藏任务栏

'即时设置壁纸
Private Sub SetBackpic(path As String)
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, path, SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE)
End Sub

'声明
Const SW_HIDE = 0
Const SW_RESTORE = 9
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_SENDWININICHANGE = &H2

以上几乎是全部代码的，思路和主要源码都给出了，希望大家可以自己DIY更多有趣的东西，编程也可以很快乐的。

恢复的办法也很简单，只要把隐藏的桌面和任务栏显示出来就可以了，函数上面也给出了。

小y本身是做软件售后工作的，水平刚入门，让各位大虾见笑了。

恶趣味程序之《徒有其表》相关推荐

关于表单的java的程序_JAVA BOT程序模拟人类用户填写表单并发送
仿真表单:BOT程序模拟人类用户填写表单并发送抓取表单: HTTPSocket http = new HTTPSocket(); SocketFactory.setProxyHost(" ...
PLSQL程序编写杂烦数据表信息编写批量排版
--PLSQL程序编写杂烦数据表信息编写批量排版 SELECT 'cra.' || lower(t.column_name) ||','FROM dba_tab_columns tWHERE t.ta ...
asp程序错误详细说明例表
asp程序错误详细说明例表字体大小: 大中小来源: CSDN 时间: 2005-2-17 14:23:07 平时写程序的时候出错时的解决方法,不太全,但是一般问题应该都有了,呵呵,欢迎大加添加 ...
Java黑皮书课后题第5章：*5.15（显示ASCII码字符表）编写一个程序，打印ASCII字符表从‘!‘到‘~‘的字符。每行打印10个字符。ASCII码表如附录B所示。数字之间用一个空格字符隔开
*5.15(显示ASCII码字符表)编写一个程序,打印ASCII字符表从'!'到'~'的字符.每行打印10个字符.ASCII码表如附录B所示.数字之间用一个空格字符隔开题目题目概述 '!'到'~' ...
小程序提交表单mysql_GitHub - kun19911227/minipro: 微信小程序提交带图片的表单
minipro 微信小程序提交带图片的表单目录说明 upload_images ├── pages │ ├── upload_info 提交表单 │ └── display_info 信息展示 ├─ ...
JS 打印 data数据_小程序导出数据到excel表
小程序导出数据到excel表,借助云开发后台实现excel数据的保存我们在开发小程序的过程中,可能会有这样的需求:如何将云数据库里的数据批量导出到excel表里? 这个需求可以用强大的云开发轻松实现 ...
Atitit 工程师程序员技术级别对应表与主要特征 P1--p6 说明类别职称对应技术标志 P5 高级工程师工程师类一般四五年 P6 资深开发工程师类 78年经历 P7 P7
Atitit 工程师程序员技术级别对应表与主要特征 P1--p6 说明类别职称对应技术标志 P5 高级工程师工程师类一般四五年 P6 资深开发工程师类 78年经历 P7 P7 一般是技术专 ...
VBA小程序_遍历所有工作表_复制粘贴为数值
Sub VBA小程序_遍历所有工作表_复制粘贴为数值()Dim sht As WorksheetFor Each sht In Worksheetssht.Activatesht.Cells.Copy ...
带流量控制的交通灯三菱FX系列PLC程序3 有io分配表和PLC原理图
带流量控制的交通灯三菱FX系列PLC程序3 有io分配表和PLC原理图工作周期60秒,若两个方向车辆不同时,是在下一个工作周期是发生变化,本周期不变 1.当东西车流数量和南北车辆数量相同时: 东西和 ...

恶趣味程序之《徒有其表》

恶趣味程序之《徒有其表》相关推荐

最新文章

热门文章