e-learningサイトの操作 削除
| Message#2 2015年2月7日(土)12時22分 From: icycyi |
| コードを書き忘れてました・・・ご協力お願いします。 �A Function IEwait(ByRef objIE As Object) Do While objIE.readystate <> 4 DoEvents Loop End Function �C Do Until objIE.Busy = False WScript.sleep(250) Loop' �D Public Function IEButtonClick(ByRef objIE As Object, buttonValue As String) Dim objInput As Object For Each objInput In objIE.document.getElementsByTagName("INPUT") If objInput.Value = buttonValue Then objInput.Click Exit Function End If Next End Function |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
