09/02/17 19:46:14.03 lgHd7Gni0
ツールをテキスト化した中身
target = "URLﾘﾝｸ(dokdo.andu.hanafos.com)"
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate target
pause(objIE)
'----------------------------------------------------
do
WScript.Sleep(5000)
objIE.Document.regForm.action = "poll_sign_proc.asp"
objIE.Document.regForm.answer.value = "2"
objIE.Document.regForm.submit
pause(objIE)
objIE.Navigate target
pause(objIE)
loop
'----------------------------------------------------
sub pause(objIE)
do
if objIE.Busy = False then exit do
loop
do
if objIE.Document.readyState = "complete" then exit do
loop
end sub