Salin script program berikut ini dengan menggunakan Notepad lalu simpan dengan nama Bikin_Pesan.wsf, kemudian ubah Save as type yang tadinya Text Documents (*.txt) menjadi All Files. Jangan lupa untuk menonaktifkan fasilitas Word Wrap yang ada di Notepad selama pengetikan script program agar tidak terjadi kesalahan.
Code:
set natan = WScript.CreateObject(“WScript.Shell”)
judul= “[visit me @
JudulPesan = InputBox(“Masukkan Judul Pesan:”,judul)
IsiPesan = InputBox(“Masukkan Isi Pesan:”,judul)
if JudulPesan <> “” AND IsiPesan <> “” then
natan.RegWrite”HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion”&_
“policies\system\legalnoticecaption”,JudulPesan,”REG_SZ”
natan.RegWrite”HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion”&_
“policies\system\legalnoticetext”,IsiPesan,”REG_SZ”
MsgBox “Pesan Unik Sukses di install!”,vbInformation,judul
else
natan.RegWrite”HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion”&_
“policies\system\legalnoticecaption”,”",”REG_SZ”
natan.RegWrite”HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion”&_
“policies\system\legalnoticetext”,”",”REG_SZ”
MsgBox “Pesan Unik Sukses di hapus!”,vbInformation,judul
end if
Langkah selanjutnya carilah file yang bernama Bikin_Pesan.wsf. Kemudian Klik dua kali pada ikon file tersebut untuk menjalankannya. Pertama kali program akan meminta masukkan berupa judul pesan, masukkan judul pesan yang ingin ditampilkan, lalu klik tombol OK. Kemudian jendela kedua akan terbuka yang meminta masukkan isi pesan, masukkan isi pesan yang ingin ditampilkan setelah itu klik tombol OK. Pada tampilan terakhir akan muncul pesan yang memberitahukan bahwa pesan sukses di install. Coba sekarang logout kemudian lihat pesan unik yang tampil di layar login. Jika tidak menginginkan pesan unik tersebut muncul pada layar login, maka pesan tersebut dapat dihapus dengan cara menjalankan program Bikin_Pesan.wsf kembali lalu klik tombol Cancel di jendela yang meminta masukkan judul pesan dan isi pesan. Program diatas sangat aman dan telah diujicoba di sistem operasi Windows XP Professional Service Pack 2. Selamat mencoba!
0 comments:
Post a Comment