̿̿̿ ̿' ̿'\̵͇̿̿\з=(•̪●)=ε/̵͇̿̿/'̿'̿ ̿✺Bandung Event Production✺ ̿̿̿ ̿' ̿'\̵͇̿̿\з=(•̪●)=ε/̵͇̿̿/'̿'̿ ̿
 
IndeksCalendarPencarianPendaftaranLogin
Similar topics
Pencarian
 
 

Display results as :
 
Rechercher Advanced Search
Latest topics
» Akses Citra Online Di Global Mapper
Thu Dec 11, 2014 10:19 am by Admin

» Georeferencing Arcgis 10
Thu Dec 11, 2014 9:53 am by Admin

» Membuat Layout Arcgis 10
Thu Dec 11, 2014 9:42 am by Admin

» Membuat simbol sendiri Di Arcgis 10
Thu Dec 11, 2014 9:26 am by Admin

» Belajar Arcgis 10
Thu Dec 11, 2014 8:55 am by Admin

» Kristalografi Dan Mineralogi
Thu Dec 11, 2014 8:39 am by Admin

»  Pemetaan Topografi
Thu Dec 11, 2014 8:19 am by Admin

» Menghitung luas poligon menggunakan MapSource
Wed Dec 10, 2014 4:20 pm by Admin

» Berbagi tentang GIS
Wed Dec 10, 2014 4:14 pm by Admin

Navigation
 Portal
 Indeks
 Anggota
 Profil
 FAQ
 Pencarian
Event Live Concert
 
 
https://i73.servimg.com/u/f73/16/13/88/00/th/nafs11.jpg

Share | 
 

 REKAYASA AUTO-WRITING KOMPUTER

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Admin
Admin


Jumlah posting : 400
Join date : 28.01.11

PostSubyek: REKAYASA AUTO-WRITING KOMPUTER   Sun Apr 17, 2011 1:19 am

REKAYASA AUTO-WRITING KOMPUTER

Computer dapat menulis sendiri??
---------------------------------------------------------------------
Saya akan memberikan gmn caranya computer dapat menulis,
tanpa harus kita yang mengetik pada keyboard.

1 . Buka start, All program, Accessories, pilih notepad.
2 . Copy dan Paste source code di bawah ini kedalam notepad tadi :

Code:
On Error Resume Next
Dim wshell
dim anharku
Set wshell = CreateObject("wscript.shell")
anharku = "Sayang kapan kamu kembali ke indonesia? apa kamu kembali dengan hatimu yang dulu?"
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 . Simpan dengan nama 'File.txt' (tanpa tanda kutip).
4 . Ubah nama 'File.txt ' menjadi 'File.vbs' (tanpa tanda kutip)
5 . Klik dua kali pada 'File.vbs' (Open), dan tunggu proses akan berjalan.

Kembali Ke Atas Go down
http://andriewo.indonesianforum.net
 
REKAYASA AUTO-WRITING KOMPUTER
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» RPM auto gauge seken for sale
» WTS SPION LIPAT OTOMATIS/AUTO RETRACTABLE MIRROR KIT XENIA/AVANZA, RUSH/TERIOS, INOVA DAN FORTUNER
» Poles Motor di Glare Automall
» Remodeling Option - Cat Ulang Ninja
» Cover Jok, Kaca Film, Audio - Murah - Bandung

Permissions in this forum:Anda tidak dapat menjawab topik
andre wo :: Software & Driver :: Scurity Anti Virus-
Navigasi: