0 TOOL YANG DIPERLUKAN SEBELUM MENGGUNAKAN CHEAT

• Download jxpiinstall JAVA
• Download Charles_Setup.exe
• Download Cheat Engine 6.0
• Download vcredits_x86X
• Download Cheat Engine 5.5 and 5.6
• Download WinRAR-v4.1.65
• Download LockBox
• Download Framework 3.5

       CREDIT : MBAH GOOGLE

0 ARK {Arti Nama Kamu}

 Kali Ini Saya Akan Share kembali Software - Software Yang mungkin Bermanfaat Untuk kalian Semua atau Mungkin Tidak Bermanfaat tetapi semua itu tergantung kalian semua menilainya .

Bagaimana cara Menggunakannya ?
berikut Tutorial nya :

• Buka Applikasi Tersebut Kemudian Hitung Angka - angka dari huruf anda Sudah ada pada bagian Applikasi Tersebut
  
• Setelah mendapatkan jumlah dari Perhitungan , Jika Jumlah Angka Tersebut 2 - 3 angka silahkan tambah lagi contoh "31" = 3+ 1 = 4
  
• kemudian Nomor 4 Tuliskan Pada Textbox "what ist" lalu Klik gambar Checklist
  
• Setelah Klik akan Muncul hasil dari nama kamu atau Arti Nama kamu
  

Selamat Mencoba Applikasi Tersebut , Gunakan Dengan Sebaik - baiknya dan saya Sarankan jangan Percaya Dengan Tahyul atau Ramalan , semua Sudah Diatur dan Applikasi Ini Cuma Simple Games

Title : ARK - Arti Nama Kamu ?EXEName : ark.exeAuthor : RaydinJrz aka Rinjrz (Me)Description : Simply GamesVersion : 1.0.0Virus total : https://www.virustot...sis/1335249732/Special Thanks To : Xfilez & DonoThanks  To : Mitsy , UHE , Cathy ,Xie_kabayan, U-Jang ,Loex , Aldy , Haranobu , Wall-E ,Auli , & All Member Staff N3Note : Free Just Share And All For You

AhnLab-V3 - 20120423
AntiVir - 20120424
Antiy-AVL - 20120424
Avast - 20120423
AVG - 20120423
BitDefender - 20120424  
ByteHero - 20120424
CAT-QuickHeal - 20120423  
ClamAV - 20120424
Commtouch - 20120424
Comodo - 20120424
DrWeb - 20120424
Emsisoft - 20120424
eSafe - 20120423
eTrust-Vet - 20120423
F-Prot - 20120423  
F-Secure - 20120424  
Fortinet - 20120424
GData - 20120424
Ikarus - 20120424
Jiangmin - 20120424  
K7AntiVirus - 20120420  
Kaspersky - 20120424
McAfee - 20120423  
McAfee-GW-Edition - 20120423  
Microsoft - 20120424
NOD32 - 20120424  
Norman - 20120423  
nProtect - 20120423  
Panda - 20120423
PCTools - 20120423
Rising - 20120423
Sophos - 20120424
SUPERAntiSpyware - 20120402  
Symantec - 20120424
TheHacker - 20120424
TrendMicro - 20120423
TrendMicro-HouseCall - 20120424  
VBA32 - 20120422
VIPRE - 20120424
ViRobot - 20120424
VirusBuster -
20120423


Silahkan gunakan

Regards , Raydin Jrz Richio

Click here to download this file

0 Cheat PB Indo Full ESP , Hover Body, Anti PI, Anti Banned, Damage Up 45 % [ BONUS DLL ]

D3D HACK VISUAL

Wallhack

mini indo

Chams CT

Chams TR

No Smoke

Croshair

Special ESP

Boxes

Name

Health

Line

Player HAck

AMMO reload

GM-ACC + HP 120 + Demeg Up
Hack Pangkat
Headgear
Anti Ilegal

Hover Body

Repleace Hack

Baret
Replace Pistol
Replace Pisau
Replace Granad
Replace Asap

NB :

[-] Aktifkan Fitur Sebaik2nya agak Cheat tahan banting

[-] Instal jamunya Biar kerja dengan baik

[-] Harap DI virtot ulang

