PESAN MISTERIUS DARI MS WORD

Belajar VB 6.0
* buka visual basic anda, pilih yang "standart exe", coz pilian yg laen tu buat para suhu. (dan saya bukan suhu...he...he...he...)
* buat project beserta isinya dengan spesifikasi sbb:

1. Project : prjJalangkung klik project anda, lalu edit nama project anda pada properties windows (sebelah kanan bawah, kolom pertama) dengan nama prjJalangkung (defaultnya project1), anda akan menemui file dengan nama prjJalangkung.vbp. ingat, ekstensi filenya adalah vbp

2. Form : frmJalangkung, caranya klik form, lalu edit nama form pada properties windows dengan nama frmJalangkung, anda akan menemui file dengan nama frmJalangkung.frm. ingat, ekstensi filenya adalah frm

3. Kontrol : kontrol yang diperlukan adalah timer, lihat sisi kiri (pada component toolbox, bergambar jam beker). timer ini digunakan untuk menampilkan status scanning. masukkan kontrol timer pada form, kemudian pada properti timer, ubah Nama (kolom name) menjadi tmrKetik. Pada kolom Enabled, ubah nilainya menjadi False. pada kolom Interval, isi nilainya menjadi 500 (artinya timer akan aktif setiap setengah detik). pada kolom Tag, isi dengan kata "Hallo teman...jangan takut. aku hanya ingin kamu tahu kalau aku adalah anggota dari perkumpulan cracker/hacker2 keren di http://indocracker.wetpaint.com" (pesan boleh anda ubah sesuai keinginan anda)

4. oh ya, jangan lupa atur properti form pada properties windows, kolom Visible menjadi False (ni biar formnya g keliatan alias Surprise.......!!!!!)

5. Double click form anda, and masukkan vbscript yang berwarna merah di bawah ini:

'deklarasi variabel nilai
Dim nilai As Integer

Private Sub tmrKetik_Timer()
On Error Resume Next
nilai = nilai + 1
'mengirimkan nilai teks per huruf
SendKeys Mid(tmrKetik.Tag, nilai, 1)
'jika teks sudah diketik semua maka proses dihentikan
If nilai = Len(tmrKetik.Tag) Then
tmrKetik.Enabled = False
nilai = 0
End If
End Sub

Private Sub Form_Load()
'mendaftarkan variabel ms word
Dim msword
'menjalankan aplikasi ms word
Set msword = CreateObject("word.basic")
msword.appshow
'membuat file ms word baru
msword.filenew
'mengaktifkan tmrKetik
tmrKetik.Enabled = True
End Sub

* Simpan project beserta formnya. untuk mencoba script anda, tekan ctrl + F5. jika berhasil, anda akan melihat ms word terbuka, dan menulis apa yang anda isi pada tag timer....(kereeeeeen)

* Nah supaya program jadi2an anda (siluman kalee..) bisa berjalan pada komputer korban, maka anda harus meng-compile project anda. caranya : buka project anda, klik menu file pilih Make NamaProjectAnda.exe

* So, anda sudah mempunyai file exe hasil kreasi anda sendiri, dan siap menuju TKP (huuu......sereeeem)