™[]|Komunitas|Sebangsa|[]™

Full WH Chams + Blink Special Updates 17 Agustus 2011

2011-08-16T23:45:00.001-07:00

Downloads Cheat :

Click Here

Downloads Password :

Click Here

Fitur / Hotkeys :

Chams Teroris : Insert

Chams CT : Insert

Blink WH : Insert

Cara pakai :

On kan Saat Di Dalam Room(sebelum main)

Offkan Saat permainan Selesai,,

Credit :

Andrie

MirzaXp

yang Butuh DLl nya ntuk digabungkan Dengan Injector kesayangan/buatan anda silahkan,,
Download DLL :Click Here

By : Pekalongan

Wallhack Special 17 Agustus 2011

2011-08-16T23:44:00.000-07:00

Downloads Cheat :

Click Here

Downloads Password :

Click Here

Fitur :
->Quick WH : Insert On/Off

Cara pakai :
On Kan Saat Loading map
OffKan Saat pertandingan Selesai.

Work ALL WINDOWS

Credit :
Ferry-Adanya(Maho-Sejati)

Yang Butuh DLl Nya untuk Di gabungkan Dengan injector Kesayangan/Buatan Anda , Silahkan
Download DLL : Click Here

By : Pekalongan

New Featured Game Online PB. Kick Vote !

2011-08-16T23:24:00.001-07:00

Salam Troopers! Masih ingat perwakilan dari developer Zepetto secara khusus datang mempresentasikan update PB terbaru: Dino Mode pada acara PB 1st Clan Gathering di FCone -FX Senayan bulan Juni lalu?

Dalam sesi tanya-jawab dengan Troopers, pihak developer Zepetto maupun publisher Gemscool menerima masukan soal cara meminimalisir ulah para cheater. Selain berkolaborasi dengan UnLab untuk aplikasi program anti-cheat “Nexilia”, system testing untuk memperbaiki bug, maintanance, dan banned ID, ada pula usulan untuk menggunakan system baru.

Sebagai bentuk respons dan komitmen kepada para user, Gemscool akan menerapkan update terbaru untuk menambahkan Fitur “Kick Vote” mulai 16 Agustus 2011. Fitur terbaru ini dapat digunakan para player untuk mengeluarkan player yang “jahil” atau dengan sengaja menggunakan program ilegal, menyalah gunakan Bug dalam Map, jaringan yang bermasalah atau pun berkata kasar dan tidak pantas dalam permainan.

Hayooo,… Sekarang mari tentukan siapa yang punya feeling dan insting hebat alias jago di arena pertempuran. Menang atau kalah mestinya harus tetap sportif… ^_^

Berikut ini petunjuk untuk menggunakan Kick Vote dalam permainan:
Tekan ESC >> MENU >> Lalu Pilih menu “Vote Kick”

1.Vote For Kick
Setelah itu akan keluar menu Kick Vote. Silakan memilih alasan untuk mengeluarkan User tersebut.

2.Select Reason
Setelah selesai memilih alasan Kick, pilihlah User yang akan di kick dan tekan OK

3. Select User
User lain akan mendapat Pilihan seperti gambar di bawah. Apabila sebagian besar user setuju untuk kick user tersebut, maka user tersebut akan secara otomatis keluar dari permainan (Tekan 9 untuk “setuju” dan 0 untuk “tidak setuju”).

4. Kick Vote

Semua upaya ini tentunya ditujukan demi menjamin kenyamanan di antara sesama Troopers. Mengejar musuh, memburu sasaran, membidik target, semua sah saja dan tidak perlu menggunakan trik yang “aneh-aneh” So, Selamat bertempur !

Sumber : KlikGame
Copas From : Bee Net

NEW FROST ANTIVIRUS

2011-08-13T09:50:00.000-07:00

Antivirus Terbaru Buatan Saya ! Frost Antivirus Silahkan dioba.....

Link : Here

Mumbuat VGUI Cs 1.6

2011-04-16T18:15:00.001-07:00

Cara Merubah Tampilan Senjata di Buy Menu Counter Strike 1.6

1. Buka Half-Life Model Viewer

2. Buka w_<models>.mdl

3. Ganti Background Color menjadi Putih

4. Tekan PrintScreen pada Keyboard

5. Buka Adobe Photoshop

6. Klik File > New

7. Klik Edit > Paste

8. Crop pada bagian senjata saja

9. Pilih bagian senjata yang tidak terpakai menggunakan Magic Wand Tool

10.Klik Select > Inverse

11.Klik Edit > Copy

12.Klik File > New

13.Klik Edit > Paste

14.Pilih bagian senjata yang tidak terpakai menggunakan Magic Wand Tool

15.Hapus Background pada Layers

16.Klik Select > Inverse

17.Klik "Save Selection as Channel" pada Channels

18.Ubah Resolusi gambar menjadi 256 X 90 pixel

19.Klik File > Save As...

20.Pilih Format Targa (.TGA)

21.Pilih Resolution 32 bits/pixel

Mengubah Suara MP3 Menjadi Efek Chipmuk

2011-04-08T20:48:00.001-07:00

Bosan denger lagu yang gitu-gitu aja, ingin mengubah lagu favoritmu menjadi lucu dengan efek suara ala chipmunk yang imut-imut itu? Suara vokalis dari band atau penyanyi solo favoritmu akan kita efek suaranya menjadi chipmunk. Yang kita butuhkan hanya software gratis open-source, yaitu AUDACITY. Jika sobat belum punya software ini, silahkan mendownload versi portablenya terlebih dahulu di sini. Dan untuk cara mengubahnya, liat langkah-langkah dibawah ini...

Berikut langkah-langkahnya:

* Instal dan buka program Audacity.

* Setelah itu, bukalah file mp3 yang ingin kita ubah suaranya.

* Tekan Ctrl + A untuk menseleksi mp3 yang sobat pilih.
* Klik menu Effect --> Change Pitch, dan masukan angka 115,555 pada kolom Change Presentase, dan klik OK.
* Silahkan mainkan lagunya dan dengarkan efek suara chipmunk.

Ket: Jika efek suara dirasa kurang tinggi, nilai presentasenya bisa diperkecil menjadi kira-kira 111,555. Atau jika dirasa terlalu tinggi, nilai presentasenya bisa dipebesar.

Membari Background Di belakang postingan

2011-03-30T02:53:00.000-07:00

Alangkah indahnya jika di posting kita terdapat background gambar yang terletak tepat dibelakang tulisan yang kita buat. Setidaknya semakin menambah indah tampilan posting kita walaupun tulisanya tidak menarik sama sekali

Adakalanya pengunjung kita manjakan dengan tampilan blog yang menarik. Bisa saja page view kita bertambah gara-gara pengunjung hanya cuma ingin melihat background apa saja yang ada di setiap posting kita.

Langsung saja saya berikan caranya untuk memasang background gambar di halaman posting.bootingskoBlog

Masuk ke admin WordPress anda.
Klik [Posts] > [Add New].
Copy kode dibawah dan paste-kan di area [HTML]:
<div style="padding: 5px; background-image: url(http://alamat_gambar_anda.jpg); background-repeat: repeat; background-position: center;"> Tulis disini... </div>
Kemudian tulis artikel anda dan setelah selesai kembali ke mode [Visual].
Dan klik tombol [Publish].

Tips:

Gunakan warna huruf yang lebih terang dari gambar backgroundnya agar mudah dibaca.
Kalau bisa gunakan gambar yang lebih transparan.

Mau Buat seperti ini???

2011-03-21T23:54:00.000-07:00

Caranya KE SINI!!!!:
Doctor noob

Aplikasi HP Untuk Mengubah suara anda menjadi suara anak-anak / Robot

2011-03-15T03:29:00.000-07:00

Mengubah Suara ? Cukup unik ya kedengarannya . Nah , Apakah anda mau dengar suara anda menjadi suara-suara yang unik dan lucu ? Saya sendiri yang mendengar suara saya berubah saja ketawa-ketiwi .
Ada dua aplikasi yang dapat mengubah suara anda yaitu :
1. Foice
Foice ini dapat mengubah suara anda menjadi seperti suara anak kecil , tapi lebih unik dari suara anak kecil .
Tampilan aplikasi Foice .
2. Mecha Foice
Mecha Foice ini dapat mengubah suara anda menjadi seperti suara robot , lebih dekatnya ke suara robot . Tapi anda coba dengar sendiri saja .
Tampilan aplikasi Mecha Foice .
Apakah anda ingin mencobanya ? Anda dapat mengambil keduanya .

Download Foice!

Download Mecha Foice!

Aplikasi ini berformat .jar , coba anda install di ponsel Java . Saya rasa dapat dijalankan pada ponsel Java .

PERHATIAN

2011-03-12T02:32:00.000-08:00

sementara blog ini sedang maintenance....
jadi kami akan beri tahu jika maintenance sedah selesai

SalusBHK Master,

David Layardi

COMING SOON!!!! Salus BHK Multimedia Beta V1.0 (GOLD VERSION)

2011-03-05T20:46:00.000-08:00

AKAN SEGERA TERBIT SALUS BHK MULTIMEDIA BETA,GOLD VERSION !!!!
AGAR MENDAPAT FITUR TAMBAHAN SILAHKAN MEMBERI DONASI SEBESAR Rp 50.000 saja Kok!!

Jika Anda Sudah Donasi Silahkan Comment Di Postingan Donasi dan saya akan check baru saya kasi passwornya!!

SALUS BHK MASTER,
^_^
DAVID LAYARDI

Donasi

2011-03-05T20:34:00.000-08:00

Untuk Mendapat Salus BHK GOLD Beta V1.0 Anda Harus Melakukan Donasi Minimal Rp 50000
Atau Jika Anda Ikhlas Memberi Donasi Silahkan Memberikan Donasi Untuk Blog INI :

Rekening BCA
Atas Nama : Sim ket khiong
Nomor Rekening : 5725040455

Donasi Yang Anda Beri Digunakan Untuk Memberi Sembako Kepada orang yang Tidak Mampu / Untuk Biaya Pembangunan Blog Ini

Blog Master,
^ _^
David Layardi

COMING NOW!!!! Salus BHK Multimedia Beta V1.0

2011-02-26T06:06:00.000-08:00

Fitur:
-Stop Watch
-Zodiac Calendar
-Music Player
-Browser
-Injector
-Shorter Link adf.ly
-Shorter Link N3
-Shorter Link TinyURL
-Image View
-Mini Piano
-Calculator
-Drive Info
-Note Pad
-Love Meter
-Task Manager

DOWNLOAD HERE

Update Berikutnya:
"SECRET!"

UPDATE FIXED =
Ada program yang error karena .ocxnya saya lupa masukkan... ini link salus bhk multimedia + ocxnya...!
Download HERE!! >>> DI SINI

Salus BHK Injector V1.0

2011-02-26T06:02:00.000-08:00

Langsung Download aja: HERE

Fiturnya:
-Map Hack
-Minimize

Doraemon New Version

2011-02-26T03:39:00.001-08:00

Untuk Lihat Lebih Jelas Silahkan Klik Gambarnya:

Buat MP3 Player Dengan VB Versi abazgamers

2011-02-25T06:35:00.000-08:00

Anda pasti hobi sekali bermain komputer sambil mendengar musik atau apalagi online sambil mendengarkan musik itu sangat mengasikkan, program yang anda buka pasti kalau bukan winamp, windows media player, GOM player atau yang lainnya.
Tapi kali ini kita akan membuat sendiri aplikasi pemutar musik atau mp3 player tersebut dengan Visual basic, pasti anda menyangka sangat sulit untuk membuat aplikasi tersebut, jika prediksi saya itu benar berarti selama ini Anda salah besar karena dalam membuat program aplikasi mp3 player dengan program vb wah itu sangat mudah sekali, berikut tutorialnya :

1. Jalankan program VB anda kemudian buat new project dan tetap pilih standar.exe
2. Klik Menu Project >> Components (CTRL+T) kemudian pilih dan tandai Microsoft Common Dialog Control 6.0 dan Microsoft Multimedia Control 6.0 >> OK
3. Lalu tambahkan pada form proyek anda 2 buah label, 2 commandbutton, satu CommonDialog dan MMControl, desainlah seperti dibawah ini dan untuk picture background terserah anda

Gambar program aplikasi mp3 player dengan vb 6.0

4. Aturlah properties masing-masing kontrol seperti dibawah ini :

5. kemudian ketikkan kode/listing/script program dibawah ini :
Private Sub Command1_Click()
On Error GoTo loncat
MMControl1.Command = "stop"
CommonDialog1.ShowOpen
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "open"
Label1.Caption = CommonDialog1.FileTitle
loncat:
Exit Sub
End Sub

Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "stop"
End Sub

Private Sub Command2_Click()
End
End Sub
6. Save hasil kerja anda dan kemudian silahkan run program anda dengan menekan F5, lalu klik open dan ambil lagu kesayangan anda lalu klik tanda play,,selamat mendengarkan

Gambar Hasil program aplikasi mp3 player dengan vb 6.0

7. Mudahkan, Selamat Mencoba…!!!

Bikin Browser

2011-02-25T06:20:00.000-08:00

Cara buat Browser ala : http://blog.izal06.com/

1- Menambahkan komponen:

Pergi ke "Proyek" pada menu atas, dan pilih "Komponen" atau klik CTRL-T, kemudian memeriksa "perpustakaan Microsoft objek html" dan "Microsoft kontrol internet" dan "Microsoft Windows Kontrol umum 5,0".

Anda akan melihat bahwa benda-benda baru muncul di kotak kiri menu Anda, sekarang memilih ikon penjelajah web yang tampak seperti bumi dengan dan menambahkannya ke formulir Anda, dan membuat ukurannya yang Anda inginkan, (nama adalah WebBrowser1 dalam tutorial ini)

Juga klik pada komponen "Progress bar" dan menambahkannya ke formulir Anda.

2 - Menambahkan tombol dan objek:

Sekarang tambahkan "6" tombol perintah penting untuk membentuk Anda, dan nama mereka sebagai berikut: "Back", "Forward", "Stop", "Refresh", "Home" dan "GO", Sekarang tambahkan 1 kotak Combo box user akan memasukkan alamat web di atasnya.

3 - Coding aplikasi Anda:

Pertama klik pada tombol "GO dan menulis kode di dalamnya:
VB Code:

WebBrowser1.Navigate Combo1

Tombol Back:
VB Code:

On Error Resume Next

WebBrowser1.GoBack

Tombol Forward:
VB Code:

On Error Resume Next

WebBrowser1.GoForward

Tombol Stop:

VB Code:

On Error Resume Next

WebBrowser1.Stop

Tombol Refresh:
VB Code:

WebBrowser1.Refresh

Tombol Home:
VB Code:

WebBrowser1.GoHome

4 - kode Lanjutan:

Anda dapat menambahkan kode berikut ke aplikasi Anda untuk membuatnya bekerja lebih baik, Hanya tempat kode ini di mana saja di jendela coding Anda.

* Add a progress bar

VB Code:

'This to make the progress bar work and to show a status message, and an image.

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)

On Error Resume Next

If Progress = -1 Then ProgressBar1.Value = 100 'the name of the progress bar is "ProgressBar1".

Label1.Caption = "Done"

ProgressBar1.Visible = False 'This makes the progress bar disappear after the page is loaded.

Image1.Visible = True

If Progress > 0 And ProgressMax > 0 Then

ProgressBar1.Visible = True

Image1.Visible = False

ProgressBar1.Value = Progress * 100 / ProgressMax

Label1.Caption = Int(Progress * 100 / ProgressMax) & "%"

End If

Exit Sub

End Sub

Tapi di sini Anda akan perlu untuk menambahkan label yang disebut "Label1" dan juga gambar kecil seperti senyum atau bumi atau apapun yang Anda inginkan dan nama adalah "image1"

* Open in new window

VB Code:

'This to open a new window with our browser.

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)

Dim frm As Form1

Set frm = New Form1

Set ppDisp = frm.WebBrowser1.Object

frm.Show

End Sub

Ini untuk membuka jendela baru dengan browser Anda.

* History and current visited site.

VB Code:

'This keeps the visited sites history and also changes the title of the browser as the page title.

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)

On Error Resume Next

Dim i As Integer

Dim bFound As Boolean

Me.Caption = WebBrowser1.LocationName

For i = 0 To Combo1.ListCount - 1

If Combo1.List(i) = WebBrowser1.LocationURL Then

bFound = True

Exit For

End If

Next i

mbDontNavigateNow = True

If bFound Then

Combo1.RemoveItem i

End If

Combo1.AddItem WebBrowser1.LocationURL, 0

Combo1.ListIndex = 0

mbDontNavigateNow = False

End Sub

5 - Coding:

Anda dapat menambahkan tombol lebih ke browser Anda sebagai orang-orang:

* Cari jika sebuah kata di halaman (diambil dari tutorial pada Blog ini).

VB Code:

'This to tell you if a word is in the page, Here we call the WebPageContains function.

Private Sub Command7_Click()

Dim strfindword As String

strfindword = InputBox("What are you looking for?", "Find", "") ' what word to find?

If WebPageContains(strfindword) = True Then 'check if the word is in page

MsgBox "The webpage contains the text" 'string is in page

Else

MsgBox "The webpage doesn't contains the text" 'string is not in page

End If

End Sub

 

'This is the finding function.

Private Function WebPageContains(ByVal s As String) As Boolean

Dim i As Long, EHTML

For i = 1 To WebBrowser1.Document.All.length

Set EHTML = _

WebBrowser1.Document.All.Item(i)

 

 

If Not (EHTML Is Nothing) Then

If InStr(1, EHTML.innerHTML, _

s, vbTextCompare) > 0 Then

WebPageContains = True

Exit Function

End If

End If

Next i

End Function

* Page properties

VB Code:

WebBrowser1.ExecWB OLECMDID_PROPERTIES, OLECMDEXECOPT_DODEFAULT

ini akan menjalankan sifat halaman

* Print a page

VB Code:

WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT

* Save a page

VB Code:

WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT

* Delete cookies Dari Komputer Anda

VB Code:

'This code is used to empty the cookies from the user's computer / We call function from here.

Private Declare Function GetUserName _

Lib "advapi32.dll" Alias "GetUserNameW" ( _

ByVal lpBuffer As Long, _

ByRef nSize As Long) As Long

 

Private Declare Function SHGetSpecialFolderPath _

Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" ( _

ByVal hwnd As Long, _

ByVal pszPath As String, _

ByVal csidl As Long, _

ByVal fCreate As Long) As Long

 

