Rpe 9january2011 [08.17]

minimaze:
minimaze simple tahan kecoa ijo
Rpe:
redox packet editor
redox packet editor
Jangan sampe salah milih
Buat tutor çärí dí ponmy g
Jaa

Cheat cash khusus hackers

Cheat cash tanpa beli cash..
ini softwarenya

Ini videonya
video download

Kalo masi gag mudeng berati masi balita/bocah suka nipu..
Di jamin mudeng dehh...

Cheat token permanent pake CE 5.6.1

Pertama kan ada tuh invite friend... trus invite friend sampai 10
orang maka akan dapat 50 token...
nah di sana kamu bikin juga seperti daily task untuk dapatkan
gold...
kamu scan token kamu ke Headqueter... kan ketemu 1 addres
caranya masih sama kayak cheat Gold daily task... ckckckkc
lumayan dapat 23 juta token...
-Open CE
-trus scan token kamu pakai 8 byte dan ntar ketemu bnyk data2
nya
-trus kamu pergi ke headquerte tempat change token jadi gold
biar ntar ketemu 1 kode nya biar kamu ga susah carinya...
-klu dah dpt 1 link trus kamu klik... kamu ganti jumlah token kamu
jadi 750000..
nah kan klu udah invite 10 teman ada tuh dapet token 50... kamu
klik claim deh itu...
Maaf Soalnya susah bgt nunjukin caranya...
susah jg yah menghabiskan token 23 juta dan gold 2 milyar...

*Pe snutz.us 8januari2011

Redox Packet Editor editan [status=undetec]
download
download
download
Jangan sampe salah ya!!
Minimize cari ndiri ya..
*PE ini tahan lama(anti kecoa ijo)

Video+softwarenya membuat injector pake visual basic 6 portable..

Ini videonya =
download
Ini download VB6=
download
Credits= sapta agung[N2]
Sumber= Nstars

~[T]*onn*[Y]~ injector v.1 (6jan2011) cheat perdana

~[T]*onn*[Y]~ v.1 (baru buat cheät)

Fitur::

Hack char(tero dan ct)/reset=F9/F10
Title hack dan rank=F11
Wallshot on/off=F1/F2
Exp card=F12
Beret sg=numpad1
Beret smg=numpad2
Beret awp=numpad3
Beret knife=numpad4
Beret assault=numpad5
Beret PBNC=numpad0
Minimize on/off=insert/delete
Credits by=
Tonny putra kusuma [chibi hackers]
Thanks to=
My friend
Allah

Kadaluarsa= 7january2011
Link add my fb=
Setengah_kentir@yahoo.com
No pass
Working

Dont forget follow my blog ^^

Cara membuat injector cheat pointblank (Nyit-nyit.net)

