Thursday, 10.19.2017, 9:13 PM
Argo's Info
Welcome Guest | RSS
Main | Blog | Registration | Login
Site menu
Section categories
Hack [5]
Berbagai hal yang berhubungan dengan hacking.
Trik [10]
Berbagai trik yang ada dalam komputer maupun HP.
Ninja Saga [2]
Cheat, Bug
Statistics
Login form
Main » 2011 » September » 6 » Komputer Ngetik Sendiri.
1:12 PM
Komputer Ngetik Sendiri.
Mungkin pada heran lihat judul itu. Tapi emang bisa kok. Langsung aja ke TKP:
1. Buka Notepad (Start > All Programs > Accessories > Notepad)
2. Copy lalu Paste kode berikut:
On Error Resume Next
Dim wshell
dim anharku
Set wshell = CreateObject("wscript.shell")
anharku = "Komputer ngetik otomatis, buka alamat http://argosptr.ucoz.com/ jangan lupa kasih komentar ya!!!"
dim i
wscript.sleep 2000
wshell.Run "notepad",3
WScript.sleep 180
for i = 1 to len(anharku)
wshell.sendkeys mid(anharku,i,1)
wscript.sleep 50
next
wscript.sleep 1800
wshell.sendKeys "%+{F4}"
wscript.sleep 1000
wshell.sendKeys "~"
wscript.sleep 1800
wshell.sendKeys "v"
WScript.sleep 250
wshell.sendKeys "i"
WScript.sleep 250
wshell.sendKeys "s"
WScript.sleep 250
wshell.sendKeys "a"
WScript.sleep 250
wshell.sendKeys "n"
WScript.sleep 250
wshell.sendKeys "o"
WScript.sleep 250
wshell.sendKeys "y"
WScript.sleep 250
wshell.sendKeys "a"
WScript.sleep 1000
wshell.sendKeys "~"
WScript.sleep 250
wshell.sendKeys "~"
WScript.sleep 250
wscript.quit

3. Yang warna merah itu yang akan diketik komputer..
4. Simpan dengan nama blablabla.vbs (type : all files)
Category: Trik | Views: 24486 | Added by: argo | Rating: 0.0/0
Total comments: 0
Name *:
Email *:
Code *:
Visitor
Search
Calendar
«  September 2011  »
SuMoTuWeThFrSa
    123
45678910
11121314151617
18192021222324
252627282930
Entries archive
Site friends
  • Create a free website
  • Online Desktop
  • Free Online Games
  • Video Tutorials
  • All HTML Tags
  • Browser Kits
  • Copyright MyCorp © 2017
    Create a free website with uCoz