BERMAIN-MAIN DENGAN VBS SCRIPT

Wah, VBScript ? Apa itu ?

Nah, bagi yang belum paham bisa baca diartikel sebelumnya yaa...
ada disini kok. Pelajari dulu yang itu, nah baru yang ini hehe

Ceritanya, saya dapet tweet dari salah satu sahabat saya, yaitu si Hilmy Khairy, isinya gini :


@Hilmykhairy: @bimoekolaksono bim punya script2 aneh ga ?

@bimoekolaksono: Banyak hehe buat apa ? RT @Hilmykhairy: @bimoekolaksono bim punya script2

@Hilmykhairy: @bimoekolaksono yg gampang2 bae sih bim , yg dari notepad aja buatnya

@bimoekolaksono: Hahaha ok mi, bsk saya tulis diblog yaa RT @Hilmykhairy:
@bimoekolaksono yg gampang2 bae sih bim , yg dari notepad aja buatnya

@Hilmykhairy: kasih nama hilmykhairynya biar tenar dikit wkwkRT @bimoekolaksono ahaha ok mi, bsk saya tulis diblog yaa


Hahaha memang cukup menggelikan tweet yang terakhir tadi, nah saya 'kabulkan' permintaanmu mi... hehehe

Sekarang, kita akan membuat project VBScript yang bisa menulis kata-kata sendiri di notepad. Bagaimana cara membuatnya ? 

Pertama-tama siapkan notepad mu (tempatnya taukan ? hihihi)
Nah setelah itu, ketikkan script berikut :


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

strWord = "Nah..." & Chr(13) & _
"Tulisannya udah munculkan ?"

WShell.Run "notepad", 3
For x=1 to len(strWord)
Char = Mid(strWord,x,1)
Wscript.Sleep 100
WShell.SendKeys Char
Next



Penjelasan :

-> Kalimat yang diberi warna merah itu bisa anda rubah dengan kalimat sendiri kok

-> Pada script perintah WshShell.Run "notepad", 3
Nah, angka 3 diatas ada maksudnya, yaitu tampilan ketika dijalankan.
Bisa anda pilih dengan pilihan berikut,

1 = Normal, 2 = Minimize, 3 = Full Screen

-> Pada script perintah Wscript.Sleep 100
merupakan sebuah timer yang dihitung. (1 detik = 1000)

-> Perintah script & Chr(13) & _
merupakan perintah 'Enter' (gunanya seperti enter biasanya)

-> Pada strWord untuk menuliskan string kata-kata anda





Nah, fungsi yang digunakan pada project ini adalah SendKey Command yang berada pada VBScript.

Jadi, hasilnya adalah terbukanya notepad, dan komputer menulis sendiri perintah kalimat apa yang ditulis pada perintah :

strWord = "Nah..." & Chr(13) & _
"Tulisannya udah munculkan ?"

Oiya, jangan lupa save dengan ekstensi .vbs yaa !

Semoga Bermanfaat

Sumber: http://www.blogbimo.tk/2010/06/bermain-main-dengan-vbscript.html#ixzz1FzGZEp8O