特殊・他 ブラウザ上のインプットボックス入力とボタンクリック操作

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][特殊・他 ブラウザ上のインプットボックス入力とボタンクリック操作]
Option Explicit


Private Sub CommandButton1_Click()
'*********************************************************
'ブラウザ上のインプットボックス入力とボタンクリック操作
'*********************************************************
'UserForm1にWebBrowser1を設置
'UserForm1にCommandButton1を設置

Dim IE As Object, NvgtURL As String, InptTxt(2) As String
Dim InptPss As String

NvgtURL = "http://abc.ne.jp"    '該当ページURL
InptTxt(1) = "abc"              'ID等
InptTxt(2) = "def"              'ID等
InptPss = "ghij"                'PASS等

Set IE = Me.WebBrowser1

IE.Navigate NvgtURL             '該当ページ表示

IE.Visible = True

Do While IE.Busy                '表示まで待機
    DoEvents
Loop

'【例ページソース】
'<form name="GETABC">
'            ~~~~~~
'<input type="text" name="IDno1">
'                         ~~~~~
'<input type="text" name="IDno2">
'                         ~~~~~
'<input type="password" name="PWno1">
'                             ~~~~~
'<input type="submit" name="LOin">
'                           ~~~~
'</form>

IE.Document.GETABC.IDno1.Value = InptTxt(1) 'テキスト入力
'           ^^^^^^ ^^^^^
IE.Document.GETABC.IDno2.Value = InptTxt(1) 'テキスト入力
'           ^^^^^^ ^^^^^
IE.Document.GETABC.PWno1.Value = InptPss    'テキスト入力
'           ^^^^^^ ^^^^^
IE.Document.GETABC.LOin.Click               'ボタンクリック
'           ^^^^^^ ^^^^^
Do While IE.Busy                '表示まで待機
    DoEvents
Loop

Set IE = Nothing

End Sub





Production Japan Import Application. Since 1998