Dim objIE, TimedOut, i
Set objIE = CreateObject( "InternetExplorer.Application" )
objIE.Visible = False
objIE.Navigate2 "https://www.networksolutions.com/whois/" _
& "registry-data.jsp?domain=wssplex.net"
i = 0
TimedOut = False
Do While objIE.Busy
WScript.Echo "Internet Explorer busy...."
WScript.Sleep 1000
i = i + 1
If i > 100 Then
TimedOut = True
Exit Do
End If
Loop
If Not TimedOut Then
WScript.Echo objIE.Document.Body.InnerText
Else
WScript.Echo "Time out...!"
End If
objIE.Quit
Set objIE = Nothing
Set objIE = CreateObject( "InternetExplorer.Application" )
objIE.Visible = False
objIE.Navigate2 "https://www.networksolutions.com/whois/" _
& "registry-data.jsp?domain=wssplex.net"
i = 0
TimedOut = False
Do While objIE.Busy
WScript.Echo "Internet Explorer busy...."
WScript.Sleep 1000
i = i + 1
If i > 100 Then
TimedOut = True
Exit Do
End If
Loop
If Not TimedOut Then
WScript.Echo objIE.Document.Body.InnerText
Else
WScript.Echo "Time out...!"
End If
objIE.Quit
Set objIE = Nothing
좀더 확장하거나 필요한 구현은 MSDN 문서를 참고,....
http://msdn.microsoft.com/en-us/library/aa752084(VS.85).aspx
댓글 없음:
댓글 쓰기