VB は IE の入力ボックスに入力して送信します
ログイン ページの HTML コードが次のとおりであると仮定します。
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<頭>
<title>テストページ</title>
</head>
<本文>
<FORM name=chh メソッド = "POST" アクション = "login.asp">
<table cellpacing="0" cellpadding="2">
<tr>
<td align="center">ユーザー:</td>
<td align="left">
<input name="ログイン名" type="text" id="ログイン名" size="12">
</td>
</tr>
<tr>
<td align="center">パスワード:</td>
<td align="left">
<input name="ログインパスワード" type="パスワード" id="ログインパスワード" size="12">
</td>
</tr>
</テーブル>
<入力タイプ = "送信" ID = "クリックミー" 値 = "送信">
</FORM>
</body>
</html>
ログイン フォーム、ユーザー名入力ボックス LoginName、パスワード入力ボックス LoginPassword、および送信ボタン clickme を備えた非常にシンプルなページ
次に、このページを IE で開くと、ページのタイトルが testPage に設定されていることを確認します。
次に、VB を開き、プロジェクト内の Microsoft インターネット コントロールを参照します。
プライベートサブコマンド1_Click()
新しい ShellWindows としての Dim IEList
薄暗いブラウザ
ディム・ドク
エラー時は次へ再開
'現在のブラウザウィンドウを移動します
IEList 内の各ブラウザーについて
'必要な IE ウィンドウを見つけます
browser.Document.Title = "testPage" の場合
'ブラウザドキュメントオブジェクトを取得します
Doc = ブラウザ.ドキュメントを設定します。
'ユーザー名フィールドに入力します
Doc.body.All("ログイン名").Value = "エディ"
'パスワード欄に入力してください
Doc.body.All("ログインパスワード").Value = "123456"
'提出する
Doc.body.All("clickme").Click
終了の場合
次
エンドサブ