ולדעתי יותר מומלצת ע"י שימוש ב - xmlHTTP: Dim xmlHttpObj Dim siteSource as StringSet xmlHttpObj= createObject("microsoft.xmlHTTP") xmlHttpObj.open("GET","http://www.walla.co.il","false") xmlHttpObj.send("") siteSource = xmlHttpObj.responseText Text1.Text = siteSource
|