Call 移动(672, 36)
    Delay 300
    RightClick 1
    Delay 300
    Call 移动(672, 50)
    Delay 300
    RightClick 1
    Delay 300
    Call ckcl(d4ID,151,277)
    Delay 300
    Call 移动(751, 315)
    Delay 300
    RightClick 1
    Delay 300
    Call 移动(751, 327)
    Delay 300
    RightClick 1
    Delay 300
    Call 移动(645, 313)
    Delay 300
    RightClick 1
    Delay 300
    Call 移动(645, 327)
    Delay 300
    RightClick 1
    Delay 300
    Call ckcl(d5ID,378,277)
    Delay 1000
    Call 移动(978, 513)
    Delay 300
    RightClick 1
    Delay 300
    Call 移动(978, 327)
    Delay 300
    RightClick 1
    Delay 300
    Call 移动(672, 313)
    Delay 300
    RightClick 1
    Delay 300
    Call 移动(672, 327)
    Delay 300
End Sub

Sub ckcl(kl,x1,y2)
    xes = kl
    xwz = x1
    ywz = y2
    Set dm = CreateObject("dm.dmsoft")
    CKBL = dm.EnumWindow(0,xes,"",1+4+8+16)
    CKSZ = split(CKBL,",")
    i = 0
    DYCK = CKSZ(i)
    dm_ret = dm.SetWindowState(DYCK,12)
    dm_ret = dm.SetWindowSize(DYCK, 646, 510)
    Delay 100
    dm.MoveWindow DYCK,xwz,ywz
    Delay 100
    dm_ret = dm.BindWindow(DYCK, "dx", "normal", "normal", 0)
    Delay 100
End Sub
Sub ckclb(kl)
    xes = kl
    Set dm = CreateObject("dm.dmsoft")
    CKBL = dm.EnumWindow(0,xes,"",1+4+8+16)
    CKSZ = split(CKBL,",")
    i = 0
    DYCK = CKSZ(i)
    dm_ret = dm.SetWindowState(DYCK,12)
    dm_ret = dm.SetWindowSize(DYCK, 646, 510)
    Delay 100
    Delay 100
    dm_ret = dm.BindWindow(DYCK, "dx", "normal", "normal", 0)
    Delay 100
End Sub
Sub 移动(mx,my)
    sj = timer: x = mx+sgn(240 - mx)*20 : y = my +sgn(180 -my)*20 
    Do
        MoveTo  x, y
        t = timer : x1 = x - 50 : y1 = y - 50
        If x1 < 0 Then x1 = 0
        If y1 < 0 Then y1 = 0   
        Do 
            FindPic x1, y1, x + 100, y + 100, "Attachment:\sb13.bmp", 0.7, a, b
        Loop  Until a>0 or (timer - t)*100> 5
        If a > 0 Then 
            x = x + sgn(mX - a)
            y = y + sgn(mY - b)
        Else 
            x = x + sgn(320 - x)
            y = y + sgn(240 - y)
        End If        
    Loop  Until abs(mX - a) < 3 and abs(mY - b) < 3 or timer - sj > 3
End Sub
Sub 网络验证	
    VBSBegin 
        Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
        XmlHttp.Open "Get", "http://www.baidu.com/", False
        XmlHttp.send
        datetxt = XmlHttp.getResponseHeader("Date")