Credit :

[-] Anwar Enjoy

                                                                       Download

0 Menambah Status Yahoo Messenger Di Blog

Gadget profil adalah gadget dimana Anda bisa manampilkan foto, deskripsi tentang Anda dan link profil blogger Anda kedalam blog Anda. Untuk menambahkan widget ini cukup mudah yaitu dari menu "Layout/tata letak" kemudian klik "Add a gagdet" lalu pilih "Profile". Dan untuk mengedit profil dan foto Anda bisa melalui Dashboard blogger Anda dengan mengklik "Edit Profile" yang ada di sebelah kanan dashboard Anda.

Nah kali ini Saya akan membahas tentang bagaimana caranya menambah Status Yahoo Messenger kedalam gadget Anda, yang berhubungan dengan postingan Saya yang dulu tentang menambah Status Yahoo Messenger ke dalam blog.

0 Wallhack

Ne GAnN Cheat No Detect..

Credit :e991

Tinggal OK OK aja..

Download :E991


Jangan Lupa Jamunya Gan,,Agar WORK
Ne :Jamu

0 Membuat Search Engine Pada Blog

Search Engine atau mesin pencari adalah hal pokok yang ada dalam internet, Search engine sangat berperan penting dalam pencarian di internet dan sangat membantu kita dalam pencarian web, artikel atau file-file yang ada di internet. Seperti Google, Yahoo!, MSN dan masih banyak lainya itu adalah salah satu contoh search engine yang sering kita gunakan di internet.

Seperti halnya yang diterangkan diatas Search engine dapat kita pasang di blog kita supaya pengunjung blog kita lebih mudaj mencari artikel yang kita posting di blog kita.
Di blogger tidak ada fasilitas Search engine yang tersedia melainkan kita harus membuat sendiri.
Nah gw akan membantu sedikit kalian mengenai membantu membuat search engine di blogger adalah sebagai berikut:

1. login ke blogger kemudian ke menu layout terus page elements
2. cari tempat dimana mau dipasangi search engine kemudian add a page elements
3. Kemudian pilih HTML/JavaScript
4. kemudian taruh script dibawah ke text box

<form action="http://blogmu.blogspot.com/search"
method="get"> <input class="textinput" name="q" size="30" type="text"/> <input value="search" class="buttonsubmit" name="submit" type="submit"/></form>

keterangan:

1. ganti tulisan blogmu dengan nama blog kamu
2. angka 30 menunjukkan panjang teks box search engine
3. tulisan search adalah nama tombol submit yang bisa kamu ganti dengan katamu sendiri

0 Widget Daftar Isi / Sitemap

Sitemap atau yang sering disebut oleh orang awam sebagai daftar isi ini sangat berguna untuk blog kita, ketika pengunjung ingin menjelajahi blog kita maka inilah peran yang harus hadir untuk mempermudah penjelajah blog kita. Kali ini saudara blogger kita Om Abu-farhan punya solusinya yaitu "The Best Table of Contents (TOC) or Sitemap for Blogger".

Seperti terlihat di blog ini yang menggunakan TOC dari Om Abu-Farhan yang Saya masukkan kedalam fitur baru blogger yaitu "Pages Blogger". Nah pada kesempatan kali ini Saya kan mengulas bagimana caranya memasang TOC kedalam halaman pages kita.

1. Langkah pertama masuk blogger.com

2. Masuk postingan Om Abu-Farhan untuk mengcopy source code seperti dibawah ini

<script style="text/javascript" src="http://www.abu-farhan.com/script/daftarisiblogger/blogtoc-min.js"></script>
<script src="http://www.abufarhan.co.cc/feeds/posts/default?max-results=9999&amp;alt=json-in-script&amp;callback=loadtoc"></script>

Copy code diatas dan ingat ganti www.abufarhan.co.cc dengan alamat blog Anda

3. Pada Dashboard draft.blogger.com masuk pada bagian "Posting" lalu "Edit Pages"

4. Lalu klik tombol "New Pages" lalu paste code tadi kedalam post editornya

5. Setelah di SAVE akhirnya jadi juga dan sisipkan link pagesnya tadi kedalam daftar menu di blog Anda untuk navigasinya

