VB 从零开始编外挂(四)

2016-01-29 12:50 25 1 收藏

VB 从零开始编外挂(四),VB 从零开始编外挂(四)

【 tulaoshi.com - ASP.NET 】

--------------------------------------------------------------------------------------------------------------------------------------------------------
添加快捷键
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要VB API函数:
GetAsyncKeyState ←判断函数调用时指定虚拟键的状态
--------------------------------------------------------------------------------------------------------------------------------------------------------
相关API声明:
GetAsyncKeyState

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Function MyHotKey(vKeyCode) As Boolean
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要的控件:Timer(interval不为空)
--------------------------------------------------------------------------------------------------------------------------------------------------------

代码:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = (GetAsyncKeyState(vKeyCode) < 0)
End Function
'然后在循环中或Timer的Timer事件中检测:
Private Sub Timer1_Timer()
If MyHotKey(vbKeyA) And vbKeyControl Then 'ctrl+A
End '关闭
End If
'其中vbkeyA是键盘″A″的常数,其他键可按F1查得。
End Sub
--------------------------------------------------------------------------------------------------------------------------------------------------------
其它方法:
比如按下"ctrl+A"就退出!
'可以设置Form的KeyPreview属性为True,然后在Form_KeyDown事件中添加代码:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = Asc("A") And Shift = vbCtrlMask Then unload me '如果ctrl+A键被按下就退出
End Sub
--------------------------------------------------------------------------------------------------------------------------------------------------------
点击给我留言--------------------------------------------------------------------------------------------------------------------------------------------------------

来源:http://www.tulaoshi.com/n/20160129/1487754.html

延伸阅读
躲避了NP的扫描现在就可以模拟了! -------------------------------------------------------------------------------------------------------------------------------------------------------- 需要VBAPI函数: keybd_event←函数模拟了键盘行动 ----------------------------------------------------------------------...
-------------------------------------------------------------------------------------------------------------------------------------------------------- VB实现指针访问!DLL的访问 ------------------------------------------------------------------------------------------------------------------------------------------...
-------------------------------------------------------------------------------------------------------------------------------------------------------- 需要VB API函数: FindWindow ←寻找窗口列表中第一个符合指定条件的顶级窗口 GetWindowThreadProcessId ←获取与指定窗口关联在一起的一个进程和线程标识符 ------------------...
标签: Web开发
随着Internet的普及,很多人已经不满足于仅仅上网冲浪,而希望深入地参与其中。现在,拥有自己的Web网站已经成为一种潮流。虽然制作一个简单的网页并不困难,但是制作出超凡脱俗的网站就不那么容易了,因此我们特意为大家准备了最新网站设计软件Dreamweaver MX 2004的系列教程,希望对大家有所帮助。 通常在一个网站中会有几十甚至几...
标签: PS教程
童靴们又有进步了没,不要放弃,成功就在前方,更多ps教程尽在图老师网 http://www.tulaoshi.com/diannao/

经验教程

703

收藏

9
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部