Set oNetwork = WScript.CreateObject("WScript.Network")
computername=oNetwork.ComputerName

'获取计算机名

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set objShare = objWMIService.Get("Win32_Proxy.ServerName='computername'")

Set objInParam = objShare.Methods_("SetProxySetting"). _

inParameters.SpawnInstance_()

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("C:\1.txt", ForReading)

input=inputbox("请输入你要刷的网站名:" +chr(13)+ _

                "例如:" +chr(13)+ _

               "http://hi.baidu.com/icecoldheart","请输入地址")   

if input<>"" then

Do Until objFile.AtEndOfStream

     strNextLine = objFile.ReadLine

     If Len(strNextLine) > 0 Then

         strLine = strNextLine

     address=instr(1,strline,":",1)

     ip=left(strline,address-1)

     port=right(strline,len(strline)-address)

'这是读文本的代码一直读到文本的最后一行

' 添加端口号和代理服务器地址

objInParam.Properties_.Item("ProxyPortNumber") = port

objInParam.Properties_.Item("ProxyServer") = ip

'这的strline在赋值的时候不能加双引号

Set objOutParams = objWMIService.ExecMethod("Win32_Proxy.ServerName='computername'",

"SetProxySetting", objInParam)

set objshell=createobject("wscript.shell")

set objie=createobject("internetexplorer.application")

objie.visible=true

objshell.appactivate "Windows Internet Explorer"

wscript.sleep 3000

objshell.sendkeys "{tab}"

objshell.sendkeys input

'这的input和上面的strline一样赋值的时候不能加双引号

objshell.sendkeys "{enter}"

wscript.sleep 6000

objie.quit
    End If
Loop

objFile.Close

end if