最近、インターネットでは、より多くの人々がこれらのプログラムを理解していない場合、より多くの人々が販売しています。プログラムでは、自動化を実装するのはとても簡単だと感じるでしょう。
原則と利点：XMLのXMLHTTPコンポーネントを介して他のWebサイトのWebページを呼び出し、バッチ内の元の情報をインターセプトまたは交換して変数に変換し、データベースに1つずつ保存します。その主な利点は、手作りした情報を追加するために多くの情報を追加する必要がないことです。 Simple Asp Thiefプログラムとは異なり、ターゲットWebサイトに依存していません。
簡単な例：
| 以下はコードフラグメントです。 <％ 'ステートメントターゲット情報を取得し、XMLコンポーネントを介してそれを実装する機能。 関数geturl（url） setrieval = createObject（ "microsoft.xmlhttp"） 検索付き .open "get"、url、false 。送信 geturl = bytes2bstr（.responsebody） '情報を確認してください。情報の長さが100未満の場合、傍受が失敗することを意味します len（.responsebody）<100の場合 response.write "リモートファイルを取得<a href ="＆url＆ "target = _blank>"＆url＆ "</a>故障。" Response.End ifを終了します で終わります setrieval =何もない エンド関数 'デュアル - ストリングを作成する、それ以外の場合は文字化けされます！ 関数bytes2bstr（vin） strreturn = "" " i = 1にレンブ（vin）へ thischarcode = ascb（midb（vin、i、1）） thischarcode <＆h80の場合 strreturn = strreturn＆chr（thischarcode） それ以外 NextCharcode = ascb（midb（vin、i 1,1））） strreturn = strreturn＆chr（clng（thischarcode） *＆h100 cint（next charcode）） i = i 1 ifを終了します 次 bytes2bstr = strreturn エンド関数 '傍受の形式を述べ、最後の開始から最後まで始まります 関数getKey（html、start、last） filearray = split（html、start） filearray2 = split（filearray（1）、last） getKey = filearray2（0） エンド関数 dim softid、url、html、タイトル 'ページのIDを取得します softid = request（ "id"） url = "http://www3.skycn.com/soft/"＆softid＆ ".html" html = geturl（url） 「Skyソフトウェアのソフトウェア名を例にとる title = getKey（html、 "<font color = '＃004fc6' size = '3'>"、 "</font> </td> </tr>） 「データベースを開き、ライブラリに入る準備をします Dim Connstr、Conn、RS、SQL connstr = "dbq =" server.mappath（ "db1.mdb"） "" "; conn = server.createObject（ "adodb.connection"）を設定します conn.open connstr rs = server.createObject（ "adodb.oldset"）を設定します sql = "[列名]から[列名]を選択する[列名] = '＆title＆"' " rs.oopen sql、conn、3,3 rs.eofとrs.bofの場合 rs（ "" listing "）= title rs.update rs = Nothingを設定します ifを終了します rs = Nothingを設定します Response.Write「Collected！」 ％> |
彼にgetKey.aspに名前を付けてみましょう。このマシンでインターセプトされた結果をテストしましょう（http://www3.skycn.com/soft/771.htmlを例にしてください）。
http://127.0.0.1/getKey.asp?id=771