SayString str5 KeyPress 13,1 Delay Yanshi //等待半分钟后,进行下一轮叫卖 For 30 Delay 1000 Next Goto go Event Form1.TabControl3.SelectChange End Event Event Form1.TabControl1.SelectChange End Event //点击编辑界面的注释按钮,即可看到比较详细的脚本说明 Call RunApp("notepad") Delay 2000 StringDelay=1000 //最大化写字板 KeyDown "Alt", 1 KeyPress "F", 1 KeyUp "Alt", 1 Delay 500 KeyPress "Left", 1 Delay 500 KeyPress "X", 1 SayString "hi,你好,我是""按键精灵"",我是个很有趣的软件,如果你愿意花5分钟的时间来了解我,你一定会喜欢上我的。 :-)" KeyPress "Enter", 1 Delay StringDelay SayString "愿意了解我吗?如果愿意,请你按下键盘上的Y键,如果不喜欢我,那就按下键盘上的N键(等待按键...)" KeyPress "Enter", 1 Do //等待按键 key=WaitKey() KeyPress "Enter", 1 TracePrint "用户按下的键是:" & key If key=78 Then Call GuanBiChuangKou() //按下n不保存,直接关闭 Delay 1000 KeyPress "N", 1 Delay 1000 Call 脚本结束() ElseIf key=89 Then Exit do Else SayString "请按Y或者N,不要按其他键(等待按键...)" KeyPress "Enter", 1 End If loop //结束等待 SayString "哈哈,我太高兴了,又多了一个喜欢我的朋友,那我先来一个自我介绍吧。" KeyPress "Enter", 1 Delay StringDelay SayString "我叫“按键精灵”,我的爸爸是伟大的兄弟工作组,我在网上有个家,地址是www.anjian.com,欢迎来做客哦" KeyPress "Enter", 1 Delay StringDelay SayString "嗯,好像废话多了些,如果不希望我继续废话,请按一下键盘,随便哪个键都可以啦(等待按键...)" KeyPress "Enter", 1 key=WaitKey() KeyPress "Enter", 1 SayString "嘿嘿,按键了吧。其实我的本领就是让你按一下键盘,就可以作很多动作。不过你好像还有点不太理解哦" KeyPress "Enter", 1 Delay StringDelay SayString "嗯" For 6 SayString "." Delay 500 Next SayString "让我想想怎么解释给你" For 6 SayString "." Delay 500 Next KeyPress "Enter", 1 SayString "哈,有了,我把一些好朋友使用我的例子介绍给你吧,想听的话就再按一下键盘吧(等待按键...)" KeyPress "Enter", 1 key = WaitKey() KeyPress "Enter", 1 SayString "呵呵,其实我最多的朋友是玩游戏的朋友,特别是玩网络游戏的朋友。" KeyPress "Enter", 1 Delay StringDelay SayString "在游戏里,经常要做一些重复的动作,比如反复按鼠标和键盘,有了我就轻松啦,我可以代替你按键盘和鼠标。" KeyPress "Enter", 1 Delay StringDelay SayString "我还很聪明的,只要你稍微熟悉我一些,就可以让我作出很多聪明的动作,比如在游戏里面自动找怪物打怪物。" KeyPress "Enter", 1 Delay StringDelay SayString "由于我只是模仿人们双手的操作,所以我和那些万恶的外挂是坚决划清界限的,大家一定要支持我啊" KeyPress "Enter", 1 Delay StringDelay SayString "除了玩家之外,我还有很多朋友,比如有的把我当作日常办公的小助手,减轻了很多工作,可惜不给我发工资。" KeyPress "Enter", 1 Delay StringDelay SayString "总之,我很有用啦,双手可以做到的事情,我都可以代劳,如果你发现有些事情双手做起来很累,就交给我吧!" KeyPress "Enter", 1 KeyPress "Enter", 1 Delay StringDelay SayString "啊,罗嗦了很多啦,下面我还是手把手的告诉你一些我的具体能力吧。"