โปรแกรมเปิดดู Source ของเว็ปไม่ได้( ใช้ winsock)

Code :

Private m_strRemoteHost As String
Private m_strFilePath As String
Private m_strHttpResponse As String

Private Sub Command1_Click()

txtURL = "https://adwords.google.com/select/TrafficEstimatorSandbox&keywords=game¤cy=USD&price=10"

If Len(txtURL) = 0 Then
MsgBox "Please, enter the URL to retrieve.", vbInformation
Exit Sub
End If

If Left(txtURL, 8) = "https://" Then
strURL = Mid(txtURL, 9)
Else
strURL = txtURL
End If

m_strRemoteHost = Left$(strURL, InStr(1, strURL, "/") - 1)

m_strFilePath = Mid$(strURL, InStr(1, strURL, "/"))

m_strHttpResponse = ""

With Winsock1
.Close
.LocalPort = 0
.Connect m_strRemoteHost, 80
End With

End Sub

Private Sub Winsock1_Connect()

Dim strHttpRequest As String

strHttpRequest = "GET " & m_strFilePath & " HTTP/1.1" & vbCrLf

strHttpRequest = strHttpRequest & "Host: " & m_strRemoteHost & vbCrLf

strHttpRequest = strHttpRequest & "Connection: close" & vbCrLf

strHttpRequest = strHttpRequest & "Accept: */*" & vbCrLf

strHttpRequest = strHttpRequest & vbCrLf

Winsock1.SendData strHttpRequest

Debug.Print strHttpRequest

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

On Error Resume Next

Dim strData As String

Winsock1.GetData strData

m_strHttpResponse = m_strHttpResponse & strData

Text1.Text = m_strHttpResponse

Winsock1.Close

End Sub

============================

ตาม code ที่ให้มานี้ครับ โปรแกรมไม่สามารถแสดงซอสโค้ดของเว็ปได้ทาง Text1 เนื่องจากจำเป็นต้องปรับแต่งค่าต่างๆที่ winsock1_connect() ใครพอจะแนะนำได้บ้างครับว่าควรปรับตั้งค่ายังไงซอสโค้ดถึงจะแสดง