>I have created an Internet.Application object and I want to get source of active page. How can I do that?

Try

oWeb = CREATEOBJECT("InternetExplorer.Application")
oWeb.Visible = .T.
oWeb.Navigate2("http://www.microsoft.com")
oDoc = oWeb.Document
_CLIPTEXT = oDoc.documentElement.outerHTML