求一个按键精灵后台脚本

显示全部楼层 · 2010-1-20 15:52:58

'所需窗体及控件 Form1，Timer1，Command1Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Const VK_t = 84Const VK_5 = 53Const VK_Tab = 9Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub Form_Load()5 Timer1.Interval = 500Timer1.Enabled = FalseEnd SubPrivate Sub Command1_Click()If Timer1.Enabled ThenTimer1.Enabled = FalseElseTimer1.Enabled = TrueEnd IfEnd SubPrivate Sub Timer1_Timer()
keybd_event VK_t, 0, 0, 0 ' press t
keybd_event VK_t, 0, &H2, 0 ' release t
keybd_event VK_5, 0, 0, 0' press 5
keybd_event VK_5, 0, &H2, 0' release 5
Sleep 1500
keybd_event VK_5, 0, 0, 0' press 5
keybd_event VK_5, 0, &H2, 0' release 5
Sleep 1500
keybd_event VK_Tab, 0, 0, 0' press Tab
keybd_event VK_Tab, 0, &H2, 0' release TabEnd Sub

千问 · 2010-1-20 15:52:58

UserVar jiange2=2 1的间隔(秒为单位)//下面这句是得到鼠标指向的窗口句柄Plugin Hwnd = Window.MousePoint()While 1
//下面这句用于向后台窗口句柄(变量：Hwnd)发送一个键盘(扫描码：65)按键
Plugin Bkgnd.KeyPress(Hwnd, 49)
Delay jiange2*1000EndWhile 先给你个按1的。。。如果要全功能。。自己可以加不懂可以问我

千问 · 2010-1-20 15:52:58

如果需要的话你可以留下你的QQ.. 我会联系你的