Private Const CSIDL_COOKIES As Long = &H21

 

'This calls the function that deletes the cookies.

Public Sub Command1_Click()

Dim sPath As String

sPath = Space(260)

Call SHGetSpecialFolderPath(0, sPath, CSIDL_COOKIES, False)

sPath = Left$(sPath, InStr(sPath, vbNullChar) - 1) & "\*.txt*"

On Error Resume Next

Kill sPath

 

End Sub

* Tampilkan kode sumber halaman Web's:

VB Code:

Private Sub Form_Load()

Text1.Text = Form1.browser.Document.documentElement.innerHTML

End Sub

6- Kode Penting:

* Popups Blocker

VB Code:

Private Function IsPopupWindow() As Boolean

On Error Resume Next

If WebBrowser1.Document.activeElement.tagName = "BODY" Or WebBrowser1.Document.activeElement.tagName = "IFRAME" Then

IsPopupWindow = True

Else

IsPopupWindow = False

End If

End Function

 

Private Sub webbrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)

Dim frm As Form1

Cancel = IsPopupWindow

If Cancel = False Then

Set frm = New Form1

Set ppDisp = frm.WebBrowser1.object

frm.Show

End If

End Sub

Ini akan memblokir semua pop-up, tapi di saat yang sama akan membuka link di jendela baru seperti biasa.

* JavaScripts handeling

VB Code:

WebBrowser1.Silent = True

Ini tidak akan menunjukkan kesalahan dari halaman saat Anda menggunakan browser web Anda, taruh dalam hal beban bentuk

* Ukuran browser dan kode scrollbars

VB Code:

Private Sub Form_Resize()

On Error Resume Next

WebBrowser1.Width = Me.ScaleWidth

WebBrowser1.Height = Me.ScaleHeight - 1680

End Sub

Membuat Yogurth Sendiri

2011-02-23T07:09:00.001-08:00

Salah satu produk bioteknologi yang sering kita jumpai sehari-hari adalah yoghurt. Yoghurt yang rasanya asam ini memiliki banyak manfaat, diantaranya memperlancar masalah pencernaan, menurunkan berat badan, mencegah osteoporosis, dan menurunkan kadar kolesterol dalam darah jika diminum secara teratur.

Yoghurt dibuat dari susu sapi yang difermentasi oleh bakteri Streptococcus thermophilus dan Lactobacillus bulgaricus. Bakteri ini adalah bakteri asam laktat yang mengubah laktosa dari susu biasa menjadi asam laktat Keasaman dari susu yang difermentasi pada umumnya cukup untuk mencegah kerusakan oleh bakteri proteolitik yang tidak tahan asam.

Untuk membuat yoghurt, kita harus menyediakan lingkungan yang menunjang perkembangan kedua bakteri tersebut sehingga keduanya akan bisa menghasilkan yoghurt. Bakteri tersebut akan bekerja dengan baik pada suhu 30-50 derajat Celcius, tapi yang optimal adalah pada 42-45 derajat Celcius. Kebanyakan yoghurt dibuat dari susu segar, namun yoghurt juga bisa dibuat dari susu UHT, bahkan susu bubuk atau susu skim yang dilarutkan dalam air dengan perbandingan yang tergantung pada kekentalan yoghurt yang diinginkan. Tetapi, yoghurt tidak bisa dibuat dari susu kedelai dan santan karena keduanya tidak mengandung laktosa. Jika ingin membuat yoghurt dari susu kedelai atau santan, kita harus menambahkan susu skim.

Proses pembuatan yoghurt terbagi menjadi 4 tahapan utama: pasteurisasi, kulturisasi, inkubasi, dan pendinginan. Pasteurisasi adalah tahap an untuk mensterilisasi susu. Kulturisasi adalah tahap penanaman bibit yoghurt. Inkubasi adalah tahap di mana bakteri Streptococcus thermophilus dan Lactobacillus bulgaricus memfermentasikan susu dan yoghurt terbentuk. Tahap pendinginan berguna untuk lebih mengeluarkan aroma dan rasa yoghurt tersebut.

CARA KERJA

1. Sebelum memulai proses pembuatan yoghurt, cuci bersih semua peralatan. Jika wadah/botol yang akan dipakai untuk inkubasi terbuat dari plastik tahan panas, bilas bagian dalam dan tutupnya dengan air mendidih. Jika terbuat dari botol/wadah kaca, harus direbus dalam air mendidih minimal 3 menit (lebih baik hasilnya).

2. Pasteurisasi (sterilkan) susu. Caranya, panaskan susu tersebut hingga suhu 73 derajat Celcius selama 15 menit. Bisa juga dilakukan dengan cara mengetim susu tersebut (seperti mengetim cokelat) hingga airnya mendidih.

3. Diamkan susu hingga suhunya 40 derajat Celcius (kurang lebih satu jam). Pindahkan susu ke wadah inkubasi. Masukkan bibit yoghurt sebanyak 5% dari jumlah susu. Aduk rata.

4. Hangatkan susu yang sudah dikulturkan tadi (diinkubasi) pada suhu 45 derajat Celcius. Ada beberapa cara untuk melakukan inkubasi. Cara pertama, kardus ditempeli lampu bohlam (yang diatur agar lampu bohlam bisa dinyalakan sehingga mampu memberikan kehangatan kepada susu tersebut) lalu di beri dua lubang untuk ventilasi. Taruh susu yang sudah dikulturkan tadi di dalam kardus tersebut selama 8 jam. Nyalakan lampunya selama susu berada di dalam kardus tersebut.

Cara yang kedua, wadah/botol diselubungi dengan serbet dan diletakkan di tempat yang paling gelap dan hangat di rumah kita. Bisa juga diletakkan di meja dan diterangi dengan lampu. Selama proses inkubasi, wadah harus dalam keadaan tertutup rapat (kedap) karena jumlah oksigen harus diminimalisasi.

Selesainya proses inkubasi ditandai dengan teksturnya yang berubah menjadi seperti tahu. Proses inkubasi bergantung pada waktu dan suhu. Waktu yang optimal untuk suhu antara 40-45 derajat Celcius adalah selama 3-8 jam. Jika suhunya lebih rendah (suhu ruangan), butuh waktu sekitar 20 jam serta aroma dan rasanya lemah (kurang asam dan tidak khas yoghurt) meski teksturnya akan menyerupai yoghurt.

Setelah proses inkubasi, biasanya akan muncul lapisan kental kekuningan di bagian atasnya. Yoghurt sudah siap untuk dikonsumsi. Namun, agar aroma dan rasanya lebih keluar, sebaiknya masukkan yoghurt ke kulkas minimal 3 jam. Yoghurt yang sudah jadi jika disimpan di suhu ruang bisa bertahan 2 hari, di kulkas bertahan 2 minggu dan di freezer bisa mencapai 6 bulan.

COMING SOON!! SALUS BHK MULTI MEDIA

2011-02-21T05:57:00.000-08:00

AKAN HADIR SEBENTAR LAGI!!

Salus BHK simple stop watch

2011-02-21T05:56:00.000-08:00

Salus BHK Simple Stop Watch

Download HERE

Membuat Progress Bar Dengan VB 6.0

2011-02-21T05:28:00.000-08:00

Buatlah project baru dengan pilihan standart exe, kemudian tambahkan component progress bar, dengan cara klik kanan pada area toolbox. Pilih component, pada tab control. Kemudian pilih dengan cara beri tanda centang Microsoft windows common control 6.0 (SP6).
Sudah semuanyaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa. LANJUT
Sekarang kembali kearea kerja kemudian klik icon progress bar. Buatlah sebuah progressbar pada form anda. Dan buatlah sebuah command button, Seperti pada gambar berikut:

Kemudian ketikkan coding (kalo malas copy paste aja) berikut pada coding editor anda dengan cara klik icon view code yang ada pada sudut kanan properties project:
Private Sub Command1_Click()

ProgressBar1 = ProgressBar1 + 99

End
End Sub

Private Sub Form1_Load()
Dim ProgressBar1 As Integer
ProgressBar1.Max = 99999
ProgressBar1.Min = 99999
End Sub

Buat Stop Watch Dengan Visual Basic 6.0

2011-02-21T04:37:00.000-08:00

Membuat digital stopwatch menggunakan bahasa pemrograman seperti Visual Basic spertinya udah ga asing lagi, mungkin banyak rekan-rekan sekalian yang udah bisa membuat stopwatch digital yang lebih bagus lagi, kali ini saya juga akan membagikan sedikit ilmu saya kepada teman-teman sekalian, semoga artikel ini bermanfaat.

Buatlah project baru dengan pilihan standart exe, buatlah 2 buah timer, timer ini nantinya digunakan untuk mengaktifkan jam sedangkan timer yang kedua digunakan untuk mengaktifkan stopwatch, kemudian isi kedua buah interval timer dengan nilai disesuaikan dengan kebutuhan. Selanjutnya buat 3buah commandbutton,
Button1 isi caption dengan nilai START
Button2 isi caption dengan nilai STOP
Button3 isi caption dengan nilai RESET
Sudah semuanyaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa. LANJUT
Kemudian ketikkan coding (kalo malas copy paste aja) berikut pada coding editor anda dengan cara klik icon view code yang ada pada sudut kanan properties project:
Dim a As String
Dim b As String
Dim c As String
Dim x As String
Dim y As String
Dim z As String
Dim h As String
Dim m As String
Dim s As String
Dim u As String
Dim v As String
Public interval As Double
Private Sub clock_Click()
Timer1.Enabled = False
Timer2.Enabled = True
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.interval = 1
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
a = "0"
b = "0"
c = "0"
x = "0"
y = "0"
z = "0"
u = "0"
v = "0"
h = a + b
m = c + x
s = y + z
'To set the display as "00:00:00.00"
Label1.Caption = h + ":" + m + ":" + s + "." + u + v
End Sub
Sub counttime()
If Val(v) < 9 Then
v = v + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(u) < 9 Then
v = 0
u = u + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(z) < 9 Then
v = 0
u = 0
z = z + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(y) < 5 Then
v = 0
u = 0
z = 0
y = y + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(x) < 9 Then
v = 0
u = 0
z = 0
y = 0
x = x + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(c) < 5 Then
v = 0
u = 0
z = 0
y = 0
x = 0
c = c + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(b) < 9 Then
v = 0
u = 0
z = 0
y = 0
x = 0
c = 0
b = b + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(b) < 9 Then
v = 0
u = 0
z = 0
y = 0
x = 0
c = 0
b = b + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
ElseIf Val(a) < 9 Then
v = 0
u = 0
z = 0
y = 0
x = 0
c = 0
b = 0
a = a + 1
Label1.Caption = a + b + ":" + c + x + ":" + y + z + "." + u + v
End If
End Sub
Private Sub dat_Click()
Label1.Caption = Date
Timer2.Enabled = False
End Sub
Private Sub Form_Load()
a = "0"
b = "0"
c = "0"
x = "0"
y = "0"
z = "0"
u = 0
v = 0
h = a + b
m = c + x
s = y + z
'To set the display as "00:00:00.00"
Label1.Caption = h + ":" + m + ":" + s + "." + u + v
End Sub
Private Sub stopwc_Click()
Timer2.Enabled = False
a = "0"
b = "0"
c = "0"
x = "0"
y = "0"
z = "0"
u = "0"
v = "0"
h = a + b
m = c + x
s = y + z
Label1.Caption = h + ":" + m + ":" + s + "." + u + v
End Sub
Private Sub Timer1_Timer()
counttime
End Sub
Private Sub Timer2_Timer()
Label1.Caption = Time
End Sub
Setelah itu klik tombol start atau tekan F5 pada keyboard anda. Jika ingin melakukan hasil yang maksimal silahkan kreasi anda.
Sekian artikel dari saya semoga bermanfaat bagi anda sekalian. SELAMAT MENCOBA!!!!!
artikel selangkapnya dapat didownload klik disini

Fish Tycon Mobile

2011-02-21T02:05:00.003-08:00

Fish Tycoon , adalah nama sebuah alikasi Java Mobile yang berbentuk sebuah game , game ini dikhususkan buat para maniak yang mengoleksi ikan ,, maupun orang yang hobi game* memelihara binatang seperti permainan di facebook yang digemari anak-anak .
Dalam permainan ini kalian akan disuguhkan banyak sekali jenis ikan dan 3 buah akuarium , dan banyak sekali aksesoris akuarium didalamnya . Nhah didalam game ini anda akan ditantang untuk memelihara ikan sebaik mungkin dan menjadi pengkoleksi ikan yang sukses . Mode game ini adalah kalian pertama kali diberi beberapa ekor ikan jenis biasa dan diberi sedikit uang untuk membeli obat maupun suplemen buat ikan* anda . Kemudian setelah ikan* anda berubah menjadi dewasa anda dapat mengkawinkan ikan* milik anda , yang nantinya akan menghasilkan beberapa ekor bayi ikan yang nantinya akan menjadi spesies baru , di dalam game ini anda harus rutin memberi makan di akuarium* anda yang berisi ikan , jika tidak ikan* anda akan sakit bahkan mati . Oh, ya , jika ikan* anda sudah banyak yang menjadi dewasa dan banyak spesies yang kembar , anda dapat menjualnya dengan harga anda sendiri yang nantinya pembeli juga akan negoisasi , dari hasil uang ini dapat anda gunakan untuk membeli misalnya obat , suplemen makan untuk ikan , cairan kimia untuk merubah spesies ikan , aksesories , dan masih banyak lagi . Nah satu lagi yang mengasyikkan di game ini adalah anda diuji untuk mengkawinkan 2 ekor ikan yang nantinya akan menghasilkan sebuah spesies baru yaitu spesies magic , jika anda dapat menyelesaikan ujian ini maka anda akan mendapatkan thropy untuk tiap* ikan magicnya . didalam game ini seingat saya ada kalo gak salah 8 buah spesies magic dan saya dapat menyelesaikannya dalam waktu kurang lebih 1 bulan . Satu lagi yang harus anda ingat adalah anda harus sesering mungkin untuk mengecek kondisi akuarium anda , jika tidak ikan* anda dapat kelaparan , sakit dan akhirnya mati. Jadi sekarang HandPhone anda layaknya akuarium portable ... hehehe

Anda tertarik dengan game ini ??

Download disini ...sesuaikan jenis HP anda dan resolusinya ..

Nama : Fish Tycoon.jar
Dibuat oleh: OberonGames Retail Etty
Kategori: Koleksi
Download game ke HP:
Nokia S40 2ed Eng (128x128): jar, jad (130.84 kB)
Sony ericson K,J,Z300 Eng (128x128): jar, jad (131.77 kB)
Nokia S40 3ed Eng (128x160): jar, jad (134.84 kB)
Sony ericson K310,K500,W200,W300,Z530 Eng (128x160): jar, jad (134.51 kB)
Motorola L2,L6,C261 Eng (128x160): jar, jad (132.18 kB)
SIEMENS x65-75 Eng (132x176): jar, jad (138.46 kB)
Nokia S60 2ed Eng (176x208): jar, jad (176.97 kB)
Sony ericson K700,K750,W700,W800,K550,K610,W350,W810,Z710 Eng (176x220): jar, jad (181.98 kB)
Motorola E398,E770,L7 Eng (176x220): jar, jad (177.36 kB)
Nokia s40 2ed Eng (208x208): jar, jad (177.34 kB)
Nokia s40 3ed Eng (240x320): jar, jad (299.6 kB)
Nokia s60 3ed Eng (240x320): jar, jad (301.57 kB)
Sony ericson S700,W900,K770,K790,K800,S500,T650,W850 Eng (240x320): jar, jad (298.49 kB)
Motorola Е1000,E6,V3x Eng (240x320): jar, jad (245.73 kB)

UPDATE ! SALUS BHK BROWSER BETA V 1.0.1

2011-02-20T05:43:00.000-08:00

Karena Versi 1.0 Agak Jelek Makanya Saya MengUpdate Yang Versi 1.0.1 Untuk Perbaikan Versi Lama

Penambahan Fitur:
-Tombol Home
-Penghilangan Control Box
-Penggantian Icon Program
-Tombol About ME
-Bisa Double Window [Klik kanan Link >> Open In new Window]
-Flash Player Bisa dipakai
-Background
-DLL

SILAHKAN DOWNLOAD DI SINI{KLIK GAMBAR)

Support File:
- Visual Basic 6.0
- Internet Explorer
- Lihat Sendiri Aja

727

2011-02-20T05:08:00.000-08:00

izal06: Visual Basic Web Browser Tutorial | Blogger
Online Image Converter
+==o0oTeguh's Blog=o0o==+=
Indonesian Coders Community
Visual Basic Open Source | Source Code VB | VB Code | VB.Net

Salus BHK Mini Piano

2011-02-20T03:08:00.000-08:00

Langsung DOWNLOAD AJA DI SINI

Salus BHK Calculator Beta V 1.0

2011-02-20T02:00:00.000-08:00

Kalkulator Ini Mirip Dengan Kalkulator aslinya kokz..........

NI DOWNLOAD AJA DI 4SHARED

KLO ADA ERROR SILAHKAN BERI TAHU SAYA

PDF TO WORD ONLINE

2011-02-20T01:59:00.000-08:00

SAYA ADA 2 LINK UNTUK CONVORTER

SILAHKAN KE SINI
ATAU KE SINI

Membuat Calculator Dengan Visual Basic

2011-02-20T01:52:00.000-08:00

Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada salahnya jika kita mencoba membuat kalkulator sendiri dengan Microsoft Visual Basic 6.0.

Pertama-tama, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti

kalkulator standar Windows, seperti ini:

Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, dengan letak

masing-masing objek disesuaikan dengan gambar diatas.

Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12

Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1

Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2

Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3

Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4

Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5

Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6

Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7

Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8

Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9

Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0

Command Button 11:
(Name) : cmdPlusMinus
Caption : +/-

Command Button 12:
(Name) : cmdKoma
Caption : .

Command Button 13:
(Name) : cmdOperator
Index : 1
Caption : +

Command Button 14:
(Name) : cmdOperator
Index : 2
Caption : -

Command Button 15:
(Name) : cmdOperator
Index : 3
Caption : x

Command Button 16:
(Name) : cmdOperator
Index : 4
Caption : /

Command Button 17:
(Name) : cmdClearEntry
Caption : CE

Command Button 18:
(Name) : cmdClear
Caption : C

Command Button 19:
(Name) : cmdSamaDengan
Caption : =

Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti diatas, maka codingnya saya contohkan seperti ini:

Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean

' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub

' hapus angka, hasil terakhir dan operator
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
' hapus angka
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub
' menambahkan koma (desimal)
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub

