论坛 › 『 提问交流 』 › 我想做一个模拟键盘的30秒循环 请赐教!

amitydog 发表于 2009-8-2 23:58:52

我想做一个模拟键盘的30秒循环 请赐教!

各位高手叔叔,我是一个菜鸟,我想做一个键盘的30秒循环. 就2个键 : ESC和F1下面是步骤: 第一秒ESC第二秒F1第三秒ESC第四秒ESC   第十秒ESC   第十六秒ESC第二十二秒ESC第二十八秒ESC   然后到三十秒是一个循环结束   请各位帮我写一下脚本好吗? 您要是嫌麻烦 就把前4秒的步骤和最后到第三十秒结束的语句写上中间的我照猫画虎谢谢各位了 麻烦 麻烦!

afan 发表于 2009-8-3 00:40:50

mnjj()

Func mnjj()
        Sleep(1000) ;第1秒
        Send('{ESC}')
        Sleep(1000) ;第2秒
        Send('{F1}')
        Sleep(1000) ;第3秒
        Send('{ESC}')
        Sleep(1000) ;第4秒
        Send('{ESC}')
        Sleep(6000) ;第10秒
        Send('{ESC}')
        Sleep(6000) ;第16秒
        Send('{ESC}')
        Sleep(6000) ;第22秒
        Send('{ESC}')
        Sleep(6000) ;第28秒
        Send('{ESC}')
        Sleep(2000) ;第30秒
EndFunc   ;==>mnjj

amitydog 发表于 2009-8-3 11:53:40

谢谢afan指教！ 刚才试试非常好用 我想让这个命令无限循环下去 要加什么命令啊？ 就是说30秒一次循环 然后再继续从第一秒开始 就这样无限循环下去 谢谢 谢谢 刚才研究半天也没搞明白

sunless 发表于 2009-8-3 12:16:53

while 1
    mnjj()
wend

Func mnjj()
        Sleep(1000) ;第1秒
        Send('{ESC}')
        Sleep(1000) ;第2秒
        Send('{F1}')
        Sleep(1000) ;第3秒
        Send('{ESC}')
        Sleep(1000) ;第4秒
        Send('{ESC}')
        Sleep(6000) ;第10秒
        Send('{ESC}')
        Sleep(6000) ;第16秒
        Send('{ESC}')
        Sleep(6000) ;第22秒
        Send('{ESC}')
        Sleep(6000) ;第28秒
        Send('{ESC}')
        Sleep(2000) ;第30秒
EndFunc   ;==>mnjj

amitydog 发表于 2009-8-3 15:56:32

:face (36):谢谢 二位的指导！我会在这个基础上继续研究的！谢谢了 ！

free168 发表于 2009-8-4 09:30:48

学习一下 好方法

查看完整版本: 我想做一个模拟键盘的30秒循环 请赐教!