- 情况 1:
- 令 Form1.选择.Enabled = True
- 令 Form1.路径.Enabled = True
- 令 Form1.播放.Enabled = True
- 令 Form1.停止.Enabled = True
- 情况 :
- 令 Form1.选择.Enabled = False
- 令 Form1.路径.Enabled = False
- 令 Form1.播放.Enabled = False
- 令 Form1.停止.Enabled = False
- 选择结束
- (语句无法识别,可能有错误): End Event
- 注释:选择MP3文件路径
- Event(Form1.选择.Click)
- 定义变量 MP3
- (语句无法识别,可能有错误): MP3 = Plugin.File.SelectFile() '打开选择文件对话框
- 如果 UCase(Right(MP3,4)) = ".MP3" 或者 UCase(Right(MP3,4)) = ".WAV" 则
- 注释:检查是不是选中 .mp3 音乐文件
- 条件结束
- 令 Form1.路径.Text = MP3
- 否则
- 如果 MP3 <> "" 则
- MsgBox("请选择“.mp3或者.wav”音乐格式的文件!")
- 条件结束
- 条件结束
- (语句无法识别,可能有错误): End Event
- 注释:播放音乐测试
- Event(Form1.播放.Click)
- 调用 Media.Play(Form1.路径.Text)
- (语句无法识别,可能有错误): End Event
- 注释:停止播放音乐
- Event(Form1.停止.Click)
- 调用 Media.Stop()
- (语句无法识别,可能有错误): End Event
- 注释:停止播放音乐
- (语句无法识别,可能有错误): Event Form1.UnLoad '当窗体被关闭卸载后触发的事件
- 调用 Media.Stop()
- (语句无法识别,可能有错误): End Event
- 注释:加载窗体时释放MP3文件
- (语句无法识别,可能有错误): Event Form1.Load '当窗体被加载时触发的事件
- 展开附件 *.wav 到 C:\ 文件夹
- (语句无法识别,可能有错误): End Event
- Event(Form1.服务器.SelectChange)
- (语句无法识别,可能有错误): End Event
- 用户定义变量 MoShi=DropList{"普通模拟":0|"超级模拟":1|"硬件模拟":2}=0 "设置模拟方式"
- 用户定义变量 str1="这是自动喊的第1句话" "请输入自动叫喊的第1句话"
- 用户定义变量 str2="这是自动喊的第2句话" "请输入自动叫喊的第2句话"
- 用户定义变量 str3="这是自动喊的第3句话" "请输入自动叫喊的第3句话"
- 用户定义变量 str4="这是自动喊的第4句话" "请输入自动叫喊的第4句话"
- 用户定义变量 str5="这是自动喊的第5句话" "请输入自动叫喊的第5句话"
- 用户定义变量 Yanshi=3000 "两句喊话之间的等待时间,1秒钟是1000"
- 注释:****************设置结束*****************
- 如果 MoShi = 0 则
- 设置模拟方式为:普通模拟
- 否则如果 MoShi = 1 则
- 设置模拟方式为:超级模拟
- 否则如果 MoShi = 2 则
- 设置模拟方式为:硬件模拟
- 条件结束
- 延时 500 毫秒
- 标记 go
- 输入文本 str1
- (键盘)按 Enter 键, 1次
- 延时 Yanshi 毫秒
- 输入文本 str2
- (键盘)按 Enter 键, 1次
- 延时 Yanshi 毫秒
- 输入文本 str3
- (键盘)按 Enter 键, 1次
- 延时 Yanshi 毫秒
- 输入文本 str4
- (键盘)按 Enter 键, 1次
- 延时 Yanshi 毫秒
- 输入文本 str5
- (键盘)按 Enter 键, 1次
- 延时 Yanshi 毫秒
- 注释:等待半分钟后,进行下一轮叫卖
- 循环 30 次
- 延时 1000 毫秒
- 循环结束
- 跳转到标记 go
- Event(Form1.TabControl3.SelectChange)
- (语句无法识别,可能有错误): End Event
- Event(Form1.TabControl1.SelectChange)
- (语句无法识别,可能有错误): End Event
- 注释:点击编辑界面的注释按钮,即可看到比较详细的脚本说明
- 调用 启动程序或打开文件 "notepad"
- 延时 2000 毫秒
- 令 StringDelay = 1000
- 注释:最大化写字板
- (键盘)按下 "Alt" 键
- (键盘)按 "F" 键, 1次
- (键盘)弹起 "Alt" 键
- 延时 500 毫秒
- (键盘)按 "Left" 键, 1次
- 延时 500 毫秒
- (键盘)按 "X" 键, 1次
- 输入文本 "hi,你好,我是""按键精灵"",我是个很有趣的软件,如果你愿意花5分钟的时间来了解我,你一定会喜欢上我的。 :-)"
- (键盘)按 "Enter" 键, 1次
- 延时 StringDelay 毫秒