以下に記述された VB スクリプト コードを php コードに変換することができないため、指定された VB コードを翻訳して php コードを提供するのを手伝ってください。
VBScript サンプル:
Dim HttpObj
Dim sURL
Dim sPage
Dim strResult
sURL = "http://example.com"
Set HTTPObj = New MSXML2.XMLHTTP
HTTPObj.open "get", sURL, False
HTTPObj.Send
sPage = HTTPObj.responseText