Force to Show hidden file by Script
Assalamualaikum orang Malaysia....Hari ni aku akan bg skit tip la....camner nak bukak hidden file/system file.....bende ni bergune bile nak buang virus yang korang tau tempat die duduk.....tak payah pakai antivirus...korang pun boleh jadi antivirus system....HEBAT kan????
Let me show you the script
Message = "To work correctly, the script will close" & vbCR
Message = Message & "and restart the Windows Explorer shell." & vbCR
Message = Message & "This will not harm your system." & vbCR & vbCR
Message = Message & "Continue?"
X = MsgBox(Message, vbYesNo, "Notice")
If X = 6 Then
On Error Resume Next
On Error Resume Next
Dim WSHShell, n, p, itemtype, MyBox
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
itemtype = "REG_DWORD"
n = WSHShell.RegRead (p)
errnum = Err.Number
if errnum <> 1 then
WSHShell.RegWrite p, 2, itemtype
End If
If n = 2 Then
WshShell.RegWrite p, 1, itemtype
MyBox = MsgBox("Show Hidden Files and Folders are now ENABLED", 64, "Hidden Files and Folders")
End If
If n = 1 Then
WshShell.Regwrite p, 2, itemtype
MyBox = MsgBox("Show Hidden Files and Folders are now DISABLED", 64, "Hidden Files and Folders")
End If
Set WshShell = Nothing
On Error GoTo 0
For Each Process in GetObject("winmgmts:"). _
ExecQuery ("select * from Win32_Process where name='explorer.exe'")
Process.terminate(0)
Next
MsgBox "Finished." & vbcr & vbcr , 4096, "Done"
Else
MsgBox "No changes were made to your system." & vbcr & vbcr, 4096, "User Cancelled"
End If
camner nak aplikasikan code yang banyak gile ni?????
ha......senang aja itu.......korang kopi je kod diatas....pastu bukak notepad....paste.....pastu namekan file korang tu dengan name....showhiddenfile.vbs
pastikan korang tukar extension .txt tu dengan .vbs
camner nak pastikan....
bukak my computer......klik tool pilih folder option....pilih tab view......cari hide extension for known files....uncheck.....
OK.....let me explain this file operation...
file ni untuk korang bukak hidden file/system file yang sangat degil....tak mau nak tunjukkan diri die....sebab ape....virus tlh memanipulasikan registry windows supaya menutup semua hidden file termasuk diri die sendiri....jd......antivirus pun tak dpat locate kat mane die duduk........
biasenye...virus,malware atau worm duduk kat c:windows/system32.....jd.....korang sebagai antivirus....attack system32 sahaje....cari fail yang name die pelik2....and just shift + delete to permanently remove the culprit......
Amacam....??? blh wat tak.....sonang jo too......klu korang nak lebih lg....bukak website ni.....
http://www.kellys-korner-xp.com/xp_tweaks.htm Read More......
Let me show you the script
Message = "To work correctly, the script will close" & vbCR
Message = Message & "and restart the Windows Explorer shell." & vbCR
Message = Message & "This will not harm your system." & vbCR & vbCR
Message = Message & "Continue?"
X = MsgBox(Message, vbYesNo, "Notice")
If X = 6 Then
On Error Resume Next
On Error Resume Next
Dim WSHShell, n, p, itemtype, MyBox
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
itemtype = "REG_DWORD"
n = WSHShell.RegRead (p)
errnum = Err.Number
if errnum <> 1 then
WSHShell.RegWrite p, 2, itemtype
End If
If n = 2 Then
WshShell.RegWrite p, 1, itemtype
MyBox = MsgBox("Show Hidden Files and Folders are now ENABLED", 64, "Hidden Files and Folders")
End If
If n = 1 Then
WshShell.Regwrite p, 2, itemtype
MyBox = MsgBox("Show Hidden Files and Folders are now DISABLED", 64, "Hidden Files and Folders")
End If
Set WshShell = Nothing
On Error GoTo 0
For Each Process in GetObject("winmgmts:"). _
ExecQuery ("select * from Win32_Process where name='explorer.exe'")
Process.terminate(0)
Next
MsgBox "Finished." & vbcr & vbcr , 4096, "Done"
Else
MsgBox "No changes were made to your system." & vbcr & vbcr, 4096, "User Cancelled"
End If
camner nak aplikasikan code yang banyak gile ni?????
ha......senang aja itu.......korang kopi je kod diatas....pastu bukak notepad....paste.....pastu namekan file korang tu dengan name....showhiddenfile.vbs
pastikan korang tukar extension .txt tu dengan .vbs
camner nak pastikan....
bukak my computer......klik tool pilih folder option....pilih tab view......cari hide extension for known files....uncheck.....
OK.....let me explain this file operation...
file ni untuk korang bukak hidden file/system file yang sangat degil....tak mau nak tunjukkan diri die....sebab ape....virus tlh memanipulasikan registry windows supaya menutup semua hidden file termasuk diri die sendiri....jd......antivirus pun tak dpat locate kat mane die duduk........
biasenye...virus,malware atau worm duduk kat c:windows/system32.....jd.....korang sebagai antivirus....attack system32 sahaje....cari fail yang name die pelik2....and just shift + delete to permanently remove the culprit......
Amacam....??? blh wat tak.....sonang jo too......klu korang nak lebih lg....bukak website ni.....
http://www.kellys-korner-xp.com/xp_tweaks.htm Read More......