Download Visual Basic Telebih dahulu dan instal..
Fitur:
- Suspend Otomatis
- Multiple Dll Injection
- Commond Dialog API <-- jadi ga perlu lagi harus pasang component commond dialog Tutor: gue anggap ini udah masuk kelas menengah, untuk basicnya baca2 tutor pada halaman sebelumnya. jadi gw langsung ke inti cara pembuatannya. Form dan kode pada form buat 1 form dengan nama form1 buat 5 command button, masing2 beri nama : command1,command2,cmdInjector,cmdExecute,cmdTerminate. untuk cmdInjector beri nama caption "Select DLL For Inject" tanpa tanda kutip untuk cmdExecute beri nama caption "Resume". untuk cmdTerminate beri nama caption "Terminate" buat timer pada form, masing2 beri nama : timer1 dan timer2 masukkan listing ini pada form1 'SQI Injector Revisi 11 Oktober 2010 by rifqi36, Injector Original Gesp 1.3 by eRGe@Nyit-Nyit.Net Private resmue As String Private winHwnd As Long Private bSuspend As Boolean Private Sub cmdExecute_Click() resmue = "yes" Unload Me End Sub Private Sub cmdInjector_Click() On Error GoTo errLine If Not cmdInjector.Caption = "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 = "Inject Now"
Else
sFlDLL = "None"
cmdInjector.Caption = "Select DLL For Inject"
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 For Inject"
End If
End If
Exit Sub
errLine:
MsgBox "File tidak respon atau tidak support", 48, "Error"
End Sub
Private Sub cmdTerminate_Click()
resmue = "yes"
On Error Resume Next
Dim lExitCode As Long
If MsgBox("Terminate Hackshield 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 "Proses terminate sukses.", _
vbExclamation, "Terminate info"
Else
Unload Me
End If
End If
End If
End Sub
Private Sub Command1_Click()
InjectExecute App.Path & "\example1.dll"
End Sub
Private Sub Command2_Click()
InjectExecute App.Path & "\example2.dll"
End Sub
Private Sub Form_Load()
bSuspend = False
Me.Left = (Screen.Width - Width) / 2
' Me.Top = -1000
Timer2.Interval = 20
Timer2.Enabled = True
FileTargetOne = "PointBlank.exe"
FileTargetTwo = "HSUpdate.exe"
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 "http://kang-yasin.indonesiaforum.net", 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
Command1.Enabled = True
Command2.Enabled = True
bSuspend = True
Vibrate Me, 100, 20
MoveToTop
Timer1.Enabled = False
Else
cmdTerminate.Enabled = False
cmdExecute.Enabled = False
cmdInjector.Enabled = False
'-------------------------
'pengaturan tombol jadi tidak aktif
Command1.Enabled = False
Command2.Enabled = False
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
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 currentTop = Me.Top TargetTop = (Screen.Height - Height) / 50 For i = currentTop To TargetTop Step -2 Me.Top = i Next i currentLeft = Me.Left TargetLeft = (Screen.Width - Me.Width) - 100 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 = 1 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 kemudian langkah selanjutnya, buat 4 modul masing beri nama ModCDialog,ModInjector, ModBrowser, dan ModProcess masukkan kode berikut pada ModCDialog 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)
If Mid$(Filter, A, 1) = "|" Then Mid$(Filter, A, 1) = Chr$(0)
Next
ofn.lpstrFilter = Filter
ofn.lpstrFile = Space$(254)
ofn.nMaxFile = 255
ofn.lpstrFileTitle = Space$(254)
ofn.nMaxFileTitle = 255
ofn.lpstrInitialDir = InitDir
ofn.lpstrTitle = Title
ofn.Flags = OFN_HIDEREADONLY Or OFN_FILEMUSTEXIST
A = GetOpenFileName(ofn)
If (A) Then
theTemp = Trim$(ofn.lpstrFile)
If Asc(Right$(theTemp, 1)) = 0 Then theTemp = Left$(theTemp,
Len(theTemp) - 1)
OpenDialog = theTemp
Else
OpenDialog = ""
End If
End Function
Public Function BrowseForFolder(hWndOwner As Long, sPrompt
As String) As String
'**************************************
' Name: Win95DirectoryPrompt
' Description:Prompting the User for a D
' irectory in Win95. Windows' common dialo
' gs are great if you want the user to sel
' ect a file, but what if you want them to
' select a directory? Call the following f
' unction, which relies on Win32's new SHB
' rowseForFolder function:
' By: Found on the World Wide Web
Dim iNull As Integer
Dim lpIDList As Long
Dim lResult As Long
Dim sPath As String
Dim udtBI As BrowseInfo
With udtBI
.hWndOwner = hWndOwner
.lpszTitle = lstrcat(sPrompt, "")
.ulFlags = BIF_RETURNONLYFSDIRS
End With
lpIDList = SHBrowseForFolder(udtBI)
If lpIDList Then
sPath = String$(MAX_PATH, 0)
lResult = SHGetPathFromIDList(lpIDList, sPath)
Call CoTaskMemFree(lpIDList)
iNull = InStr(sPath, vbNullChar)
If iNull Then
sPath = Left$(sPath, iNull - 1)
End If
End If
If InStr(LCase$(sPath), "\nethood") > 0 Then
MsgBox "The item that you selected is a folder shortcut, not a
folder.", vbCritical, "Browse Folders"
BrowseForFolder = ""
Else
BrowseForFolder = sPath
End If
End Function
masukkan kode berikut pada ModInjector
Option Explicit
Private Declare Function GetProcAddress Lib "kernel32" (ByVal
hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias
"GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias
"LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal
hProcess As Long, lpAddress As Any, ByVal dwSize As Long,
ByVal fAllocType As Long, flProtect As Long) As Long
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal
hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any,
ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function CreateRemoteThread Lib "kernel32" (ByVal
ProcessHandle As Long, lpThreadAttributes As Long, ByVal
dwStackSize As Long, ByVal lpStartAddress As Any, ByVal
lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID
As Long) As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Function InjectDll(DllPath As String, ProsH As Long)
Dim DLLVirtLoc As Long, DllLength, Inject As Long, LibAddress As
Long
Dim CreateThread As Long, ThreadID As Long
Dim Bla As VbMsgBoxResult
g_loadlibary:
LibAddress = GetProcAddress(GetModuleHandle("kernel32.dll"),
"LoadLibraryA")
If LibAddress = 0 Then
Bla = MsgBox("Can't find LoadLibrary API from kernel32.dll",
vbYesNo, "ERROR")
If Bla = vbYes Then
GoTo g_loadlibary
Else
Exit Function
End If
End If
g_virutalallocex:
DllLength = Len(DllPath)
DLLVirtLoc = VirtualAllocEx(ProsH, 0, DllLength, &H1000, ByVal
&H4)
If DLLVirtLoc = 0 Then
Bla = MsgBox("VirtualAllocEx API failed! - try again?", vbYesNo,
"ERROR")
If Bla = vbYes Then
GoTo g_virutalallocex
Else
Exit Function
End If
End If
g_writepmemory:
Inject = WriteProcessMemory(ProsH, ByVal DLLVirtLoc, ByVal
DllPath, DllLength, vbNull)
If Inject = 0 Then
Bla = MsgBox("Failed to Write DLL to Process! - try again?",
vbYesNo, "ERROR")
If Bla = vbYes Then
GoTo g_writepmemory
Else
Exit Function
End If
End If
g_creatthread:
CreateThread = CreateRemoteThread(ProsH, ByVal 0, 0, ByVal
LibAddress, ByVal DLLVirtLoc, 0, ThreadID)
If CreateThread = 0 Then
Bla = MsgBox("Failed to Create Thead! - try again?", vbYesNo,
"ERROR")
If Bla = vbYes Then
GoTo g_creatthread
Else
Exit Function
End If
End If
MsgBox "Dll Injection Successful!", 64, "Success"
End Function
Public Sub InjectExecute(ByVal sFlDLL As String)
Dim lProcInject As Long
lProcInject = OpenProcess(PROCESS_ALL_ACCESS, 0,
IdTargetOne)
If lProcInject > "0" Then
Call InjectDll(sFlDLL, lProcInject)
End If
Call CloseHandle(lProcInject)
End Sub
masukkan kode berikut pada modbrowser
'modul buka browser
Public Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Public Sub OpenURL(situs As String, sourceHWND As Long)
Call ShellExecute(sourceHWND, vbNullString, situs, vbNullString,
vbNullString, 1)
End Sub
masukkan kode berikut pada modprocess
Option Explicit
Public Declare Function FindWindow Lib "USER32" Alias
"FindWindowA" (ByVal Classname As String, ByVal
WindowName As String) As Long
Public Declare Function PostMessage Lib "USER32" Alias
"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long,
ByVal wParam As Long, lParam As Any) As Long
Public Declare Function Process32First Lib _
"kernel32" (ByVal hSnapShot As Long, _
uProcess As PROCESSENTRY32) As Long
Public Declare Function Process32Next Lib _
"kernel32" (ByVal hSnapShot As Long, _
uProcess As PROCESSENTRY32) As Long
Public Declare Function CloseHandle Lib _
"kernel32" (ByVal hObject As Long) As Long
Public FileTargetOne As String
Public FileTargetTwo As String
Public sFlDLL As String
Public IdTargetOne As Long
Private IdTargetTwo As Long
Private Const TH32CS_SNAPHEAPLIST = &H1
Private Const TH32CS_SNAPPROCESS = &H2
Private Const TH32CS_SNAPTHREAD = &H4
Private Const TH32CS_SNAPMODULE = &H8
Private Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or _
TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_
SNAPMODULE)
Private Const MAX_PATH = 260
Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type
Private Type MODULEENTRY32
dwSize As Long
th32ModuleID As Long
th32ProcessID As Long
GlblcntUsage As Long
ProccntUsage As Long
modBaseAddr As Long
modBaseSize As Long
hModule As Long
szModule As String * 256
szExePath As String * 260
End Type
Private Type THREADENTRY32
dwSize As Long
cntUsage As Long
th32ThreadID As Long
th32OwnerProcessID As Long
tpBasePri As Long
tpDeltaPri As Long
dwFlags As Long
End Type
Private Const THREAD_SUSPEND_RESUME = &H2
Private Declare Function OpenThread Lib _
"kernel32.dll" (ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Boolean, _
ByVal dwThreadId As Long) As Long
Private Declare Function ResumeThread Lib _
"kernel32.dll" (ByVal hThread As Long) As Long
Private Declare Function SuspendThread Lib _
"kernel32.dll" (ByVal hThread As Long) As Long
Private hThread As Long
Private Declare Function CreateToolhelp32Snapshot Lib _
"kernel32" (ByVal lFlags As Long, _
ByVal lProcessID As Long) As Long
Private Declare Function Module32First Lib _
"kernel32" (ByVal hSnapShot As Long, _
uProcess As MODULEENTRY32) As Long
Private Declare Function lstrlen Lib _
"kernel32" Alias "lstrlenA" ( _
ByVal lpString As String) As Long
Private Declare Function GetFileTitle Lib _
"COMDLG32.DLL" Alias "GetFileTitleA" ( _
ByVal lpszFile As String, _
ByVal lpszTitle As String, _
ByVal cbBuf As Integer) As Integer
Private Declare Function Thread32First Lib _
"kernel32.dll" (ByVal hSnapShot As Long, _
ByRef lpte As THREADENTRY32) As Boolean
Private Declare Function Thread32Next Lib _
"kernel32.dll" (ByVal hSnapShot As Long, _
ByRef lpte As THREADENTRY32) As Boolean
Public Declare Function OpenProcess Lib _
"kernel32" (ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib _
"kernel32" (ByVal hProcess As Long, _
ByVal uExitCode As Long) As Long
Public Function NTProcessList() As Long
On Error Resume Next
Dim FileName As String, ExePath As String
Dim hProcSnap As Long, hModuleSnap As Long, _
lProc As Long
Dim uProcess As PROCESSENTRY32, _
uModule As MODULEENTRY32
Dim intLVW As Integer
hProcSnap = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
uProcess.dwSize = Len(uProcess)
lProc = Process32First(hProcSnap, uProcess)
Do While lProc
If uProcess.th32ProcessID <> 0 Then
hModuleSnap = CreateToolhelp32Snapshot(TH32CS_SNAPALL,
uProcess.th32ProcessID)
uModule.dwSize = Len(uModule)
Module32First hModuleSnap, uModule
If hModuleSnap > 0 Then
ExePath = StripNulls(uModule.szExePath)
FileName = GetFName(ExePath)
If FileTargetOne = FileName Then IdTargetOne =
uProcess.th32ProcessID
If FileTargetTwo = FileName Then IdTargetTwo =
uProcess.th32ProcessID
End If
End If
lProc = Process32Next(hProcSnap, uProcess)
Loop
Call CloseHandle(hProcSnap)
Call CloseHandle(lProc)
End Function
Function StripNulls(ByVal sStr As String) As String
StripNulls = Left$(sStr, lstrlen(sStr))
End Function
Public Function GetFName(fn) As String
Dim f%, n%
GetFName = fn
f% = InStr(fn, "")
Do While f%
n% = f%
f% = InStr(n% + 1, fn, "")
Loop
If n% > 0 Then GetFName = Mid$(fn, n% + 1)
End Function
Private Function Thread32Enum(ByRef Thread() As
THREADENTRY32, _
ByVal lProcessID As Long) As Long
On Error Resume Next
ReDim Thread(0)
Dim THREADENTRY32 As THREADENTRY32
Dim hThreadSnap As Long
Dim lThread As Long
hThreadSnap = CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD,
lProcessID)
THREADENTRY32.dwSize = Len(THREADENTRY32)
If Thread32First(hThreadSnap, THREADENTRY32) = False Then
Thread32Enum = -1
Exit Function
Else
ReDim Thread(lThread)
Thread(lThread) = THREADENTRY32
End If
Do
If Thread32Next(hThreadSnap, THREADENTRY32) = False Then
Exit Do
Else
lThread = lThread + 1
ReDim Preserve Thread(lThread)
Thread(lThread) = THREADENTRY32
End If
Loop
Thread32Enum = lThread
Call CloseHandle(hThreadSnap)
End Function
Public Function SetSuspendResumeThread(SuspendNow As
Boolean) As Long
Dim Thread() As THREADENTRY32, hPID As Long, hThread As
Long, i As Long
hPID = IdTargetOne
Thread32Enum Thread(), hPID
For i = 0 To UBound(Thread)
If Thread(i).th32OwnerProcessID = hPID Then
hThread = OpenThread(THREAD_SUSPEND_RESUME, False,
(Thread(i).th32ThreadID))
If SuspendNow = True Then
SetSuspendResumeThread = SuspendThread(hThread)
Else
SetSuspendResumeThread = ResumeThread(hThread)
End If
End If
Next i
Call CloseHandle(hThread)
End Function
Public Function TerminateTargetOne() As Long
Dim hPID As Long
hPID = OpenProcess(PROCESS_ALL_ACCESS, 0, IdTargetOne)
TerminateTargetOne = TerminateProcess(hPID, 0)
Call CloseHandle(hPID)
End Function
Public Function TerminateTargetTwo() As Long
Dim hPID As Long
hPID = OpenProcess(PROCESS_ALL_ACCESS, 0, IdTargetTwo)
TerminateTargetTwo = TerminateProcess(hPID, 0)
Call CloseHandle(hPID)
End Function
selesai. tinggal di compile/make ke exe.
tambahan:
perhatikan kode command1 dan command2 pada listing code
pada form1
Private Sub Command1_Click()
InjectExecute App.Path & "\example1.dll"
End Sub
silakan ganti example1.dll dengan nama dll yang diinginkan.
Credit: Rifqi36@N3

