Call Plugin.Msg.Tips("检测到新版本"&Verson) //按键8的Tips
    MessageBox "已经检测到新版本:" & Verson & vbcrlf & vbcrlf
    
     ReadNewsYesNo = Msgbox("需要自动收货。请加QQ1144345788，完美 ", 4 + 4096, "提示")
      If ReadNewsYesNo = 6 Then 
    	RunApp("http://user.qzone.qq.com/1144345788/")
      End If
    ExitScript
    Else 
    Call Plugin.Msg.Tips("本版本为最新版本...")
    //MessageBox "本版本为最新版本"
    End If


//================================================================================
//MessageBox "正在初始话请稍等"
Call Plugin.Msg.Tips("正在初始话请稍等...")
DqTime = lib.网络.获取网络时间()
//获取网络时间，得到的时间格式为：2000-1-1 12:00:00
zzsj="2011-6-1 23:59:59"
//zzsj=终止时间 终止时间为脚本使用限定的最后时间！
If CDate(DqTime)<CDATE(ZZSJ)
Call Plugin.Msg.Tips("初始化成功!(*^__^*)")

//MessageBox "初始化成功!(*^__^*)"
//Msgbox "验证成功！继续使用！"
Else
Msgbox "初始化失败！⊙﹏⊙‖∣"  
EndScript
End If
//================================================================================


Hwnd = Plugin.Window.Find(0, "地下城与勇士")
Call Plugin.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 = Plugin.Window.IsWindow(Hwnd)
If Window = 1 Then 
VBS Set fso = CreateObject("Scripting.FileSystemObject")
//判断d盘下是否有文件1.txt
VBS pd1=fso.FileExists("c:\log.txt")
if 0=pd1
//没有的话，在d盘下创建一个不可覆盖的文件1.txt
VBS set txtfile=fso.createtextfile("c:\log.txt",false)
//以在末尾写入的方式打开1.txt

End If////确认logtxt存在

sDate = Plugin.Sys.GetDateTime()
Call Plugin.File.WriteFileEx("c:\log.txt", sdate&"→→→【开始收货】")
Call Plugin.Msg.Tips("赚大钱哈(*^__^*)")
Call 大漠初始化
Call npc
ExitScript
Goto 开始
//Goto 二
Else 
    MsgBox "没有找到制定窗口"
    ExitScript
End If 

////////////////////////////////////////////////////////////////////



/////////////////////////////////////////////////////////

Rem 开始
ydfdxi = 0

Do  While 1
Call 交易请求检查
Call 交易请求检查xp
Hwnd = Plugin.Window.Find(0, "地下城与勇士")
Call Plugin.Window.Active(Hwnd)
Delay 100
MoveTo 36, 429
LeftClick 1
If dxgj = 1 Then 
	KeyPress "Enter", 1
Delay 300

Call 附近检测
/////////////////////////掉线关机////////////////////////
If ifj > 15 and dxgj > 0 Then 
	Call 关机
End If
//////////////////////////////////////////////////////////
End If
Call 站街喊话 
////////////////////////移动防掉线////////////////////////////////////////
ydfdxi = ydfdxi + 1
If ydfdx = true and ydfdxi>10 Then 
	Call 移动
	ydfdxi = 0