โปรแกรมเปิดดู 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() ใครพอจะแนะนำได้บ้างครับว่าควรปรับตั้งค่ายังไงซอสโค้ดถึงจะแสดง
|