Nah ulasan singkat mengenai Sitemap blogger yang canggih oleh Om Abu-Farhan semoga bermanfaat bagi Anda

0 Cara Menggunakan Fiddler

1. Download Fiddler
2. Install Fiddler
3. Jika Selesai Download Juga Microsoft Net Framework
4. Install Microsoft NetFX (Microsoft Net Framework)
5. Jika Sudah Restart Mozila Firefox (Firefox Bukan Computer)
6. Dan Buka Lagi...
7. Lalu Coba Buka Fiddler.
8. Lihat Di Pojok Kanan Mozila Firefox Ada Bacaan Fiddler: Disabled



Cara Setting Fiddler

1. Buka Fiddler
2. Lalu Klik AutoResponder
3. Lalu Centang Enable AutoResponder
4. Dan Centang Juga Permit Passthrough for unmatched requests
5. Langsung Drag File SWF Yg Di Butuhkan Untuk Cheat Atau Yg lain.
6. Click Bacaan Fiddler: Disabled Di pojok Kanan Bawah.
7. Lalu Click Clear Firefox Cache
8. Buka Lagi Bacaan Fiddler: Disabled
9. Klik Bacaan Force Traffic To Fiddler

0 Cara Edit SWF Ninja Saga

Bahannya
 1. Flash Decomplier Trilix

http://www.flash-dec...r-download.html

2. Adobe Flash CS 3
- Portable ( lebih kecil size nya)

http://www.indowebst...3_Portable.html

-yang full
http://www.brotherso...lash-67039.html

3. File SWF yg lu mau edit

Caranya

LAKUKAN SEPERTI VIDEO INI
http://www.ziddu.com...editFileSWF.rar

Ini tidak mengandung Virus karna ini ada Software untuk mengedit SWF.rar

0 Weekend Days New HACK NINJA SAGA Update 12 Auguest 2012 Free!

Downloads Cheat

Click Here

Creadit:
-Muh YuSuF HS

Peralatan :  
-Cheat Engine

Tutorial :
-Masuk Desa
-Buka Cheat engine
-Pilih Browser
-Scan Gold anda
-jika ketemu satu adrres, bawa kebawah
-Rubah adress menjadi :

+34 >>>> angin

+3c >>>> listrik

+2c >>>> api

+30 >>>> air

+38 >>>> tanah

+4c ganti division (PERMANEN)
contoh adrees 07H672894 dan kamu ingin atribut api maka ubah jadi 07H672894+2C
-setelah itu tekan enter
-ubah value sesuai keinginan anda

NB : untuk cheat division caranya sama cuman valuenya diubah menjadi { 1 - 2 - 3 - 4 -5 - 6 )

0 Cheat PB,No PI,No VT,No Banned

Fiture Visual d3d Menu :

| Wallhack Glass
| Wallhack BerSih

| Wallhack All Maps << Hots Termasuk Dino >>
|WallHack Chams Setting
|-->Wallhack Chams Teroris << Hots Termasuk Mindo Gax Ada Bercak >> #V.I.P

|-->Wallhack Chams Swats << Hots Termasuk Mindo Gax Ada Bercak >> # V.I.P

|-->Wallhack Chams Dino #V.I.P
| Wallhack Kaca
| Wallhack D.O.T
| Wallhack Wire Frame
| Wallhack Chams Weapon
| Wallhack Phantom
| Wallhack ASUS
| Bullet Deteck << New Hot's >> # V.I.P
| Granade Deteck << New Hot's >> # V.I.P
| C5 Deteck << New Hot's >> # V.I.P
| Wallhack Dino Kecil
| Wallhack Dino Besar
| No Fog
| No Smoke

Fiture Visual Hack Menu :
| Anti PI
| Bypass WallHack
| Plant 1 Seccond
| Defuse 1 Seccond
| Auto Skiil GM Teroris <---- Come Back Fiture Menambah Efeck Di SG terasa 1 hits & 2 Hits
| Auto Skiil GM Corps <---- Come Back Fiture Menambah Efeck Di SG terasa 1 hits & 2 Hits

Fiture Visual Ammo Hack menu :
| Prymari Unlimited Reload <------ Termasuk unlimitid RPG 7 Anti Notice

