Disini saya akan mengajarkan cara membuat injector Game Online Point Blank. Injector ini berfungsi sebagai penginjeksi DLL [ Dinamic Link Library ]
ke dalam proses Point Blank [Hack shiled]. Atau kata Para cheater sebagai "cheat" yang berguna sebagai alat pemuas saat bermain Point Blank.
Contoh Macam-macam Cheat [Dll] yang dapat diinjeksikan kedalam game Point Blank Menggunakan Injector yang satu ini:
* Wallshot.dll
* Minimize.dll
* Master medal.dll
* Maphack.dll
* Wallhack.dll
* Dan masih banyak lagi
Oke langsung ke pokok pembahasan. Sediakan dulu bahan-bahannya.
Bahan & Alat :
* Komputer atau Laptop
* Visual Basic 6.0 Portable bisa download disini
* Source code
* Registry editor harus enabled
* Kopi buat yang suka ngopi
Hal yang pertama dilakukan aldalah :
* Buka Visual Basic 6.0 Portable
* New project
Dan Sediakan :
* 1 buah form
* 1 buah label
* 3 buah Command Button
* 4 buah module
* 6 buah timer [Timer 3,4,5 Intervalnya diubah menjadi 300]
Step :
* Label diberi nama & caption sesuka anda om.
* Command button yang pertama Diberi nama "cmdterminate" Dan Captionnya "Terminate" [ Berfungsi sebagai Penghenti proses game ]
* Command button yang kedua diberi nama "cmdexecute" Dan captionnya "Resume" [Berfungsi sebagai pelanjutan proses setelah dll diinjeksikan]
* Command button yang ketiga diberi nama "cmdinjector" dan captionnya "Select DLL File" [Berfungsi sebagai pencari (Browse) Dll]
* Keempat module silhkan diberi nama sesuka anda.
Langsung aja om.
Copy code dibawah ini kedalam form.
Contoh Macam-macam Cheat [Dll] yang dapat diinjeksikan kedalam game Point Blank Menggunakan Injector yang satu ini:
* Wallshot.dll
* Minimize.dll
* Master medal.dll
* Maphack.dll
* Wallhack.dll
* Dan masih banyak lagi
Oke langsung ke pokok pembahasan. Sediakan dulu bahan-bahannya.
Bahan & Alat :
* Komputer atau Laptop
* Visual Basic 6.0 Portable bisa download disini
* Source code
* Registry editor harus enabled
* Kopi buat yang suka ngopi
Hal yang pertama dilakukan aldalah :
* Buka Visual Basic 6.0 Portable
* New project
Dan Sediakan :
* 1 buah form
* 1 buah label
* 3 buah Command Button
* 4 buah module
* 6 buah timer [Timer 3,4,5 Intervalnya diubah menjadi 300]
Step :
* Label diberi nama & caption sesuka anda om.
* Command button yang pertama Diberi nama "cmdterminate" Dan Captionnya "Terminate" [ Berfungsi sebagai Penghenti proses game ]
* Command button yang kedua diberi nama "cmdexecute" Dan captionnya "Resume" [Berfungsi sebagai pelanjutan proses setelah dll diinjeksikan]
* Command button yang ketiga diberi nama "cmdinjector" dan captionnya "Select DLL File" [Berfungsi sebagai pencari (Browse) Dll]
* Keempat module silhkan diberi nama sesuka anda.
Langsung aja om.
Copy code dibawah ini kedalam form.
'You can visit my blog
'www.TheRealLivingDeal.tk
Private noc As Integer
Private str1 As String
Private str2 As String
Private str3 As String
Private strmessage As String
Private resmue As String
Private winHwnd As Long
Private bSuspend As Boolean
Option Explicit
Private Declare Function ExtCreateRegion Lib "gdi32" (lpXform As Any, ByVal nCount As Long, lpRgnData As Any) As Long
Private Declare Function SetWindowRgn Lib "USER32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Dim bytRegion(31) As Byte
Dim nBytes As Long
'Win 2k, ME, XP
Private Const GWL_EXSTYLE As Long = (-20)
Private Const WS_EX_LAYERED As Long = &H80000
Private Const LWA_ALPHA As Long = &H2
Private NamaDll 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 cmdExecute_Click()
resmue = "yes"
Unload Me
End Sub
Private Sub cmdInjector_Click()
On Error GoTo errLine
If Not cmdInjector.Caption = "You Can Inject Now" Then
Dim theTemp As String
theTemp = OpenDialog(Me, "DLL files (*.dll)|*.dll", "Select DLL File For Inject...", App.Path)
If Trim$(theTemp) <> "" Then
If Dir$(theTemp) <> "" Then
sFlDLL = theTemp
cmdInjector.Caption = "You Can Inject Now"
Else
sFlDLL = "None"
cmdInjector.Caption = "Select Dll File"
End If
End If
Else
If sFlDLL = "None" Then
MsgBox "You can't Injector execute", 48, "Error Injector"
Exit Sub
Else
InjectExecute sFlDLL
sFlDLL = "None"
cmdInjector.Caption = "Select Dll File"
End If
End If
Exit Sub
errLine:
MsgBox "File tidak merespon", 48, "Error"
End Sub
Private Sub cmdTerminate_Click()
resmue = "yes"
On Error Resume Next
Dim lExitCode As Long
If MsgBox("Terminate GameGuard sekarang?", _
vbYesNo + vbExclamation, "Terminate Proses") = vbYes Then
lExitCode = TerminateTargetOne
If lExitCode = 0 Then
MsgBox "Proses terminate gagal.", _
vbExclamation, "Terminate info"
cmdTerminate.Enabled = False
Else
lExitCode = TerminateTargetTwo
If lExitCode = 0 Then
MsgBox "Success If You Have A Problem You Can Call Me", _
vbExclamation, "Succsses Terminate [Teguh Injector]"
Else
Unload Me
End If
End If
End If
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() Dim Welcome As String bSuspend = False Timer2.Interval = 20 Timer2.Enabled = True FileTargetOne = "PointBlank.exe" ' FileTargetTwo = "HSUpdate.exe" ' str1 = "[Teguh Micro]" ' str2 = "Special Thanks to Credit" ' str3 = "http://www.teguhmicro.blogspot.com copyright@2010 " ' Opacity 250, Me 'pengaturan transparent form MinVal = 20: MaxVal = 255 ' Dim rgnMain As Long nBytes = 100 LoadBytes rgnMain = ExtCreateRegion(ByVal 0&, nBytes, bytRegion(0)) SetWindowRgn Me.hwnd, rgnMain, True End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Screen.MousePointer = vbDefault End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If bSuspend = True Then If Not resmue = "yes" Then If MsgBox("Klik Yes untuk Terminate (PB dan HS) dan No Untuk Membatalkan", vbYesNo, "") = vbYes Then cmdTerminate_Click Else Cancel = -1 End If Else OpenURL "www.Teguhmicro.blogspot.com", Me.hwnd End If End If End Sub Private Sub Form_Unload(Cancel As Integer) If bSuspend = True Then SetSuspendResumeThread False End End Sub Private Sub Timer1_Timer() winHwnd = FindWindow(vbNullString, "HSUpdate") If winHwnd <> 0 Then
NTProcessList
SetSuspendResumeThread True
cmdTerminate.Enabled = True
cmdExecute.Enabled = True
cmdInjector.Enabled = True
'pengaturan tombol jadi aktif
bSuspend = True
Vibrate Me, 100, 50
Timer1.Enabled = False
Else
cmdTerminate.Enabled = False
cmdExecute.Enabled = False
cmdInjector.Enabled = False
'-------------------------
'pengaturan tombol jadi tidak aktif
Timer1.Enabled = True
bSuspend = False
End If
End Sub
Private Sub Timer2_Timer()
Me.Top = (Screen.Height - Height) / 2
Timer2.Enabled = False
Timer1.Enabled = True
Timer1.Interval = 20
End Sub
Private Sub Timer3_Timer()
If Label1.Visible = True Then
Label1.Visible = False
Else
Label1.Visible = True
End If
End Sub
Private Sub timer5_Timer()
Timer5.Interval = 300
End Sub
Sub SlideWindow(frmSlide As Form, iSpeed As Integer)
While frmSlide.Top - frmSlide.Height < Screen.Height DoEvents frmSlide.Top = frmSlide.Top + iSpeed Wend End Sub Private Sub MoveToTop() Dim currentTop As Long Dim TargetTop As Long Dim currentLeft As Long Dim TargetLeft As Long Dim i As Long For i = currentTop To TargetTop Step -2 Me.Top = i Next i For i = currentLeft To TargetLeft Step 2 Me.Left = i Next i End Sub Private Sub Vibrate(Frm As Form, rScale As Integer, Times As Integer) Dim Lft As Long, Tp As Long Dim i Lft = Frm.Left Tp = Frm.Top For i = 0 To Times Frm.Move Lft + Sgn(rScale) Pause 20 Frm.Move Lft + rScale Pause 20 Frm.Move Lft, Tp + Sgn(rScale), Frm.Width, Frm.Height Pause 20 Frm.Move Lft, Tp + rScale, Frm.Width, Frm.Height Pause 20 Next i End Sub Private Sub Pause(ms) Dim secs Dim g secs = ms / 1000 g = Timer Do While Timer - g < secs DoEvents Loop End Sub Private Sub LoadBytes() bytRegion(0) = 100 bytRegion(4) = 10 End Sub
Selanjutnya tambahkan code dibawah ini kedalam module yang pertama yang telah anda buat.
'How to make injector by Fajar Muhammad Farhan
'You can visit my blog
'www.TheRealLivigDeal.tk
Option Explicit
'Common Dialog
Private Type OPENFILENAME
lStructSize As Long
hWndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
Flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Public Const OFN_READONLY = &H1
Public Const OFN_OVERWRITEPROMPT = &H2
Public Const OFN_HIDEREADONLY = &H4
Public Const OFN_NOCHANGEDIR = &H8
Public Const OFN_SHOWHELP = &H10
Public Const OFN_ENABLEHOOK = &H20
Public Const OFN_ENABLETEMPLATE = &H40
Public Const OFN_ENABLETEMPLATEHANDLE = &H80
Public Const OFN_NOVALIDATE = &H100
Public Const OFN_ALLOWMULTISELECT = &H200
Public Const OFN_EXTENSIONDIFFERENT = &H400
Public Const OFN_PATHMUSTEXIST = &H800
Public Const OFN_FILEMUSTEXIST = &H1000
Public Const OFN_CREATEPROMPT = &H2000
Public Const OFN_SHAREAWARE = &H4000
Public Const OFN_NOREADONLYRETURN = &H8000
Public Const OFN_NOTESTFILECREATE = &H10000
Public Const OFN_NONETWORKBUTTON = &H20000
Public Const OFN_NOLONGNAMES = &H40000 ' force no long names for 4.x modules
Public Const OFN_EXPLORER = &H80000 ' new look commdlg
Public Const OFN_NODEREFERENCELINKS = &H100000
Public Const OFN_LONGNAMES = &H200000 ' force long names for 3.x modules
Public Const OFN_SHAREFALLTHROUGH = 2
Public Const OFN_SHARENOWARN = 1
Public Const OFN_SHAREWARN = 0
Private Declare Function GetOpenFileName Lib "COMDLG32.DLL" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Declare Function GetSaveFileName Lib "COMDLG32.DLL" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long
'Browse Folder Declarations
Private Type BrowseInfo
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Private Const BIF_RETURNONLYFSDIRS = 1
Private Const MAX_PATH = 260
Public Const BIF_STATUSTEXT = &H4&
Public Const BIF_DONTGOBELOWDOMAIN = 2
Public Const WM_USER = &H400
Public Const BFFM_INITIALIZED = 1
Public Const BFFM_SELCHANGED = 2
Public Const BFFM_SETSTATUSTEXT = (WM_USER + 100)
Public Const BFFM_SETSELECTION = (WM_USER + 102)
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
Function OpenDialog(Form1 As Form, Filter As String, Title As String, InitDir As String) As String
Dim ofn As OPENFILENAME
Dim A As Long
Dim theTemp As String
ofn.lStructSize = Len(ofn)
ofn.hWndOwner = Form1.hwnd
ofn.hInstance = App.hInstance
If Right$(Filter, 1) <> "|" Then Filter = Filter + "|"
For A = 1 To Len(Filter)
0 komentar:
Posting Komentar