Cheat talent point ninja saga work 100%

Peralatan :
* Fiddler
* File SWF
* Browser mu ( mozilla, Google Chrome )
Cara Penggunaan :
1. Download dulu fiddler
2. Kemudian Install Fiddler
3. Buka Ninja Saga kamu, tapi jangan pilih karakter dulu (jangan
buka fiddler !!)
4. Baru jalankan Fiddler
5. Klik Tab AutoResponder (yg icon-nya petir hijau)
6. Centang kotak "Enable automatic responses" dan juga "Permit
passthrough for unmatched request"
7. Jatuhkan .SWF File yang kamu download tadi ke kolom
AutoResponder
8. Setelah itu bersihkan chace
9. Baru pilih karakter yang akan kamu mainkan
Cara Menghapus chace :
* Untuk Mozilla Firefox : Tools -> Options -> Advanced -> Pilih
Network Tab -> Clear Now -> Klik OK
* Untuk Google Chrome : Pilih icon yang berada di pojok kanan
atas (sebelah bintang) -> Options -> Under the Hood -> Clear
Browsing Data -> Empty the cache -> Clear Browsing Data
Penggunaannya :
1. Tinggal masuk shop, dan tinggal ketik berapa TP yang kamu
inginkan
2. jangan terlalu banyak nanti bisa ERROR
SELAMAT MENCOBA

Speedyfox(mengoptimalkan speed browsing melalui firefox)

Aplikasi ini dapat mengoptimalkan Firefox browsing Anda menjadi
lebih cepat.
SpeedyFox ini dirancang khusus untuk memecahkan masalah
fragmentasi. Metode yang digunakan dalam SpeedyFox adalah
100% aman untuk profil Anda (bookmars misalnya, password, dll)
, itu didokumentasikan dengan baik dan diuji di banyak komputer
Requirements:
· Firefox
What's New in This Release:
· Added option to run Firefox after optimization (also when
running using command line). SQLite engine is updated to 3.7.4
version.
download here

Cheat cash dgn om charles proxy

Nich Gan Cheat Cash With Charles :
Link Charles cari aja ndiri download
Screen Shot Cheat Cash screen shot
i/52016978.jpg/
Tutor Cheat Cash :
0. Buka Charles
1. lu login pb
2. lu pilih Shop
3. Masukin Id ma pass
4. MAsukin Voucher loe ets jangan dulu di klik isi cash
5. Alt-tab
6. liat di charles ada http://billing.gemscoll.com
7. trus Break point
8. nah kembali lg ke Billing Gemscool
9. baru klick isi cash nah kan billingnya ke frezz
10. kembali lg ke charles masukin cash lu berapa aza
11. Misal kan 1000 jadiin aza 100000
Gua Dah Coba HasilNya Work ™.

RPE undetect 3jan2011

download di sini rpe nya
di wc umum
mkzsccPE2011.exe.html
Passwordnya= mkzscc+
jika error download di
rumah lu
Extrak rar>>copy di c/: windows>>system32(kalogag salah)>>paste
Masmed minimize cari di pasar banyak..
Kalo gag tw tutor di postingan w sebelumnya

Memperlambat laju billing(semua versi) with cheat engine5.6.1

Langsung Aja
Cara-caranya:
1. Install Dulu Cheat Engine nya! download
2. Buka Cheat Engine
3. klik gambar komputer dan kaca pembesar. icon
4.Cari Proses Billingnya
5.cheklist enable speedhack
6.trus isi kolomnya dengan rumus dibawah ini!
o.1=1jam jadi 10 jam
0.2=1jam jadi 5 jam
0.3=1jam jadi 3.33jam
0.4=1jam jadi 2.5 jam
0.5=1jam jadi 2 jam
0.6=1jam jadi 1.66jam
0.7=1jam jadi 1.42jam
0.8=1jam jadi 1.25jam
0.9=1jam jadi 1.11jam
1.0=1jam jadi ya 1jam
semoga bermanfaat! RESIKO TANGGUNG SENDIRI

Cheat ninja saga weapon permanent with cheat engine 5.6.1

