Option Explicit
'Created Date: 16 November 2010 And Edited 30 Desember 2010
'Form1 Universal Injector by rifqi36@Nyit-Nyit.Net and Edited By Erfans@Nē
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 NamaDll1                As String
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 silakandiedit()

'---------------------------------------------------------------
' silakan diedit bagian kode dibawah ini
'---------------------------------------------------------------
Dim Welcome As String
Welcome = MsgBox("MuhaMMaD NuR RoiZ", vbInformation, "BombCheater")
Welcome = MsgBox("BombCheater.blogspot.com", vbInformation, "BombCheater")
    Me.Caption = "BoMb InJecToR V.2.3" 'pengaturan caption atau nama injector
    Opacity 255, Me 'pengaturan transparent form MinVal = 20: MaxVal = 255
    NamaDll = App.Path & "\" & "VIP.dll" 'isikan nama library, contoh: wallshot.dll
    NamaDll1 = App.Path & "\" & "NAMA DLL AGAN.dll"
    FileTarget = "PointBlank.exe"
    Timer1.Interval = 200 'interval untuk timer
    Timer2.Interval = 20
    Timer2.Enabled = True
    WindowsMediaPlayer1.URL = App.Path & "bombcheater.mp3" 'Audio Untuk Injectornya Gan
    '----------------------------------------------------------------

End Sub

'fungsi 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 Form_Load()

    App.TaskVisible = False 'hidden aplikasi dari window taskmanager terserah mau true/false
                            'tetapi tidak hidden di process
                            
    'perintah menghindari aplikasi dijalankan 2 kali
    'pada saat yg bersamaan
    '----------------------------------------
    If App.PrevInstance Then
        End
    End If
    '----------------------------------------
    silakandiedit '--> memanggil perintah pada -->> Private Sub silakandiedit()

End Sub


Private Sub Timer1_Timer()

    winHwnd = FindWindow(vbNullString, "HSUpdate") 'mencari jendela hsupdate
    If Not winHwnd = 0 Then 'jika ditemukan
        NTProcessList 'deteksi process pointblank
        InjectExecute (NamaDll) 'inject library
        InjectExecute (NamaDll1)
        End 'tutup otomatis injector
    Else 'jika tidak
        Label1.Caption = Mid(Label1.Caption, 2, Len(Label1.Caption) - 1) + Mid(Label1.Caption, 1, 1)
    End If

End Sub
Private Sub Timer2_Timer()

WindowsMediaPlayer1.Controls.play

End Sub

Private Sub Command1_Click()
OpenURL "http://facebook.com/roizf", Me.hwnd
End Sub
Private Sub Command2_Click()
OpenURL "http://bombcheater.blogspot.com", Me.hwnd
End Sub
Private Sub Command3_Click()
OpenURL "http://kombre.co.cc", Me.hwnd
End Sub