English | Vietnamese
 

banner

[Rule] Rules  [Home] Main Forum  [Portal] Portal  
[Members] Member Listing  [Statistics] Statistics  [Search] Search  [Reading Room] Reading Room 
[Register] Register   [Login] Login [  http  | https  ]
 
Forum Index Thảo luận virus, trojan, spyware, worm... Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) !  XML
  [Question]   Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! 16/03/2007 04:02:15 (+0700) | #1 | 46954
[Avatar]
 ngochoan2003
Member
[Minus]    0    [Plus]
Joined: 15/05/2003 14:09:36
Messages: 91
Offline
[Profile] [PM] [WWW]
Tui thấy mấy con Virus hiện nay thường có kiểu khóa mấy các tool của windows là RegEdit và Msconfig thêm luôn TaskManager để mình không thể Kill nó đang chạy hay xóa nó không cho khởi động cùng windows.
Vì thế tui viết 2 tool này để các bác kill cho nó chết luôn ( Phần mềm người Việt smilie) ) khỏi phải dùng phần mềm nước ngoài .
Các bác dùng thử và cho ý kiến.
<a href="http://files.myopera.com/ngochoan2006/files/Tool_Kill_Virus.zip">
Tai ve </a>
File khóa hoặc mở khóa Home page : http://files.myopera.com/ngochoan2006/files/Khoa_Mo%20homepage.vbs
[Up] [Print Copy]
  [Question]   Công cụ diệt Virus ( Thay thế TaskManager và RegEdit) ! 16/03/2007 05:22:48 (+0700) | #2 | 46983
[Avatar]
 superdream
Member
[Minus]    0    [Plus]
Joined: 22/09/2006 17:53:30
Messages: 20
Offline
[Profile] [PM] [Email] [Yahoo!]
Mình đang sử dụng thử chưa thể góp ý liền nhưng dù sao cũng cảm ơn bo nhé .
[Up] [Print Copy]
  [Question]   Công cụ diệt Virus ( Thay thế TaskManager và RegEdit) ! 17/03/2007 00:56:35 (+0700) | #3 | 47197
huanit
Member
[Minus]    0    [Plus]
Joined: 04/09/2006 18:49:20
Messages: 4
Offline
[Profile] [PM]
Mình đang Down về dùng thử xem sao.
[Up] [Print Copy]
  [Question]   Công cụ diệt Virus ( Thay thế TaskManager và RegEdit) ! 17/03/2007 04:52:54 (+0700) | #4 | 47240
[Avatar]
 ngochoan2003
Member
[Minus]    0    [Plus]
Joined: 15/05/2003 14:09:36
Messages: 91
Offline
[Profile] [PM] [WWW]
2 Tool này tui viết trên VB nếu bác nào cần Source của nó tui gửi cho.
[Up] [Print Copy]
  [Question]   Re: Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! 20/03/2007 03:48:44 (+0700) | #5 | 47868
Angel_A
Member
[Minus]    0    [Plus]
Joined: 04/12/2006 13:25:43
Messages: 91
Location: Dak Lak
Offline
[Profile] [PM] [WWW]
thanx bác nha! send cho mình source với hen!
www.ovo.vn
[Up] [Print Copy]
  [Question]   Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! 20/03/2007 09:34:17 (+0700) | #6 | 47949
[Avatar]
 ga_cong_nghiep_h5n1
Member
[Minus]    0    [Plus]
Joined: 12/03/2007 22:15:16
Messages: 21
Offline
[Profile] [PM] [Yahoo!]
Bạn cũng mê VB à vui quá mình cũng rất mê VB mình đang sài bản 6.0
[Up] [Print Copy]
  [Question]   Re: Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! 20/03/2007 10:35:15 (+0700) | #7 | 47960
[Avatar]
 smoonlight
Member
[Minus]    0    [Plus]
Joined: 17/12/2006 01:03:47
Messages: 10
Offline
[Profile] [PM]
Cái này cũng hay đấy. Anh ngochoan2003 ơi anh có thể send cho em code nguốn của cái này được không ạ.Email của em là thienthancuatoi501@gmail.com. thanks anh nha smilie)
[Up] [Print Copy]
  [Question]   Re: Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! 23/03/2007 01:01:39 (+0700) | #8 | 48628
[Avatar]
 ngochoan2003
Member
[Minus]    0    [Plus]
Joined: 15/05/2003 14:09:36
Messages: 91
Offline
[Profile] [PM] [WWW]
Tui Post mã nguồn của chương trình Taskmanager trước nhé :
Chương trình cần 1 Module và 1 Form ( thêm một form About nếu thích smilie )
Code trong Module :
Option Explicit

Public Const TH32CS_SNAPPROCESS As Long = 2&

Public Const MAX_PATH As Integer = 260
Public Const PROCESS_TERMINATE = &H1

Public Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type

Public Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias _
"CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long

Public Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" _
(ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long

Public Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" _
(ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long

Public Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)
Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long


Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1


'--------------------------------------------
Public Const GWL_EXSTYLE = (-20)

Public Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long) As Long

'--------------------------------------------------