' Menghitung
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0
Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
'Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub

' menuliskan angka
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub
' tombol tambah/kurang/bagi/kali
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub

' merubah tanda +/-
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else
txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub

' filter untuk angka saja yg dapat diketikkan
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
' supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub

' untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="
cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub

' untuk ketikan angka di numpad
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0
End Sub

MEMBUAT ALARM UNTUK ANTIVIRUS BUATANMU!

2011-02-19T22:50:00.000-08:00

TERIMA KASIH UNTUK MORPHOST

Kali ini saya menulis tutorial tentang bunyi alarm saat antivirusmu mendeteksi virus. Yah, baik itu saat RTP-mu mendeteksi virus ataupun saat antivirusmu menscan komputer.
Memang tanpa suara juga gak apa-apa…
Tapi lebih klop kalo ada suaranya…
Lihat source dibawah ini.
Private Declare Function Beep Lib “kernel32″ _
(ByVal dwFreq As Long, _
ByVal dwDuration As Long) As Long
Sub Bunyi()
Beep 1000, 80
End Sub
Yang terpenting disini adalah fungsi ‘Beep’. Penjelasannya begini:
Beep [Frekuensi], [Durasi]
Sekarang kita lihat contoh-contoh bunyi alarm antivirus;
Bunyi alarm Morphost Versi tua
Beep 800, 50
Bunyi alarm Peradnya Virus Cleaner
Dim i As Integer
For i = 1500 To 2000 Step 100
Beep i, 20
Next i
Bunyi alarm Avira
Beep 1500, 80
Beep 3000, 80
Yah, selamat mencoba!
By:Morphic
Thanks to:
-Yudha
-Satryacode
-Shafry
-Rully
-Milomen
-Jastis

Membuat ANTI VIRUS VERSI TEGUH MICRO

2011-02-19T22:47:00.000-08:00

Di thread ini saya hanya ingin menjelaskan bagaimana cara membuat Antivirus. Selama ini kita hanya memakai Antivirus buatan orang tanpa ingin tahu bagaimana orang itu membuat Antivirus yang kita pakai itu. Sekarang semakin banyak anak Indonesia yang berlomba untuk mambuat Antivirus aga bisa digunakan orang banyak.membuat antivirus bagi semua orang merupakan suatu hal yang terlihat sulit bagi mereka,apalagi bagi mereka yang sangat awam bahasa pemrograman. Dengan thread ini saya hanya ingin membuktikan bahwa kita bukan hanya bisa memakai tapi kita bisa membuatnya.
disini saya mau memberikan tutorial tentang cara pembuatan antivirus dari dasar dengan kemampuan sebagai berikut :

-> Teknik checksum
antivirus ini tidak menggunakan teknik scan menggunakan CRC32 melainkan menggunakan teknik READ BYTE langsung dari tubuh virus/worm nya

"Mengapa saya menerapkan teknik ini ?
tentu saja karena waktu scan akan lebih cepat daripada menggunakan CRC32,akurat pada saat pendeteksian & menghemat penggunaan string agar ukuran antivirus nya tidak terlalu besar

-> Fitur karantina file yang terdeteksi
"Dengan adanya fitur ini user tidak perlu takut file nya akan terhapus,karena dengan menggunakan fitur ini,file akan dikarantina oleh antivirus ke dalam suatu folder dan file yang terdeteksi tidak akan bisa di jalankan/di eksekusi"

-> Fitur Heuristic
"Heuristic dalam dunia antivirus berarti mendapatkan virus/worm baru"
pada antivirus ini akan diterapkan 2 teknik heuristic yaitu :

1. Heuristic Icon
Hampir rata-rata semua virus lokal menggunakan icon seperti icon Office word,winamp,Icon Folder yang bertujuan agar user awam mengklik file virus tersebut,
dengan teknik ini antivirus dapat melihat mana file virus yang menyamar dengan icon palsu atau file asli yang tidak terinfeksi virus

2. Heuristic VBS
Dengan teknik ini antivirus mampu membaca source dari file VBS yang biasa di pakai virus,
antivirus akan mencocokan source yang ada pada database dengan source yang terdapat pada virus,jika cocok maka akan langsung di anggap virus

Itu sedikit penjelasan tentang antivirus yang akan kita buat sekarang,
yuk langsung saja kita mulai membuat antivirus nya
saya akan berikan source code fullnya pada akhir postingan

-------------------------------------------
Tutor by     : Dias Taufik Rahman
Editor       : Teguh Aprianto
Compiller    : Microsoft Visual Basic 6.0
Program Type : Antivirus
Code by      : Dias Taufik Rahman
-------------------------------------------

1.Buka  program microsoft visual basic 6.0 -> Standard EXE -> OK maka  akan tampil form baru sesuai dengan gambar di bawah,desain form sesuai  keinginan anda

Beri nama form tersebut : frmUtama

2.Setelah form selesai di rubah namanya tambahkan component Mscomctl.Ocx dengan cara
Klik Project -> Components -> Microsoft Windows Common Controls 6.0 -> lalu klik OK
Contoh seperti gambar di bawah

3.Setelah component sukses di tambahkan langkah selanjutnya adalah menambah Command Button,Textbox,Listview,Picture Box
disini saya menggunakan desain yang sangat sederhana,desain bisa anda rubah sendiri sesuai kreatifitas anda ^^

- Tambahkan Listview kedalam form dan beri nama lvScan

yang saya lingkari merah adalah listview yang telah di tambahkan ke dalam form.

setelah itu setting listview dengan cara 
Klik Listview -> Disebelah kanan bawah ada kotak properties -> Custom 
lalu ikuti settingan seperti pada gambar di bawah ini

Lalu pada tab Column Headers klik insert column
- Column 1 beri nama : Virus Name
- Column 2 beri nama : Path
- Column 3 beri nama : Checksum Virus
- Column 4 beri nama : Status Virus
lalu klik Ok

Tambahkan picture box buat picture box itu sekecil mungkin dan beri nama sIcon
Setting :
Appearance : Flat
Auto Redraw : True
Border Style : None
Visible : False

Tambahkan Textbox ke dalam form dengan nama txtPath
Setting :
Appearance : Flat
Border Style : None

Tambahkan Command Button dengan nama cmdBrowse di samping Textbox yang telah di buat tadi
Setting :
Caption : ...

Masukan Code ini ke dalam cmdBrowse

Spoiler: 
Code:
Dim Pathnya As String
Pathnya = ""
Pathnya = BrowseFolder("Pilih folder yang akan di Scan:", Me)
If Pathnya <> "" Then
txtPath.Text = Pathnya
End If

Code  di atas berfungsi untuk membuka kotak dialog yang berisi path" yang ada  di dalam komputer lalu mencetaknya ke dalam textbox yang bernama  txtPath

Tambahkan label dengan nama default

Setting :

Caption : Dir Scanned

Tambahkan label dengan nama lblDirScan

Setting :

Caption : 0

Tambahkan label dengan nama default

Setting :

Caption : Detected

Tambahkan label dengan nama lblFileDet

Setting :

Caption : 0

Tambahkan label dengan nama default

Setting :

Caption : File Scanned

Tambahkan label dengan nama lblFileScan

Setting :

Caption : 0

Tambahkan Textbox dengan nama txtFileScan

Setting :

Multiline : True

Scroll Bar : 2-Vertical

Tambahkan Command Button dengan nama cmdScan

Setting :

Caption : &Scan

Spoiler: 
'Code:
If cmdScan.Caption = "Scan" Then
Pathnya = txtPath.Text
If Mid(Pathnya, 2, 1) <> ":" Or Pathnya = "" Then
MsgBox "Direktori Tidak Ditemukan", vbCritical, "Error"
Exit Sub
Else
lvScan.Enabled = False
cmdEnable False, False, False
clear_log
cmdScan.Caption = "Stop"
StopScan = False
FindFilesEx txtPath.Text, CBool(chkSubDir.Value)
MsgBox "Scan finished !" & vbNewLine & vbNewLine & "Total Dir Scanned = " & lblDirScan.Caption & _
vbNewLine & "Total File Scanned = " & lblFileScan.Caption &  vbNewLine & "Total File Detected = " & lblFileDet.Caption,  vbInformation, "Finish"
If lblFileDet.Caption <> "0" Then
cmdEnable True, True, True
Else
cmdEnable False, False, True
End If
lvScan.Enabled = True
cmdScan.Caption = "Scan"
End If
Else
cmdScan.Caption = "Scan"
StopScan = True
End If

fungsi kode di atas adalah untuk memulai scan pada antivirus

Tambahkan Command Button dengan nama cmdAction

Setting :

Caption : &Delete

Tambahkan Command Button dengan nama cmdAction

Setting :

Caption : &Quarantine

Tambahkan Command Button dengan nama cmdViewQ

Setting :

Caption : &View Quarantine File

Tambahkan Command Button dengan nama cmdAction

Setting :

Caption : &Delete

Tambahkan kode ini di dalamnya

Spoiler: 
'Code:
Dim DftrFile As String
DftrFile = GetSelected(lvScan)
If DftrFile = "" Then
MsgBox "No Detected File(s) Selected", vbCritical, ""
Exit Sub
End If
Select Case Index
Case 0
clean = Action(DftrFile, lvScan, "D")
MsgBox clean & " File(s) has been deleted"
Case 1
clean = Action(DftrFile, lvScan, "Q")
MsgBox clean & " File(s) has been quarantine"
End Select

Fungsi di atas adalah fungsi untuk menghapus/mengkarantina file yang terdeteksi

Tambahkan Command Button dengan nama cmdAction

Setting :

Caption : &Quarantine

Tambahkan Command Button dengan nama cmdViewQ

Setting :

Caption : &View Quarantine File

Lalu masukan code ini ke dalamnya

Spoiler: 
Me.hide
frmquarantine.show

Code di atas berfungsi untuk memunculkan form quarantine dan meng enabled form utama

nah selesai untuk memasukan control ke dalam formnya
contoh form yang telah selesai.

lalu klik kanan pada form masukan kode di bawah ini

Spoiler: 
/Code:
Private Sub lvScan_ItemCheck(ByVal Item As MSComctlLib.ListItem)
UnSelect lvScan, "Di Karantina"
UnSelect lvScan, "Di Hapus"
End Sub

Private Function cmdEnable(hapus As Boolean, Quarantine As Boolean, openQuarantine As Boolean)
cmdAction(0).Enabled = hapus
cmdAction(1).Enabled = Quarantine
cmdViewQ.Enabled = openQuarantine
End Function

Private Function clear_log()
lblDirScan.Caption = 0
lblFileScan.Caption = 0
lblFileDet.Caption = 0
lvScan.ListItems.Clear
jumlahDir = 0
jumlahFile = 0
jumlahVirus = 0
End Function

lalu di Form_load() masukan kode ini

Spoiler: 
'Code:
On Error Resume Next
MkDir "Quarantine"
BuildDatabase

Lalu buatlah 1 module dengan nama modAPI

Lalu tambahkan code di bawah ini

Spoiler: 
'Code:
Public Declare Function FindFirstFile Lib "kernel32" Alias  "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As  WIN32_FIND_DATA) As Long
Public Declare Function FindNextFile Lib "kernel32" Alias  "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As  WIN32_FIND_DATA) As Long
Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Public Declare Function PathIsDirectory Lib "shlwapi.dll" Alias "PathIsDirectoryA" (ByVal pszPath As String) As Long
Public Declare Function CopyFile Lib "kernel32.dll" Alias "CopyFileA"  (ByVal lpExistingFileName As String, ByVal lpNewFileName As String,  ByVal bFailIfExists As Long) As Long
Public Declare Function MoveFile Lib "kernel32.dll" Alias "MoveFileA"  (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As  Long
Public Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Public Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Public Declare Function GetSystemDirectory Lib "kernel32.dll" Alias  "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As  Long
Public Declare Function GetWindowsDirectory Lib "kernel32.dll" Alias  "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long)  As Long
Public Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias  "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As  Long
Public Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Private Declare Function RealizePalette Lib "gdi32" (ByVal hDC As Long) As Long
Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA"  (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal  dwShareMode As Long, lpSecurityAttributes As Any, ByVal  dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal  hTemplateFile As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Public Declare Function VirtualAlloc Lib "kernel32" (lpAddress As Any,  ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As  Long) As Long
Public Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long,  lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead  As Long, lpOverlapped As Any) As Long
Public Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long,  lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long,  lpNumberOfBytesWritten As Long, lpOverlapped As Any) As Long
Public Declare Function SetFilePointer Lib "kernel32" (ByVal hFile As  Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal  dwMoveMethod As Long) As Long
Public Declare Function SetEndOfFile Lib "kernel32" (ByVal hFile As Long) As Long

Public Const GENERIC_READ = &H80000000
Public Const GENERIC_WRITE = &H40000000
Public Const FILE_SHARE_READ = &H1
Public Const OPEN_EXISTING = 3
Public Const FILE_ATTRIBUTE_NORMAL = &H80
Public Const INVALID_HANDLE_VALUE = -1
Public Const FILE_END = 2
Public Const FILE_BEGIN = 0
Public Const FILE_CURRENT = 1
Public Const LWA_COLORKEY = &H1
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_LAYERED = &H80000
Public Const MAX_PATH = 260
Public Const SW_SHOWNORMAL = 1

Public Type FileTime
dwLowDateTime       As Long
dwHighDateTime      As Long
End Type

Public Type WIN32_FIND_DATA
dwFileAttributes    As Long
ftCreationTime      As FileTime
ftLastAccessTime    As FileTime
ftLastWriteTime     As FileTime
nFileSizeHigh       As Long
nFileSizeLow        As Long
dwReserved0         As Long
dwReserved1         As Long
cFileName           As String * MAX_PATH
cAlternate          As String * 14
End Type

Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type

'untuk browse folder
Public Function BrowseFolder(ByVal aTitle As String, ByVal aForm As Form) As String
Dim bInfo As BROWSEINFO
Dim rtn&, pidl&, path$, pos%
Dim BrowsePath As String
bInfo.hOwner = aForm.hWnd
bInfo.lpszTitle = aTitle
bInfo.ulFlags = &H1
pidl& = SHBrowseForFolder(bInfo)
path = Space(512)
t = SHGetPathFromIDList(ByVal pidl&, ByVal path)
pos% = InStr(path$, Chr$(0))
BrowseFolder = Left(path$, pos - 1)
If Right$(Browse, 1) = "\" Then
BrowseFolder = BrowseFolder
Else
BrowseFolder = BrowseFolder + "\"
End If
If Right(BrowseFolder, 2) = "\\" Then BrowseFolder = Left(BrowseFolder, Len(BrowseFolder) - 1)
If BrowseFolder = "\" Then BrowseFolder = ""
End Function

Public Function StripNulls(ByVal OriginalStr As String) As String
If (InStr(OriginalStr, Chr$(0)) > 0) Then
OriginalStr = Left$(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)
End If
StripNulls = OriginalStr
End Function

'fungsi untuk menentukan file script atau bukan
Public Function IsScript(Filename As String) As Boolean
IsScript = False
ext = Split("|vbs|vbe", "|")
For i = 1 To UBound(ext)
If LCase(Right(Filename, 3)) = LCase(ext(i)) Then IsScript = True
Next
End Function

Code di atas adalah Fungsi API yang di butuhkan untuk antivirus

Buat 1 module dengan nama modChecksum

masukan code di bawah ini.

Spoiler: 
'Code:
Public Function GetChecksum(FilePath As String) As String
Dim CheckSum(1 To 2) As String
CheckSum(1) = CalcBinary(FilePath, 499, 4500)
CheckSum(2) = CalcBinary(FilePath, 499, 4000)
GetChecksum = CheckSum(1) & CheckSum(2)
End Function
Public Function CalcBinary(ByVal lpFileName As String, ByVal lpByteCount  As Long, Optional ByVal StartByte As Long = 0) As String
On Error GoTo err
Dim Bin() As Byte
Dim ByteSum As Long
Dim i As Long
ReDim Bin(lpByteCount) As Byte
Open lpFileName For Binary As #1
If StartByte = 0 Then
Get #1, , Bin
Else
Get #1, StartByte, Bin
End If
Close #1
For i = 0 To lpByteCount
ByteSum = ByteSum + Bin(i) ^ 2
Next i
CalcBinary = Hex$(ByteSum)
Exit Function
err:
CalcBinary = "00"
End Function

potongan code di atas di gunakan untuk meng kalkulasi checksum

buat 1 module lagi dengan nama modDatabase

lalu tambahkan code di bawah ini.

Spoiler: 
'Code:
Public VirusDB(5), IconDB(48), Bahaya(5) As String
Public Sub BuildDatabase()
Call Checksum_DB
Call IconCompare_DB
Call Script_DB
End Sub
Private Sub Checksum_DB()
VirusDB(1) = "Alman.A|8911D290F723"
VirusDB(2) = "Malingsi.A|A6292EA60230"
VirusDB(3) = "Conficker.A|9EC112ABB2F3"
VirusDB(4) = "N4B3.A|B5CCD36CDB98"
VirusDB(5) = "N4B3.B|A1FE6D6DBE07"
End Sub
Public Sub IconCompare_DB()
On Error Resume Next
IconDB(1) = "20938B2"
IconDB(2) = "19F4ED6"
IconDB(3) = "133BE0B"
IconDB(4) = "18EDEAE"
IconDB(5) = "1EF89C2"
IconDB(6) = "1C915FF"
IconDB(7) = "24563C4"
IconDB(8) = "1B2DB74"
IconDB(9) = "208EA72"
IconDB(10) = "22A064D"
IconDB(11) = "19B64EE"
IconDB(12) = "1D4B7E1"
IconDB(13) = "2087762"
IconDB(14) = "29C7258"
IconDB(15) = "1B18705"
IconDB(16) = "1B5FCAB"
IconDB(17) = "126D4CF"
IconDB(18) = "1C58E5C"
IconDB(19) = "15D7730"
IconDB(20) = "1FB82B7"
IconDB(21) = "112763E"
IconDB(22) = "2165AF9"
IconDB(23) = "25F46BE"
IconDB(24) = "206556B"
IconDB(25) = "22A8D69"
IconDB(26) = "19237F8"
IconDB(27) = "15022B4"
IconDB(28) = "1D8B4EB"
IconDB(29) = "1DBC1EA"
IconDB(30) = "2333F5D"
IconDB(31) = "1F37C2F"
IconDB(32) = "1C9CCA4"
IconDB(33) = "1DFDFB4"
IconDB(34) = "1C1283E"
IconDB(35) = "1F6598C"
IconDB(36) = "27F4C1A"
IconDB(37) = "22F92E0"
IconDB(38) = "191DBDC"
IconDB(39) = "27BFE4A"
IconDB(40) = "20E0907"
IconDB(46) = "2FA4C88"
IconDB(47) = "25AA630"
IconDB(48) = "1DE28E2"
End Sub
Public Sub Script_DB()
On Error Resume Next
Bahaya(1) = "Scripting.FileSystemObject|Wscript.ScriptFullName|WScript.Shell|.regwrite|.copy"
Bahaya(2) = "Wscript.ScriptFullName|createobject|strreverse|.regwrite"
Bahaya(3) = "createobject|Wscript.ScriptFullName|.regwrite|[autorun]"
Bahaya(4) = "createobject|Wscript.ScriptFullName|specialfolder|.regwrite"
Bahaya(5) = "chr(asc(mid(|createobject|Wscript.ScriptFullName|.GetFolder|.RegWrite"
End Sub

