Code untuk mengetik sendiri

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….