2008/05/18

Vbscript - InternetExplorer.Application 개체를 활용하여 웹페이지 출력

IE 개체를 활용한 Vbscript 로,, 특정 사이트나 옵션을 이용해서 브라우져를 띄우거나 또는 아래처럼 사이트 접속후 받아온 값을 문자열로 가져오거나...^^

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


좀더 확장하거나 필요한 구현은 MSDN 문서를 참고,....
http://msdn.microsoft.com/en-us/library/aa752084(VS.85).aspx


댓글 없음:

댓글 쓰기

가장 많이 본 글