WMIIE代理怎么實現切換或改變-創新互聯

這篇文章主要介紹“WMI IE代理怎么實現切換或改變”的相關知識，小編通過實際案例向大家展示操作過程，操作方法簡單快捷，實用性強，希望這篇“WMI IE代理怎么實現切換或改變”文章能幫助大家解決問題。

創新互聯是一家集網站建設,武強企業網站建設,武強品牌網站建設,網站定制,武強網站建設報價,網絡營銷,網絡優化,武強網站推廣為一體的創新建站企業，幫助傳統企業提升企業形象加強企業競爭力。可充分滿足這一群體相比中小企業更為豐富、高端、多元的互聯網需求。同時我們時刻保持專業、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學習、思考、沉淀、凈化自己，讓我們為更多的企業打造出實用型網站。

將下面的代碼，保存為 vbs即可

代碼如下:

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

關于“WMI IE代理怎么實現切換或改變”的內容就介紹到這里了，感謝大家的閱讀。如果想了解更多行業相關的知識，可以關注創新互聯行業資訊頻道，小編每天都會為大家更新不同的知識點。

文章標題：WMIIE代理怎么實現切換或改變-創新互聯
網站URL：http://m.kartarina.com/article32/dcpgpc.html

成都網站建設公司_創新互聯，為您提供商城網站、品牌網站制作、外貿網站建設、網站收錄、營銷型網站建設、網站設計公司

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