UC知道VB高手进,看看这段代码,或求个自动按键的小程序!!
来源：百度知道 编辑：UC知道 时间：2024/06/25 08:41:38
废话不说,直接看代码
dim wsh
set wsh=createobject("wscript.shell")
do
wsh.sendkeys "{J}"
wscript.sleep 700
wsh.sendkeys "{J}"
wscript.sleep 700
wsh.sendkeys "{J}"
wscript.sleep 700
wsh.sendkeys "{L}"
wscript.sleep 2200
loop
上面这段代码是每0.7秒按一次J键,按3次,L1次,但是怎么停止??
难道只能结束进程??
另外,我想在游戏里用,- -!但它貌似只能在桌面运行....
这代码我百度找的- -!本人完全不懂- -!!乱抄乱理解!!
如果这个错误...另求个自动按键的......我要用在游戏里,用按键精灵貌似非法....
自动按键要求入下:
按J键3次. L 1次,别太快,中间隔点时间,
要求这样:
按 J 隔0.5秒
按 J 隔0.5秒
按 J 隔0.7秒
按 L 隔0.7秒
就这样无限循环,直到我按某个键停止(F10吧,别的也行)
记得要能在游戏(DNF)里运行哦!!!!!!!!!
l4m2 ,我汗...按照你的代码我写上后保存VBS.VBS运行后出现这个
dim wsh
set wsh=createobject("wscript.shell")
do
wsh.sendkeys "{J}"
wscript.sleep 700
wsh.sendkeys "{J}"
wscript.sleep 700
wsh.sendkeys "{J}"
wscript.sleep 700
wsh.sendkeys "{L}"
wscript.sleep 2200
loop
上面这段代码是每0.7秒按一次J键,按3次,L1次,但是怎么停止??
难道只能结束进程??
另外,我想在游戏里用,- -!但它貌似只能在桌面运行....
这代码我百度找的- -!本人完全不懂- -!!乱抄乱理解!!
如果这个错误...另求个自动按键的......我要用在游戏里,用按键精灵貌似非法....
自动按键要求入下:
按J键3次. L 1次,别太快,中间隔点时间,
要求这样:
按 J 隔0.5秒
按 J 隔0.5秒
按 J 隔0.7秒
按 L 隔0.7秒
就这样无限循环,直到我按某个键停止(F10吧,别的也行)
记得要能在游戏(DNF)里运行哦!!!!!!!!!
l4m2 ,我汗...按照你的代码我写上后保存VBS.VBS运行后出现这个
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Timer1.Interval = 4200
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim wsh
Set wsh = CreateObject("wscript.shell")
DoEvents
wsh.SendKeys "{J}"
Sleep 700
wsh.SendKeys "{J}"
Sleep 700
wsh.SendKeys "{J}"
Sleep 700
wsh.SendKeys "{L}"
End Sub
按你的要求，用timer控件实现起来方便一些
本人机器里就只有war3，在上面试试能打出字来
完了之后用批处理实现在游戏中快捷键退出。
首先在随便哪创建一个记事本
在里面打
@echo off
taskkill /f /im vb6.exe
vb6.exe 是指你要结束的进程，如果你已经生成可执行文件，则相应改名
保存，把后缀由txt改为bat
再创建一个批处理
@echo off
>"%userprofile%\桌面\2.vbs" echo Set WshShell = WScript.CreateObject("WScript.Shell")
>>"%userprofile%\桌面\2.vbs" echo strDesktop = WshShell.SpecialFolde