Fungsi SendKey

dim WshShell,strWord,x,Char
set WshShell = CreateObject("Wscript.Shell")

strWord = "Loading..." & Chr(13) & _
"i'm sorry..telah menginfeksi komputer kamu..tapi kuhanya sebuah program" & Chr(13) & _
"Yang diciptakan untuk menyampaikan sebuah pesan kepada.." & Chr(13) & Chr(13) & _
"Seseorang yang tlah memberikan goresan luka dihati ini..THANKZ" & Chr(13) & _
"aku takkan melupakannya..tapi walaupun begitu aq masih bisa memaafkan.." & Chr(13) & _
"karena..cinta inilah yang bisa memaafkan..ku akan menunggumu" & Chr(13) & Chr(13) & _
" .::by : [fucker_lov3]::. "

WshShell.Run "notepad", 3 '<-- 1=normal, 2=minimize, 3=wide open For x=1 to len(strWord) Char = Mid(strWord,x,1) Wscript.Sleep 100 '<-- Timer WshShell.SendKeys Char Next ==================================== Simpan dengan .vbs lalu jalankan...

Diatas adalah bagaimana Fungsi itu akan berjalan (Autorun),,
WshShell.Run "notepad", 3 ====> akan membuka notepad secara otomatis lalu mengetikkan kata-kata di StrWord

Jadi script diatas seperti virus tapi bukan virus,,

Jika kalian tau n mengerti tinggal modif aja,,,