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 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。