<![CDATA[Latest posts for the topic "Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) !"]]> /hvaonline/posts/list/28.html JForum - http://www.jforum.net Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! /hvaonline/posts/list/8074.html#46954 /hvaonline/posts/list/8074.html#46954 GMT Công cụ diệt Virus ( Thay thế TaskManager và RegEdit) ! /hvaonline/posts/list/8074.html#46983 /hvaonline/posts/list/8074.html#46983 GMT Công cụ diệt Virus ( Thay thế TaskManager và RegEdit) ! /hvaonline/posts/list/8074.html#47197 /hvaonline/posts/list/8074.html#47197 GMT Công cụ diệt Virus ( Thay thế TaskManager và RegEdit) ! /hvaonline/posts/list/8074.html#47240 /hvaonline/posts/list/8074.html#47240 GMT Re: Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! /hvaonline/posts/list/8074.html#47868 /hvaonline/posts/list/8074.html#47868 GMT Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! /hvaonline/posts/list/8074.html#47949 /hvaonline/posts/list/8074.html#47949 GMT Re: Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! /hvaonline/posts/list/8074.html#47960 /hvaonline/posts/list/8074.html#47960 GMT Re: Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! /hvaonline/posts/list/8074.html#48628 /hvaonline/posts/list/8074.html#48628 GMT Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! /hvaonline/posts/list/8074.html#49346 /hvaonline/posts/list/8074.html#49346 GMT Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! Option Explicit Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") Err.Clear On Error Resume Next WshShell.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Task Manager" WshShell.RegDelete "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\Disabl eTaskMgr" WshShell.RegDelete "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\Disabl eRegistryTools" WshShell.RegDelete "HKCU\Software\Policies\Microsoft\Internet Explorer\Control Panel\HomePage" WshShell.RegDelete "HKCU\Software\Yahoo\Pager\View\YMSGR_buzz\content url" WshShell.RegDelete "HKCU\Software\Yahoo\Pager\View\\YMSGR_Launchcast\content url" WshShell.RegDelete "HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\Window Title" WshShell.RegWrite "HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page", "http://www.tinhyeuxua.1phut.net", "REG_SZ" MsgBox "ĐẶT LẠI HOME PAGE THÀNH CÔNG !", 4096, "(¯`·_º-¦-MUSIC-|-HACK9X-|-ONLINE-¦-º_·´¯)"   Mèn đét ơi, cái này gần như file fix_reg.vbs hồi trước BKAV đưa ra để sửa vài thứ do virus yahoo Việt Nam tạo ra. Cài dòng đỏ đó do bạn này chế vào . Luột code của NTQ kìa. :D)]]> /hvaonline/posts/list/8074.html#49353 /hvaonline/posts/list/8074.html#49353 GMT Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! http://files.myopera.com/ngochoan2006/files/RegEdit.zip]]> /hvaonline/posts/list/8074.html#49354 /hvaonline/posts/list/8074.html#49354 GMT Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! /hvaonline/posts/list/8074.html#49805 /hvaonline/posts/list/8074.html#49805 GMT Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) !

ngochoan2003 wrote:
Cả nhà dùng song không cho ý kiến gì hả ? Góp ý vài câu cho nó Pro tí !!! 
Bác thử ngó qua đây tý nha http://www.caulacbovb.com/forum/viewtopic.php?t=6609&highlight=]]> /hvaonline/posts/list/8074.html#50769 /hvaonline/posts/list/8074.html#50769 GMT Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) !

PhamTienSinh wrote:

ngochoan2003 wrote:
Cả nhà dùng song không cho ý kiến gì hả ? Góp ý vài câu cho nó Pro tí !!! 
Bác thử ngó qua đây tý nha http://www.caulacbovb.com/forum/viewtopic.php?t=6609&highlight= 
Ngó rùi thế ông không thấy trong đó có tên tui à ! :mrgreen: ]]> /hvaonline/posts/list/8074.html#52352 /hvaonline/posts/list/8074.html#52352 GMT Re: Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! /hvaonline/posts/list/8074.html#52436 /hvaonline/posts/list/8074.html#52436 GMT Re: Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! /hvaonline/posts/list/8074.html#52641 /hvaonline/posts/list/8074.html#52641 GMT Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! /hvaonline/posts/list/8074.html#53298 /hvaonline/posts/list/8074.html#53298 GMT Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! /hvaonline/posts/list/8074.html#53643 /hvaonline/posts/list/8074.html#53643 GMT Re: Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! http://files.myopera.com/ngochoan2006/files/TaskManager.zip để load về dùng.]]> /hvaonline/posts/list/8074.html#61781 /hvaonline/posts/list/8074.html#61781 GMT Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! Code:
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")
'Enable Task Manager
val = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
val2 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
itemtype = "REG_DWORD"
jobfunc = "Task Manager is 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

'Enable Regedit
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
Tương tự các bạn có thể fix các lỗi khác . gud luck!]]> /hvaonline/posts/list/8074.html#61790 /hvaonline/posts/list/8074.html#61790 GMT Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! /hvaonline/posts/list/8074.html#62088 /hvaonline/posts/list/8074.html#62088 GMT Re: Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! ghostshadow189 Wrote:
để mở lại regedit và taskmanager ko khó , bạn chỉ cần mở notepad , dán code sau lại , rồi save thành file .vbs Code:
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") 'Enable Task Manager val = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr" val2 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr" itemtype = "REG_DWORD" jobfunc = "Task Manager is 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 'Enable Regedit 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 
Tương tự các bạn có thể fix các lỗi khác . gud luck!  
Mở notepad , paste đoạn code sau vào, rồi save thành file .js có đơn giản hơn kô? :)) Code:
var Shell = new ActiveXObject("WScript.Shell"); Shell.RegWrite ("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\System\\DisableRegistryTools",0,"REG_DWORD"); Shell.RegWrite ("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\System\\DisableTaskMgr",0,"REG_DWORD"); 
Khóa Regedit và task manager bằng đoạn code sau rồi thử công dụng của những đoạn code trên nhé :))
var Shell = new ActiveXObject("WScript.Shell"); Shell.RegWrite ("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\System\\DisableRegistryTools",1,"REG_DWORD"); Shell.RegWrite ("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\System\\DisableTaskMgr",1,"REG_DWORD"); 
]]> /hvaonline/posts/list/8074.html#62157 /hvaonline/posts/list/8074.html#62157 GMT