NOTE : Untuk Ammo hati2 terkena Notice Dan Maaf Fiture kami Yang Masih Bertahan Hanya Ini Karna Ge3MBeel Sedang gencar2 nya Menghilangkan Cheat Dan kami Berusaha Semaximal mungkin Gunakan Acces GM Agar lebih terasa Di brust & SG'a Lebih Tajam,

Credit :

[-] Miscellanious After Die 

Special Thankz to :

[-] All member Slanjoy All Versi

[-] Anwar Enjoy

[-] Galank Format
[-] Allah SWT

NB :
[-] No Rename Dll TOD

[-] 1 Kali Masuk Mungkin Exit , 2x Tahan 10 Menit , 3x 20 Menit , 4 X Tahan Banting Boss :D

[-] Anda Pasti Tau Cara Agar Brust Tidak Lag Bila Tidak Tau Yya Mati Aja U
[-] Anti Show Off

    Downloads

Note : Just DLL Injekctor Cari Sendiri 

 Saya Menggunakan PerX.exe

- > Boles DI Share Agar Jangan Lupa Creadit Slanjoy

Jangan Lupa Download Jamu-Jamu Agar Cheat Work
Ni Jamunya :Jamu

0 Hacker Israel Serang Iran, 91 Situs Jadi Korban

Seorang hacker yang menamakan dirinya Yourikan (you_r!k@n) melakukan penyerangan terhadap situs iran. Total terdapat 91 situs yang berhasil di-deface oleh Yourukan. Bahkan di antara korbannya tersebut terdapat sebuah situs yang dimiliki oleh lembaga pemerintah, situs milik universitas dan milik perusahaan terkenal.

Dalam sebuah wawancara dengan Infosec Island, Yourikan mengatakan bahwa penyerangan tersebut dilakukannya terkait protes terhadap program nuklir Iran. “Ini adalah penyerangan terhadap Iran yang mendukung terorisme dan mengembangkan senjata nuklir untuk menghancurkan ISrael. Israel tidak akan menolerir teror, Israel tidak akan menerima nuklir Iran,” jelasnya.

Dia menjelaskan bahwa sebenarnya dia bisa melakukan lebih daripada sebuah aksi deface situs. Namun, dia memilih untuk melakukan deface karena tidak ingin ‘melukai’ rakyat Iran.

Aksi hacker Yourikan ini bukanlah yang pertama. Sebelumnya, pada akhir Juli lalu, hacker yang sama juga menyerang situs yang dimiliki oleh Kementerian Energi Iran. Saat itu, dia beralasan bahwa penyerangan tersebut sebagai bentuk protes pemboman yang terjadi di Bulgaria dan mengakibatkan korban warga Israel.

0 Cara Mengetahui Posisi Blog Di Google

1. Kunjungi http://www.seoserp.com/web_tools/google_top_1000_serps_checker.asp
2. Pilih Target Google terlebih dahulu, misalnya Google.co.id

3. Masukkan keyword tersebut , misalnya : "Cara Mengetahui Posisi Blog Di Google"
4. Masukkan URL blog , atau domain blog, misalnya : http://wancixpaj.blogspot.com
5. Tekan tombol SERP, Tunggu sejenak.

Maka akan muncul hasilnya yang terbagi tiap urutan 1-100 , kemudian 101 sampai 200 dan seterusnya.

Nah itulah cara mudah untuk mengetahui posisi blog kita di Google, selamat mencoba dan semoga bermanfaat.
Credit : Ahmad RiFa'i

0 Cara Pasang Burung Twitter di Blog

1. Login ke blogger
2. Klik menu Tata Letak
3.  Klik Tambah Gadget, pilih gadget Html/JavaScript
4. Masukkan script animasi burung twitter terbang di dalam nya (script saya sertakan di bawah)
5. Simpan & Selesai

Berikut script animasi burung twitter terbang yang harus kamu pasang:

<script type="text/javascript" src="http://bloggerpeer.googlecode.com/files/tripleflap.js"></script>
<script type="text/javascript">
var birdSprite="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg89hMSaK680D5wCeBPMvALEbFDxHoVhpudDxmVnJSLGVSiQwdvXakIwbPeHmGSlJzV0AJztiy1VSsvfSjes2-FxSphBiN7hplbbhvvnkhdL7x-ce7ELTyzSyMf1fORHluda80UeReToy0/s1600/burung+twitter+terbang.png";
var targetElems=new Array("img","hr","table","td","div","input","textarea","button","select","ul","ol","li","h1","h2","h3","h4","p","code","object","a","b","strong","span");
var twitterAccount = "http://twitter.com/AkunTwitterKamu";
var tweetThisText = "Twitter - UserID";
tripleflapInit();
</script>

Keterangan

Silakan ganti https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg89hMSaK680D5wCeBPMvALEbFDxHoVhpudDxmVnJSLGVSiQwdvXakIwbPeHmGSlJzV0AJztiy1VSsvfSjes2-FxSphBiN7hplbbhvvnkhdL7x-ce7ELTyzSyMf1fORHluda80UeReToy0/s1600/burung+twitter+terbang.png dengan warna burung yang kamu inginkan (pilihan warna burung saya sertakan di bawah) dan jika tidak kamu ganti maka burung twitter nya berwarna biru muda.
Ganti http://twitter.com/AkunTwitterKamu dengan alamat twitter kamu

Berikut beberapa pilihan warna burung twitter yang bisa kamu pilih
Burung Twitter Warna Kuning

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjTbCJgmASSEfBD1kF3w_G0TDPG5eH-VAWOBorzQrc5oje_BibDzYnRFdDy42CklkAMm3cf-VxvsJJnGEsx7lEKjWd0LTO279qVJw6uC7x2JSY2N3y5jzrv8nYL1HD3Y9xZn-x9diJGqgs/s1600/yellow+bird.png

Burung Twitter Warna Hitam

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhONr3PvwKqJC6UVWaQGHfvd9h7gNe7-JKzQqf7nA7HIhC423BHCCi8oF4CZx5CvNDI3thf7hyphenhypheneQTRnRqYkTGOQmsFrYcC8Nfqd8_dwz7fyjvkRSVgQfJjU6h1BtE1-71fOsRYQnGOX1L8/s1600/black+bird.png

Burung Twitter Warna Coklat

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj6hvs5B1TU9mTvlHN6Jbnw0f-lztcQep4vAAtrPaJx51DVL8L_Uv7GIf4omEe1m3icGwNfsyybBqGvwoADNkdwrd5SmXFpH-c_CVp710moD-ai0TMC1Jj4t3nw-JQnd2GkiYpCwf6Lo48/s1600/brown+bird.png

Burung Twitter Warna Hijau

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEge3rkAs7KgRts-TsvHE1muq1nsYieDEtDEvmlKvjU9tUjl34_OjFYTenXQNeVSCGBm2BYsEg-9TADMv4JrvcA9hnH6oSV1rqlIyeltbmGhBg6NWtw_JDGQ6d6pNI8fdwBpA7g-gYkUErI/s1600/Green+bird.png

Burung Twitter Warna Ungu

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiDQvJqeRzcgSZrfbISOlq2zU-Nz4vVniAdNvhLHv349YmU4B-kzFMSPr5UgaD-zgIF30Ft9FH1grqfidiGz4sEHrYkRoaizvclGEOyj9XbNA7MB-M237sMkZZdTauVPYxuPH7MuDviJuo/s1600/purple+bird.png

Burung Twitter Warna Putih

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjBpvcyg5fY3vl9T7XXuCieaeQyebE1vvVUbxJllsAv_YCV5yf7ioo6z7RTrx7M81AS3wLtjgjFWYZ2tYit09FQhAm-3XGGjsF6tltE5zspabbjaeAm2lmaE3rvIFdbt4Fxs_U3-XW8zpg/s1600/white+bird.png

Burung Twitter Warna Merah

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiz4pHS28ejx_xFNFUCKKNlMf0nJvNBAK5qXgwS5hrXi-oOCaW7C6nwN38KkecaQHdD14gG250j4WZOH-IxJ_hhbSeepDESZxMczH6xlkKEOeC4GwVZ3ZjyjcKmej6VTeEGbt6dyuAIOZI/s1600/red+bird.png

