September 10, 2020
WebサイトのログインをSendKeysで自動化に挑戦（VB2008）
そして新システムとしてWebベースのシステムが導入された。
各業務でログインが面倒くさいんですよね。
社内で書いたプログラムならログイン画面にコマンドライン引数でユーザーID、パスワードを渡したらログイン画面をスキップして自動ログインなんて出来るけど、社外製のWebアプリではそうも行かず。
（URLの後ろにパラメータ積むとログインする機能を付けといてよ。）
という事でSEたる者いかに楽をするかを考えるワケです。
で、なんちゃってシングルサインオンアプリを作ってみてテスト中です。
Webアプリのログインのサンプルコードを載せておきます。いろいろ調べた結果以下のSendKeysを使う方法でテスト中。（VB2008でコーディング）
■ちょっと説明
SendKeysでキーボード入力をシミュレートしている。
WaitForInputIdle という命令でアプリ側が入力可能状態まで待つというのがあるが、ブラウザは起動してすぐに戻ってきてしまう。
なのでProcessでブラウザが起動しているか調べ、起動していなかったら待ち時間を増やすようにした。
PCのスピードによっては要調整。
IEではどうもエラーになるようです。今どきIEのWebアプリはナシでしょう・・・でしょう？
直接、SendKeysでユーザーIDを送ってしまうとIMEが日本語入力になっていると変換しようとするので、一旦クリップボードにセットして、Ctrl + Vの貼り付けをするようにした。
IMEモードをオフにする命令があると思うが、サクっと調べられなかったのでとりあえずクリップボード経由に。
起動時のウェイト、入力項目移動時のウェイトについてはテストして調整してみてください。
このサンプルコードは1つ目のテキストボックスがユーザーID、2つ目がパスワード、その次にログインボタンの場合。
画面構成が違う場合はTAB移動を挟んで調整が必要です。
■サンプルコード
Sub Sub_WebLogIn()
Dim intKeyWait As Integer
Dim intStartWait As Integer
Dim strUser As String
Dim strPW As String
Dim prc As New System.Diagnostics.Process
'ブラウザが起動しているか、Processを調べる（とりあえずChromeとMicrosoft Edgeを）
If Process.GetProcessesByName("chrome").Count > 0 Or Process.GetProcessesByName("msedge").Count > 0 Then
intStartWait = 500
Else
intStartWait = 5000 'ブラウザが起動していない場合はウェイト時間を増やす
End If
intKeyWait = 500
strUser = "UserCode" 'ユーザーコードをセット（実際は認証後、iniファイルに保存した値を読んでセットしています）
strPW = "PassWord" 'パスワードをセット
'実行
prc.StartInfo.FileName = "http://172.16.0.100/login.jsp" 'Webアプリのログイン画面のURL
prc.Start() '既定のブラウザで上記URLを開く
prc.WaitForInputIdle(5000) '入力可能状態まで最大5秒待つ（プログラムはOKなようだがブラウザはNGですぐ戻ってくる）
'ユーザー
System.Threading.Thread.Sleep(intStartWait) '起動時のウェイト
Clipboard.SetText(strUser) 'IME Modeを回避する為にクリップボードを使用
System.Windows.Forms.SendKeys.Send("^v") 'Ctrl + V でペースト
'パスワード
System.Threading.Thread.Sleep(intKeyWait) '入力項目移動時のウェイト
Clipboard.SetText(strPW) 'クリップボードに保存
System.Windows.Forms.SendKeys.Send("{TAB}") 'TABで移動
System.Windows.Forms.SendKeys.Send("^v") 'Ctrl + V でペースト
'ログイン
System.Threading.Thread.Sleep(intKeyWait) '入力項目移動時のウェイト
System.Windows.Forms.SendKeys.Send("{TAB}") 'TABで移動
System.Windows.Forms.SendKeys.Send(" ") 'Spaceでログインボタンを押した事に
End Sub
とまぁ、こんな感じでやっとります。
参考までに。
Sub Sub_WebLogIn()
Dim intKeyWait As Integer
Dim intStartWait As Integer
Dim strUser As String
Dim strPW As String
Dim prc As New System.Diagnostics.Process
'ブラウザが起動しているか、Processを調べる（とりあえずChromeとMicrosoft Edgeを）
If Process.GetProcessesByName("chrome").Count > 0 Or Process.GetProcessesByName("msedge").Count > 0 Then
intStartWait = 500
Else
intStartWait = 5000 'ブラウザが起動していない場合はウェイト時間を増やす
End If
intKeyWait = 500
strUser = "UserCode" 'ユーザーコードをセット（実際は認証後、iniファイルに保存した値を読んでセットしています）
strPW = "PassWord" 'パスワードをセット
'実行
prc.StartInfo.FileName = "http://172.16.0.100/login.jsp" 'Webアプリのログイン画面のURL
prc.Start() '既定のブラウザで上記URLを開く
prc.WaitForInputIdle(5000) '入力可能状態まで最大5秒待つ（プログラムはOKなようだがブラウザはNGですぐ戻ってくる）
'ユーザー
System.Threading.Thread.Sleep(intStartWait) '起動時のウェイト
Clipboard.SetText(strUser) 'IME Modeを回避する為にクリップボードを使用
System.Windows.Forms.SendKeys.Send("^v") 'Ctrl + V でペースト
'パスワード
System.Threading.Thread.Sleep(intKeyWait) '入力項目移動時のウェイト
Clipboard.SetText(strPW) 'クリップボードに保存
System.Windows.Forms.SendKeys.Send("{TAB}") 'TABで移動
System.Windows.Forms.SendKeys.Send("^v") 'Ctrl + V でペースト
'ログイン
System.Threading.Thread.Sleep(intKeyWait) '入力項目移動時のウェイト
System.Windows.Forms.SendKeys.Send("{TAB}") 'TABで移動
System.Windows.Forms.SendKeys.Send(" ") 'Spaceでログインボタンを押した事に
End Sub
とまぁ、こんな感じでやっとります。
参考までに。
![[商品価格に関しましては、リンクが作成された時点と現時点で情報が変更されている場合がございます。]](https://hbb.afl.rakuten.co.jp/hgb/0c3eb41f.13de6c94.0c3eb420.eb396f49/?me_id=1208080&item_id=10015384&pc=https%3A%2F%2Fthumbnail.image.rakuten.co.jp%2F%400_mall%2Fmousecomputer%2Fcabinet%2Fcart1_mouse_note%2Fx5%2Fx5-ma_wps.jpg%3F_ex%3D240x240&s=240x240&t=picttext "[商品価格に関しましては、リンクが作成された時点と現時点で情報が変更されている場合がございます。]")
