我的脚本1.zip[点击下载](4 K) 下载次数:33 累计下载获得 DB 60 刀源码 不杀毒了吧
http://bbs.houdao.com/read.php?tid=7264003&displayMode=1#tpc下面是代码
//===================================================================
i = Form1.InputBox1.text
TracePrint i
适当延时 = Form1.InputBox3.TEXT
If Form1.CheckBox1.Value = 1 Then
Call 字典模式
Else
Call 死循环
End If
Event Form1.Button1.Click
返还路径 = Plugin.File.SelectFile()
Form1.InputBox2.Text=返还路径
End Event
Sub 死循环
While 7 = 7
SayString i
KeyPress "Enter", 1
Delay 20
KeyPress "Enter", 1
i = i + 1
Delay 适当延时
Wend
End Sub
Sub 字典模式
得到文本 = Plugin.File.ReadFileEx(返还路径)
数组 = Split(得到文本, "|")
q = 1
While 7 = 7
SayString 数组(Q)
KeyPress "Enter", 1
Delay 20
KeyPress "Enter", 1
Delay 适当延时
Q = Q + 1
Wend
End Sub
![【小心超人.】好了 我彻底无语了 破解赛车房 源码送上](https://hd.lanyin.net/11884/photo/Mon_1208/40637_7bc0134589372820352ffa3b6d295.jpg)
![【小心超人.】好了 我彻底无语了 破解赛车房 源码送上](https://hd.lanyin.net/11884/photo/Mon_1208/40637_1a90134589372355ed80a5d9574b2.jpg)
[ 此帖被小心超人.在2013-01-25 14:02重新编辑 ]