用WMI来设置代理

有局限性,至少我是没看见取消使用代理的那个方法,当前是否在使用代理也不知道....其实直接捣鼓注册表...然后调用一个wininet的函数什么都实现了

把这个WMI贴这里

Option Explicit

Dim objSWbemLocator As SWbemLocator
Dim objSWbemServices As SWbemServices
Dim objSWbemObjectSet As SWbemObjectSet
Dim objSWbemObject As SWbemObject
Dim strComputer As String, strNameSpace As String, strClass As String

Private Sub Form_Load()
    Text1.Font.Size = 20
    Text1.Text = "61.55.135.167"
    Text2.Font.Size = 20
    Text2.Text = "8080"
    strComputer = "."           '计算机名，.为本机
    strNameSpace = "root/cimv2" '指定命名空间为root/cimv2
    strClass = "win32_Proxy"  '指定类为Win32_Service
    Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")    '建立1个对象的引用指针
    Set objSWbemServices = objSWbemLocator.ConnectServer(strComputer, strNameSpace)  '连接到指定计算机、命名空间的WMI，返回一个对  对象的引用
End Sub

'刷新
Sub RefreshList()
Print "请参阅:http://www.microsoft.com/china/windowsxp/pro/techinfo/deployment/activation/scripted.asp"
Dim mStr As String
    Set objSWbemObjectSet = objSWbemServices.ExecQuery("SELECT * FROM " & strClass)  '通过WQL查询，返回指定类的所有
    For Each objSWbemObject In objSWbemObjectSet
        Print "计算机名"; objSWbemObject.ServerName
        Print "代理服务器地址"; objSWbemObject.ProxyServer
        Print "端口号"; objSWbemObject.ProxyPortNumber

    Next
End Sub

Private Sub Form_Paint()
RefreshList         '显示当前信息
End Sub

Private Sub Command1_Click()
Dim mStr As String, mStrNew As String
    Set objSWbemObjectSet = objSWbemServices.ExecQuery("SELECT * FROM " & strClass)  '通过WQL查询，返回指定类的所有
    For Each objSWbemObject In objSWbemObjectSet
        objSWbemObject.SetProxySetting Text1.Text, Text2.Text
    Next
End Sub