VBScript - Assign source code of web page to variable

Question

I'm trying to write a VBScript that looks navigates a website based on the content of that website. To do that, I need to be able to assign the source code of each web page to a string variable and have the script look through that string for certain words.

I have seen this proposed as a solution:

Function GetSourceCode(url)
     Set objHttp = CreateObject("Microsoft.XMLHTTP")
     bGetAsAsync = False

     objHttp.open "GET", url, bGetAsAsync
     objHttp.send

     If objHttp.status <> 200 Then
         wscript.Echo "unexpected status = " & objHttp.status & vbCrLf & objHttp.statusText
         wscript.Quit
     End If

     'MsgBox objHttp.responseText

     GetSourceCode = objHttp.responseText
End Function

but that does not work. I've seen elsewhere that this is possible with AutoIT, but I cannot use AutoIT per security policy.

Any ideas?

support.microsoft.com/en-au/help/290761/…

CatCat
– CatCat

2018-11-20 20:34:00 +00:00
Commented Nov 20, 2018 at 20:34 — CatCat
– CatCat, Commented Nov 20, 2018 at 20:34

justyy · Accepted Answer · 2018-11-20 17:00:01Z

1

Change Microsoft.XMLHTTP to Msxml2.ServerXMLHTTP

Function GetSourceCode(url)
     Set objHttp = CreateObject("Msxml2.ServerXMLHTTP")
     bGetAsAsync = False

     objHttp.open "GET", url, bGetAsAsync
     objHttp.send

     If objHttp.status <> 200 Then
         wscript.Echo "unexpected status = " & objHttp.status & vbCrLf & objHttp.statusText
         wscript.Quit
     End If

     'MsgBox objHttp.responseText

     GetSourceCode = objHttp.responseText
End Function

WScript.Echo GetSourceCode("https://anothervps.com/api/phpver")

answered Nov 20, 2018 at 17:00

justyy

6,1014 gold badges42 silver badges82 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

VBScript - Assign source code of web page to variable

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related