ＶＢ２０１９でフォームを起動すると同時にパスワードや文字列を自動入力したいのですが、入力できません。

Question

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
（例）PHP(CakePHP)で●●なシステムを作っています。
■■な機能を実装中に以下のエラーメッセージが発生しました。

発生している問題・エラーメッセージ

'フォームを起動すると同時にパスワードや文字列を自動入力したいのですが、入力できません。
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim uri As New Uri("https://login.yahoo.co.jp/")

dlytime() 
dlytime()

    ' ＹａｈｏｏのログインページにユーザＩＤとパスワードを設定するサンプル
    Dim colData As New Collection
    colData.Add("12345")     ' パスワード

    ' ＷＥＢページのフォームにデータ設定
    SetWebFormValue(colData)

End Sub

Sub dlytime()
For index As Integer = 1 To 150000000
Next
End Sub

試したこと

ここに問題に対して試したことを記載してください。

'ボタンをクリックしてのパスワードの入力はＯＫ
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button3.Click
' ＹａｈｏｏのログインページにユーザＩＤとパスワードを設定するサンプル
Dim colData As New Collection
colData.Add("12345") ' パスワード

    ' ＷＥＢページのフォームにデータ設定
    SetWebFormValue(colData)

End Sub

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

以上宜しくお願いします。

Answer 1

SetWebFormValueはこちらのサンプルだということで話を進めます。

この関数ではSendMessageにて「12345」とキーを入力したというメッセージを見つけたIEに対して送ります。
この時、IEで表示しているフォーカスの持っているものに対して処理されます。
ですので、ユーザー名のテキストボックスにフォーカスがあれば、そこに「12345」と入力されることになりますが、テキストボックスにフォーカスがない場合は入力されないという動作になります。

プログラムを動作させる前に、テキストボックスにフォーカスをあててから実行すれば、テキストボックスに入力されると思いますので試してみてください。

Comments

[rufath]

ありがとうございました。
わかりました。
フォームのテキストにフォーカスされていれば文字入力を行うことができますね。
ありがとうございました。
ただ、そのフォーカスのやり方が分かりませんが。
setfocusのやり方をまたググって見ます。
もし、ご存じであればまたご教授下さいませ。
ありがとうございました。

[YAmaGNZ]

現在の方法で行うのはやめて別の方法で行うよう変更したほうがよろしいかと思います。
「VB.NET　IE　自動操作」などで検索してみてください。

[rufath]

有り難うございます。
よくよく考えて見れば、フォーカスはされていました。
カーソルが点滅していますから、いつでも文字が入る状態になっています。
でも、文字入力はしてくれません。
やはりタイミングの問題かなーって思っていますが、分かりません。
宜しくお願いします。

[rufath]

有り難うございます。
＞「VB.NET　IE　自動操作」などで検索してみてください。
分かりました。
ありがとうございました。
引き続き勉強させて戴きます。

[rufath]

ありがとうございました。
お陰様で解決しました。

やはりタイミングの問題でした。
「VB.NET　IE　自動操作」で検索しましたところ、ブラウザのオープンを待つＷａｉｔルーチンの記載がありましたので、それを関数としてしようしましたところ、バッチリと旨く行きました。

ありがとうございました。
感謝、感謝です。