בעזרת פקד Winsock
בעזרת הפקד Winsock ניתן להתחבר לשרת מסויים דרך פורט 80 (או לפעמים 8080) וכך לקבל ממנו את הדף כמו שהוא כתוב ב-HTML. כך בדיוק עובד כל Browser ממוצע, רק שהוא גם מוריד את התמונות אליהן מפנה הדף שהוא מקבל. כל שתצטרך לעשות הוא להתחבר לשרת, לבקש את הדף הרצוי ע"י שימוש בכמה "כותרות" HTML בסיסיות, ולהתחיל לקבל את הדף באירוע DataArrival הקוד העקרי אמור להראות בערך כך (בהנחה והפקד Winsock שלך נקרא: TCP):
Option Explicit Const SERVER As String = "www.tapuz.co.il" Const PORT As Long = 80 Const PAGE As String = "/index.htm" Private Sub Form_Load() TCP.Close TCP.Connect SERVER, PORT End Sub Private Sub TCP_Connect() TCP.SendData "GET " & PAGE & " HTTP/1.1" & vbCrLf & _ "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon; .NET CLR 1.1.4322)" & vbCrLf & _ "Host: " & SERVER & vbCrLf & _ "Connection: Keep-Alive" & vbCrLf & vbCrLf End Sub Private Sub TCP_DataArrival(ByVal bytesTotal As Long) Dim Incoming As String TCP.GetData Incoming, vbString ' Do Something With The Data...... End Sub
בהצלחה.
