[原创]vbscript也可以刷网站 - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

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