概要
vbsの作法調べてみた。
winsock使ってみる。
httpserver作ってみた。
写真
環境
windows7 64bit
サンプルコード
Dim oWin
Dim App6
Dim Appflg
Dim html
Const LocalPort = 80
Const sckClosed = 0
Const sckOpen = 1
Const sckListening = 2
Const sckConnectionPending = 3
Const sckResolvingHost = 4
Const sckHostResolved = 5
Const sckConnecting = 6
Const sckConnected = 7
Const sckClosing = 8
Const sckError = 9
Sub App6_exit()
Appflg = 2
End Sub
Sub App6_ok()
Set oWin = CreateObject("OSWINSCK.Winsock")
WScript.ConnectObject oWin, "soc_"
oWin.LocalPort = LocalPort
ServerListen
End Sub
Sub soc_OnConnectionRequest(requestID)
If oWin.State <> sckClosed Then
oWin.CloseWinsock
End If
oWin.Accept(requestID)
WScript.Sleep 2000
End Sub
Sub soc_OnDataArrival(bytesTotal)
Dim strData
strData = ""
oWin.GetData strData, vbString
App6.text = strData
oWin.SendData html
WScript.Sleep 1000
oWin.CloseWinsock
End Sub
Sub soc_OnError(Number, Description, SCode, Source, HelpFile, HelpContext, CancelDisplay)
MsgBox "Server Error " & Number & vbCrLf & Description
ServerClose()
End Sub
Sub ServerListen()
If oWin.State <> sckClosed Then
oWin.CloseWinsock
End If
oWin.Listen
End SUb
Sub ServerClose()
If oWin.State <> sckClosed Then
oWin.CloseWinsock
End If
Set oWin = Nothing
Wscript.Quit
End SUb
Set App6 = Createobject("OHIcompo6.srv")
WScript.ConnectObject App6, "App6_"
html = "HTTP/1.1 200 OK" & vbcrlf & "Content-Type: text/html" & vbcrlf & "Content-Length: 100" & vbcrlf & vbcrlf & "<!DOCTYPE html><html><body><h1>it's work!</h1></body></html>" & vbcrlf
App6.text = html
Do
WScript.Sleep(100)
App6.ping
Loop until Appflg = 2
Set App6 = Nothing
以上。
Comments