covert php file_get_contents to VB Script help

[Dio1080]

I tried to google this but no luck. I was wondering if anybody know how to convert this php command into visual basic script?

<?
$page=file_get_contents('[URL unfurl="true"]http://www.example.com/page?user=cwarn23&pass=820578wxz56240358');[/URL]
?>

 

[tsuji]

[tt]dim surl
'the given
[green]surl="[ignore]

http://www.example.com/page?user=cwarn23&pass=820578wxz56240358

[/ignore]"[/green]

dim oxmlhttp,page
on error resume next
set oxmlhttp=createobject("msxml2.xmlhttp")
with oxmlhttp
.open "get",surl,false
.send
page=.responsetext
end with
if err.number<>0 then
'Resource unavailable for varied reasons. Empty string assigned
page=""
end if
set oxmlhttp=nothing
on error resume next
[green]'page stored the desired result (equivalent to $page)[/green]
[/tt]

 

[Dio1080]

dim surl
'the given
surl="

http://www.example.com/page?user=cwarn23&pass=820578wxz56240358"

dim oxmlhttp,page
on error resume next
set oxmlhttp=createobject("msxml2.xmlhttp")
with oxmlhttp
.open "get",surl,false
.send
page=.responsetext
end with
if err.number<>0 then
'Resource unavailable for varied reasons. Empty string assigned
page=""
end if
set oxmlhttp=nothing
on error resume next
'page stored the desired result (equivalent to $page)

Can you explain the code to me, I'm new to visual basic script?

 

[tsuji]

No, I would not for a request that general. It is not for those completely new to vbs. There are better ways to learn vbs than learn it that way. Maybe some other members would volunteer.

 

[tsuji]

note to self:
The second "on error resume next" should be read "on error goto 0". Apart from that, nothing to add.