無料匿名プロキシサイト「ゲッタープロキシ」のプロキシデータを自動抽出 削除
Message#4 2014年10月14日(火)15時05分 From: 通りすがり |
コマンドプロンプトでやるならレジストリで直接書き換えする方法を使うとか。 コマンドでいえば「reg add」にあたる部分ね。 regコマンドについてはこっちを参照 http://pasofaq.jp/windows/command/reg.htm#nameid1 あと設定方法はこっちを参照 http://support.microsoft.com/kb/2289942/ja 参考事例:reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 0 /f あとはこいつをbatファイルに出力させて CreateObject("WScript.Shell").Run で実行させたら完了かな? 以下が設定内容でcells(1,1)がIPアドレスでcells(1,2)がポート番号。 Sub cmd() Dim targetRange As Range Dim FSO As Object Dim i As Long Dim myTextFile As Object Dim batFilePath As String Set FSO = CreateObject("Scripting.FileSystemObject") 'バッチファイルをテンポラリフォルダーに作成して実行 batFilePath = FSO.GetSpecialFolder(2) & "\temp.bat" Set myTextFile = FSO.CreateTextFile(batFilePath) cmdstr = "reg add ""HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings"" /v ProxyServer /t REG_SZ /d " _ & Cells(1, 1) & ":" & Cells(1, 2) & " /f" With myTextFile .writeline cmdstr .Close End With Set FSO = Nothing CreateObject("WScript.Shell").Run "CMD.EXE /C " & batFilePath, , True End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。