今天看到一行 vb 代码,真令我吃惊!
照此处理:
1. 新建一表单
2. 加一个自定义表单属性: hh,初始值 0
3. 加两个按钮,分别设 Caption 为 “禁用任务管理器” 和 “使能任务管理器”
4. 在“禁用”按钮的 Click 中写: Thisform.hh = FOpen( GetEnv( 'WinDir' ) + '/system32/taskmgr.exe', 12 )
5. 在“使能”按钮的 Click 中写:
If ( 0 != Thisform.hh )
FClose( Thisform.hh )
Thisform.hh = 0
Endif
6. 运行试试