Pesan Ketika Masuk Windows

Bosan dengan tampilan ketika akam masuk ke windows yang itu-itu aja, kalo mau ganti terpaksa harus nyari lagi themes atau skins. kalo buat computer yang specnya lumayan yahud sih ngga masalah, tapi buat yang spec nya pas-pas bisa nyoba script ini.

<job id="Message Windows Geblek">
<script language="VBScript">
set nb = WScript.CreateObject("WScript.Shell")
jdl ="JUDUL_FORMNYA"
jdlpsn =InputBox("Masukkan Judul Pesannya:",jdl)
isipsn =InputBox("Masukkan Pesannya:",jdl)

if jdlpsn<>""AND isipsn<>"" then
nb.RegWrite"HKLM\Software\Microsoft\Windows\CurrentVersion\"&_
"policies\system\legalnoticecaption",jdlpsn,"REG_SZ"
nb.RegWrite"HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\"&_
"policies\system\legalnoticetext",isipsn,"REG_SZ"
MsgBox"PESAN TELAH DI INSTAL",vbinformation,jdl
else
nb.RegWrite"HKLM\Software\Microsoft\Windows\CurrentVersion\"&_
"policies\system\legalnoticecaption","","REG_SZ"
nb.RegWrite"HKLM\Software\Microsoft\Windows\CurrentVersion\"&_
"policies\system\legalnoticetext","","REG_SZ"
MsgBox"PESAN TELAH DIHAPUS",vbinformation,jdl
end if

</script>
</job>

copy paste script tersebut ke notepad dan simpan(save) dengan format .wsf kemudian klik 2x aja. Kalo mau menghapus tinggal klik cancel maka akan kembali ke semula.

Selamat Menikmati !!!

Copyright © 2008 - FREE EDITIONS - is proudly powered by Blogger
Smashing Magazine - Design Disease - Blog and Web - Dilectio Blogger Template