Sebuah kota di wilayah barat laut Arab Saudi, Hail, pada Minggu
(28/4/2013), diselimuti salju. Ini merupakan rangkaian kondisi cuaca
yang tak menentu di Semenanjung Arab selama tiga hari terakhir.
Banyak warga kota mengunggah foto kota Hail yang diselimuti salju lewat jejaring sosial seperti Twitter dan Facebook.
Sebelumnya,
sebagian wilayah Arab Saudi juga dihantam banjir, hujan es, dan
penurunan suhu secara drastis. Kondisi ini bahkan membuat Kementerian
Pendidikan Arab Saudi terpaksa menutup semua sekolah di lima provinsi.
Bencana
banjir ini sangat merepotkan Pemerintah Arab Saudi. Kementerian Dalam
Negeri memerintahkan pasukan pertahanan sipil untuk membantu korban
banjir akibat hujan deras yang tak pernah terjadi sebelum ini.
Menteri
Dalam Negeri Arab Saudi Pangeran Mohammad Bin Nayef Al Saud mengatakan,
warga yang menjadi korban harus segera dibantu dan diberikan
penampungan untuk mengurangi efek bencana.
Menurut harian
terbitan Arab Saudi, Okaz, hujan deras selama dua hari yang berujung
banjir itu telah menyebabkan 422 kecelakaan lalu lintas di ibu kota
Riyadh dan menyebabkan sembilan orang cedera. Selain itu, pemerintah
juga mendapatkan 4.562 telepon permintaan bantuan.
Selain manusia, masjid juga di kunjungi atau di diami oleh sosok gaib seperti Malaikat dan jin muslim. Baru-baru ini di Masjid Nabawi, Madinah terekam dalam bentuk video aktifitas sosok gaib tersebut. Sosok
misterius itu bercahaya putih berada di tengah-tengah uMmat yang sedang
serius mendengarkan khutbah Syaikh dr. Abdul Muhsin al-Qasim. Saat itu bertepatan dengan shalat Jum'at 23 Muharram 1433 Hijriyah. Video ini di unggah ke youtube dan spontan menggemparkan dunia, karena sosok itu tampak jelas terekam dalam video. Berbagai pihak mencoba menganalisisa sosok bercahaya itu. Ada
yang menyebutkan itu sebagai efek cahaya dari sinar matahari,tapi teori
itu terbantahkan karena atap masjid Nabawi terbuat dari marmer.Tak
seorang pun menyadari sosok itu berada di tengah-tengah uMmat. Bahkan pengurus masjid ketika menyaksikan video itu tak bisa mengidentifikasi siapa sosok misterius tersebut. Sebagian besar orang meyakini sosok gaib itu kemungkinan adalah Malaikat yang memang selalu hadir di dalam Masjid Nabawi.
Fenomena alam yang terjadi pada saat pemakaman Ustad Jefri al Buchori
alias Uje, yaitu awan yang membentuk gambar orang berdoa diklaim hoax.
Menurut
Hanindita Setiadji yang mengaku sebagai pemilik foto, dirinya mengambil
gambar itu sendiri pada 8 Maret 2013. Saat dihubungi via telepon oleh
Liputan6.com, dia mengungkapkan, foto itu diambilnya di atas area kolam
renang di kawasan Citos (Cilandak Town Square), Jakarta Selatan sekitar
pukul 18.00 WIB.
apabila muncul xtrap coba lagi gan, kalau 3x dah muncul xtrap nunggu update terbaru aja ok!
tutor buka click 1 htmlnya jangan di close sebelum muncul tulisan crossfire run LoL , ok!
+ Aimbot
- AimKey
- Visible Check
- Aim Distance
+ Esp Hack
- Esp Name
- Esp Health
- Esp Bar
- Esp Rank
- 2D & 3D Boxes
- Esp Line
- Distance Line
- Esp Bomp
+ D3D Hack
- WallHack
- Show Ghost
- Glass Wall
- Point Wall
- White Player
- White Wall
- Remove Wall
+ Memory Hack
- Super Jump
- Move Speed
- Close & Open Kick
- Anti Fall Damage
- Anti Grenade Bomp
- Anti Flash Bomp
- Anti Smoke Bomp
- Anti Weapons Weight
- Anti Weapons Recoil
- Anti Weapon Reload
- Anti AWM Delay
- Onehit Sniper
- Onehit ZMode
- Onehit AIMode
- OneHit Knife
- OneHit Kills
- Walk Through Wall
- Shoot Through Wall
- Long Knife Attack
- Fast Knife Attack
- Weapons Hack
- Buy Item Admin
- Game Type
- Distance Defuse C4
- Fast Defuse C4
- Fast Place C4
- Save Current Map
- Load Original Map
Features:
d3d menu free Check Di d3d menunya : Insert On/off
On Cheat : ->
Off Cheat : <-
Windows 7 :
Gunakan Klik Kanan - Run As administrator saat membuka cheat dan Crossfirenya! Replace weapon : Just For CF PHilipina,North America!
Agar Tidak Keluar Notice HS unknow Pada Saat Menggunakan Cheat Saya Jangan Lupa Copykan "Audition.exe"Didalam Winrar Ke Folder Ayodance Kamu (Bukan Folder DATA di Ayodance) Pada Cheat Pacth Ini Saya Kasih Tambahan Bonus Fitur Hack, Penasaran Apa Bonusnya? Download Aja langsung Cheatnya ^^
apabila muncul xtrap coba lagi gan, kalau 3x dah muncul xtrap nunggu update terbaru aja ok!
tutor buka click 1 htmlnya jangan di close sebelum muncul tulisan crossfire run LoL , ok!
Bonus Deff + 4 + Headger + Baret GM = Delete
On DI dalam pertandingan , off setelah selesai / kapan saja (di luar room sebaiknya offkan)
============
Hotkeys Cheat :
============ Wallhack D3D Menu :
On\Off Menu : Insert
On Cheat : -> | arah panah kanan pada keyboard
Off Cheat : <- | Arah panah kiri
Pilih Cheat : Panah Atas Dan Bawah
On Off Dimana saja | Lobby,Room,Pertandingan dimana saja bebas On/OFF
Cheat 3
Dual Bom No DC : Page Up On| Page Up Off
Skill : Page Up On| Page Up Off
Quick Change : Page Up On| Page Up Off
No Respon : Page Up On| Page Up Off
Grade Set : Page Down On | Page Down Off
Brutal Awp : MM On | MM/Middle Mouse(scrool di tengah mouse klik aja)Off
Brutal SG : MMOn | MM Off
Unlimited AMmo + Auto Refill+ No Reload : END On | END Off
1 Hit Weapon : (Baca aturan Pakai di dalam kemasan)
On Off Dimana saja | Lobby,Room,Pertandingan dimana saja bebas On/OFF
===========
Tutorial Cheat:
===========
Buka PB Launcher
Buka Cheat PB nya
Start PB
*Note : Buat Windows 7 :
Saat Buka PB - Pilih klik kanan Run As-Administrator
Saat Buka Cheat Juga sama , Pilih klik kanan Run As-Administrator
Tutor Windows 7 AGar WORK No DC :
- Buka folder pb cari folder HShield
- Klik kanan HSUpdate, Compatibility, Run this progam pilih windows xp SP 3 klik Apply
- Cari folder update di folder HShield, Klik kanan autoup,
Compatibility, Run this progam pilih windows xp SP 3 klik Apply, Work
1000% Tested 10 Komputer Win 7
Halo..sobat2 ku :) kali ini saya akan memposting Cheat Ayodance Auto Bboy Hidden Room.
By : Admin (Kinyo wijaya) yuk langsung aja download cheat nya di bawah ini!! :)
Download Here :
Enjoy Cheating Guys!
oh iya..jangan lupa share juga ya..situs cheat ini ^^ supaya tetap eksis. Terima Kasih
int APIENTRY WinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance,LPSTR lpCmdLine,int nCmdShow)
{
printf("<=>
CHEAT Ayodance v.6076 [PREMIUM]\n=========================\n\n
<=> PERFECT All Mode = ON : F3 , OFF : F4\n <=> HACK
SCORE = ON : F5 , OFF : F6\n <=> Auto Keys = ON :
F9 , OFF : F10\n <=> AUTO SPASI = ON : F8\n
<=> GREAT All Mode = ON : LEFT WINDOWS , OFF : LEFT SHIFT
\n\n\n CHEAT KHUSUS BATTLE PARTY
\n\n\n=========================\n-- And Thank'S To Ardy's Godlike
,Febryanto Budiman, \n-- Tra Breakerzone , All Member CAWAG \n\n\n\n
<=> TERIMAKASIH TELAH MEMAKAI HACK SAYA <=> \n
<=> INI HACK FREE <=>"); // \n untuk membuat baris baru
SuntixDLL("Audition.exe"); // berikan suntikan ke games yang kalian inginkan :D
ExitProcess(0); // kalau sudah selesai, tutup injector
return 0; // DONE !
}
//gunakan tlhelp api untuk mendapatkan nama target kita, ingat ! besar kecil dibedakan !
haloo..hari ini saya seneng banget :D dapet 3000 Mi cash. ( dari gemscool ) kalian pasti nya mau dong ? yaudah deh nih saya kasih link untuk dapetiin hadiah dari gemscool.
Pertama2 kalian harus mengisikan ID point blank anda.
Kedua masukan password anda.
Ketiga Masukan password hint anda
Selesai. -->> langsung check PB anda! dan lihat apa yang kamu dapat :)
Semoga bermanfaat ^^
Jangan lupa.. mampir terus ya ke blog cheat ini :)
Halo sobat..kali ini Yulzrape akan menshare cheat Lost saga! Karena banyak sekali yang meng-request Cheat LS ^^ ok langsung saja download cheat LS di bawah ini.
1. Download cheat dan xtract 2. Buka INJECTOR.exe 3. Klik Browse kemudian masukan INDO-CROSSFIRE.dll 4. Jalankan Crossfire 5. Jika ada notice brarti cheat work, jika tidak brarti anda gagal inject! Silahkan Install semua JAMU! 6. Selamat Ngerusuh!
==|Fiture&Hotkeys|==
1. Wallhack = Auto on 2. SeeGhost = Auto on 3. Crosshair = Auto on
1. Jangan terbang terlalu lama agar tidak error 2. Bug Tembok cuma bisa digunakan 1x dalam 1 room, jika lebih akan client error 3. Jangan tembak besi agar tidak client error 4. Sebelum pakai cheat lebih baik matikan antivirus! 5. Jika gagal inject cheat coba install semua jamu di komputer kamu! 6. Cheat just for fun! bisa disebar atau di umpetin! yang penting Happy~ ^_^
Yulzrape Kini Menyediakan Triple Cheat Berbeda Kepada kalian , jadi apabila Komp anda kurang cocok dengan cheat 1/BT bisa gunakan cheat 2 , dan apabila kurang cocok/bt mengguanakan cheat 2 bisa coba menggunakan cheat 1 , dan apabila keduanya BT bisa guanakan cheat 3,,
Fun Online : Cheat 1 Bisa di gabungkan dengan cheat 3 , cheat 2
bisa di gabungkan dengan cheat 3, cheat 1 dengan cheat 2 kagak bisa di
gabung,, Oke paham ,, Happy cheatting..
Apabila IP anda ke blokir..silahkan follow twitter saya di samping agar di bantu! Tutor Windows 7 agar dapat pakai cheat 1 baca di bawah postingan!
Bonus Deff + 4 + Headger + Baret GM = Delete
On DI dalam pertandingan , off setelah selesai / kapan saja (di luar room sebaiknya offkan)
============
Hotkeys Cheat :
============ Wallhack D3D Menu :
On\Off Menu : Insert
On Cheat : -> | arah panah kanan pada keyboard
Off Cheat : <- | Arah panah kiri
Pilih Cheat : Panah Atas Dan Bawah
On Off Dimana saja | Lobby,Room,Pertandingan dimana saja bebas On/OFF
Cheat 3
Dual Bom No DC : Page Up On| Page Up Off
Skill : Page Up On| Page Up Off
Quick Change : Page Up On| Page Up Off
No Respon : Page Up On| Page Up Off
Grade Set : Page Down On | Page Down Off
Brutal Awp : MM On | MM/Middle Mouse(scrool di tengah mouse klik aja)Off
Brutal SG : MMOn | MM Off
Unlimited AMmo + Auto Refill+ No Reload : END On | END Off
1 Hit Weapon : (Baca aturan Pakai di dalam kemasan)
On Off Dimana saja | Lobby,Room,Pertandingan dimana saja bebas On/OFF
===========
Tutorial Cheat:
===========
Buka PB Launcher
Buka Cheat PB nya
Start PB
*Note : Buat Windows 7 :
Saat Buka PB - Pilih klik kanan Run As-Administrator
Saat Buka Cheat Juga sama , Pilih klik kanan Run As-Administrator
Tutor Windows 7 AGar WORK No DC :
- Buka folder pb cari folder HShield
- Klik kanan HSUpdate, Compatibility, Run this progam pilih windows xp SP 3 klik Apply
- Cari folder update di folder HShield, Klik kanan autoup,
Compatibility, Run this progam pilih windows xp SP 3 klik Apply, Work
1000% Tested 10 Komputer Win 7
halo semua..ketemu lagi nih dengan saya, udah lama ga update blog :) skrang syaa mau mengasih tau cara "1 hit ninja saga" langsung ke TKP aja gan!
Step--- 1. download CE (cheat engine) disini 2. install CE nya.. 3. setelah install, open ninja saga nya 4. pas di pilihan character jangan di play dulu 5. buka CE yg sudah diinstall tadi, dengan membuka file mozilla firefox 6. masukkan code ini : 62 04 D3 24 64 A3 A2 7. trus bkal kluar 2 addres,double klik kedua nya,,ntr tmpil 2 addres di bawah. 8. value dri kedua addres ntuh ganti ama code ini 62 04 D3 24 64 A2 A2 trus OK .
langsung buka character kalian semua.. trus plih kehunting bos, 1 kali hit langsung mati :) happy cheating ^^
Cara Membuat Cheat Point Blank - Hai Sob, Ketemu lagi
disini ane mau share cara membuat cheat sendiri. Ane kasih contoh untuk
membuat cheat Point Blank.Perhatikan Baik baik karena penjelasanya agak
panjang, Dan maaf code source disini tidak bisa di copy makanya harus
ketik sendiri kan agan agan mau jadi progammer yang hebat masak copy
paste.
tinggal lo pelajari aja dengan teliti dan memerlukan ketekunan dan
keuletan dalam membuatnya, tapi kalau lo udah mahir tidak perlu lagi
ini,,,,, lo tinggal buka Aaj langsung Visual Basic. 6.
Langsung saja Nie caraya :
1. Pertama Download dulu Visual Basic 6 DISINI
2. Lalu Juga Download cara pembuatanya, karena gk mungkin ane jelasin satu satu karena buanyak banget mending DOWNLOAD DISINI
3. Sekarang Cara pembuatan Injectornya (Maaf klo soure code nya gk bisa di copy) :
Klo gk mau repot Tinggal Download DISINI
Dan Video Tutornya :
Klo Lo Progammer Sejati nih Lihat dan Buatlah :
~Tutor Pembuatan Injector~
pilih standard exe.
A. Pembuatan Form dan Design
- bikin 1 form, 1 label dan 1 timer, jadinya seperti ini
silakan dikreasikan formnya semaunya,
syarat harus ada 1 label dan 1 timer pada form. selanjutnya,
B. Code dan Modules
klik kanan pada form --> pilih view code.
isikan kode berikut pada form1,
Spoiler: Option Explicit '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 winHwnd As Long 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 silakandiedit()
'---------------------------------------------------------------
' silakan diedit bagian kode dibawah ini
'---------------------------------------------------------------
Me.Caption = "BlazeTorm_Injector™" 'pengaturan caption atau nama injector Opacity 255, Me 'pengaturan transparent form MinVal = 20: MaxVal = 255 NamaDll = App.Path & "" & "Angel.dll" 'isikan nama library, contoh: suntix.dll FileTarget = "PointBlank.exe" Timer1.Interval = 20 'interval untuk timer
'----------------------------------------------------------------
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 Picture1_Click() 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 End 'tutup otomatis injector Else 'jika tidak Label1.Caption = "Terserah anda mau Ganti Apa" 'sabar menanti End If End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) OpenURL "http://www.kombre.co.cc/", Me.hwnd End Sub
- bikin 3 modul, klik menu project --> add modules, modul pertama berinama modinjection,
pada modinjection, masukkan code berikut:
Spoiler: 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 Private 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 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Sub InjectDll(DllPath As String, _ ProsH As Long) Dim DLLVirtLoc As Long Dim DllLength As Long Dim inject As Long Dim LibAddress As Long Dim CreateThread As Long Dim 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 'NOT BLA... Exit Sub 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 'NOT BLA... Exit Sub 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 'NOT BLA... Exit Sub 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 'NOT BLA... Exit Sub End If End If QuickInjector.Label1.Caption = "Injected Successful!" MsgBox "Dll Injection Successful!", vbInformation, "Success" End Sub 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) ' prjSuspend.cmdInjector.Enabled = False End If Call CloseHandle(lProcInject) End Sub
modul kedua diberi nama modprocess. isikan kode berikut: Spoiler: Option Explicit Public FileTarget As String Public sFlDLL As String Public IdTargetOne As Long Private Const TH32CS_SNAPHEAPLIST As Long = &H1 Private Const TH32CS_SNAPPROCESS As Long = &H2 Private Const TH32CS_SNAPTHREAD As Long = &H4 Private Const TH32CS_SNAPMODULE As Long = &H8 Private Const TH32CS_SNAPALL As Double = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE) Private Const MAX_PATH As Integer = 260 Public Const PROCESS_ALL_ACCESS As Long = &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 As Long = &H2 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 Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal Classname As String, _ ByVal WindowName As String) As Long Private Declare Function PostMessage Lib "USER32" Alias "PostMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Declare Function Process32First Lib "kernel32" (ByVal hSnapShot As Long, _ uProcess As PROCESSENTRY32) As Long Private 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 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 Public Function NTProcessList() As Long Dim FileName As String Dim ExePath As String Dim hProcSnap As Long Dim hModuleSnap As Long Dim lProc As Long Dim uProcess As PROCESSENTRY32 Dim uModule As MODULEENTRY32 On Error Resume Next 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 FileTarget = FileName Then IdTargetOne = uProcess.th32ProcessID End If End If End If lProc = Process32Next(hProcSnap, uProcess) Loop Call CloseHandle(hProcSnap) Call CloseHandle(lProc) On Error GoTo 0 End Function Private 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 Dim THREADENTRY32 As THREADENTRY32 Dim hThreadSnap As Long Dim lThread As Long On Error Resume Next ReDim Thread(0) As THREADENTRY32 hThreadSnap = CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, lProcessID) THREADENTRY32.dwSize = Len(THREADENTRY32) If Thread32First(hThreadSnap, THREADENTRY32) = False Then Thread32Enum = -1 Exit Function Else ReDim Thread(lThread) As THREADENTRY32 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) On Error GoTo 0 End Function
modul yang ke 3 di beri nama modbrowser sebagai berikut
Spoiler: '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
jika udah selesai save semuanya berinama sesukanya.
jika udah selesai klik menu file pilih make project exe*
ket:
*nama project exe yang dibuat misalnya Pertamax.exe.
