SQLタイミングトリガVSCRIPTスクリプトを使ってHTTP要求を送信します。
7500 ワード
test.vbsファイルコードは下図の通りです。
1 ScriptTimeout = 120
2 function getHTTPPage(url)
3 on error resume next
4 dim http
5 set http=CreateObject("Microsoft.XMLHTTP")
6 Http.open "GET",url,false
7 Http.send()
8 if Http.readystate<>4 then
9 exit function
10 end if
11 getHTTPPage=bytes2BSTR(Http.responseBody)
12 set http=nothing
13 if err.number<>0 then err.Clear
14 end function
15
16 Function bytes2BSTR(vIn)
17 dim strReturn
18 dim i1,ThisCharCode,NextCharCode
19 strReturn = ""
20 For i1 = 1 To LenB(vIn)
21 ThisCharCode = AscB(MidB(vIn,i1,1))
22 If ThisCharCode < &H80 Then
23 strReturn = strReturn & Chr(ThisCharCode)
24 Else
25 NextCharCode = AscB(MidB(vIn,i1+1,1))
26 strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
27 i1 = i1 + 1
28 End If
29 Next
30 bytes2BSTR = strReturn
31 End Function
32
33 Function GetMid(txt,StrOne,StrTwo)
34 NumOne = Instr(txt,StrOne)
35 NumTwo = Instr(txt,StrTwo)
36 if NumOne=0 or NumTwo=0 Then GetMid="":Exit Function
37 GetMid = Mid(txt,NumOne+Len(StrOne),NumTwo-NumOne-Len(StrOne))
38 End Function
39
40 Dim htmSource
41 htmSource=getHTTPPage("http://localhost/test/absa.asp")
View Code