Monggo di edit sesuka kalian :)
Gunain ini kalo mau inject dll yg jumlahnya lebih dari 1. Biar cheat kalian komplit ;)
Private Sub Timer1_Timer()
Dim nama_dll(3) As String
Dim x As Integer
nama_dll(1) = App.Path & "\nama_dll1.dll"
nama_dll(2) = App.Path & "\nama_dll2.dll"
nama_dll(3) = App.Path & "\nama_dll3.dll"
If FileTarget = "PointBlank.exe" Then
winHwnd = FindWindow(vbNullString, "HSUpdate") 'mencari jendela hsupdate
Else
winHwnd = GetProcessWndByName(FileTarget)
End If
If Not winHwnd = 0 Then 'jika ditemukan
NTProcessList 'deteksi process game
For x = 1 To 3
InjectExecute nama_dll(x)
DoEvents
Next x
End
End If
End Sub
Dim nama_dll(3) As String
Dim x As Integer
nama_dll(1) = App.Path & "\nama_dll1.dll"
nama_dll(2) = App.Path & "\nama_dll2.dll"
nama_dll(3) = App.Path & "\nama_dll3.dll"
If FileTarget = "PointBlank.exe" Then
winHwnd = FindWindow(vbNullString, "HSUpdate") 'mencari jendela hsupdate
Else
winHwnd = GetProcessWndByName(FileTarget)
End If
If Not winHwnd = 0 Then 'jika ditemukan
NTProcessList 'deteksi process game
For x = 1 To 3
InjectExecute nama_dll(x)
DoEvents
Next x
End
End If
End Sub