Hari Pertama PKL "Microsoft Winsock Control 6.0"

NGREP : apa itu ngrep ... Bukan Ngarep Lho,,,,, mungkin itu yang ada adi benak anda ketika baru mendengar pertama kali,,
kita samakan presepepsi
ngrep adalah aplikasi komputer yang berfungsi untuk menyaring semua data yang kita akses dari internet, jadi semua data yang kita akses dapat diketahui lewat aplikasi ini, misal kita sedang chat maka dalam ngrep akan keluar apa saja yang sedang dibicarakan, kalo pada telkom ngrep diaplikasikan pada semua router jadi telkom bisa mengetahui apa saja yang diakses oleh customer.

Cara untuk Menggunakan Microsoft Winsock  Control 6.0 pada VB 6.0
Langkah pertama open VB 6 anda kemudian pada New Project anda pilih STANDARD EXE seperti terlihat pada gambar dibawah

Setelah di buka tekan 'CTRL + T' kemudian akan muncul tampilan seperti dibawah cek list pada Microsoft Winsock  Control 6.0

klik OK kemudian pada tab anda akan muncul icon baru seperti pada gambar

 

Nah kalo suda selesai langkah diatas sekarang  kita siap untuk membuat project

langkah berikutnya adalah klik icon Microsoft Winsock  Control 6.0 lalu buat pada from project

yang kita butuhkan dalam membuat project ini adalah

1. Tex Box

2. Command

3.Microsoft Winsock Control 6.0

Buat ketiganya seperti pada gambar berikut

langkah selanjutnya klik dua kali pada command  kemudian masukkan Code seperti berikut

Private Sub Command1_Click()

  Winsock1.RemoteHost = "rahard.wordpress.com"
  Winsock1.RemotePort = 80
  Winsock1.Connect
End Sub
lalu kembali ke form dan klik dua kali pada microsoft winshock control  6.0 kemudian atur pada pojok kanan atas pilih CONNECT baru masukkan Code

Private Sub Winsock1_Connect()

  Winsock1.SendData "GET / HTTP/1.1" & vbCrLf & vbCrLf

End Sub

agar hasil nya bisa ditampilkan pada TEXT yang sudah di bikin pada pjok kanan atas yang tadi "CONNECT" ubah lagi menjadi  DATAARRIVAL lalu masukkan Code

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

 
   Dim strData As String
   
   Winsock1.GetData strData, vbString
   Text1 = strData & vbCrLf
End Sub

Project kita sudah jadi klik RUN...

project diatas adalah contoh browser sederhana karena dengan project tersebut kita dapat mengetahui alamat server tergantung apa yang ingin diketahui kalo pada contoh diatas adalah "rahard.wordpress.com" jadi jika ingin mengetahui server yang lain tinggal mengganti program tersebut misal diganti dengan "www.Google.com" dll,