vbscript也可以刷网站 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

学vbscript也有一段时间啦，这是我用两天时间写的，是不是觉得时间有点长啊，刚学不是太久，不是很熟练，觉得对大家应该有帮助，所以发上来，高手看了不要见笑哦

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

哈哈，做了一下广告，代码中的那个网址是我的网志，欢迎大家来哦

[ Last edited by icyheart on 2007-9-24 at 03:11 PM ]

第1楼　icyheart	发表于 2007-09-24 14:10
中级用户　发帖 81　积分 216
[原创]vbscript也可以刷网站学vbscript也有一段时间啦，这是我用两天时间写的，是不是觉得时间有点长啊，刚学不是太久，不是很熟练，觉得对大家应该有帮助，所以发上来，高手看了不要见笑哦 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 哈哈，做了一下广告，代码中的那个网址是我的网志，欢迎大家来哦 [ Last edited by icyheart on 2007-9-24 at 03:11 PM ]

第2楼　wudixin96	发表于 2007-09-24 14:18
银牌会员　发帖 931　积分 1,928
重复发帖了，删除一个吧

第3楼　icyheart	发表于 2007-09-24 14:56
中级用户　发帖 81　积分 216
不好意思，那个我删啦，发的时候，网有点问题，发重了也不知道，谢谢提醒

第4楼　lxmxn	发表于 2007-09-24 15:02
版主　发帖 4,938　积分 11,386
既然是原创，代码也不算少，就把版面弄好看一点嘛，怎么也得用code把代码引用起来，是吧？

第5楼　icyheart	发表于 2007-09-24 15:12
中级用户　发帖 81　积分 216
恩说的对，我以后会注意的