گرفتن سورس سایت با web browser

[Shahab.]

سلام دوستان
با چه کدی میتونم سورس یک صفحه ی وب رو با وب بروزر بدست بیارم؟

[one hacker alone]

سلام
شما یه کنترل winsock تو پروژه اضافه کنید
بعد به سایت وصل بشید
w.connect "www.google.com",80
خب حالا باید هدر ارسالی رو تنظیم کنید
header="GET / /HTTP1.1"
بعد هم ارسال
w.datasend
تو نت سرچ کنید روال رو میگه من فقط اشاره کردم

[mehran901]

سلام دوستان
با چه کدی میتونم سورس یک صفحه ی وب رو با وب بروزر بدست بیارم؟

راه حل زیاده ... یکیشو دوست عزیزمون گفتن و چندتایی که من الان یادمه رو میگم :

1- با مروگر :

WebBrowser.Navigate "http://www.google.com"

Do While WebBrowser.Busy
DoEvents
Loop
Dim strhtml

strhtml = WebBrowser.Document.body.innerhtml
MsgBox strhtml


2- microsoft internet transfer control


msgbox inet1.openurl("www.google.com")

3-serverXmlHttp

Dim objHttp As Object, strURL As String, strText As String

Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")

strURL = "http://www.barnamenevis.org/"

objHttp.Open "GET", strURL, False
objHttp.setRequestHeader "User-Agent", _
"Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHttp.Send ("")

strText = objHttp.responseText
MsgBox strText
Set objHttp = Nothing

[Shahab.]

ولی سورسی که با Inet بدست میاد با سورسی که با web browser بدست میاد تفاوت زیادی داره
این تفاوت ناشی از چیست؟

[SlowCode]

این تفاوت به خاطر اینه که اقا مهران تو قسمت کد وب بروزر تو خط هشتم از innerhtml استفاده کرده.
شما به جای اون بنویس outerhtml مشکلت حل میشه.

[mehran901]

این تفاوت به خاطر اینه که اقا مهران تو قسمت کد وب بروزر تو خط هشتم از innerhtml استفاده کرده.
شما به جای اون بنویس outerhtml مشکلت حل میشه.
آره حواسم نبود به این مسئله :D دستت مرسی محسن جون

[Shahab.]

با outerhtml هم تفاوت زیادی با سورس Inet داره
میتونید خودتون تست کنید