Latest posts for the topic "Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) !"

Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) !

ngochoan2003 — GMT

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 :P) ) 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. Tai ve File khóa hoặc mở khóa Home page : http://files.myopera.com/ngochoan2006/files/Khoa_Mo%20homepage.vbs

Công cụ diệt Virus ( Thay thế TaskManager và RegEdit) !

superdream — GMT

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é .

Công cụ diệt Virus ( Thay thế TaskManager và RegEdit) !

huanit — GMT

Mình đang Down về dùng thử xem sao.

Công cụ diệt Virus ( Thay thế TaskManager và RegEdit) !

ngochoan2003 — GMT

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.

Re: Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) !

Angel_A — GMT

thanx bác nha! send cho mình source với hen!

Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) !

ga_cong_nghiep_h5n1 — GMT

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

Re: Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) !

smoonlight — GMT

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 :x)

Re: Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) !

ngochoan2003 — GMT

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 :mrgreen: ) 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 .

Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) !

hack9x — GMT

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

Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) !

tmd — GMT

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)

Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) !

ngochoan2003 — GMT

đ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 mã nguồn của chương trình RegEdit cho mọi người tham khảo luôn. Phần này hơi khó nên tui đưa link để mọi người load về tự nghiên cứu nhé. http://files.myopera.com/ngochoan2006/files/RegEdit.zip

Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) !

ngochoan2003 — GMT

Cả nhà dùng song không cho ý kiến gì hả ? Góp ý vài câu cho nó Pro tí !!!

Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) !

haipt — GMT

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=

Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) !

ngochoan2003 — GMT

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:

Re: Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) !

naitxd — GMT

duoc do , cao thu day

Re: Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) !

hai_su — GMT

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

Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) !

ngochoan2003 — GMT

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 !

Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) !

thdao — GMT

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.

Re: Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) !

ngochoan2003 — GMT

Tui update cái tool TaskManager ! :mrgreen: Cải tiến giao diện cho thêm phần Pro :evil: ! Bác nào cần thì vào http://files.myopera.com/ngochoan2006/files/TaskManager.zip để load về dùng.

Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) !

ghostshadow189 — GMT

để 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!

Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) !

ngochoan2003 — GMT

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 ?

Re: Công cụ diệt Virus ( Thay thế TaskManager và RegEdit + Home page) !

Ghost Ship — GMT

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