求高手写一段完整的无限反复按'1'和'2'键的vb脚本
4lou粘到程序里不能用
是不是有地方错了
Private Sub Command1_Click()
Set wshshell = CreateObject("wscript.shell")
这句？wscript.sleep 100
Do
wshshell.SendKeys "1"
wscript.sleep 100
wshshell.SendKeys "2"
wscript.sleep 100
Loop
End Sub
wscript.sleep 100 '暂停100毫妙
do
wshshell.sendkeys "1"
wscript.sleep 100
wshshell.sendkeys "2"
wscript.sleep 100
loop
'我这个是VBS不是VB，把上面的内容保存为a.vbs 即可
sendkeys "a"
... "b"
next i
求高手写一段完整的无限反复按'1'和'2'键的vb脚本
wshshell.sendkeys "1"wscript.sleep 100 wshshell.sendkeys "2"wscript.sleep 100 loop '我这个是VBS不是VB，把上面的内容保存为a.vbs 即可
求帮忙写一个按键精灵脚本
km.down('f') #f键按 elif km.isdown(two)==0 and two_step==1:#1键第一次弹起 two_step=2 #状态2 elif km.isdown(two)==1 and two_step==2:#1键第二次按下 km.up('f') #f弹起 elif km.isdown(two)==0 and two_step==3:#1键第二次弹起 two_step=0 #状...
如何用VB制作按键精灵F1~F12
object.SendKeys(string)参数 object WshShell 对象。string 表示要发送的键击（一个或多个）的字符串值。说明 使用 SendKeys 方法可以将键击发送到无自动化界面的应用程序中。多数键盘字符都可用一个键击表示。某些键盘字符由多个键击组合而成（例如，CTRL+SHIFT+HOME）。要发送单个键盘字符，请将字符...
求教:用VB做自动键盘按键脚本!就是先按↓然后按回车 2秒循环一次
Private Sub Timer1_Timer()SendKeys "{DOWN}"SendKeys "{ENTER}"End Sub
按键精灵键盘循环脚本
这个要是用VB来做相当容易简单！用按键做就麻烦多了，不过,我还是为你做了较精简的代码,以下是我特为你做的：Dim z,j,x,z2,j2,x2,sj VBS z=now:j=now:x=now Rem 1 VBS z2=now:j2=now:x2=now VBS sj=datediff("n",z,z2)If sj>=1 KeyPress 90,1 VBS z=now EndIf VBS sj...
vb (按键精灵)实现按键盘上同一个键让循环暂停与执行
Do anjian = WaitKey() If anjian = 32 Then \/\/这里是你要按的键码 KeyPress "Q", 1\/\/这里按下一个用不到的键 Do LeftClick 1 Delay 500 RightClick 1 Delay 500 jian = GetLastKey()\/\/检测上次按下的键 If jian = 32 Then \/\/这里是按下你要按的键...
vb模拟鼠标 左键一直按下 和鼠标右键一直按下
i = 0 To KeyVirtual.Script.ListCount - 1 '从 ListBox 的第一个开始Sleep 1000 '程序延迟 1 秒Script1 = KeyVirtual.Script.List(i) '获得脚本ScriptLen = Len(Script1) '获得脚本字符长度Select Case Mid(Script1, 1, 2) '选择脚本字符前两个字符Case "坐标"Script1 = Mid(Script1,...
求助各位大神 按键精灵怎么把两端循环命令合在一起执行
方法二：顺序执行循环如果两个循环是相互独立的，即第一个循环执行完毕后紧接着执行第二个循环，可以直接将两个循环命令依次写下：循环 开始 (循环条件1)\/\/ 这里放置第一个循环内需要执行的命令 循环 结束 循环 开始 (循环条件2)\/\/ 这里放置第二个循环内需要执行的命令 循环 结束 请根据您的具体...
按键精灵1、2、3、4 建如何个执行各的按键时间?
while 1：now=time.ticks_ms()#获取当前运行时间 if now >one:km.press('1')#按1键 one=one+now if now >two:km.press('2')#按2键 two=two+now if now >three:km.press('3')#按3键 three=three+now if now >four:km.press('4')#按4键 four=four+now 以上脚本运行在kmbox...
VB脚本怎么写啊?
1、Private Sub Command1_Click()Const msg1 As String="请在这里输入你想显示的一段话!"Const msg2 As String="这里是对话框要显示的标题."MsgBox msg1,vbOkOnly,msg2 '此处代码一定不能添加()End Sub2、 form1按钮点击事件:form2.show form1.hide 3、启动VB程序，在窗体上放置6个命...
