Program Mengetik Nama Teman Sendiri di Facebook

Posting kali ini saya akan mencoba membuat aplikasi yang mengetikkan nama teman kita secara otomatis di Facebook.com, fungsi ini berguna supaya kita tidak perlu repot-repot lagi menandai teman yang begitu banyak di facebook,

ok langsung saja,.

1. bukan notepad anda,.

2. Copy Pastekan Kode Berikut di Notepad,.

Kode:

WScript.Sleep 1000
WScript.Sleep 1000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 1000
WshShell.AppActivate "notepad"
WScript.Sleep 100
WshShell.SendKeys "@"
WScript.Sleep 100
WshShell.SendKeys "a"
WScript.Sleep 200
WshShell.SendKeys "{enter}"
WScript.Sleep 200
WshShell.SendKeys " "
WshShell.SendKeys "@"
WScript.Sleep 100
WshShell.SendKeys "a"
WScript.Sleep 200
WshShell.SendKeys "{enter}"
WScript.Sleep 200
WshShell.SendKeys " "
WshShell.SendKeys "@"
WScript.Sleep 100
WshShell.SendKeys "a"
WScript.Sleep 200
WshShell.SendKeys "{enter}"
WScript.Sleep 200
WshShell.SendKeys " "
WshShell.SendKeys "@"
WScript.Sleep 100
WshShell.SendKeys "a"
WScript.Sleep 200
WshShell.SendKeys "{enter}"
WScript.Sleep 200
WshShell.SendKeys " "
WshShell.SendKeys "@"
WScript.Sleep 100
WshShell.SendKeys "a"
WScript.Sleep 200
WshShell.SendKeys "{enter}"
WScript.Sleep 200
WshShell.SendKeys " "

3. Save dengan nama apa saja Misal (fbtyping.vbs) dengan format .vbs

4. Setelah Selesai buka Halama Facebook anda, masuk ke kolom Status, pastikan kursor sudah siap mengetik di kolom status,.

5. minimaze kembali halaman facebook,

6 klik kanan program yang telah kita buat tadi > open with vbs sript

7. langusng buka halaman facebook anda,. tunggu sekitar 2 detik,. Lihat Apa yang terjadi,.