개요

사진.

샘플 코드

Dim oWin
Dim sURL
Dim sPage
Dim sServer
Dim nPort
Dim sBuffer
Dim sSource
Dim bClose
Dim App6
Dim Appflg

Sub App6_exit()
    Appflg = 2
End Sub

Sub App6_ok()
    sServer = "www.ostrosoft.com"
    sPage = "/"
    Set oWin = CreateObject("OSWINSCK.Winsock")
    WScript.ConnectObject oWin, "soc_"
    oWin.Connect CStr(sServer), CLng(nPort)
    While Not bClose
        WScript.Sleep 100
    Wend
End Sub

Sub soc_OnClose()
    oWin.CloseWinsock
    App6.text = sSource
    bClose = True
    Set oWin = Nothing
End Sub

Sub soc_OnConnect()
    oWin.SendData "GET " & sPage & " HTTP/1.0" & vbCrLf & vbCrLf
End Sub

Sub soc_OnDataArrival(ByVal bytesTotal)
    oWin.GetData sBuffer
    sSource = sSource & sBuffer
End Sub

Sub soc_OnError(ByVal Number, Description, ByVal Scode, ByVal Source, ByVal HelpFile, ByVal HelpContext, CancelDisplay)
    Msgbox Number & ": " & Description
    oWin.CloseWinsock
End Sub

Set App6 = Createobject("OHIcompo6.srv")
WScript.ConnectObject App6, "App6_"
App6.text = ""
sURL = ""
sPage = ""
sServer = ""
nPort = 80
sBuffer = ""
sSource = ""
bClose = False
sProxy = ""
Do
    WScript.Sleep(100)
    App6.ping
Loop until Appflg = 2
Set App6 = Nothing