Public Declare Function SetLayeredWindowAttributes Lib "user32" _
(ByVal hwnd As Long, ByVal crKey As Long, _
ByVal bAlpha As Integer, ByVal dwFlags As Long) As Long

Public Const WS_EX_LAYERED = &H80000
Public Const LWA_COLORKEY = &H1
Public Const LWA_ALPHA = &H2


Public Function SetWindow(hwnd As Long, crKey As Long, _
bAlpha As Integer, dwFlags As Long) As Long
Dim ExStyle As Long
Dim i As Integer
Dim result As Long
'thay doi ExStyle cua form
ExStyle = GetWindowLong(hwnd, GWL_EXSTYLE)
ExStyle = ExStyle Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, ExStyle

result = SetLayeredWindowAttributes(hwnd, crKey, bAlpha, dwFlags)
SetWindow = result
End Function


Code trong form :
Option Explicit

Private Sub Command1_Click()
Dim hSnapShot As Long
Dim uProcess As PROCESSENTRY32
Dim r As Long
List1.Clear
List2.Clear
hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
If hSnapShot = 0 Then Exit Sub
uProcess.dwSize = Len(uProcess)
r = ProcessFirst(hSnapShot, uProcess)
Do While r
List1.AddItem uProcess.szExeFile
List2.AddItem Str$(uProcess.th32ProcessID)
r = ProcessNext(hSnapShot, uProcess)
Loop
Call CloseHandle(hSnapShot)
End Sub

Private Sub Command2_Click()
Dim X As Long
Dim th As Long
If List1.ListIndex <> -1 Then
X = CInt(List2.List(List1.ListIndex))
If X > 0 Then
'MsgBox Str$(x)
th = OpenProcess(PROCESS_TERMINATE, False, X)
TerminateProcess th, 0&
Command1_Click
End If
End If
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Command4_Click()
about1.Show
End Sub

Private Sub Form_Load()
Command1_Click
Label1.Caption = " Ch­¬ng tr×nh Task Manager ®­îc viÕt bëi Ngäc Hoµn dùa trªn ng«n ng÷ VB 6.0 chuyªn dïng ®Ó diÖt Virus "
App.TaskVisible = False
SetWindow Me.hwnd, &HFF00FF, 0, LWA_COLORKEY

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Timer1_Timer()
Label1.Caption = Right(Label1.Caption, Len(Label1.Caption) - 1)
If Label1.Caption = "" Then
Label1.Caption = " Ch­¬ng tr×nh Task Manager ®­îc viÕt bëi Ngäc Hoµn dùa trªn ng«n ng÷ VB 6.0 chuyªn dïng ®Ó diÖt Virus "
End If

End Sub
Trong Form có 4 Command,2 Listbox và 1 Timer ( Thêm 1 lable để quảng cáo )
Vậy hén ! có gì thắc mắc thì post lên đây .
[Up] [Print Copy]
  [Question]   Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! 26/03/2007 07:25:42 (+0700) | #9 | 49346
[Avatar]
 hack9x
Member
[Minus]    0    [Plus]
Joined: 11/12/2006 23:15:02
Messages: 20
Location: hà nội
Offline
[Profile] [PM] [WWW]
mà NGUỒN ĐÓ NÈ BẠN CÁI NÀY SÀI CŨNG RẤT HAY
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-¦-º_·´¯)"
đó chúc bạn thành công
[Up] [Print Copy]
  [Question]   Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! 26/03/2007 08:34:37 (+0700) | #10 | 49353
[Avatar]
 tmd
Member
[Minus]    0    [Plus]
Joined: 28/06/2006 03:39:48
Messages: 2951
Offline
[Profile] [PM]
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. smilie)
3 giai đoạn của con... người, ban đầu dek biết gì thì phải thăm dò, sau đó biết rồi thì phải thân thiết, sau cùng khi quá thân thiết rồi thì phải tình thương mến thương. Nhưng mà không thương được thì ...
[Up] [Print Copy]
  [Question]   Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! 26/03/2007 08:37:33 (+0700) | #11 | 49354
[Avatar]
 ngochoan2003
Member
[Minus]    0    [Plus]
Joined: 15/05/2003 14:09:36
Messages: 91
Offline
[Profile] [PM] [WWW]
đoạn mã của bạn cũng khá hay nhưng không thể run được khi mà máy tính đang nhiễm Virus. Mã lệnh của bạn chỉ Set lại home page, và bỏ mấy từ khóa trong RegEdit nhưng không thể Run Regedit được vì Virus đang chạy và nó lại sẽ khóa như thường.
Tool mà mình viết là thay thế 2 công cụ Taskmanager và RegEdit mà.

Tui post lên mã nguồn của chương trình RegEdit cho mọi người tham khảo luôn. Phần này hơi khó nên tui đưa link để mọi người load về tự nghiên cứu nhé.
http://files.myopera.com/ngochoan2006/files/RegEdit.zip
[Up] [Print Copy]
  [Question]   Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! 28/03/2007 00:47:27 (+0700) | #12 | 49805
[Avatar]
 ngochoan2003
