Belajar SendData With Winsock VB6

Hallo , Kawan Apa kabar ? Mudah mudahan kabar kabar ente baik baik saja :P
disini cuma ingin menuliskan sedikit clue , clue Tutorial tentang Penggunakan socket sebagai sendData , or membuka data lewat jalur socket :P

contoh , disini saya ingin membuka

 www.google.co.id 

Terus ?
Apakah sudah sampai disitu ?

Algoritma socket adalah sebagai berikut kawan :P

 
1. Connect Ke Host
2. SendData Ke Host
3  Get Data From Host

 

Terus Disini apa yang di koneksikan ?

 
'Add winsock component
winsock1.close ' Mengclose koneksi , jika ada koneksi
winsock1.connect "www.google.co.id" , 80 ' mengkoneksikan ke google , dengan port 80

Terus SendData nya kapan ? Setelah connect , pasti winsock akan mengalokasikan kita ke winsock1_connect()

 
winsock1_connect()
'disini waktunya sendData :P
coding yang masih acak acakan seperti ini

GET / HTTP/1.1
Host: www.google.co.id
User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:14.0) Gecko/20100101 Firefox/14.0.1
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: en-us,en;q=0.5
Accept-Encoding: gzip, deflate
Connection: keep-alive
Cookie: PREF=ID=27868da665c6ef20:U=061d9d950c3324eb:LD=en:TM=1366164759:LM=1366192921:S=1SGe3EFqNpUtGO8s; NID=67=T4SBiyhxjQX0rX3ONqLvDXWPc7WKuO_v1QmzDtbqoSnSIBqu7IqhQ02MQJPGoLKp10JcKEGRHLZV71iuS6QS4l5kGHtyBWdZftR98p7uBF0Grm0pLp70O9kwxTRtxWPpVrjcHcZrLVFXfCxR; SID=DQAAAM4AAAC1cbJWfB4JSuxIMDgf4W3dCPyVulzJ5WG9XxrNNS3CO_3MRqNImBvKn-mpNhtXvzpU7Dy80xEIWDEoh-LnIxqOwiZ2RUONMupeUNso6INR7IrjHXQp7YIOJIMGpglDcrcIlULoTilEa1avTdiSC5KFEK1WI-8PckKaQpobzOXeCHAhCHWWCgUI5u7-kr_wlgIcORE0fbAs90YYMiHOfQvjylH3HPDU75JKBhlkhL_uoTIPz_6XSEoSzLeDwtTjQTLl2Hn9ahch-y6rPY_xND06; HSID=AP4TQXsZ6qpAGG4SG; APISID=jYp9zTJHjbRko1LM/AwG-neCq5liwVSELA

Terus Ngerakitnya bagaimana gan , dalam fungsi vb6 nya, sebagai senddata ?

 

'seperti ini :D 
winsock1_connect()
dim pack as string 

pack = "GET / HTTP/1.1" & vbcrlf & _
"Host: www.google.co.id" & vbcrlf & _
"User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:14.0) Gecko/20100101 Firefox/14.0.1" & vbcrlf & _
"Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & vbcrlf & _
"Accept-Language: en-us,en;q=0.5" & vbcrlf & _
"Accept-Encoding: gzip, deflate" & vbcrlf & _
"Connection: keep-alive" & vbcrlf & _

winsock1.sendData pack ' sendData yang dikirim ke server ? 
End SUb

Terus yang jadi pertanyaan kenapa pake vbcrlf gan ? jawabannya simpel , karena buat line baru sendData ? kalo ndak ngerti coba search di google ^_^ terus kita ambil data yang tadi kita send ke host di data arival nya :P

 
winsock_dataarival()
dim data as string
winsock1.getData data , vbstring

msgbox data

End sub

OK sedikit tutorial yang acak acakan ini untuk kawan kawan :D , tutorial ini , cuman buat pembelajaran dan contoh saja :D