Source Code VB 6 Inject Tools Trik Internet Gratis Terupdate

Kali ini saya saya akan coba sharing Source Code Inject Tools versi VB 6 (Visual Basic 6)

Pertama-tama kita buat project baru dan buat Form standart App

Lalu tambahkan komponent berikut ini :

1. Command1
2. TextBox (rename jadi ListenPort)
3. Timer1
4. Winsock1 (rename jadi "SockLokal")
   
5. Winsock2 (rename jadi "SockProxy")
6. Lalu Copy Code di bawah ini (Klik Select All lalu tekan tombol CTRL+C karena di blog ini saya disable pilihan Klik Kanan pada Mouse)

Option Explicit Dim DataLokal(255) As String Dim DataInject As String Dim i, Lank As Integer Private Sub Command1_Click() If Command1.Caption = "Start" Then Command1.Caption = "Stop" SockLokal(0).LocalPort = ListenPort.Text SockLokal(0).Listen ListenPort.Enabled = False Combo2.Enabled = False Else Command1.Caption = "Start" SockLokal(0).Close ListenPort.Enabled = True Combo2.Enabled = True End If End Sub Private Sub Form_Load() On Error Resume Next Command1.caption = "Start" DataInject = "CONNECT http://0.facebook.com/ HTTP/1.1" & vbCrLf & "host:0.facebook.com" & vbcrlf & vbCrLf & vbCrLf 'Ini adalah data inject yang akan digunakan untuk inject header End Sub Private Sub SockLokal_ConnectionRequest(Index As Integer, ByVal requestID As Long) 'SockLokal mengirimkan permintaan data (Winsock1) On Error Resume Next i = i + 1 Load SockLokal(i) Load SockProxy(i) Load Timer1(i) SockProxy(i).close SockLokal(i).Close SockLokal(i).Accept requestID End Sub Private Sub SockLokal_DataArrival(Index As Integer, ByVal bytesTotal As Long) 'SockLokal menerima data (winsock1) On Error Resume Next SockLokal(Index).GetData DataLokal(Index) If InStr(DataLokal(Index), "CONNECT") > 0 Then 'Jika data yang masuk mengandung string "CONNECT" lebih dari 0 karakter maka.... SockLokal(Index).Close 'SockLokal ditutup Exit Sub End If If SockProxy(Index).State = 0 Then 'Jika status SockProxy(index) kosong maka <--- winsock2 SockProxy(Index).RemoteHost = "10.1.89.130" 'Mengisi data sementara = Proxy operator provider telkomsel SockProxy(Index).RemotePort = 8000 'Mengisi data sementara = Port proxy operator provider SockProxy(Index).Connect 'SockProxy konek End If If SockProxy(Index).State = 7 Then 'State = 7 ini menunjukkan bahwa winsock sudah konek SockProxy(Index).SendData DataLokal(Index) 'SockProxy(index) mengirimkan data lokal (dari lokal host) End If End Sub Private Sub SockProxy_Close(Index As Integer) 'Menutup SockProxy (Winsock2) SockProxy(Index).Close SockLokal(Index).Close End Sub Private Sub SockProxy_Connect(Index As Integer) 'SockProxy konek (winsock2) SockProxy(Index).SendData DataInject 'winsock(index) mengirimkan data inject Lank = 0 Timer1(Index).Enabled = True 'Perintah Menjalankan Timer1 End Sub Private Sub SockProxy_DataArrival(Index As Integer, ByVal bytesTotal As Long) Dim DataProxy As String SockProxy(Index).GetData DataProxy If Lank = 1 Then If SockLokal(Index).State = 7 Then SockLokal(Index).SendData DataProxy End If Else Lank = 1 End If End Sub Private Sub Timer1_Timer(Index As Integer) If Lank = 0 Then If SockProxy(Index).State = 7 Then SockProxy(Index).SendData DataLokal(Index) End If End If Timer1(Index).Enabled = False End Sub

Selamat Mencoba Semoga Berhasil!

Powered by IPAddressLocation.org

Share this

Author : Anonymous

Related Posts