กระทู้นี้ถูกตั้งเมื่อวันที่ 24  เมษายน  พ.ศ. 2551, 03:53:51  ซึ่งมีอายุนานกว่า 100 วัน
ดังนั้นเราจึงได้ปิดการตอบในกระทู้นี้ (เพื่อป้องกันการขุดกระทู้ หรือ ปั่น)
ระบบล็อคกระทู้ที่มีอายุเกิน 100 วัน!

---

ก็อบโคดนี้ใส่ notepadแล้วเซพนามสกุล .vbsแล้วรันเลยงับ

'Enable/Disable Registry Editing tools
'© Doug Knox - rev 12/06/99
'This code may be freely distributed/modified as long as it remains free of charge
'http://www.icpug.org.uk/national/features/030607fe.htm
'Edited by PatheticCockroach - http://patheticcockroach.com

Option Explicit
'Declare variables
Dim WSHShell, rr, rr2, MyBox, val, val2, ttl, toggle
Dim jobfunc, itemtype

On Error Resume Next

Set WSHShell = WScript.CreateObject("WScript.Shell")
val = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
val2 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
itemtype = "REG_DWORD"
jobfunc = "Registry Editing Tools are now "
ttl = "Result"

'reads the registry key value.
rr = WSHShell.RegRead (val)
rr2 = WSHShell.RegRead (val2)

toggle=1
If (rr=1 or rr2=1) Then toggle=0

If toggle = 1 Then
   WSHShell.RegWrite val, 1, itemtype
   WSHShell.RegWrite val2, 1, itemtype
   Mybox = MsgBox(jobfunc & "disabled.", 4096, ttl)
Else
   WSHShell.RegDelete val
   WSHShell.RegDelete val2
   Mybox = MsgBox(jobfunc & "enabled.", 4096, ttl)
End If


แล้วก้ตามลบ ไวรัสหรืออารายก้ตามที่เค้าให้ทำตามนะงับ

หวังว่าคงมีประโยชไม่มากก้น้อยนะครับ

เยี่ยมเลย ขอบคุณนะคับ