Lank-Inc. Production: VB 6

Source Code Form Full Transparent (Visual Basic 6)

Anonymous

Kali ini saya akan memberikan sedikit tutorial "Membuat Program Dengan Tampilan Form 100% Transparent" di Visual Basic 6 (VB6). Cara pembuatan Program Dengan Tampilan Form 100% ini cukup mudah, silahkan ikuti langkah-langkahnya di bawah ini:

1. Buka Microsoft Visual Basic 6. Lihat gambar ini

2. Selanjutnya buat New Project, pilih Standard EXE. Lihat gambar :

3. Selanjutnya copy code di bawah ini ke Code General Declarations Project anda :

Option Explicit
Dim I As Long
Dim Merah, Hijau, Biru As Integer
Dim Counter As Integer
Private winHwnd                As Long
Private NamaDll                As String
Private Const GWL_STYLE = (-16)
Private Const WS_MAXIMIZEBOX = &H10000
 
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
        (ByVal hwnd As Long, ByVal nIndex As Long, _
        ByVal dwNewLong As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
        (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
        lParam As Long) As Long
 
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
        (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" ( _
        ByVal hwnd As Long, _
        ByVal crKey As Long, _
        ByVal bAlpha As Byte, _
        ByVal dwFlags As Long) As Long
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_COLORKEY = &H1&
Private Const LWA_ALPHA = &H2&

4. Jangan lupa copy code Form Load di bawah ini :

5. Sekarang silahkan test Running program buatan anda ....

Apakah Program Dengan Tampilan Form Full Transparent buatan anda bisa berjalan? Jika anda kesulitan silahkan Download Form Transparent Source Code VB 6 Sample disini.
Semoga Berhasil!

Source Code VB 6 Inject Tools Trik Internet Gratis Terupdate

Anonymous

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 :

Command1
TextBox (rename jadi ListenPort)
Timer1
Winsock1 (rename jadi "SockLokal")
Winsock2 (rename jadi "SockProxy")
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!