有局限性,至少我是没看见取消使用代理的那个方法,当前是否在使用代理也不知道....其实直接捣鼓注册表...然后调用一个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