無料匿名プロキシサイト「ゲッタープロキシ」のプロキシデータを自動抽出 削除
Message#2 2014年10月14日(火)14時42分 From: 通りすがり |
このサイトのログイン画面開くとアンチウィルスソフトが働いて警告表示されるぞ!? 大丈夫か? まぁ、一応スキャンして、表示させてから見てみると意外と簡単にできたんでのせときます。 これ見てがんばってみて。 一応固まりプログラムはこのサイトのやつを使わせてもらってます。 Sub sample() Call ieView(objIE, "http://www.getproxy.jp/login") Call formText(objIE, "username", "★ログインID★") Call formText(objIE, "loginpass", "★ログインパスワード★") Call tagClick(objIE, "input", "ログイン") Call ieNavi(objIE, "http://www.getproxy.jp/japan") For Each objTag In objIE.document.getElementsByTagName("strong") If InStr(objTag.outerHTML, ":") > 0 Then Spoint = InStr(objTag.innerText, ":") 'IPアドレス Debug.Print Mid(objTag.innerText, 1, Spoint - 1) 'ポート Debug.Print Mid(objTag.innerText, Spoint + 1, Len(objTag.innerText) - Spoint) End If Next End Sub Sub ieView(objIE As InternetExplorer, _ urlName As String, _ Optional viewFlg As Boolean = True, _ Optional ieTop As Integer = 0, _ Optional ieLeft As Integer = 0, _ Optional ieWidth As Integer = 600, _ Optional ieHeight As Integer = 800) 'IEのオブジェクトを作成する Set objIE = CreateObject("InternetExplorer.Application") 'IEを表示・非表示 objIE.Visible = viewFlg objIE.Top = ieTop 'Y位置 objIE.Left = ieLeft 'X位置 objIE.Width = ieWidth '幅 objIE.Height = ieHeight '高さ '指定したURLのページを表示する objIE.Navigate urlName 'IEが完全表示されるまで待機 Call ieCheck(objIE) End Sub Sub ieCheck(objIE As InternetExplorer) Dim timeOut As Date timeOut = Now + TimeSerial(0, 0, 10) Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Sleep 100 If Now > timeOut Then objIE.Refresh timeOut = Now + TimeSerial(0, 0, 10) End If Loop timeOut = Now + TimeSerial(0, 0, 10) Do Until objIE.document.ReadyState = "complete" DoEvents Sleep 100 If Now > timeOut Then objIE.Refresh timeOut = Now + TimeSerial(0, 0, 10) End If Loop End Sub Sub formText(objIE As InternetExplorer, _ nameValue As String, _ tagValue As String) 'テキストボックス・パスワードボックスに値を入力 For Each objTag In objIE.document.getElementsByTagName("input") If objTag.Name = nameValue Then objTag.Value = tagValue Exit For End If Next 'テキストエリアに値を入力 For Each objTag In objIE.document.getElementsByTagName("textarea") If objTag.Name = nameValue Then objTag.Value = tagValue Exit For End If Next End Sub Sub tagClick(objIE As InternetExplorer, _ tagName As String, _ tagStr As String) 'タグをクリック For Each objTag In objIE.document.getElementsByTagName(tagName) If InStr(objTag.outerHTML, tagStr) > 0 Then objTag.Click Call ieCheck(objIE) Exit For End If Next End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。