CODE 1 do x = 1 WHILE x <= 1 message = msgbox("Click OK to Close this box", x = x + 1) wend loop CODE 2 Dim fso, ws, file, APP_PATH Set ws = WScript.CreateObject("WScript.Shell") APP_PATH = """C:\Program Files\Internet Explorer\iexplore.exe""" ws.run APP_PATH do set shl = createobject("wscript.shell") shl.sendkeys "I eat donkey balls" wscript.sleep 8000 loop
simpan dalam bentuk vbs,
lalu buka aja,
CODE 1 akan muncul box tapi ga bisa ditutup,
CODE 2 akan muncul explorer dan akan muncul pencarian I eat donkey..."
sumber : http://www.youtube.com/watch?v=XjLF4-XUH_A
Saturday, January 18, 2014
Script Lucu
Subscribe to:
Post Comments
(
Atom
)
0 comments :
Post a Comment
mohon koreksinya apabila salah (CMIIW), silahkan berkomentar dengan baik, penulis tidak bertanggung jawab atas apa yang anda sampaikan, jadi silahkan anda bertanggung jawab dengan apa yang anda sampaikan, terima kasih telah berkunjung, semoga bermanfaat [ baca disclaimer]