扫地杆的作用扣件:用VB可以编程这样的程序吗

来源:百度文库 编辑:中科新闻网 时间:2024/04/28 01:25:10
屏幕障碍程序。
程序特征:
运行自动最大化,程序始终在最前,程序无法关闭,调不出任务管理器(它被程序覆盖看不见)关闭它。代码设置键盘上的某个组合键来关闭它,

可以做到“运行自动最大化,程序始终在最前,程序无法关闭。”若代码设置键盘上的某个组合键来关闭它,那么程序将能被任务管理器通过"结束任务"来关闭
以下代码能够做到:运行自动最大化,程序始终在最前,程序可通过按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
Const HWND_TOPMOST = -1 '窗体总在最前面

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then '如果按的键是Esc,
Unload Me '那么退出程序
End If
End Sub

Private Sub Form_Load()
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE '设置本窗口为总在最前(这里的Or和And是一个意思,不过必须用Or)
Form1.BorderStyle = 0 '没有边框
Form1.WindowState = 2 '全屏启动
End Sub
若在加这个过程,程序将不能退出,除非通过“结束进程”来关闭:
Private Sub Form_Unload(Cancel As Integer)
cancel=-1
End Sub

可以

你想搞黑客吧!!呵呵好运,小心自己被骗了

都是可以的