// 全局变量，记录最后IP与锁定
var LastIP = document.getElementById("wan1_ip").innerHTML;
var ChangeNow = true;

// 检查IP是否变更
function check_ip() {
    var NowIP = document.getElementById("wan1_ip").innerHTML;
    console.log("LastIP: %s, NowIP: %s, ChangeNow: %s,DateTime: %s", LastIP, NowIP, ChangeNow, now());
    if ((NowIP == "0.0.0.0") || (NowIP == "")) {
        ChangeNow = false;
        return 0;
    }
    if ((LastIP == NowIP) && (ChangeNow == true)) {
        change_ip();
    } else {
        LastIP = NowIP;
        ChangeNow = false;
    }
}

// 更改IP
function change_ip() {
    if (ChangeNow == true) {
        console.log(" --- > ChangeNow: %s, DateTime: %s", ChangeNow, now());
        ChangeNow = false;
        sub_status_change('WAN1');
    };
}

// 当前日期加时间(如:2009-06-12 12:00)
function now()
{ 
	var now = new Date();
	var year = now.getFullYear();       //年
	var month = now.getMonth() + 1;     //月
	var day = now.getDate();            //日
	var hh = now.getHours();            //时
	var mm = now.getMinutes();          //分
    var ss = now.getSeconds();          //秒
    var ms = now.getMilliseconds();     //毫秒
	var clock = year + "-";
        month < 10 ? clock += "0" : clock += month + "-";
        day < 10   ? clock += "0" : clock += day + " ";
        hh < 10    ? clock += "0" :	clock += hh + ":";
        mm < 10    ? clock += '0' : clock += mm + ":"; 
        ss < 10    ? clock += '0' : clock += ss + "."; 
        clock += ms; 
	return(clock); 
} 

// 时钟
var timer1 = window.setInterval("check_ip()", 500);
var timer2 = window.setInterval("ChangeNow=true;",25*1000);

// 清除时钟
//window.clearInterval(timer1);
//window.clearInterval(timer2);
复制代码

Do 
    TouPiao
    CreateObject("WScript.Shell").Run "cmd /c taskkill /f /im iexplore.exe", 0, True
Loop

Sub TouPiao()

    On Error Resume next
    Do While Ping("www.sina.com") = False
        WScript.Sleep 200
    Loop

    Set ie = CreateObject("internetexplorer.application") '创建浏览器对象
    URL = "http://xxx.xxx.sina.com.cn/survey.php?id=xxx"   ' 投票网址
    
	With ie
		' Configure the IE window
		.RegisterAsDropTarget = False
		'.statusbar = False : .toolbar = False : .menubar = False : .addressbar = False : .Resizable = False
		.Visible = True : .Navigate(URL)
    End With
    
	With ie
    	.width = 600       : .height = 200   ' 宽度与高度
		.left = .document.parentWindow.screen.width \ 2 - 300    ' 居中显示
		.top  = .document.parentWindow.screen.height\ 2 - 200
		' Test for IE 7 - cannot remove 'chrome' in that version
		REM nVersion  = CSng(replace(split(_
						REM .document.parentWindow.navigator.appVersion, " ")(3)_
						REM , ";", ""))
		REM if nVersion < 7.0 Then .FullScreen = True
    End With
    
    WScript.Sleep 2000
    
    Do While ie.ReadyState <> 4           ' 这个是 判断 浏览器打开的网页是否装载 完全
        If Not Ping("www.sina.com") = True Then Exit Sub
        If Not LCase(ie.document.location.href) = LCase(URL) Then Exit Sub
        If Not Err.Number = 0 Then Exit Sub
        WScript.Sleep 2*100
    Loop
    
    'WScript.Sleep 7*1000


    Set Items = ie.document.getElementsByTagName("input")
    For Each Item in Items
        If Item.name = "投票者单选框名称" And Item.value = "投票者ID" Then
            Item.focus()
            Item.Click
            rem Item.Click
            
            WScript.Sleep 1*1000
            Exit For
        End if
    Next
    
    ie.document.getElementById("JS_Survey_Submit").Click    ' 自动点击投票
    WScript.Sleep 3*1000
    
    ie.Quit

End Sub


' ----------------------------------------------------------------------------------------------------
' Ping 判断网络是否联通
' Msgbox Ping("www.baidu.com")
Function Ping(ByVal sHost)
    Ping = False :  If sHost = "" Then Exit Function
    On Error Resume Next
    Dim objWMIService, colItems, colItem, Reply_StatusCode, Reply_bytes, Reply_time, Reply_TTL
	Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_PingStatus " & "Where Address = '" & sHost & "'",,48)
	For Each objItem in colItems
		Reply_StatusCode = objItem.StatusCode	' 状态，0正常
		Reply_bytes = objItem.ReplySize		    ' 包大小
		Reply_time = objItem.ResponseTime		' 回应时间
		Reply_TTL = objItem.ResponseTimeToLive	' 生存时间
        If Reply_StatusCode = 0 Then Ping = True :  Exit For
	Next
	Set colItems = Nothing
    Set objWMIService = Nothing
End Function
复制代码