无聊时弄着玩的,还没学TC,大家随意看看,不要当真

迷途

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