potongan code di atas adalah database pada antivirusnya

buat lagi 1 buah module dengan nama modQuar

masukan code yang ada di bawah ini

Spoiler: 

Code:
Option Explicit
Public Function EncodeFile(SourceFile As String, DestFile As String)
Dim ByteArray() As Byte, Filenr As Integer
Filenr = FreeFile
Open SourceFile For Binary As #Filenr
ReDim ByteArray(0 To LOF(Filenr) - 1)
Get #Filenr, , ByteArray()
Close #Filenr
Call Coder(ByteArray())
If (PathFileExists(DestFile)) <> 0 Then DeleteFile DestFile
Open DestFile For Binary As #Filenr
Put #Filenr, , ByteArray()
Close #Filenr
End Function
Public Function DecodeFile(SourceFile As String, DestFile As String)
Dim ByteArray() As Byte, Filenr As Integer
Filenr = FreeFile
Open SourceFile For Binary As #Filenr
ReDim ByteArray(0 To LOF(Filenr) - 1)
Get #Filenr, , ByteArray()
Close #Filenr
Call DeCoder(ByteArray())
If (PathFileExists(DestFile)) <> 0 Then DeleteFile DestFile
Open DestFile For Binary As #Filenr
Put #Filenr, , ByteArray()
Close #Filenr
End Function
Private Sub Coder(ByteArray() As Byte)
Dim x As Long
Dim Value As Integer
Value = 0
For x = 0 To UBound(ByteArray)
Value = Value + ByteArray(x)
If Value > 255 Then Value = Value - 256
ByteArray(x) = Value
Next
End Sub
Private Sub DeCoder(ByteArray() As Byte)
Dim x As Long
Dim Value As Integer
Dim newValue As Integer
newValue = 0
For x = 0 To UBound(ByteArray)
Value = newValue
newValue = ByteArray(x)
Value = ByteArray(x) - Value
If Value < 0 Then Value = Value + 256         ByteArray(x) = Value     Next End Sub 

Code di atas adalah code untuk enkripsi/dekripsi pada virus yang akan di karantina

Buat lagi 1 module dengan nama modHeuristic

lalu masukan code di bawah ini