-
Apabila kalian menggunakan CHEAT ini kalian bisa mendapatkan
SENJATA atau Pakaian yang di SEASON 2,3,dan 4
Alat cukup sederhana :
* Mozilla Firefox/Flock/Internet Explorer
* Cheat Engine, download disini
* hide my ip 2010 , download disini
Langkah-Langkah:
1. Buka Cheat Engine > Pilih Browser yang kamu gunakan,
2. Setting seperti yang di foto ini,
3. Buka NINJA SAGA, tpi sebelum itu kmu ganti ip dulu, pkai hide
my ip 2010.
4. Jalankan Misi lvl 13 "Escape of Criminals" di Misi ini kalian bisa
cepat mendapat Drop Healing Scroll,dan Drop Chakra Scroll. jika
tdk ad, acari misi yang mendapatkan Drop Healing Scroll,dan Drop
Chakra Scroll.
5. Apabila kalian sudah mendapat Healing Scroll atau Chakra Scroll
setelah membunuh musuh jangan di OK dulu,
6. Scan di Cheat Engine:
jika dpat Healing tulis item11
jika dpat Chakra tulis item10
7. Kalian akan mendapat 1-2 atau lebih address (bahkan sampai 20
address),
8. Klik 2x semua address (apabila mendapat address lebih dari 1)
agar address-nya pindah ke bawah,
9. Ubah Value address yang di bawah tadi ke "wpn198" untuk
mendapatkan senjata SHURIKEN dari Season 3
10. Setelah itu kembali ke NINJA SAGA,di Ninja Saga Klik "OK"
untuk menerima Scroll,
11. Terserah kalian mau di selesaikan atau kabur dari Misi,terserah
12. Setelah Kabur atau Misi selesai. REFRESH NINJA SAGA trus klik
PLAY dan lihat senjata apa yang kamu dapat.
Ingat : REFRESH bukan RELOAD PAGE
Tambahan : daftar senjata
Wpn 1 : Kunai
Wpn 2 : Sickle
Wpn 3 : Sai
Wpn 4 : Tonfa
Wpn 5 : Windmill Shuriken
Wpn 6 : Battle Umbrella
Wpn 7 : Ocean Sword
Wpn 8 : Tri-Star Shuriken
Wpn 9 : Shark Skin Sword
Wpn 10 : Decapitating Sword
Wpn 11 : Tailed Jutte
Wpn 12 : Pointed Edge Kunai
Wpn 13 : Chained Kama
Wpn 14 : Arrow Head Kunai
Wpn 15 : Arrow Head Kunai Ex
Wpn 16 : Arrow Head Kunai FF
Wpn 17 : The ultimate Arrow Head Kunai
Wpn 18 : Short Manji Sai
Wpn 19 : Tiger Tooth Kunai
Wpn 20 : Twin Tail Kunai
Wpn 21 : Midori Sai
Wpn 22 : Tri-Star Kunai
Wpn 23 : Short Serpent Sickle
Wpn 24 : Spring Kunai
Wpn 25 : Giant Kunai
Wpn 26 : Twin Tailed Jutte
Wpn 27 : Knife Edge Kunai
Wpn 28 : Chrome Sai
Wpn 29 : Black Ripper Sickle
Wpn 30 : Bone Hand Scythe
Wpn 31 : Elegant Sai
Wpn 32 : Golden Sai
Wpn 33 : Hook Hand Sickle
Wpn 34 : Lightning Sai
Wpn 35 : Iron Sai
Wpn 36 : Manji Sai
Wpn 37 : Quad Edge Claw
Wpn 38 : Ritual Kama
Wpn 39 : Small Tooth Kunai
Wpn 40 : Silver Sai
Wpn 41 : War Sickle
Wpn 42 : Sword Sai
Wpn 43 : Short Cleaver Sword
Wpn 44 : Wavy Blade
Wpn 45 : Bloody Ritual Kunai
Wpn 46 : Wolf Claw Dagger
Wpn 47 : Crescent Butcher Knife
Wpn 48 : Bone Machete
Wpn 49 : Katana
Wpn 50 : Iron Dagger
Wpn 51 : Bandit Blade
Wpn 53 : Nomad Blade
Wpn 54 : Sharp Blade
Wpn 55 : Dark War Edge
Wpn 56 : Hole Sword
Wpn 57 : Tusk Sword
Wpn 58 : Thick Broadsword
Wpn 59 : Scorpion Tail Blade
Wpn 60 : Blood Charm Tessen
Wpn 61 : Ice Wolf Sword
Wpn 62 : Blazing Shuriken
Wpn 63 : Rising-sun Sword
Wpn 64 : Lollipop
Wpn 65 : Candy Stick
Wpn 66 : Wreath of Leaf
Wpn 67 : Turkey Leg
Wpn 68 : Green Leaf Sickle
Wpn 69 : Nen-ryu Tessen
Wpn 70 : Viper Tusk Sword
Wpn 71 : Shark Head Sword
Wpn 72 : Kanesada
Wpn 73 : Crimson Katana
Wpn 74 : Skull Broadsword
Wpn 75 : Ying-yang Broadsword
Wpn 76 : Dark Dragon Katana
Wpn 77 : Hard Edge Axe
Wpn 78 : Ice Crystal Sword
Wpn 79 : Dark Plate Blade
Wpn 80 : Blade of Concealment
Wpn 81 : Axis Dual Kunai
Wpn 82 : Dark Ruby Edge
Wpn 83 : Giant Torsion Broadsword
Wpn 84 : Black Wing Sai
Wpn 85 : Handy Sai
Wpn 86 : Sacrificial Blade
Wpn 87 : Rusty Scissor Kunai
Wpn 88 : Superior Jutte
Wpn 89 : Platium Jutte
Wpn 90 : kosong
Wpn 91 : Straight Spear
Wpn 92 : Harrow
Wpn 93 : Japanese Dagger
Wpn 94 : Hoe
Wpn 95 : Handle Paper Fans
Wpn 96 : kosong
Wpn 97 : Bodkin Dagger
Wpn 98 : Four-Point Shuriken
Wpn 99 : Iron Ring Broadsword
Wpn100 : Carbon Dagger
wpn101 : hook
wpn102 : guard dagger
wpn103 : bronze kunai
wpn104 : bronze plate blade
wpn105 : scimitar
wpn106 : steel blade
wpn107 : heavy armor balade 100token
wpn108 : kosong
wpn109 : dorsal fin sword 100 token
wpn110 : hooked cutlass
wpn111 : kotetsu
wpn112 : teddy bear
wpn113 : bouquet of roses
wpn114 : chokolate sword
wpn115 : kosong sampai 118
wpn119 : blood dringker 400 token
wpn120 : tengu spear
wpn121 : ginkotsu saw
wpn122 : tengu umbrella
wpn123 : yanki sickle
wpn124 : byako sword
wpn125 : shadow tooth 500 token
wpn126 : golem guard 800 token
wpn127 : saul watcher 800 token
wpn128 : wheel monk 800 token
wpn129 : gekko balde 800 token
wpn130 : dark moryo 800 token
wpn131 : saijo kotetsu 100 token
wpn132 : white bouquet
wpn133 : colorful bouquet
wpn134 : dazzle windmill 400 token
wpn135 : kaza obake 300 token
wpn136 : hazy kotetsu 300 token
wpn137 : senden 600 token
wpn138 : sea bonze 300 token
wpn139 : jinkujaku 300 token
wpn140 : blue river 600 token
wpn141 : snake soul 300 token
wpn142 : mountain haze 300 token
wpn143 : violet lightning 300 token
wpn144 : wind walker 600 token
wpn145 : ichi no katana 400token
wpn146 : saul resonance 400token
wpn147 : rusty bronze 400token
wpn148 : disciple of blood 800token
wpn149 : four soul shuriken 800token
wpn150 : crazy wolf 300token
wpn151 : tenji 300token
wpn152 : sessho shuriken 100token
wpn153 : kosong
wpn154 : dull balde katana (belumbisa di gunakan)
wpn155 : practince naginata
wpn156 : wind katana 200token
wpn157 : dark sou katana 200token
wpn158 : stone kunai
wpn159 : stone giant kunai (belum bisa di gunakan)
wpn160 : knot dager kunai
wpn161 : dart kunai
wpn162 : red fang kunai (belum bisa di gunakan )
wpn163 : ketsuiki (belumbisa di gunakan )
wpn164 : secred genin kunai 400 token
wpn165 : snow-nin kunai
wpn166 : tri-blade kunai (belumbisa di gunakan)
wpn167 : white snake katana 200token
wpn168 : short wing sai
wpn169 : orange manji sai
wpn170 : pratiioner sai
wpn171 : short chrome sai
wpn172 : devil thorn sai
wpn173 : blue pearl kunai
wpn174 : izanami (belum bisa di gunakan)
wpn175 : kusanagi 200token
wpn176 : red card
wpn177 : white card
wpn178 : yellow card
wpn179 : nindan blood drinker 100token
wpn180 : sandan blood drinker(belumbisa di gunakan )
wpn181 : nindan shadow tooth 200token
wpn182 : sandan shadow tooth (belumbisa di gunakan )
wpn183 : nidan dazzle windmill (belumbisa di gunakan )
wpn184 : nidan kasa obake (belumbisa di gunakan )
wpn185 : sandan kasa obake (belumbisa di gunakan )
wpn186 : nidan senden (belumbisa di gunakan )
wpn187 : nidan seabonze (belumbisa di gunakan )
wpn188 : nidan jinkujaku (belumbisa di gunakan )
wpn189 : nidan blue river (belumbisa di gunakan )
wpn190 : nidan snake saul (belumbisa di gunakan )
wpn191 : sandan snake saul (belumbisa di gunakan )
wpn192 : kosong sampai wpn 197
wpn198 : shuriken dark cicada 1000token
wpn199 : carnival lantern
wpn200 : carnival folding fan
wpn201 : carnival bachi
wpn202 : kosong sampai 274
wpn275 : soul katana red cloud 100token
wpn276 : apes banana
wpn277 : kosong sampai 283
wpn284 : great tengu spear 800token
wpn285 : ginkotsu militari saw 600 token
wpn286 : great tengu umbrela 800token
wpn287 : burning yanki sickle 800token
wpn288 : angry tiger sword 800token
wpn289 : dark gedo shuriken 800token
wpn290 : smelly banana 800token
TOLONG DI KOMENT YAAA
Ini PERMANENT gan,Nih bukti VIDEOnya gan walaupun bukan
punya saya tapi ini 100% WORK gan..Ane udah coba ..