Nah itulah beberapa warna burung twitter terbang yang bisa kamu gunakan. Sebaiknya hati-hati dalam mengganti alamat akun twitter dan warna burung, karena jika ada kode yang terhapus secara tidak sengaja saat kita menggantinya maka kemungkinan burung terbang tidak terlihat.

Selamat mencoba pasang burung twitter terbang di blog kamu, semoga bermanfaat dan semoga berhasil.

0 Buat Komentar Dibawah Postingan

1. Masuk draft.blogger.com ingan draft.blogger.com bukan blogger.com
2. Terus ke menu Setting ---> Comments kemudian ganti "Comment Form Placement" menjadi "Embedded below post"
3. Kemudian tekan Save Setting
4. Lalu ke menu Layout ---> Edit HTML kemudian
5. Lalu centang "expand widget templates" lalu cari Code dibawah ini
   
   <p class='comment-footer'>
   <a expr:href='data:post.addCommentUrl' expr:onclick='data:post.addCommentOnclick'>
   <data:postCommentMsg/></a>
   </p>
   
6. Kemudian ganti dengan Code dibawah ini
   
   
   <p class='comment-footer'>
   
   <b:if cond='data:post.embedCommentForm'>
   
   <b:include data='post' name='comment-form'/>
   
   <b:else/>
   
   <b:if cond='data:post.allowComments'>
   
   <a expr:href='data:post.addCommentUrl' expr:onclick='data:post.addCommentOnclick'><data:postCommentMsg/></a>
   
   </b:if>
   
   </b:if>
   
   </p>
7. Lalu Simpan.... dan lihat hasilnya..

Coba kamu cek ada sebuah comments gak di bawah artikel yang kamu posting...

0 Membuat Link Read More Beserta Judul Postingya

Terinspirasi oleh blognya kang rohman yang link read morenya seperti dibawah ini

>> Lanjut membaca “Alternatif Warna Kotak Komentar”

Nah pada link read more yang seperti diatas tersisip judul postingnya sesuai dengan postingan yang diberi read more.

Nah Sebelum Anas membahas untuk lebih mendalamnya bagi yang belum tau buat Read More Silahkan Baca (membuat Read More versi pertama dan membuat read more versi kedua)

Tapi yang kita bahas kali ini adalah cara membuat link Read More beserta Judul postingnya di Read More versi pertama

Oke kita langsung aja ke cara pembuatanya dehh

1. Log In ke Blogger Dan masuk ke menu Layout lalu masuk Edit HTML

2. Jangan Lupa centang kotak "Expand Widget Templates"

3. Kemudian Cari Link Raed More Anda misalnya Punya aku seperti ini

<p><data:post.body/>

<a expr:href='data:post.url'>...Baca Selengkapnya </a></p>

Kamu Lihat tulisan yang tercetak tebal diatas itu adalah Link Read More punya aku

4. Kamu tambahkan Code <data:post.title/> dan Kamu tempatkan di sebelah Link read More, Lihat Contoh Dibawah

<p><data:post.body/>

<a expr:href='data:post.url'>...Baca Selengkapnya dari.."<data:post.title/>" </a></p>

Nah diatas Adalah Contoh dari Link read More Punya ku.. kamu bisa merubah sesuai keinginan kamu

5. Save..

Sekian deh semoga bermanfaat bagi Anda...

Ucapan terimakasihku pada Kang rohman sukses buat Anda

1 Cara Memasukkan Lagu Sendiri Ke Blog

Sumber : Here

Kali ini saya akan Memberitahu kalian bagi yang belum bisa memasukan Lagu sendiri Ke Blog
Ok langsung saja Siapkan Bahan bahan nya :

• Convert MP3 to SWF Download di sini Untuk yang masih Tial cari Crack nya sendiri ya !
• MP3 nya misal lagu wali.mp3
• Akun Indowebster

Step Pertama :

1. Instal Convert MP3 to SWF
2. buka Convert MP3 to SWF
3. Add File > Mp3 nya > Option edit sesuai hati lihat gambar di bawah ini
                     Klik gambar untuk memperbesar
   
