All posts tagged script

Pernah ga sich msconfig kalian hilang atau ga bisa dibuka? Aa pernah ngalamin waktu mau setting konfigurasi di windows, mungkin ga bisa dibukannya disebabkan virus dll. Aa mau share buat sahabat yang kehilangan atawa ga bisa akses ke msconfig tanpa instal ulang dan software.

pertama sediain susu (hehe..biasanya kalo ada susu kalo ga ada ya kopi tubruk)

trus buka notepad bawaan dari windows, ketikin dech script dibawah ini :

On error resume next
Dim Reg
Set Reg = CreateObject(“WScript.Shell”)

if msgbox(“Kembalikan menu Run ?” , VbOkCancel) = VbOK then
Reg.RegWrite “HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoRun”, “0″, “REG_DWORD”
end if

if msgbox(“Enable Registry Tool ?” , VbOkCancel) = VbOK then
Reg.RegWrite “HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableRegistryTools”, “0″, “REG_DWORD”
Reg.RegWrite “HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableRegistryTools”, “0″, “REG_DWORD”
Reg.RegWrite “HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableRegedit”, “0″, “REG_DWORD”
Reg.RegWrite “HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableRegedit”, “0″, “REG_DWORD”
end if

if msgbox(“Perlihatkan file hidden” , VbOkCancel) = VbOK then
Reg.RegWrite “HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerAdvancedHidden”, “1″, “REG_DWORD”
End if

if msgbox(“Perlihatkan Ekstensi file” , VbOkCancel) = VbOK then
Reg.RegWrite “HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExplorerAdvancedFolderHideFileExtUncheckedValue”, “0″, “REG_DWORD”
Reg.RegWrite “HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHideFileExt”, “0″, “REG_DWORD”
End if

If msgbox (“Perlihatkan File Superhidden”, VbOkCancel) = VbOk then
Reg.RegWrite “HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExplorerAdvancedFolderSuperHiddenUncheckedValue”, “0″, “REG_DWORD”
Reg.RegWrite “HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedSuperHidden”, “0″, “REG_DWORD”
Reg.Regwrite “HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionRegisteredOwner”,”Wardana Pro”
End if

if msgbox(“Kembalikan menu Find” , VbOkCancel) = VbOK then
Reg.RegWrite “HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoFind”, “0″, “REG_DWORD”
End if

if msgbox(“Kembalikan menu Option” , VbOkCancel) = VbOK then
Reg.RegWrite “HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoFolderOptions”, “0″, “REG_DWORD”
End if

if msgbox(“Enable Taskmanager” , VbOkCancel) = VbOK then
Reg.RegWrite “HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr”, “0″, “REG_DWORD”
Reg.RegWrite “HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionpoliciessystemDisableTaskMgr”, “0″, “REG_DWORD”
End if

If msgbox(“Enable Dos Command”, VbOkCancel) = VbOk then
Reg.RegWrite “HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableCMD”, “0″, “REG_DWORD”
End if

If Msgbox (“Enable Log Off”, VbOkCancel) = VbOk then
Reg.RegWrite “HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoLogOff”, “0″, “REG_DWORD”
End if

If msgbox (“Enable Turn Off”, VbOkCancel) = VbOk then
Reg.RegWrite “HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoClose”, “0″, “REG_DWORD”
End if

If msgbox (“Munculkan semua drive”, VbOkCancel) = VbOk then
Reg.RegWrite “HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionPoliciesExplorerNoDrives”, “0″, “REG_DWORD”
End if

If msgbox (“Hilangkan Debugger program”, VbOkCancel) = VbOk then
Reg.Regwrite “HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionImage File Execution Optionscmd.exeDebugger”,”"
Reg.Regwrite “HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionImage File Execution Optionsinstall.exeDebugger”,”"
Reg.Regwrite “HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionImage File Execution Optionsmsconfig.exeDebugger”,”"
Reg.Regwrite “HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionImage File Execution Optionsregedit.exeDebugger”,”"
Reg.Regwrite “HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionImage File Execution Optionsregedt32.exeDebugger”,”"
Reg.Regwrite “HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionImage File Execution OptionsTaskMgr.exeDebugger”,”"
Reg.Regwrite “HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionImage File Execution Optionssetup.exeDebugger”,”"
End if

kalo udah di copas (copy dan paste) di save as dengan extension . vbs di beri nama terserah apa aj, contoh disini Aa ngasih namanya “obat_msconfig.vbs” (tanpa tanda petik).

tinggal  jalanin dech filenya klik aj 2x

Mudahkan….okay bro n sis silahkan dicoba

kalo pengen instannya bisa dowload disini dan langsung di jalanin

ingat sebelum bermain dengan registry backup dulu!

mungkin temen-temen semua udah pada tau trik ini…Aa ngasih buat yg blon tau aje…
Copy code bawah ini di notepad

For i = 1 to 1000000
Wscript.echo i
Next

trus save sebagai .vbs
Contoh Aa save sebagai iseng.vbs
setelah di save, lo coba double klik iseng.vbs tadi…
dia akan keluarkan popup..
dan lo bakalan cape untuk menekan sampai popup tu abis…hehehe….
berdasarkan code diatas tadi, lo terpaksa ngeklik (hmmm bahasanya ancur yaxx…sori) popup sebanyak 1000000…huhuhuhu..cape g???

Kalo mau terminate popup 2, buka task manager dan end process wscript.exe…

kalo mau  jahat lagi…copy saja.vbs tadi dalam C:\Documents and Settings\All Users\Start Menu\Programs\Startup

setiap kali masuk windows, lo terpaksa pencet 1000000 sampai popup 2 abih…kwkwkwkwkwkw….
semoga bermanfaat….(emang yg kaya gini bermanfaat??)

pokoknya silahkan dicoba