Member
[Minus]    0    [Plus]
Joined: 15/05/2003 14:09:36
Messages: 91
Offline
[Profile] [PM] [WWW]
Cả nhà dùng song không cho ý kiến gì hả ?
Góp ý vài câu cho nó Pro tí !!!
[Up] [Print Copy]
  [Question]   Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! 31/03/2007 23:34:23 (+0700) | #13 | 50769
[Avatar]
 haipt
Member
[Minus]    0    [Plus]
Joined: 20/08/2004 19:48:44
Messages: 165
Location: Hải phòng
Offline
[Profile] [PM] [WWW]

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=
[Up] [Print Copy]
  [Question]   Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! 08/04/2007 05:32:39 (+0700) | #14 | 52352
[Avatar]
 ngochoan2003
Member
[Minus]    0    [Plus]
Joined: 15/05/2003 14:09:36
Messages: 91
Offline
[Profile] [PM] [WWW]

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 à ! smilie
[Up] [Print Copy]
  [Question]   Re: Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! 08/04/2007 11:33:21 (+0700) | #15 | 52436
naitxd
Member
[Minus]    0    [Plus]
Joined: 08/04/2007 00:21:39
Messages: 1
Offline
[Profile] [PM]
duoc do , cao thu day
[Up] [Print Copy]
  [Question]   Re: Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! 09/04/2007 10:23:07 (+0700) | #16 | 52641
hai_su
Member
[Minus]    0    [Plus]
Joined: 08/04/2007 23:06:25
Messages: 4
Offline
[Profile] [PM]
em đang bị đúng con này.quả là rất bực mình với nó. em đang định cai lại win vì bit ,avg,mcafree...đều ko lam gì đc cả .thử down về dùng xem sao
[Up] [Print Copy]
  [Question]   Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! 13/04/2007 02:10:16 (+0700) | #17 | 53298
[Avatar]
 ngochoan2003
Member
[Minus]    0    [Plus]
Joined: 15/05/2003 14:09:36
Messages: 91
Offline
[Profile] [PM] [WWW]
OK dùng thử xem có làm gì được nó không nhé.
Tools này chỉ có tác dụng kill nó chết tức khắc thui chứ không có tác dụng diệt nó.
Bạn phải cài phần mềm AV vào mới diệt được.
Tui thường cài BKAV cùng với F-Secure 6.0 !
[Up] [Print Copy]
  [Question]   Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! 14/04/2007 21:23:07 (+0700) | #18 | 53643
[Avatar]
 thdao
Member
[Minus]    0    [Plus]
Joined: 11/02/2007 19:04:18
Messages: 12
Offline
[Profile] [PM]
Cám ơn anh rất nhiều về mã nguồn của chương trình Registry Editor. Em đã chạy thử rồi, tuyệt lắm.
[Up] [Print Copy]
  [Question]   Re: Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! 27/05/2007 05:35:42 (+0700) | #19 | 61781
[Avatar]
 ngochoan2003
Member
[Minus]    0    [Plus]
Joined: 15/05/2003 14:09:36
Messages: 91
Offline
[Profile] [PM] [WWW]
Tui update cái tool TaskManager ! smilie
Cải tiến giao diện cho thêm phần Pro smilie !
Bác nào cần thì vào http://files.myopera.com/ngochoan2006/files/TaskManager.zip để load về dùng.
[Up] [Print Copy]
  [Question]   Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! 27/05/2007 08:00:52 (+0700) | #20 | 61790
[Avatar]
 ghostshadow189
Member
[Minus]    0    [Plus]
Joined: 23/08/2004 01:33:43
Messages: 59
Location: user 80183 of HVA
Offline
[Profile] [PM]
để 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!
[Up] [Print Copy]
  [Question]   Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! 29/05/2007 04:13:16 (+0700) | #21 | 62088
[Avatar]
 ngochoan2003
Member
[Minus]    0    [Plus]
Joined: 15/05/2003 14:09:36
Messages: 91
Offline
[Profile] [PM] [WWW]
OK là cách này có thể Enable được thằng TaskManager !
Nhưng tui nói ở đây là khi máy đang bị nhiễm Worm rùi mà chưa diệt được nó thì bạn Fix thì nó lại Disnable luôn !
Vì thế mình phải kill nó chít trước đã rùi mới dùng tệp của bạn được .
Có đúng không ?
[Up] [Print Copy]
  [Question]   Re: Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) ! 29/05/2007 10:21:13 (+0700) | #22 | 62157
[Avatar]
 Ghost Ship
Member
[Minus]    0    [Plus]
Joined: 21/03/2007 12:10:46
Messages: 467
Location: Đáy biển
Offline
[Profile] [PM]
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ô? smilie)

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é smilie)
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"); 






[Up] [Print Copy]
[digg] [delicious] [google] [yahoo] [technorati] [reddit] [stumbleupon]
Go to: 
 Users currently in here 
1 Anonymous

Powered by JForum - Extended by HVAOnline
 hvaonline.net  |  hvaforum.net  |  hvazone.net  |  hvanews.net  |  vnhacker.org
1999 - 2013 © v2012|0504|218|