Rabu, 28 Januari 2009

Trik Mempercepat Windows XP

Dari hasil sharing dengan teman-teman, saya akan sedikit berbagi tentang mempercepat komputer kita, pada dasarnya komputer kita lambat di karenakan banyaknya program yang kita instal di komputer kita, salah satu cara untuk mempercepat Booting Screen, Loading2 aplikasi, dll. kita bisa memanfaatkan program Notepad… anda Copy Paste Saja Script dibawah ini.. Save dengan extention Vbs


1. Mempercepat Loading Aplikasi

dim firman
masuk()
sub masuk()
set firman = wscript.CreateObject(”wscript.shell”)
keterangan = “Masukkan nilai delay yang Pengen kamu masuKin:” & vbcrlf &_
“JangkauAn Angka: 100 sampai 20000 Tidak BoLeh Lebih apalagi Kurang” & vbcrlf &_
“[BagusNya Sih:0 Byar Lbih CepEt]” & vbcrlf & vbcrlf &_
“** Buatan Anak manusia Bukan anak Setan…He,,he,,LP3I Metos **”

tanya = inputbox(keterangan,”Percepat Windows” )
if tanya=”" then
msgbox “lo masukin Dulu Waktunya”
else
firman.RegWrite “HKEY_CURRENT_USER\Control Panel\Desktop\WaitToKillAppTimeout”,tanya,”REG_SZ”
msgbox “Delay dah di Ubah, coba ja di Test”,vbInformation,”Percepat windows”
end if
end sub

2. Mempercepat Control 1

dim firman
masuk()
sub masuk()
set firman = wscript.CreateObject(”wscript.shell”)
keterangan = “Masukkan nilai delay yang Pengen kamu masuKin:” & vbcrlf &_
“JangkauAn Angka: 100 sampai 20000 Tidak BoLeh Lebih apalagi Kurang” & vbcrlf &_
“[Lbih Kecil,Lbih CepEt KeluAr]” & vbcrlf & vbcrlf &_
“** Copy Right :firman_1989@yahoo.co.id **”

tanya = inputbox(keterangan,”Percepat Windows”,20000)

firman.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\WaitToKillServiceTimeout”,tanya,”REG_SZ”
msgbox “Beres dah, Tinggal Lo Test”,vbInformation,”Percepat windows”
end sub


3.
Mempercepat Control 2

dim firman
masuk()
sub masuk()
set firman = wscript.CreateObject(”wscript.shell”)
keterangan = “Masukkan nilai delay yang Pengen kamu masuKin:” & vbcrlf &_
“JangkauAn Angka: 100 sampai 20000 Tidak BoLeh Lebih apalagi Kurang” & vbcrlf &_
“[Lbih Kecil,Lbih CepEt KeluAr]” & vbcrlf & vbcrlf &_
“** Copy Right :firman_1989@yahoo.co.id **”

tanya = inputbox(keterangan,”Percepat Windows”,20000)

firman.RegWrite “HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Control\WaitToKillServiceTimeout”,tanya,”REG_SZ”
msgbox “Registry Lo dah Ke RubAh,, Lo Test NdiRi”,vbInformation,”Percepat windows”
end sub

3. Mempercepat Delay

dim firman
masuk()
sub masuk()
set firman = wscript.CreateObject(”wscript.shell”)
keterangan = “Masukkan nilai delay yang Pengen kamu masuKin:” & vbcrlf &_
“JangkauAn Angka: 0 sampai 400 Tidak BoLeh Lebih apalagi Kurang” & vbcrlf &_
“[BagusNya Sih:0 Byar Lbih CepEt]” & vbcrlf & vbcrlf &_
“** Buatan Anak manusia Bukan anak Setan…He,,he,, **”

tanya = inputbox(keterangan,”Percepat Windows”,5)
firman.RegWrite “HKEY_CURRENT_USER\Control Panel\Desktop\MenuShowDelay”,tanya,”REG_SZ”
msgbox “Delay dah di Ubah, coba ja di Test”,vbInformation,”Percepat windows”
end sub

Keterangan:

Cpetin Aplikasi = BWat Ktika lo buka program aplikasi byar lebih cpEt,, Aplikasi2 yg ga penting ga perlu ke Buka NglAmain Loading Doangan.
Cpetin Delay = Bawaan dari sononYa Wktu delay a/ 400, Cape deh NunggunyA,,, MendingaN lo CPetiN Okey……
CpetinControL1 = ni dia yang paling bikin KeseL ktika Lo main Komputer dari sonoNya aja 20000 , (artinya bukan 20000 menit tapi 20000 Mili-mili-mili Detik. tapi tetep ja lebih Cepet Lebih Enak Okey…
CpetinControlke2= Sma ma yang di atasnya, Gw ga tau kLw spesipikasi FungsiNya,,, Tapi intinya Cuma bikin Kesel nungGu Doang…..
Sekian Dulu Yach Triknya

Tidak ada komentar: