講義 2: VB の Web ブラウザを使用してユーザー名とパスワードを含む Web ページを送信する方法
前回はウェブページを開く方法を説明しましたが、今日はお金を稼ぐための最初の一歩を踏み出す方法を見ていきます。
ここで、次の手順を実行します。
1. まず VB を開いて新しいプロジェクトを作成します。
2. ツールバーを右クリックして「コンポーネント」を選択するか (中国語版の VB を使用しています)、「プロジェクト」メニューを選択して「コンポーネント」をクリックします。
3. Microsoft Internet Controls を見つけて選択し、ツールバーに追加の地球のようなアイコンが表示されます。これを中心に実装していきます。
4. WebBrowser1 を Form1 に追加し、command1 を Form1 に追加します。
5. 次のコードを Form1 に追加します。(上記はすべて前の講義で説明したものなので、よく知っているはずです)。
' - - - - - 始める - - - - - -
プライベートサブコマンド1_Click()
ディム vDoc、vTag
Dim i を整数として
vDoc = WebBrowser1.Document を設定します。
For i = 0 To vDoc.All.length - 1 'すべてのタグを検出
If UCase(vDoc.All(i).tagName) = "INPUT" then '入力タグを検索します
vTag = vDoc.All(i) を設定します。
If vTag.Type = "text" または vTag.Type = "password" then 'それが必要なものかどうかを確認してください
Select Case vTag.Name 'タグの名前に従って、チェックマーク操作
ケース「エマイラッド」
vTag.Value = "[email protected]" 'ここに電子メールを書いてください
ケース「PASSWD」
vTag.Value = "password" 'ここにパスワードを記入してください
エンドセレクト
ElseIf vTag.Type = "submit" And vTag.Name = "SUB" And vTag.Value = "Subscribe" then
'送信ボタンを見つけます
vTag.Select 'これなしでもできます
vTag.Click 'クリックして送信します。すべてOKです
終了の場合
終了の場合
次は私
エンドサブ
プライベートサブフォーム_Load()
WebBrowser1.「http://dhunter.51.net」に移動します。
エンドサブ
' - - - - - 仕上げる - - - - - -
6. もちろん、これはテストです。[実行] ボタンをクリックすると、Web ブラウザが http://dhunter.51.net を開いたことがわかります。Web ページの基本的なダウンロードが完了するまで待ってから、[command1] ボタンをクリックします。あなたの電子メールとパスワードが Web ページに送信されました。購読が成功したことがわかりましたか?それが勝利の兆しだ。
さて、今回はこれくらいにして、次回はWebブラウザを使ってWebページ内の収益リンクに相当するハイパーリンクを見つける方法を見ていきます。
付録 (関連情報):
ご覧のとおり、今回は http://dhunter.51.net のサブスクリプション メーリング リストを使用しています。この Web ページのソース コードは次のとおりです。
<form method="post" action="http://ml.xilu.com/cgi-bin/ml/client">
<p align="center"><font size="2">
<input type="hidden" name="USERID" value="dhunter">
電子メール:
<input type="text" name="EMAILADD" value="あなたのメールアドレス">
<br>
パスワード：
<input type="password" name="PASSWD" value="******">
<br>
</font><font size="2">
<input type="submit" value="購読" name="SUB">
<input type="submit" value="Unsubscribe" name="UNSUB">
</font></p>
</form>
内部に入力を含むタグはすべて入力を受け入れます。ここでの主なタスクは、タグを見つけて操作することです。