Belajar Membuat Injector Cheat [Visual Basic 6] | Point Blank

Cara Membuat Injector Cheat Pointblank ,, Pake Visual Basic 6 (VB6) tentunya .. Jika Agan Minat Jadi Programmer Pembelajaran ini Cocok Aja Untuk agan .. Biasanya Prmbelajaran ini digunakan Untuk S1 atau Diploma 3 .. tapi ane Share Untuk Umum

ScreenShot VB6 :



Contoh Code Source :

'Credit By James
'Thx to KRESS
'THX to NIRAVNA
'THX to PANDU
'THX to PLANETSOURCECODE
' Contact Pandu panducoms@yahoo.com

Option Explicit
Dim I As Long
Dim merah, hijau, biru As Integer
Dim Counter As Integer
Private Const GWL_EXSTYLE      As Long = (-20)
Private Const WS_EX_LAYERED    As Long = &H80000
Private Const LWA_ALPHA        As Long = &H2
Private winHwnd                As Long
Private NamaDll                As String
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 CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, _
                                                      ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, _
                                                      ByVal nIndex As Long, _
                                                      ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, _
                                                                  ByVal crey As Byte, _
                                                                  ByVal bAlpha As Byte, _
                                                                  ByVal dwFlags As Long) As Long
                                                                  

Private Sub Injeckdll()

    Me.Caption = "eXJames 5.4"  'pengaturan caption atau nama injector pada Form
    
    NamaDll = "James.dll" 'isikan nama DLL nya , contoh: James.dll
    FileTarget = "PointBlank.exe"
    Timer1.Interval = 20 'interval untuk timer
    '----------------------------------------------------------------
 
End Sub

' Transparent form
Private Sub Opacity(value As Byte, _
                    Frm As Form)
Dim MaxVal As Byte
Dim MinVal As Byte

    On Error GoTo ErrorHandler
    MinVal = 20
    MaxVal = 255
    If value > MaxVal Then
        value = MaxVal
    End If
    If value < MinVal Then
        value = MinVal
    End If
    SetWindowLongA Frm.hWnd, GWL_EXSTYLE, GetWindowLongA(Frm.hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED
    SetLayeredWindowAttributes Frm.hWnd, 0, value, LWA_ALPHA
ErrorHandler:

Exit Sub

End Sub








Private Sub Inject_Click()
InjectExecute (NamaDll) 'Inject DLL ,, DLL yang di Inject adalah DLL yang di (NamaDLL)
MsgBox "eXJames 5.4 Akan Tertutup Otomatis !", 64, "Info" 'Pesan Untuk Menutup Aplikasi
Unload Me 'Tutup Saya
End
End Sub




Private Sub Form_Load()

Dim l As Long

    App.TaskVisible = True 'Sembunyikan  aplikasi dari window taskmanager  true= untuk menampilkan /false Untuk Tidak menampilkan
                            'tetapi tidak hidden di process
                            

    If App.PrevInstance Then
        End
    End If

    Injeckdll

End Sub


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then 'left click Untuk Menggerakkan Form Tanpa Border
ReleaseCapture
SendMessage Me.hWnd, &HA1, 2, 0
End If
End Sub

Private Sub GlassButton1_Click()
Unload Me
End
End Sub






Private Sub Timer1_Timer()
    winHwnd = FindWindow(vbNullString, "HSUpdate") 'mencari jendela hsupdate
    If Not winHwnd = 0 Then 'jika ditemukan
        NTProcessList 'deteksi process pointblank
        Label1.Caption = "PointBlank Tertangkap !"
        Inject.Caption = "Inject Now !"
        Inject.Enabled = True

    Else 'jika tidak
        Label1.Caption = "Menunggu PointBlank !" ' Sebelum Terinjecktion (silakan Di ubah nama Dengan Selera Anda)
    End If
End Sub



Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
OpenURL "http://panduciterpinank.blogspot.com", Me.hWnd
OpenURL "http://facebook.com/pandusoft", Me.hWnd ' Silakan Di Ubah Dengan Nama WEB/BLog Anda
'Gunakan Dengan Bijak kalau mau Dishare Di lain Silakan asal Di Sertakan Creditnya By James
End Sub


Private Sub Timer2_Timer()
'Fungsi Label Warna
I = I + 1
  If I = 1000000 Then I = 0 'Supaya tdk overflow, dsb...
  merah = Int(255 * Rnd)    'Bangkitkan angka random untuk merah
  hijau = Int(255 * Rnd)    'Bangkitkan angka random untuk hijau
  biru = Int(255 * Rnd)     'Bangkitkan angka random untuk biru
  Label1.ForeColor = RGB(merah, hijau, biru)   'Campur tiga warna
  If I Mod 2 = 0 Then       'Jika counter habis dibagi 2
     Label1.Visible = True  'Tampilkan label
  Else                      'Jika counter tidak habis dibagi 2
     Label1.Visible = False 'Sembunyikan label
  End If                    'Akhir pemeriksaan
End Sub

Ziddu :
Download 
__________
Download

Uploaded Date : 2011-06-06
File Size : 4.80 MB
File Type : Document WinRAR


From :
Kaskus - The Largest Indonesian Community

Posted in: Hacks