Spoiler: 
'Code:
Private Declare Function ExtractIconEx Lib "shell32.dll" Alias  "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long,  ByRef phiconLarge As Long, ByRef phiconSmall As Long, ByVal nIcons As  Long) As Long
Private Declare Function DestroyIcon Lib "user32.dll" (ByVal hIcon As Long) As Long
Private Declare Function DrawIconEx Lib "user32" (ByVal hDC As Long,  ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal  cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long,  ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Boolean
Private Declare Function ExtractIcon Lib "shell32.dll" Alias  "ExtractIconA" (ByVal hInst As Long, ByVal lpszExefileName As String,  ByVal nIconIndex As Long) As Long
Private Const DI_MASK = &H1
Private Const DI_IMAGE = &H2
Private Const DI_NORMAL = &H3
Private Const DI_COMPAT = &H4
Private Const DI_DEFAULTSIZE = &H8
Private Const SHGFI_DISPLAYNAME = &H200
Private Const SHGFI_EXETYPE = &H2000
Private Const SHGFI_SYSICONINDEX = &H4000
Private Const SHGFI_LARGEICON = &H0
Private Const SHGFI_SMALLICON = &H1
Private Const ILD_TRANSPARENT = &H1
Private Const SHGFI_SHELLICONSIZE = &H4
Private Const SHGFI_TYPENAME = &H400
Private Const BASIC_SHGFI_FLAGS = SHGFI_TYPENAME Or SHGFI_SHELLICONSIZE  Or SHGFI_SYSICONINDEX Or SHGFI_DISPLAYNAME Or SHGFI_EXETYPE
Private SIconInfo As SHFILEINFO
Private SectionHeaders() As IMAGE_SECTION_HEADER
Dim i As Integer
Dim j As Integer
Public Function CekHeuristic(Filename As String)
CekHeuristic = ""
On Error GoTo hError
Dim hFile As Long, bRW As Long
Dim DOSheader As IMAGE_DOS_HEADER
Dim NTHeaders As IMAGE_NT_HEADERS
Dim Filedata As String
DOS_HEADER_INFO = ""
NT_HEADERS_INFO = ""
hFile = CreateFile(Filename, ByVal (GENERIC_READ Or GENERIC_WRITE),  FILE_SHARE_READ, ByVal 0&, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL,  ByVal 0)
ReadFile hFile, DOSheader, Len(DOSheader), bRW, ByVal 0&
SetFilePointer hFile, DOSheader.e_lfanew, 0, 0
ReadFile hFile, NTHeaders, Len(NTHeaders), bRW, ByVal 0&
If NTHeaders.Signature <> IMAGE_NT_SIGNATURE Then
If IsScript(Filename) = True Then
Open Filename For Binary As #1
Filedata = Space$(LOF(1))
Get #1, , Filedata
Close #1
CekHeuristic = CekHeur(Filedata)
End If
Exit Function
End If
CekHeuristic = CekIconBinary(Filename)
hError:
End Function
Private Function CekHeur(Data As String)
Dim hsl, asl As Integer
strasli = LCase(Replace(Data, vbNewLine, "$"))
For i = 1 To UBound(Bahaya)
hsl = 0
strData = Split(Bahaya(i), "|")
asl = 0
For k = 0 To UBound(strData)
xxx = LCase(strData(k))
If InStr(strasli, xxx) > 0 Then hsl = hsl + 1
asl = asl + 1
Next
If hsl = asl Then
CekHeur = "Malicious-Script"
Exit Function
End If
Next
CekHeur = ""
End Function
Private Function CekIconBinary(PathFile As String)
Dim q As Integer
Dim IconIDNow As String
CekIconBinary = ""
IconIDNow = CalcIcon(PathFile)
If IconIDNow = "" Then Exit Function
For q = 1 To UBound(IconDB)
If IconDB(q) = IconIDNow Then
CekIconBinary = "Malicious-Icon"
Exit Function
End If
Next q
End Function
Private Function CalcBinary(ByVal lpFileName As String, ByVal  lpByteCount As Long, Optional ByVal StartByte As Long = 0) As String
Dim Bin() As Byte
Dim ByteSum As Long
Dim i As Long
ReDim Bin(lpByteCount) As Byte
Open lpFileName For Binary As #1
If StartByte = 0 Then
Get #1, , Bin
Else
Get #1, StartByte, Bin
End If
Close #1
For i = 0 To lpByteCount
ByteSum = ByteSum + Bin(i) ^ 2
Next i
CalcBinary = Hex$(ByteSum)
End Function
Private Function CalcIcon(ByVal lpFileName As String) As String
Dim PicPath As String
Dim ByteSum As String
Dim IconExist As Long
Dim hIcon As Long
IconExist = ExtractIconEx(lpFileName, 0, ByVal 0&, hIcon, 1)
If IconExist <= 0 Then     IconExist = ExtractIconEx(lpFileName, 0,  hIcon, ByVal 0&, 1)     If IconExist <= 0 Then Exit Function End  If frmUtama.sIcon.BackColor = vbWhite DrawIconEx frmUtama.sIcon.hDC, 0,  0, hIcon, 0, 0, 0, 0, DI_NORMAL DestroyIcon hIcon PicPath =  Environ$("windir") & "\tmp.tmp" SavePicture frmUtama.sIcon.Image,  PicPath ByteSum = CalcBinary(PicPath, FileLen(PicPath)) DeleteFile  PicPath CalcIcon = ByteSum End Function 

Fungsi di atas adalah fungsi untuk mengecek suatu file dengan metode heuristic icon + heuristic untuk virus VBS

Buat 1 module dengan nama modIconCompare

lalu masukan code di bawah ini

Spoiler: 
'Code:
Option Explicit
Private Const SHGFI_DISPLAYNAME = &H200, SHGFI_EXETYPE = &H2000,  SHGFI_SYSICONINDEX = &H4000, SHGFI_LARGEICON = &H0,  SHGFI_SMALLICON = &H1, SHGFI_SHELLICONSIZE = &H4, SHGFI_TYPENAME  = &H400, ILD_TRANSPARENT = &H1, BASIC_SHGFI_FLAGS =  SHGFI_TYPENAME Or SHGFI_SHELLICONSIZE Or SHGFI_SYSICONINDEX Or  SHGFI_DISPLAYNAME Or SHGFI_EXETYPE
Public Type SHFILEINFO
hIcon As Long: iIcon As Long: dwAttributes As Long: szDisplayName As String * MAX_PATH: szTypeName As String * 80
End Type
Private Declare Function SHGetFileInfo Lib "shell32.dll" Alias  "SHGetFileInfoA" (ByVal pszPath As String, ByVal dwFileAttributes As  Long, psfi As SHFILEINFO, ByVal cbSizeFileInfo As Long, ByVal uFlags As  Long) As Long
Private Declare Function ImageList_Draw Lib "comctl32.dll" (ByVal himl  As Long, ByVal i As Long, ByVal hdcDest As Long, ByVal x As Long, ByVal y  As Long, ByVal flags As Long) As Long
Private shinfo As SHFILEINFO, sshinfo As SHFILEINFO
Private Declare Function DrawIconEx Lib "user32.dll" (ByVal hDC As Long,  ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal  cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long,  ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long
Private SIconInfo As SHFILEINFO

Public Enum IconRetrieve
ricnLarge = 32
ricnSmall = 16
End Enum

Public Sub RetrieveIcon(fName As String, DC As PictureBox, icnSize As IconRetrieve)
Dim hImgSmall, hImgLarge As Long
Debug.Print fName
Select Case icnSize
Case ricnSmall
hImgSmall = SHGetFileInfo(fName$, 0&, shinfo, Len(shinfo), BASIC_SHGFI_FLAGS Or SHGFI_SMALLICON)
Call ImageList_Draw(hImgSmall, shinfo.iIcon, DC.hDC, 0, 0, ILD_TRANSPARENT)
Case ricnLarge
hImgLarge& = SHGetFileInfo(fName$, 0&, shinfo, Len(shinfo), BASIC_SHGFI_FLAGS Or SHGFI_LARGEICON)
Call ImageList_Draw(hImgLarge, shinfo.iIcon, DC.hDC, 0, 0, ILD_TRANSPARENT)
End Select
End Sub
Public Function ExtractIcon(Filename As String, AddtoImageList As  ImageList, PictureBox As PictureBox, PixelsXY As IconRetrieve, iKey As  String) As Long
Dim SmallIcon As Long
Dim NewImage As ListImage
Dim IconIndex As Integer
On Error GoTo Load_New_Icon
If iKey <> "Application" And iKey <> "Shortcut" Then
ExtractIcon = AddtoImageList.ListImages(iKey).Index
Exit Function
End If
Load_New_Icon:
On Error GoTo Reset_Key
RetrieveIcon Filename, PictureBox, PixelsXY
IconIndex = AddtoImageList.ListImages.Count + 1
Set NewImage = AddtoImageList.ListImages.Add(IconIndex, iKey, PictureBox.Image)
ExtractIcon = IconIndex
Exit Function
Reset_Key:
iKey = ""
Resume
End Function
Public Sub GetLargeIcon(icPath$, pDisp As PictureBox)
Dim hImgLrg&: hImgLrg = SHGetFileInfo(icPath$, 0&, SIconInfo, Len(SIconInfo), BASIC_SHGFI_FLAGS Or SHGFI_LARGEICON)
ImageList_Draw hImgLrg, SIconInfo.iIcon, pDisp.hDC, 0, 0, ILD_TRANSPARENT
End Sub

kode di atas di butuhkan untuk metode heuristic icon pada antivirus

Buat 1 module dengan nama modLV

lalu masukan code di bawah ini

Spoiler: 
'Code:
Public Function GetSelected(TheLV As ListView)
Dim Sel As String
For i = 1 To TheLV.ListItems.Count
If TheLV.ListItems.Item(i).Checked = True Then
Sel = Sel & "|" & TheLV.ListItems.Item(i).SubItems(1)
End If
Next
GetSelected = Sel
End Function

Public Function SelectedAll(TheLV As ListView)
For i = 1 To TheLV.ListItems.Count
TheLV.ListItems.Item(i).Checked = True
Next
End Function

Public Function SelectedNone(TheLV As ListView)
For i = 1 To TheLV.ListItems.Count
TheLV.ListItems.Item(i).Checked = False
Next
End Function

Public Function GetIndex(TheLV As ListView, Data As String) As Integer
For i = 1 To TheLV.ListItems.Count
If TheLV.ListItems.Item(i).SubItems(1) = Data Then
GetIndex = i
End If
Next
End Function

Public Function UnSelect(TheLV As ListView, Data As String)
For i = 1 To TheLV.ListItems.Count
If TheLV.ListItems.Item(i).SubItems(3) = Data Then
TheLV.ListItems.Item(i).Checked = False
End If
Next
End Function

Public Function AddDetect(TheLV As ListView, FilePath As String, VirData As String)
With TheLV
If Left(VirData, 9) <> "Malicious" Then
Set lvItm = .ListItems.Add(, , Split(VirData, "|")(0), , frmUtama.ImgSmall.ListImages(1).Index)
lvItm.SubItems(1) = FilePath
lvItm.SubItems(2) = Split(VirData, "|")(1)
lvItm.SubItems(3) = "Virus File"
Else
Set lvItm = .ListItems.Add(, , VirData, , frmUtama.ImgSmall.ListImages(1).Index)
lvItm.SubItems(1) = FilePath
lvItm.SubItems(2) = GetChecksum(FilePath)
lvItm.SubItems(3) = "Virus File"
End If
End With
End Function

Code di atas berguna untuk dengatur Listview pada saat virus terdeteksi

Buat 1 module dengan nama modPE

lalu masukan code di bawah ini

Spoiler: 
'Code:
Public Type IMAGE_DOS_HEADER
e_magic As Integer
e_cblp As Integer
e_cp As Integer
e_crlc As Integer
e_cparhdr As Integer
e_minalloc As Integer
e_maxalloc As Integer
e_ss As Integer
e_sp As Integer
e_csum As Integer
e_ip As Integer
e_cs As Integer
e_lfarlc As Integer
e_ovno As Integer
e_res(1 To 4) As Integer
e_oemid As Integer
e_oeminfo As Integer
e_res2(1 To 10)    As Integer
e_lfanew As Long
End Type

Public Type IMAGE_SECTION_HEADER
nameSec As String * 6
PhisicalAddress As Integer

VirtualSize As Long
VirtualAddress As Long
SizeOfRawData As Long
PointerToRawData As Long
PointerToRelocations As Long
PointerToLinenumbers As Long
NumberOfRelocations As Integer
NumberOfLinenumbers As Integer
Characteristics As Long

End Type

Public Type IMAGE_DATA_DIRECTORY
VirtualAddress As Long
size As Long
End Type

Public Type IMAGE_OPTIONAL_HEADER
Magic As Integer
MajorLinkerVersion As Byte
MinorLinkerVersion As Byte
SizeOfCode As Long
SizeOfInitializedData As Long
SizeOfUninitializedData As Long
AddressOfEntryPoint As Long
BaseOfCode As Long
BaseOfData As Long
ImageBase As Long
SectionAlignment As Long
FileAlignment As Long
MajorOperatingSystemVersion As Integer
MinorOperatingSystemVersion As Integer
MajorImageVersion As Integer
MinorImageVersion As Integer
MajorSubsystemVersion As Integer
MinorSubsystemVersion As Integer
Win32VersionValue As Long
SizeOfImage As Long
SizeOfHeaders As Long
CheckSum As Long
Subsystem As Integer
DllCharacteristics As Integer
SizeOfStackReserve As Long
SizeOfStackCommit As Long
SizeOfHeapReserve As Long
SizeOfHeapCommit As Long
LoaderFlags As Long
NumberOfRvaAndSizes As Long
DataDirectory(0 To 15) As IMAGE_DATA_DIRECTORY
End Type

Public Type IMAGE_FILE_HEADER
Machine As Integer
NumberOfSections As Integer
TimeDateStamp As Long
PointerToSymbolTable As Long
NumberOfSymbols As Long
SizeOfOptionalHeader As Integer
Characteristics As Integer
End Type

Public Type IMAGE_NT_HEADERS
Signature As Long
FileHeader As IMAGE_FILE_HEADER
OptionalHeader As IMAGE_OPTIONAL_HEADER
End Type

Public Type IMAGE_EXPORT_DIRECTORY
Characteristics As Long
TimeDateStamp As Long
MajorVersion As Integer
MinorVersion As Integer
Name As Long
Base As Long
NumberOfFunctions As Long
NumberOfNames As Long
AddressOfFunctions As Long
AddressOfNames As Long
AddressOfNameOrdinals As Long
End Type

Public Type IMAGE_IMPORT_DESCRIPTOR
OriginalFirstThunk As Long
TimeDateStamp As Long
ForwarderChain As Long
Name As Long
FirstThunk As Long
End Type

Public Type IMAGE_IMPORT_BY_NAME
Hint As Integer
Name As String * 255
End Type

Public Const IMAGE_SIZEOF_SECTION_HEADER = 40
Public Const IMAGE_DOS_SIGNATURE = &H5A4D
Public Const IMAGE_NT_SIGNATURE = &H4550
Public Const IMAGE_ORDINAL_FLAG = &H80000000

Public Enum SECTION_CHARACTERISTICS
IMAGE_SCN_LNK_NRELOC_OVFL = &H1000000   'Section contains extended relocations.
IMAGE_SCN_MEM_DISCARDABLE = &H2000000   'Section can be discarded.
IMAGE_SCN_MEM_NOT_CACHED = &H4000000    'Section is not cachable.
IMAGE_SCN_MEM_NOT_PAGED = &H8000000     'Section is not pageable.
IMAGE_SCN_MEM_SHARED = &H10000000       'Section is shareable.
IMAGE_SCN_MEM_EXECUTE = &H20000000      'Section is executable.
IMAGE_SCN_MEM_READ = &H40000000         'Section is readable.
IMAGE_SCN_MEM_WRITE = &H80000000        'Section is writeable.
End Enum

Public Enum IMAGE_DIRECTORY
IMAGE_DIRECTORY_ENTRY_EXPORT = 0           ' Export Directory
IMAGE_DIRECTORY_ENTRY_IMPORT = 1           ' Import Directory
IMAGE_DIRECTORY_ENTRY_RESOURCE = 2         ' Resource Directory
IMAGE_DIRECTORY_ENTRY_EXCEPTION = 3        ' Exception Directory
IMAGE_DIRECTORY_ENTRY_SECURITY = 4         ' Security Directory
IMAGE_DIRECTORY_ENTRY_BASERELOC = 5        ' Base Relocation Table
IMAGE_DIRECTORY_ENTRY_DEBUG = 6            ' Debug Directory
IMAGE_DIRECTORY_ENTRY_ARCHITECTURE = 7     ' Architecture Specific Data
IMAGE_DIRECTORY_ENTRY_GLOBALPTR = 8        ' RVA of GP
IMAGE_DIRECTORY_ENTRY_TLS = 9              ' TLS Directory
IMAGE_DIRECTORY_ENTRY_LOAD_CONFIG = 10     ' Load Configuration Directory
IMAGE_DIRECTORY_ENTRY_BOUND_IMPORT = 11    ' Bound Import Directory in headers
IMAGE_DIRECTORY_ENTRY_IAT = 12             ' Import Address Table
IMAGE_DIRECTORY_ENTRY_DELAY_IMPORT = 13    ' Delay Load Import Descriptors
IMAGE_DIRECTORY_ENTRY_COM_DESCRIPTOR = 14  ' COM Runtime descriptor
End Enum

code di atas berfungsi untuk pengecekan PE HEADER

buat 1 module dengan nama modScanning

lalu tambahkan code di bawah ini

Spoiler: 
'Code:
Public jumlahDir As Long, jumlahFile As Long, jumlahVirus As Long
Public StopScan As Boolean

Public Function CekVirus(FilePath As String) As String
CekVirus = ""
For i = 1 To UBound(VirusDB)
If GetChecksum(FilePath) = Split(VirusDB(i), "|")(1) Then
CekVirus = VirusDB(i)
Exit Function
End If
Next
If FileLen(FilePath) / 1024 <= 512 Then CekVirus =  CekHeuristic(FilePath) End If End Function  Public Sub FindFilesEx(ByVal  lpFolderName As String, ByVal SubDirs As Boolean)     Dim i As Long      Dim hSearch As Long, WFD As WIN32_FIND_DATA     Dim Result As Long,  CurItem As String     Dim tempDir() As String, dirCount As Long     Dim  RealPath As String, GetViri As String          GetViri = ""     dirCount  = -1          ScanInfo = "Scan File"          If Right$(lpFolderName,  1) = "\" Then         RealPath = lpFolderName     Else         RealPath =  lpFolderName & "\"     End If          hSearch =  FindFirstFile(RealPath & "*", WFD)     If Not hSearch =  INVALID_HANDLE_VALUE Then         Result = True         Do While Result              DoEvents             If StopScan = True Then Exit Do              CurItem = StripNulls(WFD.cFileName)             If Not CurItem =  "." And Not CurItem = ".." Then                 If  PathIsDirectory(RealPath & CurItem) <> 0 Then
jumlahDir = jumlahDir + 1
frmUtama.lblDirScan.Caption = jumlahDir
If SubDirs = True Then
dirCount = dirCount + 1
ReDim Preserve tempDir(dirCount) As String
tempDir(dirCount) = RealPath & CurItem
End If
Else
jumlahFile = jumlahFile + 1
frmUtama.lblFileScan.Caption = jumlahFile
frmUtama.txtFileScan.Text = RealPath & CurItem
frmUtama.txtFileScan.SelStart = Len(frmUtama.txtFileScan.Text)
If WFD.nFileSizeLow > 5120 Or WFD.nFileSizeHigh > 5120 Then
GetViri = CekVirus(RealPath & CurItem)
If GetViri <> "" Then
AddDetect frmUtama.lvScan, RealPath & CurItem, GetViri
jumlahVirus = jumlahVirus + 1
frmUtama.lblFileDet.Caption = jumlahVirus
End If
End If
End If
End If
Result = FindNextFile(hSearch, WFD)
Loop
FindClose hSearch

If SubDirs = True Then
If dirCount <> -1 Then
For i = 0 To dirCount
FindFilesEx tempDir(i), True
Next i
End If
End If
End If
End Sub

Code di atas adalah code untuk scan file & folder pada antivirus

buat 1 module dengan nama modEtc

masukan code di bawah ini

Spoiler: 
'Code:
Public Function Action(Data As String, TheLV As ListView, Mode As String)
Dim Filedata() As String
Dim fName, tmp, Status As String
Dim y As Integer
Filedata = Split(Data, "|")
For i = 1 To UBound(Filedata)
a = a + 1
If Mode = "Q" Then
fName = GetFileName(Filedata(i))
EncodeFile Filedata(i), AppPath & "Quarantine\" & Left$(fName, Len(fName) - Len(GetExt(Filedata(i)))) & ".avq"
AddQList TheLV, Filedata(i), Left$(fName, Len(fName) - Len(GetExt(Filedata(i)))) & ".avq"
DeleteFile Filedata(i)
Status = "Di Karantina"
ElseIf Mode = "D" Then
DeleteFile Filedata(i)
Status = "Di Hapus"
End If
y = GetIndex(TheLV, Filedata(i))
With TheLV.ListItems.Item(y)
.SubItems(3) = Status
.Checked = False
.SmallIcon = frmUtama.ImgSmall.ListImages(2).Index
End With
Next
Action = a
End Function

Public Function AddQList(TheLV As ListView, FilePath As String, Source As String)
Dim Dat As String
Dat = AppPath & "Quarantine\HN.dat"
If PathFileExists(Dat) <> 0 Then
Open Dat For Input As #1
Input #1, isi
Close #1
DeleteFile Dat
Else
isi = ""
End If
namavir = TheLV.ListItems(GetIndex(TheLV, FilePath))
If InStrRev(isi, Source, , vbTextCompare) = 0 Then
Open Dat For Output As #2
Print #2, isi & "|" & namavir & "?" & FilePath & "?" & Source
Close #2
Else
Open Dat For Output As #3
Print #3, isi
Close #3
End If
End Function

Public Function GetFileName(PathFile As String) As String
Dim i As Long
Dim DirString As Long
For i = 1 To Len(PathFile)
If Mid$(PathFile, i, 1) = "\" Then DirString = i
Next i
GetFileName = Right$(PathFile, Len(PathFile) - DirString)
End Function

Public Function GetExt(ByVal lpFileName As String)
Dim sTemp As String
Dim i As Long
sTemp = GetFileName(lpFileName)
If InStr(lpFileName, ".") Then
For i = 0 To Len(sTemp) - 1
If Mid$(sTemp, Len(sTemp) - i, 1) = "." Then
GetExt = Mid$(sTemp, Len(sTemp) - i, i)
Exit Function
End If
Next i
End If
End Function

Code di atas adalah kumpulan fungsi etc untuk scanning,karantina,delete

Ini adalah tampilan antivirus setelah di berikan module

sekarang tinggal cara membuat form quarantinenya,

caranya adalah sebagai berikut pada gambar berikut

setelah form baru sudah di buat,lalu rubah nama formnya menjadi frmQuarantine

Tambah 1 buah listview dengan nama lvQ

lalu setting listview tersebut sesuai dengan gambar di bawah ini,cara setting listview sudah tertera diatas.

Tambahkan 3 buah Command button dengan nama

- cmdDelete

- cmdRestore

- cmdRestore(1)

Tambahkan code di bawah ini ke dalam Command [ cmdDelete ]

Spoiler: 
'Code:
If lvQ.ListItems.Count = 0 Then Exit Sub
Dim Data() As String
If PathFileExists(Dat) <> 0 Then
Open Dat For Input As #1
Input #1, isi
Close #1
DeleteFile Dat
Else
isi = ""
End If
Data = Split(isi, "|")
For i = 1 To UBound(Data)
namafile = lvQ.SelectedItem.SubItems(2)
If namafile <> Split(Data(i), "?")(1) Then
nyu = nyu & "|" & Data(i)
End If
Next
DeleteFile AppPath & "Quarantine\" & lvQ.SelectedItem.SubItems(1)
Open Dat For Output As #2
Print #2, nyu
Close #2
MsgBox "Success Deleting File !!!", vbInformation, ""
UpdateQ

code di atas berfungsi untuk menghapus file yang telah di karantina

Masukan code di bawah ini ke Command [ cmdRestore ]

Spoiler: 
'Code:
If lvQ.ListItems.Count = 0 Then Exit Sub
Select Case Index
Case 0
DecodeFile AppPath & "Quarantine\" & lvQ.SelectedItem.SubItems(1), lvQ.SelectedItem.SubItems(2)
MsgBox "File Restored to " & Chr(34) & lvQ.SelectedItem.SubItems(2) & Chr(34) & " !!!", vbInformation, ""
Case 1
sTitle = "Select path:" & vbNewLine & "Select path to restore file."
ThePath = BrowseFolder(sTitle, Me)
If ThePath <> "" Then
DecodeFile AppPath & "Quarantine\" &  lvQ.SelectedItem.SubItems(1), ThePath &  GetFileName(lvQ.SelectedItem.SubItems(2))
MsgBox "File Restored to " & Chr(34) & ThePath &  GetFileName(lvQ.SelectedItem.SubItems(2)) & Chr(34) & " !!!",  vbInformation, ""
End If
End Select

Fungsi code di atas berguna untuk me restore file kembali ke asalnya.

lalu pada Form_Load() tambahkan code di bawah ini.

Spoiler: 
'Code:
frmUtama.Enabled = False
Dat = AppPath & "Quarantine\HN.dat"
UpdateQ

Masukan code di bawah ini ke dalam frmQuarantine yang telah anda buat tadi.

Spoiler: 
'Code:
Dim Dat As String
Private Sub UpdateQ()
lvQ.ListItems.Clear
Dim Data() As String
If PathFileExists(Dat) = 0 Then Exit Sub
Open Dat For Input As #1
Input #1, isi
Close #1
Data = Split(isi, "|")
For i = 1 To UBound(Data)
With lvQ.ListItems.Add(, , Split(Data(i), "?")(0))
.SubItems(1) = Split(Data(i), "?")(2)
.SubItems(2) = Split(Data(i), "?")(1)
End With
Next
Me.Caption = "Quarantine (" & lvQ.ListItems.Count & ")"
End Sub

Berfungsi untuk memanggil data yang ada di folder karantina.

Hanya  itu ilmu yang bisa saya bagikan. sekarang kita bukan hanya sebagai  pemakai atau user sekrang kita sudah bisa mmembuat antivirus.

dan ini adalah Screenshot antivirus yang kita buat tadi saat melakukan scanning.

Note : Jika anda membaca dan mencoba dengan teliti dan seksama anda pasti berhasil.

Orang yang berhasil adalah orang yang banyak mecoba. 

Untuk  masalah source code anda bisa meminta kepada saya tapi dengan satu  syarat, yaitu anda harus menyertakan bukti bahwa anda telah mencoba  entah itu dalam bentuk screenshot atau yang lainnya.

Keterangan lebih lanjut add my facebook : Teguh Aprianto HNc

Untuk yang belum punya Visual Basic 6.0 bisa download disini

AKAN HADIR S.B. ANVIR BETA V 1.0

2011-02-19T22:25:00.000-08:00

30% Hampir jadi tinggal style dan database belum jadi karena tidak ada contoh data basenya.....

DIMOHON BANTUANYA.......

BY:
"SALUS BHK MASTER"

ARTI NAMA SALUS BHK

2011-02-19T07:07:00.000-08:00

SALUS:

NAMA SANTA YAITU SANTA LUSIA

BHK:
B = Blogger
H = Hyperius
K = Knucle
^
ARTINYA: ???

Salus BHK ULTIMATE SNAKE

2011-02-19T06:11:00.000-08:00

akhirnya BERKAT KERJA SAMA ANTARA http://www.Planet-Source-Code.com/
Maka game ini selesai
Download Di Sini
Keterangan ada di dalam game[cara mainya]

Image To Icon Convorter Online

2011-02-19T04:09:00.001-08:00

http://www.coolutils.com/online/image-converter/

Web Page Maker

2011-02-17T03:28:00.000-08:00

Bagi sebagian orang membuat sebuah website merupakan sebuah hal yang mudah, tapi bagi banyak orang hal ini merupakan hal yang sangat sulit, apalagi kita sama sekali tidak paham dengan bahasa pemrograman html maupun php.

Tapi sekarang sudah banyak software - software yang mempermudah anda untuk mebuat sebuah halaman website, dan yang terkenal adalah Macromedia Dreamweaver. Itu merupakan salah satu software yang mudah dan banyak digunakan untuk membuat sebuah web, tapi masih ada yang lebih mudah lagi dari software Dreamweaver tersebut, yaitu Web Page Maker.

Web Page Maker (WPM)merupakan sebuah software yang digunakan untuk membuat halaman – halaman web dengan sangat mudah, WPM memungkinkan pengguna untuk membuat halaman – halaman web dengan cepat tanpa harus memiliki kemampuan web programming.

Software ini didesain khusus untuk pemula dalam membuat halaman – halaman web yang indah dan menarik, karena penggunaan software ini sangat mudah, pengguna hanya tinggal memasukan objek – objek seperti text, image, table, dan lainnya. Kemudian pengguna hanya tinggal “Drag and Drop” objek – objek tersebut sesuai keinginan tanpa memikirkan kode HTML.

Tampilan WPM sangat simple, sehingga mempermudah pengguna untuk menggunakan software ini. Pada Situs resminya WPM memiliki Fitur Utama yaitu :

No html coding is required and you do not need any web experience.
Drag and drop the objects. True WYSIWYG layout & design.
Create websites with multiple pages and easily manage your site at once.
The ability to import and edit an existing html page in a WYSIWYG (What You See Is What You Get) manner.
You can use CSS style sheet to control how the text appears on your site.
Hundreds of functions: photo gallery, rollover image, flash slide show, audio/video, flash video, ready-to-use Java Script effects, tables, forms, iFrames and much more...
Pre-designed website templates are included.
Preview web pages in browser with one-click.
Publish your web site with just one-click.

WPM sangat mengutamakan kemudahan bagi penggunanya untuk membuat sebuah halaman web, jadi anda tidak perlu takut lagi untuk membuat sebuah web karena tidak menguasai bahasa pemrograman html ataupun php.

Web Page Maker versi 3.21 merupakan versi terbaru dari software ini, tentu saja saya memberikan software ini dengan full version secara gratis.

Baiklah untuk men-download Web Page Maker v3.21 beserta serial numbernya, silakan anda klik lnik download dibawah ini..

Ni Serialnya:

Username :     Maniac Download

Serial   :    22929-23236-56784-65959
        31112-12476-67544-57776
        31875-17303-62717-57013
        35447-33224-46796-53441

TNX TO MANIAC DOWNLOAD

Salus BHK Brrowser BETA V 1.0

2011-02-15T00:51:00.000-08:00

kali ini saya tidak disponsor oleh autoplay media studio yang dulu saya buat
salusbhk simple browser [POST LAMA SAYA]

SEKARANG SAYA BEKERJASA SAMA DENGAN VISUAL BASIC 6.0
TUTORIAL BIKIN+SOURCE CODE ADA DI BLOG INI PERTAMA FOLLOW DLU BLOG SAYA BARU CARI DI SINI

DOWNLOADNYA BISA LEWAT 4 SHARED:
Klik Gambar salah satu (sama aja sih)

Hampir sama sih seperti yang dulu saya buat....
namun ini banyak kelebihan sama kekuranganya
NAMANYA MASIH BETA.......[UJI COBA]
Untuk Lihat Kelebihan/Kekuranganya silahkan Download Dan test sendiri
FILENYA RINGAN KOK NGAK BERAT KYK DLU SAYA BIKIN DIBAWAH 50KB MALAHAN SIZENYA.....

Trimzz.........

UPDATE :
Sebagian Web ada yang Bisa kok Dibuka
Terus klo ada runtime script di no aja
soalnya itu runtimenya error

Mega Upload Premium link generator

2011-02-14T08:19:00.000-08:00

Mega Upload Direct Linker 1.0
Download Here:
~~Deleted~~
TUTOR:
1.Ekstrak Semua
2.Isi Link ID Dengan Link Download Kalian [Mega Upload Only]
3.Klik Get
4.COPY Pilih Direct Link
5. JANGAN IKUT COPY " // " karena link akan Menjadi Netral Lagi[GK PREMIUM]
6. Puas Dah........

megaupload premium cookie

~~HERE~~
Delete By Admin

Crack Avast 14 febuary - 6 juni 2010

2011-02-14T07:32:00.000-08:00

INGAT INI EXPIRED TGL 6 Juni 2011
Note TAMBAHAN: Ini Crack KHUSUS Avast Free Versi 5.1.889

DOWNLOAD HERE
COPAZ IZIN DULU [HARUSNYA JANGAN]

SWF TO GIF

2011-02-11T02:48:00.000-08:00

Description
SWF is a popular animated vector format, you can see it in many website. GIF also a popular animated image format. If you want convert swf to gif, you need a professional program to help you do it. SWF to GIF Converter application was designed to help you change the file format of flash from SWF into GIF.

It will be more suitable for transmission, using chat tools to release dynamic picture and any situations which can not use SWF document. SWF to GIF converter is a convert swf to gif software and SWF capture software. Export GIF from SWF files, and you can extract picture list, can also extract separate picture.convert swf to animated gif. SWF to GIF Converter is currently best and wonderful swf to gif converting software. With this software, you can easily convert your swf to photos, pictures (.gif) format to make your own gif on your website or your Myspace, blog.

DOWNLOAD: HERE

VIDEO TO SWF

2011-02-11T02:44:00.000-08:00


	Video to SWF Converter is a easy to use, powerful and fast flash SWF converting for delivering video over the Internet. Video to SWF Converter can quickly convert batches of popular video files to flash swf formats to be played on Internet website, or desktop system, such as Rmvb, Avi, MPEG, DivX, flv, h-264, vcd, ASF, WMV, MPG, Xvid, svcd, DVD, Rm, VOB, MP4, MOV, etc. with excellent quality and small size. With MovieSoft Video to SWF Converter you can enjoy your favorite video / movies on your desktop system, or upload to the Internet website, you do not need to know what format is your video file you have, drag and drop files to the software, then press convert button. No other SWF Video Converter software like our Video to SWF Converter supports so comprehensive video formats. Software Features: 1. Support all popular video formats The intput files support all popular video formats, whatever input files you have. 2. Very easy to use Only two clicks are enough to convert any Video files to SWF video format. 3. Fast conversion speed Provide >200% speed to convert video files to SWF video format beyond your imagination. 4. Automatic conversion The program will convert input files one by one and turn off computer when done without your click. 5. Personalized film editing You can set the start time and end time for converting to change the length of the output SWF video file, and add overlay to your video files. 6. Play back video before, in, and after conversion Play back video is supported, you can preview the input files before conversion. 7. Auto File name creator If the output file already exists in the output directory, the program will rename to a new file name for output file avoid overwriting a existing file. 8. Flexible Setting Most functions can be called up with a simple mouse click. 9. Free Upgrades Registered users receive free upgrades and support for life. Download: HERE

MP3 TO SWF

2011-02-11T02:39:00.000-08:00

MP3 to SWF Converter converts MP3 or WAV file to SWF file (Macromedia Flash Movie) quickly. It can also record your voice and convert to SWF. It creates streaming SWF files that play instantly, no waiting. You can convert your favorite music to SWF and place it to your website as web page background music to attract more visitors and increase website traffic. You can also record your voice (e.g. your product instruction, customers' reviews etc.) and add to your website to increase your sales.

MP3 to SWF Converter can encode MP3 and WAV with different parameters (like sample frequency, bit rate, channels or encoding quality). This means MP3 to SWF Converter can convert a large-size MP3 or WAV file to a small-size SWF file so that the SWF file can be downloaded faster.

MP3 to SWF Converter can create not only sound stream SWF but also playback controllable SWF. And it supplies many excellent control SWF templates.

MP3 to SWF Converter generate single one SWF file, not like other software that uses a shell file to play sound. And the button color of SWF player can be customized. It also supports batch conversion.

Download: HERE

JAM

2011-02-11T02:16:00.000-08:00

UNTUK MEMBUAT KE SINI

Untuk Tutorial Silahkan Comment

BUAT ANTIVIRUS SENDIRI

2011-02-11T01:53:00.000-08:00

Sekarang kehadiran para virus maker (–selanjutnya disingkat jadi VM
saja) lokal telah membuat gerah para user komputer tanah air. Bisa
dibayangkan bila dari sekian banyak virus lokal tidak satu-dua yang
menghancurkan data (terutama bagi file office; word, excel, dll…). Bagi
para vendor Anti Virus (–selanjutnya disingkat menjadi AV saja)
fenomena ini adalah lahan bisnis untuk produk mereka. Sebut saja
NORMAN, yang kini men-support perusahaan konsultan virus lokal
(–VAKSIN.COM) , Symantec, McAffe, NOD32, dan sebagainya. Dengan
menawarkan update definisi software AV tercepat, engine scanner paling
sensitif, dan lain-lain merupakan kiat untuk memancing para korban
virus membeli dan menggunakan software AV mereka. Bagi penulis sendiri
hal ini memang agak memberatkan mengingat update file definisi atau
engine AV tsb haruslah melalui koneksi internet. Lalu bagaimana yang
tidak mempunyai akses sama sekali? Konsekuensinya iyalah tertinggal
dalam hal pengenalan varian virus baru yang pada ujung-ujungnya membuat
AV yang sudah terinstall bagai 'Macan Ompong'. Kalau kita membuat AV
sendiri bagaimana? dengan database definisi yang bisa diupdate oleh
kita bahkan dapat saling tukar dengan teman? Bisa saja, dengan syarat
mau mempelajari sedikit teknik pemograman.

Pertama kita harus mengerti bagaimana cara kerja
sebuah AV sederhana, pada dasarnya sebuah software AV mempunyai
komponen-komponen :

1. Engine scanner, ini merupakan komponen utama AV
dalam mengenali sebuah pattern virus. Engine ini dapat dikelompokkan
menjadi statis dan dinamis. Statis dalam hal ini dapat disebut menjadi
spesifik terhadap pattern tertentu dari sebuah file virus. Checksum
merupakan salah satu contoh dari engine statis ini. Dinamis dalam
artian dia mengenali perilaku 'umum' sebuah virus. Heuristic menjadi
salah satu contohnya.

2. Database definition, menjadi sebuah referensi dari sebuah pattern
file virus. Engine statis sangat bergantung kepada komponen ini.

3. Decompress atau unpacking engine, khusus untuk pengecekan file-file
yang terkompresi (*.rar, *.zip, dll) atau kompresi atau packing untuk
file PE seperti UPX, MeW , dll.

Tidak jarang hasil dari pengecekan terhadap file
suspect virus menghasilkan false-positive bahkan false-negative (–
false-positive berarti file yang bersih dianggap thread oleh AV, dan
false-negative berarti file yang 100% thread akan dianggap bersih).
Semua itu dapat diakibatkan oleh ketidak-sempurnaan dari engine scanner
itu sendiri. Misal

pada contoh kasus Engine String scanner (–Engine scanner yang
menyeleksi string-string dari file text-based), bila diterapkan rule 3
out of 5 (– bila AV menemukan 3 dari daftar 5 string kategori
malicious) maka AV akan memberikan bahwa file terindikasi sebuah thread
yang positif. Padahal file tsb nyatanya tidak menimbulkan efek
berbahaya bila dijalankan atau dieksekusi. Kesalahan scanning macam ini
lazim ditemukan untuk file-file *.VBS, *.HTML, dll. Untuk penggunaan
engine checksum sangat banyak ditemui di beberapa software AV lokal.
Checksum yang lazim digunakan diantaranya CRC16, CRC32, MD5, dll.
Dikarenakan mudah untuk diimplementasikan. Engine ini sendiri bukannya
tanpa cacat, Checksum bekerja dengan memproses byte demi byte dari
sebuah file dengan sebuah algoritma tertenu (– tergantung dari jenis
checksum yang digunakan) sehingga menghasilkan sebuah format tertentu
dari file tsb. Contoh checksum menggunakan CRC32 dan MD5 :

* calCrc = CRC32(file_name_and_path)

* calMD5 = MD5(file_name_and_path)

Maka isi dari string calCrc adalah 7AF9E376,
sedangkan untuk MD5nya adalah 529CA8050A00180790CF88B63468826A. Perlu
diketahui bila virus menerapkan rutin yang mengubah byte tertentu dari
badan virus tsb setiap kali maka penggunaan engine checksum ini akan
kurang optimal karena bila 1 byte berubah dari file maka checksum juga
akan berubah.

Mari kita belajar membuat sebuah AV sederhana, yang diperlukan :

1. Software Visual Basic 6.0

2. Sedikit pemahaman akan pemograman Visual Basic 6.0

3. Sampel file bersih atau virus (– opsional)

First#

Sekarang kita akan belajar membuat sebuah rutin sederhana untuk :

- Memilih file yang akan dicek

- Membuka file tersebut dalam mode binary

- Memproses byte demi byte untuk menghasilkan Checksum

Buka MS-Visual Basic 6.0 anda, lalu buatlah sebuah
class module dan Form dengan menambahkan sebuah objek Textbox,
CommonDialog dan Command Button. (Objek CommonDialog dapat ditambahkan
dengan memilih Project -> COmponent atau Ctrl-T dan memilih
Microsoft Common Dialog Control 6.0) Ketikkan kode berikut pada class
module (kita beri nama class module tsb clsCrc) :

================= START HERE ====================

Private crcTable(0 To 255) As Long 'crc32

Public Function CRC32(ByRef bArrayIn() As Byte, ByVal lLen As Long, Optional ByVal lcrc As Long = 0) As Long

'bArrayIn adalah array byte dari file yang dibaca, lLen adalah ukuran atau size file

Dim lCurPos As Long 'Current position untuk iterasi proses array bArrayIn

Dim lTemp As Long 'variabel temp hasil perhitungan

If lLen = 0 Then Exit Function 'keluar fungsi apabila ukuran file = 0

lTemp = lcrc Xor &HFFFFFFFF

For lCurPos = 0 To lLen

lTemp = (((lTemp And &HFFFFFF00) \\ &H100) And &HFFFFFF) Xor (crcTable((lTemp And 255) Xor bArrayIn(lCurPos)))

Next lCurPos

CRC32 = lTemp Xor &HFFFFFFFF

End Function

Private Function BuildTable() As Boolean

Dim i As Long, x As Long, crc As Long

Const Limit = &HEDB88320

For i = 0 To 255

crc = i

For x = 0 To 7

If crc And 1 Then

crc = (((crc And &HFFFFFFFE) \\ 2) And &H7FFFFFFF) Xor Limit

Else

crc = ((crc And &HFFFFFFFE) \\ 2) And &H7FFFFFFF

End If

Next x

crcTable(i) = crc

Next i

End Function

Private Sub Class_Initialize()

BuildTable

End Sub

================= END HERE ====================

Lalu ketikkan kode berikut dalam event Command1_Click :

================= START HERE ====================

Dim namaFileBuka As String, HasilCrc As String

Dim CCrc As New clsCrc 'bikin objek baru dari class ClsCrc

Dim calCrc As Long

Dim tmp() As Byte 'array buat file yang dibaca

Private Sub Command1_Click()

CommonDialog1.CancelError = True 'error bila user mengklik cancel pada CommonDialog

CommonDialog1.DialogTitle = "Baca File" 'Caption commondialog

On Error GoTo erorhandle 'label error handle

CommonDialog1.ShowOpen

namafilbuka = CommonDialog1.FileName

Open namafilbuka For Binary Access Read As #1 'buka file yang dipilih dengan akses baca pada mode binary

ReDim tmp(LOF(1) - 1) As Byte 'deklarasi ulang untuk array, # Bugs Fixed #

Get #1, , tmp()

Close #1

calCrc = UBound(tmp) 'mengambil ukuran file dari array

calCrc = CCrc.CRC32(tmp, calCrc) 'hitung CRC

HasilCrc = Hex(calCrc) 'diubah ke format hexadesimal, karena hasil perhitungan dari class CRC masih berupa numeric

Text1.Text = HasilCrc 'tampilkan hasilnya

Exit Sub

erorhandle:

If Err.Number <> 32755 Then MsgBox Err.Description 'error number
32755 dalah bila user mengklik tombol cancel pada saat memilih file

================= END HERE ====================

COba anda jalankan program diatas dengan memencet
tombol F5, lalu klik Command1 untuk memilih dan membuka file. Maka
program akan menampilkan CRC32nya.

Second#

Kode diatas dapat kita buat menjadi sebuah rutin pengecekan file
suspect virus dengan antara membandingkan hasil CRC32nya dan database
CRC kita sendiri. Algoritmanya adalah :

- Memilih file yang akan dicek

- Membuka file tersebut dalam mode binary

- Memproses byte demi byte untuk menghasilkan Checksum

- Buka file database

- Ambil isi file baris demi baris

- Samakan Checksum hasil perhitungan dengan checksum dari file

Format file database dapat kita tentukan sendiri, misal :

- FluBurung.A=ABCDEFGH

- Diary.A=12345678

Dimana FluBurung.A adalah nama virus dan ABCDEFGH dalah Crc32nya. Jika
kita mempunyai format file seperti diatas, maka kita perlu membaca file
secara sekuensial per baris serta memisahkan antara nama virus dan
Crc32nya. Dalam hal ini yang menjadi pemisah adalah karakter '='.

Buat 1 module baru (– diberi nama module1) lalu isi dengan kode :

================= START HERE ====================

Public namaVirus As String, CrcVirus As String
'deklarasi variabel global untuk nama dan CRC virus Public pathExe as
String 'deklarasi variabel penyimpan lokasi file EXE AV kita

Public Function cariDatabase(Crc As String, namaFileDB As String) As Boolean

Dim lineStr As String, tmp() As String 'variabel penampung untuk isi file

Open namaFileDB For Input As #1 'buka file dengan mode input

Do

Line Input #1, lineStr

tmp = Split(lineStr, "=") 'pisahkan isi file bedasarkan pemisah karakter '='

namaVirus = tmp(0) 'masukkan namavirus ke variabel dari array

CrcVirus = tmp(1) 'masukkan Crcvirus ke variabel dari array

If CrcVirus = Crc Then 'bila CRC perhitungan cocok/match dengan database

cariDatabase = True 'kembalikan nilai TRUE

Exit Do 'keluar dari perulangan

End If

Loop Until EOF(1)

Close #1

End Function

================= END HERE ====================

Lalu tambahkan 1 objek baru kedalam Form, yaitu
Command button2. lalu ketikkan listing kode berikut kedalam event
Command2_Click :

================= START HERE ====================

If Len(App.Path) <= 3 Then 'bila direktori kita adalah root direktori

pathEXE = App.Path

Else

pathEXE = App.Path & "\\"

End If

CommonDialog1.CancelError = True 'error bila user mengklik cancel pada CommonDialog

CommonDialog1.DialogTitle = "Baca File" 'Caption commondialog

On Error GoTo erorhandle 'label error handle

CommonDialog1.ShowOpen

namafilbuka = CommonDialog1.FileName

Open namafilbuka For Binary Access Read As #1 'buka file yang dipilih dengan akses baca pada mode binary

ReDim tmp(LOF(1) - 1) As Byte 'deklarasi ulang untuk array # Bugs Fixed #

Get #1, , tmp()

Close #1

calCrc = UBound(tmp) 'mengambil ukuran file dari array

calCrc = CCrc.CRC32(tmp, calCrc) 'hitung CRC

HasilCrc = Hex(calCrc) 'diubah ke format hexadesimal, karena hasil perhitungan dari class CRC masih berupa numeric

If cariDatabase(HasilCrc, pathEXE & "DB.txt") Then 'bila fungsi bernilai TRUE

MsgBox "Virus ditemukan : " & namaVirus 'tampilkan message Box

End If

Exit Sub

erorhandle:

If Err.Number <> 32755 Then MsgBox Err.Description 'error number
32755 dalah bila user mengklik tombol cancel pada saat memilih file

================= END HERE ====================

Fitur AV sederhana ini dapat ditambahkan dengan
fitur process scanner, akses registry, real-time protection (RTP) dan
lain lain. Untuk process scanner pada dasarnya adalah teknik enumerasi
seluruh proses yang sedang berjalan pada Sistem Operasi, lalu mencari
letak atau lokasi file dan melakukan proses scanning. Fitur akses
registry memungkinkan kita untuk mengedit secara langsung registry
windows apabila akses terhadap registry (–Regedit) diblok oleh virus.
Sedangkan fitur RTP memungkinkan AV kita berjalan secara simultan
dengan windows explorer untuk mengscan direktori atau file yang sedang
kita browse atau lihat. Untuk ketiga fitur lanjutan ini akan dibahas
pada artikel selanjutnya.

Kesimpulan#

Tidak harus membeli software AV yang mahal untuk menjaga komputer kita
dari ancaman virus, kita bisa membuatnya sendiri dengan fitur-fitur
yang tak kalah bagusnya. Memang terdapat ketidaksempurnaan dalam AV
buatan sendiri ini, tetapi setidaknya dapat dijadikan pencegah dari
infeksi virus komputer yang semakin merajalela. Software AV sederhana
ini dilengkapi oleh engine scanner statis dan database definisi. Tidak
tertutup kemungkinan software AV ini ditingkatkan lebih advanced dalam
hal engine scannernya.

Artikel ini diambil dari sini ......
Untuk source code antivirusnya bisa dilihat di bagian sini

ARTAV 2.5 [NEW!]

2011-02-11T01:37:00.000-08:00

Akhirnya dari ARTAV Team dapat kembali MemUpdate ARTAV yang telah mencapai Versi 2.5

Pada Update Kali ini bnyk sekali perubahan dibandingkan versi dahulu,seperti Perubahan Tampilan Utama (Interface),Penetapan Warna Hitam sebagai Warna Default,Perbaikan Uninstall Program,dan Perubahan Pada Code Double Checksum (CRC32 & MD5)

Untuk Lebih lengkapnya kita lihat dibawah ini :

Perbaikan Fitur :

*Perbaikan Detect Virus Trojan Generik NOD32

*Perbaikan Uninstall Tidak Bersih

*Perbaikan ART-AnKey,Algorithma Code untuk mengelabui Keylogger

Penambahan Fitur :

*Penambahan 53 Variant Virus

*Penambahan Form Laporan Pemeriksaan

*Perubahan Tampilan Utama

*Menetapkan Hitam Sebagai Warna Default ARTAV

Mau Belajar Buat Blogger / Modifnya??

2011-02-08T06:55:00.001-08:00

CALL ME, SILAHKAN COMMENT DI SINI

Internet Download Manager 6.5 + patch

2011-02-07T03:42:00.000-08:00

Internet Download Manager (IDM) kini telah meluncurkan kembali update terbarunya, yaitu Internet Download Manager v.6.5, tentunya dengan versi terbaru ini IDM akan tambah sangat mantab di banding dengan versi sebelumnya, jadi bagi para pecinta IDM pasti tidak mau ketinggalan kan dengan versi terbarunya ini,,, baiklah kalo begitu, langsung saja deh kita tengok ke TKP, cikidot...

berikut screensootnya:

untuk cara menggunakan patchnya sebagai berikut:

1. instal IDM 6.5, setelah selasai jangan jalankan dlu.
2. Copykan file "IDM 2011-6.04.xx Patch.exe" ke folder Internet Download Manager.
(Default : C:\Program Files\Internet Download Manager.
3. Jalankan patch dan klik tombol PATCH.(Win vista/7 run as Administrator)
4. Masukkan nama depan sobat - OK,
5. Masukkan juga nama belakang - OK,
6. Trus email sobat - OK.
7. Setelah patching selesai, exit patchnya.
8. Buka IDM sobat, klik menu bar Help, klik About IDM
9. dan IDM sobat sudah full version.

baiklah, bagi para pecinta IDM, buruan, langsung di download saja deh...

Download IDM 6.5

Alternatif Download IDM 6.5 via Softpedia

Patch IDM 6.5

Paswor Rar : www.qiqyshare.com

Semoga Bermanfaat...

Extreme COPY [COPY FILE SUPER CEPAT]

2011-02-07T03:40:00.000-08:00

SUMBER: www.qiqyshare.com

Extreme Copy Pro 1.5.1 Full Crack merupakan software yang bisa sobat pergunakan untuk meningkatkan kecepatan mengcopy data pada PC sobat. Software ini mampu meningkatkan kemampuan mengcopy data hingga 20-120% kecepatan copy standar pada windows sobat. Software ini akan menghemat waktu sobat karena akan mengoptimalkan kemampuan RAM PC sobat dalam mengcopy suatu file.Software ini juga akan menampilkan kecepatan PC sobat saat mengcopy file. saya sendiri sudah mencobanya sob, dan hasilnya Very2 Amazing bagt sob... saya mencoba mengcopy folder yang berisi lagu2 dengan ukuran 680 Mb hanya butuh waktu 43 detik saja... hem... bnr2 menakjubkan sob... penasaran... baiklah, kita langsung saja deh... cikidot..
brikut screenshoot bukti bahwa crack berjalan dengan baik...

untuk cara penggunaan cracknya,
1. buka configuration
2. hilangkan centang pada as explore`s default copiying

3. copy and paste crack ke direktory intalan, default( c:/program file/easersoft/extreme copiying)
4. Done
5. buka about, selamat extrem sobat sudah registered
6. setelah itu ke configuration lagi, dan centang kembali as explore`s default copiying.

baiklah kalo begitu, bagi sobat blogger yang ingin mencicipi software ini silhkan saja di download di link berikut ini..

Download Extreme copy

Download Crack

Pasword : www.qiqyshare.com

Nb: disini saya hanya sekedar share saja, apabila ada hal yang tdk di dingnkan setelh pemakain software ini saya tidak ikut tanggungjawab yah... Just For Sharing..:-)

Mengembalikan Windows 7 Yang Sudah Kena Not-Genuine (Tidak asli)

2011-02-07T03:38:00.000-08:00

Bagi yang suka pake Windows 7 bajakan kemungkinan akan menemukan kondisi seperti ini, ciri-ciri yang bisa dilihat yaitu dari tampilan desktop yang berwarna hitam dan tidak bisa diganti dengan tampilan lain, selain itu juga akan ada notification bahwa windows yang anda gunakan merupakan non-genuine dan anda akan diminta untuk mengaktivasi kembali segera untuk dapat menikmati fitur-fitur windows

Hal ini disebabkan tool yang umumnya disebut Seven Loader. tool tersebut bisa digunakan untuk mengaktivasi windows 7 bajakan agar bisa dikenali seolah original dan bisa mendapatkan update-update seperti layaknya versi legal.akhirnya microsoft berusaha memberantas tool semacam ini dengan mengeluarkan update khuus. jika terinstal maka segala program aktivasi dan tool crack lainnya akan dikenali dan windows akan mendeteksinya sebagai not-genuine.

Bagi yang sudah terlanjur terinstal, karena automatic update yang aktif atau karena tidak sengaja, jangan terburu-buru berfikir untuk menginstal ulang kompi ayau lapy anda, karena ada trik agar windows anda bisa kembali normal. caranya dengan memanfaatkan tool yaitu InfiniteRearm4, dan juga perlu RemoveWAT yang bisa didapatkan disini. WAT sendiri merupakan kependekan dari Windows Activation Technologies yang menangani proses-proses aktivasi windows. jadi sesuai dengan nama softwarenya, RemoveWAT akan membuang service atau proses yang berjalan yang berhubungan dengan aktivasi

Caranya tidak sulit, pertama kali jalankan dulu IR4 yang sudah di download tadi, hal ini berguna untuk mengembalikan windows anda menjadi genuine kembali namun dalam versi trial selama 30 hari, jika masih bingung menggunakanny bisa liat vedionya juga disini. setelah itu gunakan RemoveWAT tadi. setelah semua selesai, maka Windows anda akan teraktivasi dan tidak takut lagi untuk update-update selanjutnya.

Tingkat keberhasilannya hampir 100% lho, semoga bermanfaat bagi agan-agan sekalian. . .

Menggeraka Pointed Mouse Dengan Keyboard

2011-02-07T03:17:00.001-08:00

kali ini, saya akan share tentang Tips Menggerakkan Pointer Mouse Menggunakan Keyboard, sobat blogger dapat mengontrol pointer mouse sobat dengan tombol keyboard di semua versi windows. Ketika mouse sobat blogger berhenti bekerja, Sobat blogger dapat mengaktifkan fitur keyboard ini untuk menyelesaikan pekerjaan penting sobat... Keyboard mouse ini dapat melaksanakan semua tugas yang sama seperti mouse normal.

Caranya ikuti langkah-langkah yang diberikan untuk mengaktifkan keyboard mouse :
1. Untuk mengaktifkan fitur ini, tekan tombol Alt+Shift+NumLock sekaligus dan Anda akan menerima sebuah kotak MouseKey kecil.

2. Klik tombol OK untuk menjalankannya.

3. Lihat di System Try ada lambang Mouse. Klik 2x untuk masuh ke Settings, jika Anda ingin menyesuaikan pengaturan kursor mouse detail.

4. Berikut kotak dialog baru akan muncul dengan judul Pengaturan MouseKeys, sekarang Anda dapat mengelola pengaturan kecepatan mouse semua contoh kursor mouse, percepatan dan beberapa fitur lainnya dan klik OK.

Biar lebih nyaman mengggerakkan pointer mouse menggunakan keyboardnya, ubah pengaturan Top Speed menjadi High dan Acceleration menjadi Fast.

Sekarang menggunakan Numeric Keypad yang ada disebelah kanan keyboard untuk menggerakkan pointer mouse.

tombol 1,2,3,4,6,7,8 dan 9 digunakan untuk memindahkan kursor mouse ke arah yang berbeda.
tombol 5 dan Enter digunakan sebagai tombol mouse klik.
tombol + untuk klik kanan mouse
Klik tombol NumLock untuk menonaktifkan fitur ini keyboard mouse.

Untuk menutup, hilangkan tanda check pada pilihan Turn On Mouse Keys seperti pada gambar diatas.

G36C BY http://czskintown.multiply.com

2011-02-07T02:54:00.001-08:00

Include :
Sound
Sprites for scope
If u want more scope,click HERE

Download link

ANTIVIRUS TERBAIK 2011 VERSI PCMAG.COM

2011-02-07T02:51:00.000-08:00

Walaupun tahun 2010 belum berakhir, akan tetapi banyak vendor Antivirus yang sudah menerbitkan produk mereka masing-masing untuk versi tahun berikutnya, 2011. Hal ini dikarenakan persaingan yang sangat ketat antar sesama perusahaan Antivirus dunia, yang pada kenyataannya memang mereka ingin memiliki posisi yang lebih unggul dibandingkan produk-produk lain yang beredar di pasaran.

Jika Anda merupakan orang-orang yang peduli akan keamanan dan perlindungan terhadap PC kesayangan Anda dengan memberikannya sebuah program keamanan yang terbaik, maka di sini lah Anda patut mencoba beberapa produk keamanan terbaik. Di bawah ini ada beberapa daftar Antivirus terbaik untuk tahun 2011 yang diterbitkan oleh PCMAG.COM.

Untuk Antivirus Premium Edition ada:
1. Ad Aware Pro Internet Security 8.3

2. BitDefender Pro Antivirus 2011
3. Kaspersky Antivirus 2011
4. Outpost Antivirus Pro 7.0
5. Panda Antivirus Pro 2011
6. Webroot Antivirus with Spy Sweeper 2011

Untuk Antivirus Free Edition ada:

1. Digital Defender Antivirus Free 2.0
2. Immunet Protect Free Antivirus 2.0
3. Malwarebytes Antimalware 1.46
4. Panda Cloud Antivirus 1.1

Lihat rincian lebih detail dari masing-masing Produk Antivirus di PCMAG.COM

Mozila Menjadi Google Chrome

2011-02-07T02:49:00.001-08:00

sobat blogger pasti tau dong Mozilla Firefox dan Google Chrome. Dan saya yakin sudah banyak yang mengetahui cara ini. Namun sekedar sharing di hari minggu, temen saya ada yang bertanya "Bisa ga ya tampilan firefox diubah kaya Google Chrome?" Saya sempet bingung, pas main di forum sebelah eh nemu nih caranya. Hasilnya lumayan mirip google chrome lho. Yang belum tahu dan pengin mencoba, masuk aja.

Caranya ternyata mudah, hanya memasangkan beberapa AddOns, maka Firefox anda akan berubah menjadi Google Chrome. Selengkapnya begini.

1. Buka Mozilla Firefox anda

2. Pilih ADDONS - Lalu GET ADDONS

3. Search : "Chromifox" (tanpa petik)

4. Lalu pilih desain yang anda inginkan. (sebenernya yang pling mirip dengan Google Chrom adalah Chromifox Extreme Carbon, tapi saya lebih suka Chromifox Extreme karena warnanya sesuai dengan blog saya.)

5. Lalu ADD TO FIREFOX - ACCEPT AND INSTALL - INSTALL

6. Setelah diinstal, JANGAN RESTART FIREFOX-nya. Biar sekalian restartnya.

7. Search lagi : "FoxiFrame" - maka akan muncul FoxiFrame Basic

8. ADD TO FIREFOX - INSTALL

9. Nah, sekarang RESTART FIREFOX-nya.

Setelah di RESTART maka masih ada MENUBARnya,, (File, Edit, View, dkk). Biar tambah mirip kan harus di sembunyikan tuh. Caranya begini :

Pilih VIEW - TOOLBAR - HILANGKAN Ceklist MENUBAR
Dan jika ingin memunculkannya kembali, maka tekan ALT + T lalu pilih VIEW - TOOLBAR - Ceklist Kembali MENU BAR.

HASIL AKHIRNYA SEPERTI INI

Gmn sob, Mudah bukan?

Jika Ingin Lebih MANTAP, sobat blogger bisa menambahakan ADDONS lain. Misalnya :

CHROMIN FRAME - Menghilangkan Title Bar Mozilla
OMNIBAR - Agar ADDRESS juga berfungsi sebagai SEARCH ENGINE
STATUS BAR - Agar bisa melihat proses download di Status Bar
SPEED DIAL - Menambilkan Thumbnail preview dari web yang sering dikunjungi

SELESAI DEH ENJOY AJA!!!!

5 Antivirus Kecil Untuk Flash Disk

2011-02-07T01:01:00.000-08:00

5Antivirus Kecil Untuk Flash Disk[Masih Ada Banyak Lagi Sih........

USB Flash Drives memainkan peran terbesar dalam transfer virus dari satu komputer ke komputer lain. Virus autorun.inf yang terkenal adalah salah satu yang biasanya ditemukan di dalam flash drive yang dieksekusi segera setelah itu terlampir dan membuka. Virus jenis ini tidak berbahaya tetapi menjengkelkan karena salinan dirinya ke semua drive permanen sistem.

Bahkan setelah pengamanan ketat melalui Antivirus Software ini virus kecil yang bagus berhasil memasukkan sebagian besar waktu tanpa terdeteksi. Tapi ada solusi untuk ini – aplikasi khusus untuk memonitor dan menghentikan virus flash drive ini secara real time.

Daftar di bawah adalah 5 terbaik dari aplikasi antivirus kecil yang khusus dikembangkan untuk menghentikan semua jenis worm USB. Semua ini adalah ringan, otomatis dan dapat dijalankan secara paralel dengan antivirus standar dan penuh dan tidak memperlambat komputer Anda sama sekali.

1. Naevius USB Antivirus 2.1

Yang sangat populer dan antivirus kecil. Naevius USB Antivirus adalah alat yang melindungi semua pen drive Anda dari autorun-virus. Membutuhkan ruang yang sangat kecil di memori dan scan drive secara real time.

Download

2. TrustPort U3 Antivirus 2010 5.0

Antivirus U3 TrustPort dirancang khusus untuk perlindungan U3 smart drive. Ketika diinstal pada drive U3 smart, itu terus memonitor file yang sedang disalin ke drive, sehingga tidak ada kode berbahaya dapat disimpan di atasnya. Mengakses perlindungan lebih lanjut dilengkapi dengan on-demand scanning.

Pengguna dapat memindai file, folder atau drive pada komputer host. Jika file terinfeksi yang ditemukan, maka akan ditangani sesuai dengan pengaturan pengguna. Hal ini dapat diganti namanya, dipindahkan ke karantina atau dihapus. Untuk memastikan tingkat keamanan tertinggi, perangkat lunak udergoes update reguler dari internet.

Download

3. USB Flashdrive Autorun Antivirus 1.0

USB Flash Drive secara otomatis mendeteksi Autorun Antivirus, menutup dan menghapus virus dari drive Anda. Perangkat lunak ini menyediakan perlindungan masa depan dengan imunisasi sistem; dengan menginstal file autorun khusus yang tidak dapat menghapus virus.

Dilengkapi dengan built-in beberapa alat seperti Task Manager untuk mengelola program berjalan, Autorun Suppressor untuk autorun sementara menonaktifkan sementara memasukkan drive dan fitur Sistem perbaikan untuk memperbaiki fungsi sistem yang rusak oleh virus. Ini tidak memerlukan update tanda tangan sehingga sangat sempurna untuk komputer offline.

Download

4. USB Drive Antivirus 3.0

USB Drive Antivirus menyediakan 100% perlindungan yang scan secara otomatis, blok dan menghapus virus USB, trojan, dan kode berbahaya. Ia juga bekerja untuk kartu memori.
Download

5. USB Drive Antivirus

Mendeteksi file jahat dengan kecepatan yang baik. Opsi Memindai tidak terbatas pada drive USB – Anda dapat memindai hard drive juga.

Download

bagaimana, kalo tertarik silahkan di download aja deh,,:-)

Sumber Qiqy Share.com

CARA NYURI PULSA VIA mig33

2011-02-06T05:38:00.000-08:00

Kalian Ikuti Cara Di Bawah ini :

1. kamu masuk aplikasi mig33 ( http://wap.mig33.com/join.php ) Tanpa Tanda Kurung , ( Gunakan Browse Mobile Anda ) Jangan Lewat PC Atau Warnet ( Notebook ) Anda,. Tanpa Tanda Kurung ,

2. Setelah Itu , Langsung Aja regristrasi ( Daftar ), kamu isi username, password, dan no hp (no. Korban yg akan kamu sedot pulsanya),

3. lalu submit, setelah itu kamu login dan pilih remind me later,

4. lalu kamu plih invite friend no tujuan kamu isi “TP(spasi)no.kamu(spasi)jumlah pulsa”( Tanpa Tanda Kutip ) , Yang Ingin Kamu Curi Dari Si Korban ,

( Yang Mesti Di Ingat , Misalkan Kamu Ingin Mencuri Pulsa Si Korban Sebanyak 50.000 , Akan Tetapi Pulsa Si Korban Hanya 20.000 , Maka Akan Terjadi Erorr ,Itu Di Karenakan Pulsa Si Korban Tidak Mencukupi Untuk Kamu Curi )

Contoh 1 :

Sebut Aja Kamu Dengan Nama Si ” A ” ( Si Pelaku Pencurian )

Dan Sebut Aja Si Korban Yang Ingin Kamu Curi Pulsa’a , Si ” B “

SI “A” —- > TP 08565555555 50000

Keterangan : Brati Si A Mencuri Pulsa Dari No Hp 08565555555 Sebanyak Rp.50.000

Si “B” —– > Sementara Si ” B ” Pulsa’a Hanya Rp. 20.000

Apabila Kaya Seperti Di Atas , Kemungkinan Akan Terjadi Erorr ,Karena Pulsa Si ” B ” Hanya Rp.20.000 Sedangkan Si ” A ” Mencuri Rp.50.000 Dari Si “B” Yang Terjadi Adalah Pulsa Si B Tidak Mencukupi Target Yang Di Minta Oleh Si “A” , Maka Terjadilah Erorr …. Tapiiii … Apabila DewiFortuna Di Pihak Anda Maka Cara Seperti ini pun Berhasil …. Maka Pulsa SI “B” Yang Rp.20.000 Tidak Tersisa Sepeserpun Untuk Si “B”.

Nah … Untuk Melakukan Yang Benar Dan Tidak Terjadi Erorr,,,, Gw Punya Tips …

Ikuti Tips Di Bawah Ini :

1. Lo Mesti Tau Betul Orang Yang Ingin Lo Curi Pulsa’a ( Untuk Percobaan ) Lo Curi Pulsa Ade Lo Atau Kaka Lo Sndri

2. Lo Mesti Pulsa Dari Ade Atau Kaka Lo Yang Ingin Di Curi

3. Ini Di Karena Agar Lo Tau Betul Dan Yang Diperlukan Dalam Teknik Ini adalah Mengira-Ngira Isi Pulsa Si “B”. Jangan Sampai Melebihi Dari Target Yang Lo Minta Ke Si “B”

Misalkan : Misal Si B Mempunyai Pulsa Rp. 30.000 , Maka Yang Harus Lo Lakuin Adalah , Jangan Melebihi Pada Saat Mencuri Pulsa Si B , Cara Seperti ini Kemungkinan 99,9% Sukses , Di Bandingkan Cara Sebelumnya ,

Contoh Yang Benar :

TP 085555555 29500 ( Maka Yang Akan Terjadi Adalah Pulsa Si “B” Hanya Kamu Sisain Rp.500 Perakkkk ….. )

Keterangan :

TP —– > Perintah Tranfer Pulsa Untuk Operator M3 , Untuk kartu lain sesuaikan kode transfernya.

085555555 —– > Nomer Hp Si Korban Yang Ingin Kamu Curi

29500 ——– > Jumlah Pulsa Yang Ingin Kamu Curi.

Sumber : http://ilmukomputer.com/

BUAT KARTU YUGIOH SENDIRI [ONLINE]

2011-02-06T04:50:00.001-08:00

Nah,, ini juga seru! Bikin kartu Yu-Gi-Oh! sendiri sesukamu!

WAh,,
jadi kita bisa ciptain kartu Trap card

Iyalah,, nah, coba liat ni, logo blog gwa

"Gila! efeknya MANTAP"

Hehehe,, gag usah sirik,

pasti banyak yang penasaran
juga ama foto ini bikinnya
gimana.

Duh posenya aneh ea,,
biarin,,, buat contoh aja khan gakpapa,

Nah,, bikinnya,
kalian samperin ni situs:

YuGiOhCardMaker.net

NANTI MUNCUL KYK GINI:

Gw tadinya pengen jelasin satu-satu tentang form itu,
tapi berhubung
waktu gw gag banyak,
gw jelasin pake gambar aja.
ntar kalian juga pasti ngerti sendiri

nah gampang kan ..............

Membuat Browser Dengan Visual Basic 6

2011-02-06T04:47:00.001-08:00

Mungkin sudah ada yang tau cara buat Web Browser pada VB 6, tapi bagi yang belum tau nih gw kasih tutorial nya.karena saya ada tugas jadi saya posting lagi :D
Yang perlu disiapkan yaitu Yang penting ada komputer sama Visual Basic 6.

Buat project baru, lalu ke “Project” pada menu.
Klik components, dan cari component “Microsoft Internet Controls,” checklist dan klik “Apply” lalu “Close.”
Klik icon yang telah di add pada tools window dan buat kotak kira2 sebesar yang diinginkan (Ini akan menjadi dasar web browser anda, usahakan jangan terlalu kecil agar dapat menaruh button2).
Buat “textbox” , ini akan menjadi URL bar anda.
Buat 4 tombol command yang akan menjadi tombol Go, Back, Forward, dan tombol Refresh. (Ubah captions sesuai urutan yaitu Cmdgo, Cmdback, CmdForward, dan CmdRefresh).

Ok sekarang kita masuk ke coding:
Tombol Back

Private Sub cmdback_Click()
WebBrowser1.GoBack
End Sub

Tombol Forward

Private Sub Cmdforward_Click()
WebBrowser1.GoForward
End Sub

Tombol Go

Private Sub cmdgo_Click()
WebBrowser1.Navigate (Text1.Text)
End Sub

Tombol Refresh

Private Sub cmdrefresh_Click()
WebBrowser1.Refresh
End Sub

Berikut adalah membuat suatu URL menjadi HomePage kita

Private Sub Form_Load()
WebBrowser1.Navigate ("http://buzzt.web.id")
End Sub

Ini akan mengubah text box anda menjadi URL yang sedang anda browsing.

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Text1.Text = (WebBrowser1.LocationURL)
Form1.Caption = (WebBrowser1.LocationName)
End Sub

Selesai., Selamat Mencoba. tapi saya juga baru mau nyoba.. ini dari temen saya :p

Membuat Logo PMI Dengan Corel Draw

2011-02-06T04:22:00.000-08:00

Batasan Umur : SU (Semua Umur)
Kategori : Desain dan Edit foto, Tutorial,
Tahu PMI kan? itu loh organisasi Palang Merah Indonesia...

Kini kita bisa membuat logonya dalam proram Corel Draw apaaaapuun..!! nih tutorialnya :

1. Siapkan Corel draw, (Saya menggunakan Corel Draw X4 Portable)

2. Buatlah sebuah Lingkaran dengan garis tepi warna merah.
Ganti warna outline pen (Garis tepi) menjadi Merah/red
(Corel Draw terkadang tidak memiliki warna merah menyala yang sesuai, namun kita dapat menggunakan warna merah buatan Corel)
pertebal width nya menjadi 3.00 mm.

3. Duplicate (Ctrl + D) menjadi enam lingkaran. lalu susun menjadi sebuah formasi bintang/bunga :

Lalu di susun...

4. Block ke 6 lingkaran tersebut, lalu klik "Weld"

5. Kurang lebih hasilnya seperti ini :

6. sekarang kita ciptakan tanda "+" . carannya cukup mudah, buatlah satu persegi lalu duplicate, dan putar salah satu perseginya :

7. atur kesesuaian ukuran keduanya, lalu letakkan tanda tambah kedalam bunga tadi.

8. Bisa ditambahkan tulisan (Saya sarankan fontnya Arial Black).

9. Selesai.

Like posting ini jika anda menyukainya. (Tombol like ada diatas posting ini)

BY: http://www.alfitbm.blogspot.com

COREL DRAW 11

2011-02-06T04:15:00.000-08:00

CorelDRAW 11 introduces Symbols to its repertoire, too, so you can save and reuse drawing elements in a clip-board-style library. Using symbols saves considerable file space, which can be particularly important when drawing Web graphics.

Corel Photo-Paint 11 is to bitmap editing what CorelDRAW is to vector drawing. In many ways a competitor to Adobe Photoshop, the new version of Photo-Paint includes more improvements for Web artists. You can now slice images into a number of small parts to aid quick downloads and create rollovers for buttons and image maps, so they appear differently when pointed to or clicked. The program also supports JPEG 2000 files, so you can save your images in this new high-compression format.

Size : 19MB

DOWNLOAD:

LINK 1

HOTFILE

LINK 2
4Shared

10 IKAN TERCANTIK DI DUNIA

2011-02-06T02:41:00.000-08:00

10. African Cichlids

Ikan ini diucapkan sebagai "Sick-Lids". Ikan ini ditemukan di 3 danau di Afrika: Malawi, Tanganyika, dan Victoria. Spesies yg ada di Danau Victoria jumlahnya kurang beragam dan kurang berwarna-warni dibandingkan dengan lainnya. Biasanya mereka tumbuh hingga 6-7 inchi, dengan pengecualian untuk Spesies Frontosoa, yg bisa tumbuh sampe 12-14 inchi. Ikan2 ini adalah ikan2 air tawar yg bisa dengan gampang dipiara di akuarium rumahan. Selain di Afrika, ada juga spesies ikan ini yg idup di perairan Amazon, tapi ukurannya lebih besar dan lebih agresif dari yg di Afrika. Iyalah, Amazon gitu

9. Parrotfish

Dinamakan demikian karena bentuk mulutnya yg mirip paruh burung. Ikan ini menggunakan mulutnya yg seperti paruh itu untuk memecah dan memakan invertebrata kecil yg hidup di daerah koral. Biasanya mereka akan memakan utuh2 bebatuan koral atau pasir2 laut lalu mengunyah invertebrata yg ada di dalamnya, lalu membuang sisa2nya.

8. Regal Tang

Ini ikan yang ada di Finding Nemo bukan sih? Btw, ikan ini tergolong dalam family Surgeonfish, yg memiliki pisau kecil dari zat kapur yg dapat disembunyikan di depan sirip ekornya. Pisau kecil ini digunakan terutama untuk sistem pertahanan dalam menghadapi predator.

7. Coral Beauty

Ikan ini tergolong dalam Angelfish. Ikan2 ini bisa disimpan dalam akuarium2 rumahan dan dapat bertahan hidup dengan baik di dalam habitatnya (hardy).

6. Flame Angel

Ikan ini memikiki hubungan dekat dengan Coral Beauty. Sifatnya sama seperti Coral Beauty, tapi sifatnya tidak 'seteguh' Coral Beauty.

5. Koi

Ada banyak variasi warna dari ikan koi (sekitar 100an). Koi dapat memiliki warna oranye, merah, putih, keemasan, atau hitam. Beberapa penggemar koi rela membayar ribuan dolar untuk seekor koi hanya untuk mencari pola warna koi yg langka.

4. Moorish Idol

Ikan ini tergolong susah untuk dipiara di akuarium rumahan, dan juga sangat mahal harganya.

3. Lionfish

Ikan ini disebut juga Zebrafish. Tulang belakangnya itu memiliki racun yg sangat menyakitkan dan cukup efektif. Orang yg memeliharanya pastinya harus ati2 kalo mo membersihkan akuariumnya

2. Discus

Ikan ini merupakan spesies ikan air tawar yg mungkin merupakan ikan air tawar yg paling cantik. Harganya juga mahal banget: anakan yg panjangnya 3 inchi berkisar antara $50-$80.

1. Mandarinfish

Ada 2 varietas dari spesies ini: Mandarinfish standar dan Psychedelic Mandarin. Yang standar biasanya memiliki pola dan warna yg lebih bagus dibanding Psychedelic. Harganya ga lebih dari $20 per ekor, tapi yg jadi masalah adalah makanannya. Mereka cuma memakan mikro-invertebrata yg hidup di bebatuan koral. Untuk bisa memeliharanya di akuarium rumah, kita perlu memiliki bebatuan koral yg cukup di dalam akuarium selama sebulan untuk membiarkan si ikan beradaptasi dengan lingkungan barunya.

sumber :http://terselubung.blogspot.com/2011/02/10-ikan-tercantik.html

Tempat Untuk Download Sofware Gratis

2011-02-06T02:39:00.001-08:00

Software hal pokok di komputer kita. Komputer cuma sistem operasi dan hardware doang tidak akan menyenangkan. Tetapi jika sudah banyak software untuk kita gunakan akan menjadi menyenangkan dan berguna. Langsung saja ini dia daftarnya :

Itu adalah situs untuk download software asli (bukan bajakan). Dan tidak ada cracknya. Kalau mau beli dari situ juga bisa. Selanjutnya untuk download software yang bajakan (included crack).

http://www.tagddl.com/
http://katz.cd/ < Recomended
http://www.dl4all.com < Banyak yang sudah tahu
http://phazeddl.com/
http://indofiles.org/

Tempat download torrent :

Kalau kita butuh software apa saja buka saja situs-situs di atas. Search dan download. Untuk yang bajakan kerugian aku tidak bertanggung jawab. Yang jelas aku cuma mau share saja.

BY: http://bagosbanget.web.id

Cara Menghilangkan Pesan Windows Is Not Genuine Di Windows 7

2011-02-06T02:39:00.000-08:00

Sebenarnya saya sudah lama sekali ingin share Tips Menghilangkan Pesan Windows Is Not Genuine Di Windows 7 ini, tapi bingung juga soalnya nggak ada komputer yang bersedia di jadikan korban. Sampai ada teman datang ke rumah katanya windows nya jadi aneh, pas saya lihat ternyata seperti yang di harapkan, windows nya terkena sidak dari microsoft (akhirnyaaa, senang di atas penderitaan orang lain,, haha).

Okeiii, langsung aja kita mulai Tips Menghilangkan Pesan Windows Is Not Genuine Di Windows 7 nya. Disini saya menggunakan tool yang bernama WGA Remover Chew v0.9.

Tampilan windows 7 yang terkena sidak bajakan microsoft (layar desktop menjadi hitam).

Download tool WGA Remover Chew v0.9.
Klik apply untuk memulai proses.

Tunggu hingga keluar pesan instal sukses
Restart (otomatis)
Selesai

Hasilnya :
Bagaimana??? Semoga artikel ini membantu sobat blogger yang mengalami permasalahan seperti ini.

INFO : Untuk windows XP sudah pernah saya bahas, silahkan klik disini.

Password : www.remo-xp.com
Download WGA Remover Chew v0.9

Lin Jon & East Side Boy - Get Low [EDIT VERSION]

2011-02-06T02:17:00.000-08:00

NE LAGUNYA SAYA EDIT ADA + + EDITNYA LA NE DOWNLOAD AJA HERE

ADA EFFECT:
-DOUBLE SOUND
-DLL

Face Off Max

2011-02-06T01:32:00.000-08:00

DOWNLOAD PROGRAM + CRACK/PATCH

Pick Your Picture

select your body

SHARE YOU PHOTO

Key Features

Easy to Use
Amazingly simple and easy interface allows anyone to be an artist.
Real Skin Blending
Make headswaps look better than other photo editors.
Fantastic Templates
Hundreds of cool templates designed by professional artists.
Easy to Share
Perfect for Email, myspace, facebook, ecards, fakes, jokes and many more!

LEBIH LANJUT DISINI

TUTORIAL CRACK BY: http://www.qiqyshare.com

1. instal FaceOff Max,

2. copy and paste file patch ke direktori instalan. default "C:\Program Files\FaceOffMax.

3. jalankan patch dengan menklik tombol patch... tunggu sampai proses selesai..

4. disable koneksi internet sobat,

5. buka program faceoff max, dan klik "Enter SN"

6. jalankan keygen, dan klik generate..

7.copy and paste SN dari keygen faceoff max, dan klik OK.

8. maka sobat akan mendapatkan intruksi untuk pengaktivan secara manual, sobat klik saja "manual"

9.kemudian copy code yang ada pada "mechine code"

10. paste kan code tadi ke bagia "code" di keygen, da klik "generate"...

11. kemudian masukkan kode unlock yang telah muncul di keygen ke "unlock code".

12. selesai..

UPDATE VIRTUAL DJ 7 CRACK

2011-02-06T01:17:00.000-08:00

SILAHKAN DOWNLOAD DI SANA SINI SONO MANA AJA

PENJELASAN VIRTUAL DJ KAN ADA DI SINI

UPDATE, FEBRUARY 7nd

TERJADI KESALAHAN PADA FILE JADI KAMI MENGGATINYA DENGAN LINK BARU
TEBAK SAJA:
.................................................................................
....................................................................................
....................................................................................
....................................................................................
....................................................................................

GOM PLAYER + SKINS

2011-02-06T00:51:00.000-08:00

SETUP
SKIN

GOM Encoder is...

Free: Try out most of GOM Encoder's multitude of features in the free trial version.

Quick and Easy: Intuitive user-interface and built in conversion presets make GOM Encoder easy for anyone to use. Not only that, it also boasts faster conversion speeds than other video converters. Users with multi-core processors can use the multi-conversion function to convert several files simultaneously.

Multiple Formats: Supporting a comprehensive array of input and output formats, GOM Encoder enables you to convert almost any video, even those you couldn't with other conversion software.

Multiple Devices: GOM Encoder supports output formats for a wide variety of devices such as iPad, iPod, iPhone, PSP, PS3, Zune, Blackberry, Android, Mobile Phones, and more.

Advance Functionality: Adding subtitles, extracting audio, embedding your own logo, and creating snapshot previews are only a few of the advanced features that come standard in GOM Encoder.

Media Player Support: Easily view converted videos with GOM Player and other media playback software.

Macam - Macam Tools

2011-02-05T23:20:00.000-08:00

Tools BY: centricle.com

Kumpulan Game Java Part 1

2011-02-05T23:07:00.001-08:00

Main Game HP DI COMPUTER

2011-02-05T22:43:00.000-08:00

Saat saya mempunyai banyak game hape (dalam bentuk java atau biasa disebut jar/jad, saya ingin memainkannya pada pc/komputer saya..)

Dengan semakin meningkatnya jaman dan era modernisasi sekarang ini, maka handphone sebagai salah satu media komunikasi juga sudah mengalami perubahan dalam perkembangannya. Selain untuk telepon, SMS ataupun MMS, handphone saat ini sudah dilengkapi dengan fitur-fitur tambahan yang semakin memanjakan penggunanya. Fitur audio musik seperti MP3 player, Radio, Kamera, Download dan modem, Movie Player, dll yang dijejalkan dalam handphone sudah menjadi trend vendor pabrikan handphone saat ini. Salah satu fitur handphone yang disukai banyak orang adalah fitur game. Game pada handphone terdiri dari banyak versi, yang notabene harus support atau kompatibel pada fitur handphone yang kita punya agar dapat memainkannya.

Aplikasi game yang banyak digandrungi saat ini adalah berbasis Java dan Symbian. Dari beberapa platform OS game tersebut memiliki pasarnya masing-masing. Nah, langsung aja ya. Game berbasis Java atau yang sering disebut Java 2 Micro Edition (J2ME). Anda dapat dengan mudah mendownloadnya untuk dapat Anda mainkan. Sebagai aplikasi game, sepanjang yang saya temui, file-file game berbasis Java kebanyakan gratis.

Game berbasiskan aplikasi Java atau J2ME kebanyakan menggunakan *jar execution file atau *jad sebagai format file installer pada handphone. Untuk handphone yang kompatibel dengan aplikasi Java, anda dapat mencari sendiri atau biasanya sudah tercantum pada fitur handphone tersebut (tidak dibahas).

Tetapi masalahnya jika anda sudah mendapatkan banyak game dari internet kemudian memasukkannya kedalam ponsel anda...dari seabrek game yang ada di internet ataupun judul index download yang kita dapat, tidak mungkin khan kita install semuanya ke dalam handphone kita. Bisa-bisa handphone kita hang, macet, dll, saya ndak bisa bayangkan, he3 …

Anda pernah ke konter pengisian game untuk ponsel? bagaimana mereka lancar dan mudah mencoba

Untuk itu saya ambil contoh, biasanya di jasa pengisian ringtone atau game. Pada komputernya biasanya sudah dilengkapi dengan emulator game untuk mencoba game yang akan diinstal pada customer. Paling tidak seperti iklan download-download berbayar yang sering kita temui pada majalah atau tabloid, kontent game yang ditawarkan pasti diikutsertakan dengan picture preview sebagai tampilan dan gambaran game tersebut. Tetapi dalam emulator kita dapat mengetest game tersebut pada PC dan memainkannya untuk memilih mana yang cocok untuk kita install pada handphone kita.

Untuk Emulator Java Game, ada beberapa emulator java game yang saya tahu.

SJ-Boy Java Emulator

Untuk Emulator Java Game, ada beberapa emulator java game yang saya tahu.

SJ-Boy Java Emulator

Emulator ini GNU license alias gratis tis ... karena developernya SUN Java.

Filenya dapat Anda download dihttp://depositfiles.com/files/1757774

nb:

Emulator harus kita install dulu atau ada juga yang sudah jadi berbentuk aplikasi program *exe. Pertama-tama kita jalankan dulu program emulatornya kemudian open aplikasi game yang akan kita coba. Atau kita juga dapat memilih file game java yang akan kita coba kemudian klik kanan open with SJ-Boy Java Emulator. Atau setelah aplikasi SJBoy sudah run, kita bisa klik dua kali file *jar yang akan kita mainkan.

Skin yang digunakan pada SJBoy Java emulator dapat diganti-ganti sesuai dengan versi emulator yang kita install.

Midp2Exe

Install dan double klik pada file *jar yang akan kita coba mainkan.

Filenya dapat Anda download di

Midp2Exe Java Emulator

Link Download Yang lain Di Rapidshare

Setelah game yang kita mainkan dengan emulator java pada PC sudah kita lakukan dan game yang kita cari sudah kita dapatkan. Kamu dapat transfer file installer aplikasi game tersebut melalui media akses kabel data, bluetooth ataupun infrared.

Alternative links yang bisa Anda coba :

Game Magic From Fun Mobile, Link Download klik Sini
Java emulator play at PC, Link Download klik Sini
MidpX Emulator Java, Link Download klik Sini
Untuk Nokia.
S60 Platform SDK for Symbian OS, for Java™ MIDP allows Java™ developers to quickly and efficiently run and test Java applications. Link Download klik Sini

Semoga bermanfaat.(dari berbagai sumber.. :)