内容显示页

使用WMI切换或改变IE代理(Use WMI Change IE Proxy)

类别：ASP+VBS　|　浏览(905)　|　2008-11-6 14:16:36

If WScript.Arguments.Count = 0 Then
    GetI = -1
Else
    GetI = CInt(WScript.Arguments(0))
End If

Call YourCode()


'把你弄到的代理都写在一个文本文件里（IP.txt），格式是一行一个： ip:端口
IPS = CreateObject("Scripting.FileSystemObject").OpenTextFile("IP.txt", 1, True).ReadAll
IPS = Split(IPS, vbCrLf)


For IPS_I = 0 To UBound(IPS)
    If IPS_I > GetI Then
        IPTemp = Split(IPS(IPS_I), ":")
        ChangeProxy IPTemp(0), IPTemp(1)
        Set WshShell = CreateObject("wscript.shell")
        WshShell.run("cscript " & WScript.ScriptFullName & " " & IPS_I)
        wscript.quit
    End If
Next


Sub YourCode()
    '你的代码
End Sub

'使用WMI切换IE代理(Use WMI Change IE Proxy)

Function ChangeProxy(IP, Port)
    '获取计算机名
    'Set oNetwork = WScript.CreateObject("WScript.Network")
    'computername=oNetwork.ComputerName
    On Error Resume Next
    Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
    Set objShare = objWMIService.Get("Win32_Proxy.ServerName='computername'")
    Set objInParam = objShare.Methods_("SetProxySetting").inParameters.SpawnInstance_()
    objInParam.Properties_.Item("ProxyPortNumber") = Port
    objInParam.Properties_.Item("ProxyServer") = IP
    Set objOutParams = objWMIService.ExecMethod("Win32_Proxy.ServerName='computername'", "SetProxySetting", objInParam)
End Function

引用本页地址：http://www.yongfa365.com/item/ChangeProxy.vbs.html

上一篇：让SendKeys可以发送中文
下一篇：.NET Winform 开发中的一些小技巧

相关链接

网友评论：

1 匿名网友 - 2008-11-9 19:24:37

貌似注册表可以增加或删除代理

2 yongfa365 - 2008-11-10 10:44:31

注册表是可以，不过总感觉注册表有时想生效得重启，所以，没想用修改注册表的方法实现。

3 雨中风铃 - 2008-11-11 10:04:57

美中不足是一次只能使用一个IP.txt中指定行的代理。如果把代码变换一下使用CreateObject("msxml2.serverXMLHTTP")
，结合花刺代理软件搜索出来的代理可以考虑编一个突破ip限制的投票程序

4 yongfa365 - 2008-11-11 12:52:08

@雨中风铃
看来你也搞这东西呀，哈哈，我就是用花刺代理软件弄的代理放在ip.txt里的。

你说的那个理论上来说可以实现，不过感觉没什么意义。

我想的实现方法是，在程序里实现搜索baidu或google上的免费代理，然后取到那些地址，然后再从那些地址上匹配代理，用WMI验证代理速度及有效性，然后再做其它操作

5 雨中风铃 - 2008-11-12 10:15:40

在baidu或google上搜索免费代理，效果不是很好，多收集一些代理公布站点，然后用花刺验证，效果要好一些。至于投票，用变换代理的方法不理想，往往搜索出来的匿名代理很少，相对而言用adsl拨号->换ip投票->断开连接->拨号，效果要好得多：
@echo off
set MyConnection=更改为你的连接名称
set MyUsername=更改为你的ADSL帐号
set MyPassword=更改为你的ADSL密码
:begin
ping www.baidu.com -n 1
if %ERRORLEVEL% neq 0 (
echo 正在ADSL连接：%MyConnection% ...
Rasdial %MyConnection% %MyUsername% %MyPassword%
echo 已经连接：%MyConnection%
cscript vote.vbs
Rasdial %MyConnection% /disconnect
echo 已经断开ADSL连接：%MyConnection%
)
else (
cscript vote.vbs
Rasdial %MyConnection% /disconnect
echo 已经断开ADSL连接：%MyConnection%
)
goto begin

6 大狗 - 2010-3-30 10:02:56

都是银才啊。。。我收了。。。