4. Lalu Ok and Klik kanan pada list MP3 > Convert To SWF
5. Login Indowebster > Upload File
6. Jika Sudah Download Swf yang tadi di Upload
7. terus Ambil Link nya kaya gambar Di bawah
      Klik gambar untuk memperbesar
   
   
8. Lalu ke Blog > Tambah Gadget > HTM/Java Script
9. Masuka Kode Seperti ini

<Embed
src="Link Swf Anda" autostart="TRUE" loop="TRUE" align="MIDDLE" width="178" height="25"></embed> Judul lagu nya

Ini Contoh Script Di Blog ane

<embed src="http://xover2.jkt.3d.x.indowebster.com/download-vip/91/p16v323ug311o27in18fa3s313583.swf/%5Bwww.indowebster.com%5D-DJ_Mujava_-_Mugwanti.swf" autostart="TRUE" loop="TRUE" align="MIDDLE" width="380" height="20"></embed> Back Sound: DJ Mujava-Mugwanti

Keterangan :

• Biru : Di ganti dengan Link SWF anda
• Hijau : Ukuran ( Bisa di ganti sesuai keinginan anda )
• Merah : Judul lagu Bisa di tambahkan atau tidak juga gpp !

Klik Simpan and selesai !

Thanks Semoga bermanfaat
Credit By : Sopyan Or Uzop

0 Cara Membuat Power Saving Mode

Langsung aja gan:
1. buka Akun Blogger kalian
2. lalu seperti biasa pergi ke Edit HTML
3. cari Kata </head>, lalu Paste HTML Berikut sebelum Kata </head>

<!-- save your energy --> <script language='javascript' src='http://www.onlineleaf.com/savetheenvironment.js' type='text/javascript'/> <!-- save your energy end -->

4.  Simpan Template...

Nah...yang tadi itu untuk membuat System Power saving Mode....

Sekarang cara untuk Menambahkan Foto pada System Power Saving Mode...

1. Buka Akun Blogger kalian

2. Buka Rancangan - Elemen Laman - Tambah Widget

3. Pilih HTML/Javascript 

4. Masukan HTML ini 

style type='text/css'> div#energysaving, div#energysaving * { -moz-border-radius: 0; -webkit-border-radius: 0; border: 0; background: url(Link Gambar Anda) no-repeat center center fixed black; } div#energysaving p { margin: 0; padding: 0; width: 100%; font-size: 0px; font-family: arial; color: transparent; position: relative; top: 40%; line-height: 20px; font-weight: bold; text-align: center; text-shadow: none; display: none; } div#energysaving p { color: transparent; font-size: 0px; font-weight: normal; display: none; } </style>

5.  Save

.................Untuk Meng Copy Kode Script di atas ,Siapkan Notepad

kalian tinggal Block Semua Teks Script  yang ada di atas lalu Drag ke Notepad ! .................

Credit : om Sopyan

0 Mengatasi Proteksi Klik Kanan Pada Website Atau Blog

Ada beberapa cara untuk mengcopy website mereka antaralain :

Dengan menyimpan Website mereka ke file berbentuk HTML, caranya, pada brows klik menu file, Save Page As, maka website mereka dapat tersimpan beserta posting mereka di file komputer kita dan kita dapat membukannya secara off line

Dengan menyorot artikel mereka kemudian menekan tombol Ctrl+C, kemudian di pastekan di program Notepad, maka isi posting mereka sudah tercopy ke komputer kita. apalagi bila dipaste di microsoft word, maka seluruh isi posting mereka berikut gambar-gambarnya dapat kita ambil menjadi sebuah file word

Dengan cara menggunakan tombol Print Screen, kemudian di pastekan dengan menggunakan program adobe Photoshop atau Pain brush dan simpan dalam file berbentuk tif kemudian dengan menggunakan fasiltas menu Recognize text using OCR, lalu setelah menjadi teks gunakan menu Send text to word.

Dapat juga dengan cara mendisable atau menon aktifkan program java script, yang mencegah klik kanan dengan menggunakan sebuah addons mozilla firefox, nama program tersebut adalah RightToClick, silahkan Download Disini bila keluar pesan tidak dapat klik kanan, centrang kotak stop Klik kanan kemudian klik Ok, maka anda bisa menggunakan klik kanan mouse sepuasnya

