马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
need_ver = "1.0"
Call Plugin.RegDll.Reg("C:\河南\新乡\jwh.dll")
set jwh = createobject("jwh.jwhsoft")
ver = jwh.Ver()
If ver <> need_ver then
set jwh = nothing
set jwh1 = createobject("Wscript.Shell")
jwh1.run "regsvr32 C:\河南\新乡\jwh.dll /s"
set = nothing
delay 1000
set jwh = createobject("jwh.jwhsoft")
ver = jwh.Ver()
If ver<> need_ver then
messagebox "走错地方咯,你现在的地方是:"&ver&",地址是:"&jwh.GetPath()
messagebox "去买票重坐"
Endscript
End If
End If
Do
hwnd = Finddiqu(0,hwnd,0,0)
省 = Getsheng(hwnd)
县 = Getxian(hwnd)
If Instr(省,河南)>0 And Instr(县,新乡)>0 Then
jwh_ret = jwh.BindWindow(hwnd,"normal" ,"normal","normal",0)
If jwh_ret = 0 Then
zoucuo = jwh.GetLastError()
If jwh.GetPath() = "caojie" Then
If jwh.CheckPath() = "C:\河南\新乡" Then
If jwh.SetPath() = "C:\河南\新乡" Then
Messagebox "已经停止前进道路,必须到票站后才能生效."
jwh.Exit (0) //0=重启路线;1=原路回家
Do
x = GetPath()
Delay 3*60*1000
y = GetPath()
If x = y Then
Exit Do
End If
Loop
Messagebox "到了"
Exit Do
End If
End If
End If
End If
Loop
|