- 弹出窗口 "已经检测到新版本:" & Verson & vbcrlf & vbcrlf
- 令 ReadNewsYesNo = Msgbox("需要自动收货。请加QQ1144345788,完美 ",4 + 4096,"提示")
- 如果 ReadNewsYesNo = 6 则
- 启动程序或打开文件 ("http://user.qzone.qq.com/1144345788/")
- 条件结束
- ExitScript()
- 否则
- 调用 Msg.Tips("本版本为最新版本...")
- 注释:MessageBox "本版本为最新版本"
- 条件结束
- 注释:================================================================================
- 注释:MessageBox "正在初始话请稍等"
- 调用 Msg.Tips("正在初始话请稍等...")
- 令 DqTime = (命令库 网络)获取网络时间()
- 注释:获取网络时间,得到的时间格式为:2000-1-1 12:00:00
- 令 zzsj = "2011-6-1 23:59:59"
- 注释:zzsj=终止时间 终止时间为脚本使用限定的最后时间!
- 如果 CDate(DqTime) < CDATE(ZZSJ) 则
- 调用 Msg.Tips("初始化成功!(*^__^*)")
- 注释:MessageBox "初始化成功!(*^__^*)"
- 注释:Msgbox "验证成功!继续使用!"
- 否则
- Msgbox("初始化失败!⊙﹏⊙‖∣")
- 脚本停止运行
- 条件结束
- 注释:================================================================================
- 令 Hwnd = Window.Find(0,"地下城与勇士")
- 调用 Window.Active(Hwnd)
- (语句无法识别,可能有错误): Call Plugin.Window.Move(Hwnd, 0, 0) //对环境的初始 很重要
- 注释:zdtxt1 = "C:\Documents and Settings\Administrator\桌面\金币.txt"
- 注释:zdtxt2 = "C:\Documents and Settings\Administrator\桌面\srlib.txt"
- 令 Window = Window.IsWindow(Hwnd)
- 如果 Window = 1 则
- 令 fso = CreateObject("Scripting.FileSystemObject")
- 注释:判断d盘下是否有文件1.txt
- 令 pd1 = fso.FileExists("c:\log.txt")
- 如果 0 = pd1 则
- 注释:没有的话,在d盘下创建一个不可覆盖的文件1.txt
- 令 txtfile = fso.createtextfile("c:\log.txt",false)
- 注释:以在末尾写入的方式打开1.txt
- (语句无法识别,可能有错误): End If////确认logtxt存在
- 令 sDate = Sys.GetDateTime()
- 调用 File.WriteFileEx("c:\log.txt",sdate & "→→→【开始收货】")
- 调用 Msg.Tips("赚大钱哈(*^__^*)")
- 调用 大漠初始化
- 调用 npc
- ExitScript()
- 跳转到标记 开始
- 注释:Goto 二
- 否则
- MsgBox("没有找到制定窗口")
- ExitScript()
- 条件结束
- 注释://////////////////////////////////////////////////////////////////
- 注释:///////////////////////////////////////////////////////
- 标记 开始
- 令 ydfdxi = 0
- 循环当 1 时
- 调用 交易请求检查
- 调用 交易请求检查xp
- 令 Hwnd = Window.Find(0,"地下城与勇士")
- 调用 Window.Active(Hwnd)
- 延时 100 毫秒
- (鼠标)移动到 (36, 429)
- (鼠标)左键单击, 1次
- 如果 dxgj = 1 则
- (键盘)按 "Enter" 键, 1次
- 延时 300 毫秒
- 调用 附近检测
- 注释:///////////////////////掉线关机////////////////////////
- 如果 ifj > 15 并且 dxgj > 0 则
- 调用 关机
- 条件结束
- 注释:////////////////////////////////////////////////////////
- 条件结束
- 调用 站街喊话
- 注释://////////////////////移动防掉线////////////////////////////////////////
- 令 ydfdxi = ydfdxi + 1
- 如果 ydfdx = true 并且 ydfdxi > 10 则
- 调用 移动
- 令 ydfdxi = 0
- 条件结束
- 注释:///////////////////////////////////////////////////
- 循环结束
- 标记 开始交易
- 调用 喊话初始化
- 延时 1500 毫秒
- 调用 交易喊话A
- 延时 1000 * ddsj 毫秒
- 调用 物品检测
- 注释:MessageBox zj
- 标记 二
- 调用 输入金币
- 延时 200 毫秒
- 令 i2 = 0
- 循环当 1 时
- 调用 确认交易框存在
- 如果 jyzt1 = 0 并且 jyzt2 = 0 则
- 调用 读取输入金币数
- 令 tempzj = tempzj * 1