Bisa dilakukan dengan cara “Mendisable JavaScript“, disemua browser ada fungsi ini. Silakan lakukan eksperimen untuk mencari dimana letak informasi mengenai “Disable JavaScript“, berikut ulasan penjelasannya:

Disable JavaScript in Internet Explorer (IE)

1) Buka Internet Explorer (IE)

2) Pada Menu Navigasi Klik: Tools – Internet Options

3) Pilih Pada: Security Tab – Custom Level

4) Scroll Down sampai ketemu “Active Scripting” dan Klik “Disable”

5) Ok.

Disable JavaScript Mozilla Firefox

1) Buka Mozilla Firefox

2) Pada Navigasi Menu Klik: Tools – Options

3) Kemudian Klik: Content tab, Un-check “Enable JavaScript”

4) Ok

Disable JavaScript Google Chrome

1) Pada Google Chrome Shortcut, Klik Kanan -> Pilih Properties.

2) Pada field textbox “Targeted file“, tambahkan “-disable-java” pada bagian belakang.

1 2

Jadi sebenarnya percuma saja kan fasilitas tersebut dipasang di website 

Tutorial by: DunovSR

Original: http://dunovteck.wordrpess.com

0 Cara Membuat Injektor With VB 6.0

Fitur:
- Suspend Otomatis
- Multiple Dll Injection
- Commond Dialog API <-- jadi ga perlu lagi harus pasang component commond dialog
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 :  
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://www.blazetorm.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 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 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

masukkan kode berikut pada modbrowser:

Code:

Option Explicit
'Deklarasikan Fungsi shellexecute di shell32.dll
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
'berikan code module ke public , yakni :
Public Sub OpenURL(situs As String, sourceHWND As Long)

Call ShellExecute(sourceHWND, vbNullString, situs, vbNullString, vbNullString, 1)
End Submasukkan 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

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.

Jika Ingin Membuat Text Kedap Kedip:
-Buat 1 label = Beri nama Caption nya dengan Text yang ingin di buat Berkedap-kedip
-Buat 1 Timer = Intervalnya 200
Masukan Code Sebagai Berikut :
Private Sub Timer3_Timer()
If Label1.Visible = True Then
Label1.Visible = False
Else
Label1.Visible = True
End If
End Sub

NB : Cocokan Timer Dan Label Nya !!

Jika Ingin Membuat Text Berjalan(Dari Kanan Ke Kiri) :
-Buat 1 Label : Beri nama Captionnya dengan Text Yang ingin di Buat Berjalan.
-Buat 1 Timer : Beri Intervalnya 200
Masukan Code Berikut :
Private Sub timer4_Timer()
    timer4.Interval = 200
    Label1.Caption = Mid(Label1.Caption, Len(Label1.Caption), 1) + Mid(Label1.Caption, 1, Len(Label1.Caption) - 1)
End Sub

Ingin Membuat Exit Injector Menjadi Keren:
-Buat 1 Command Button : Captionnya Exit
Masukan Code Berikut Ke Form :
Private Sub Command1_Click()

    ExitLayout

    Unload Me

End Sub



Private Sub ExitLayout()

    On Error Resume Next

    Dim fHeight As Long

    Dim fWidth As Long



    For fHeight = Me.Height To 1000

Step -1

      

Me.Height = fHeight



     'Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 3

    Next fHeight



    If Me.Height = 1000 Then

        For fWidth = Me.Width To

1000 Step -2

      

    Me.Width = fWidth



        Next fWidth



  End If

   

Me.Refresh
 

Jika Ingin Menambah kan Lagu :
-1 Timer :
Tekan CTRL+T , Check List Media Player .
Sisipkan Code Berikut Di bagian Form Load :
Private Sub Form_Load()

WindowsMediaPlayer1.URL = App.Path & "\sound.mp3"



End Sub

Dan Masukan Di Timer yang Anda Buat tdi :
Private Sub Timer4_Timer()

    WindowsMediaPlayer1.Controls.play



End Sub

NB : CocoKan nama Lagu anda Di bagian sini :
App.Path & "\sound.mp3"

Ganti sound.mp3 dengan nama lagu anda.
selesaii
:)