Attention Message Regedit Before Star up Windows VBS

Bookmark and Share

Make with Notepad For Ekstensi VBS


Option explicit
Dim number1,Number2,enter, Operation, objShell,ObjReg
Set objShell = CreateObject("WScript.Shell")
Set ObjReg = CreateObject("WScript.Shell")
Operation= Inputbox ("Input Number, For Number 1 = Englis Langguage A 2 = bahasa indonesa B 3 =Malasiya C  4 = Spanyol D  5 = Jerman ")

Select Case Operation
Case "1"
msgbox"Inggris"
ObjReg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", "Attention"
ObjReg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText", "for the friend - a friend who uses this computer. I'm on guard it well, and existing data should not be deleted .. for it before I thank you very much .. I respect: the owner of this computer"

Case "2"
msgbox"Bahasa Indonesia"
ObjReg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", "Peringatan"
ObjReg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText", "bagi teman - teman yang menggunakan komputer ini. saya minta di jaga dengan baik, dan data yang ada jangan di hapus.. untuk itu sebelumnya saya ucapkan terima kasih banyak.. hormat saya :pemilik komputer ini"

Case "3"

msgbox"Melayu"
ObjReg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", "Peringgatan"
ObjReg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText", "bagi teman - teman yang menggunakan komputer ini. saya minta di jaga dengan baik, dan data yang ada jangan di hapus .. untuk itu sebelumnya saya ucapkan terima kasih banyak .. hormat saya: pemilik komputer ini"

Case "4"
msgbox"Spanyol"
ObjReg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", "advertencia"
ObjReg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText", "para el amigo - un amigo que utiliza este equipo. Estoy en guardia bien, y los datos existentes no deben eliminarse .. para que antes de que yo le agradezco mucho .. Respeto: el dueño de este equipo"
     

Case "5"

msgbox"Prnacis"
ObjReg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", "avertissement"
ObjReg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText", "pour l'ami - un ami qui utilise cet ordinateur. Je suis sur qu'il garde bien, et les données existantes ne devraient pas être supprimés .. pour cela avant que je vous remercie beaucoup .. Je respecte: le propriétaire de cet ordinateur"


Case Else
Msgbox "No input data"
msgbox "input number you choise 1.2.3.4.5"
End Select


save as a vbs extension (LegalNoticebebeckh.vbs)

{ 0 komentar... Views All / Send Comment! }

Posting Komentar