Code untuk mengetik sendiri.
Ditulis oleh Morphic di/pada Februari 14, 2009
Ini adalah code VBS agar bagaimana computer bisa mengetik sendiri.
Neh makan nih source code….
On Error Resume Next
Dim wshell
dim Lao
Set wshell = CreateObject(“wscript.shell”)
Lao = “Morphic Karta. Aku ingin secerdas Einstein, segigih Edison, dan secerdik Gates”
dim i
wscript.sleep 2000
wshell.Run “notepad”,3
WScript.sleep 1800
for i = 1 to len(Lao)
wshell.sendkeys mid(lao,i,1)
wscript.sleep 100
next
wscript.sleep 1800
wshell.sendKeys “%+{F4}”
WScript.sleep 1800
wshell.sendKeys “~”
WScript.sleep 1800
wshell.sendKeys “M”
WScript.sleep 250
wshell.sendKeys “o”
WScript.sleep 250
wshell.sendKeys “r”
WScript.sleep 250
wshell.sendKeys “p”
WScript.sleep 250
wshell.sendKeys “h”
WScript.sleep 250
wshell.sendKeys “i”
WScript.sleep 250
wshell.sendKeys “c”
WScript.sleep 1500
wshell.sendKeys “~”
WScript.sleep 250
wscript.quit
Diatas adalah contoh code untuk mengetik sendiri di VBS. Untuk di VB6 itu tergantung pada implementasi kalian sendiri yaoooo….
By: Morphic
Upload Virus to : (http://morphic.4shared.com)
Download Morphost Antivirus at (http://morphic.4shared.com) or (http://www.morphostlab.co.nr)
Download Morphost Database at (http://www.morphostlab.co.nr)
Morphic berkata
#Aa.Lil
thanks bro
#Malu-malu
VBS memang gokil
#Morse
pasti trus di-update!
Satrya [morse] berkata
Phic..
Mkasi bnyk ya…
Ok ntar ku imlementasikan ke av q..
Update trs dbmorph nya ya..
Maju trs programer medan – indonesia .
malu-malu berkata
Dah coba nih code…. siiiipp lah…
VBS memang gokil abies…
aa.LiL berkata
mantaabb bos… saya gak kepikiran bikin kode gitu,,,kereeenn..
Ijin publikasi Morphost bos di blog ku dah tayang..
thanks yow..
Morphic berkata
#Yudha
Oke sama-sama, Yud.
ya, aku tahu kok Morphost-ku dimuat di blog-mu…
Yudha berkata
morphic thanks ya AV mu udah tolong saya.. thx jg dah mau jawab testi di FS ku. suskes bwat morphost nya, maju terus basmi viri2 lokal. main ke blog saya, AV mu ada di blog saya..
http://yudha-arch.blogspot.com