Câu hỏi

25/05/2013 20:42
Máy tính của tôi bị nhiễm Spyware ?
Vậy tôi phải làm sao để không cho Spyware chiếm quyền điều khiển Home Page.
cochukg
25/05/2013 20:42
Danh sách câu trả lời (1)

Máy tính của bạn nhiễm Spyware , bạn sử dụng các phần mềm chẳng hạn như Adware SE Pro
hoặc Hijackthis để quét Spyware trên máy tính của bạn . phát hiện thấy có web lạ chiếm quyền
điều khiển trang chủ (Home Page) của bạn trong trình duyệt Internet Explorer .
Mở trình soạn thảo văn bản Note Pad , chép và dán đoạn code này vào .
Option Explicit
Dim WSHShell, RegKey, ValueA, Result
On Error Resume Next
Set WSHShell = CreateObject("WScript.Shell")
RegKey = "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control
Panel\"
ValueA = WSHShell.RegRead (regkey & "HomePage")
If ValueA = 0 Then 'Change Homepage is Enabled.
Result = MsgBox("Ability to Change Homepage is currently [Enabled]." & _
vbNewLine & "Would you like to Disable?" & _
vbNewLine & "Will lock and Gray it out." & _
vbNewLine & "May need to Log-off for effect.", 36)
If Result = 6 Then 'clicked yes
WSHShell.RegWrite regkey & "HomePage", 1
End If
Else 'Change Homepage is Disabled
Result = MsgBox("Ability to Change Homepage is currently [Disabled]." & _
vbNewLine & "Would you like to Enable?", 36)
If Result = 6 Then 'clicked yes
WshShell.RegDelete "HKCU\Software\Policies\Microsoft\Internet Explorer\Control
Panel\HomePage"
End If
End If
Lưu lại và đặt tên là DisableHomePage.vbs
Để chạy nó , bạn nhấn chuột vào tập tin này và chọn Yes . Logoff để thay đổi có hiệu lực .
hoặc Hijackthis để quét Spyware trên máy tính của bạn . phát hiện thấy có web lạ chiếm quyền
điều khiển trang chủ (Home Page) của bạn trong trình duyệt Internet Explorer .
Mở trình soạn thảo văn bản Note Pad , chép và dán đoạn code này vào .
Option Explicit
Dim WSHShell, RegKey, ValueA, Result
On Error Resume Next
Set WSHShell = CreateObject("WScript.Shell")
RegKey = "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control
Panel\"
ValueA = WSHShell.RegRead (regkey & "HomePage")
If ValueA = 0 Then 'Change Homepage is Enabled.
Result = MsgBox("Ability to Change Homepage is currently [Enabled]." & _
vbNewLine & "Would you like to Disable?" & _
vbNewLine & "Will lock and Gray it out." & _
vbNewLine & "May need to Log-off for effect.", 36)
If Result = 6 Then 'clicked yes
WSHShell.RegWrite regkey & "HomePage", 1
End If
Else 'Change Homepage is Disabled
Result = MsgBox("Ability to Change Homepage is currently [Disabled]." & _
vbNewLine & "Would you like to Enable?", 36)
If Result = 6 Then 'clicked yes
WshShell.RegDelete "HKCU\Software\Policies\Microsoft\Internet Explorer\Control
Panel\HomePage"
End If
End If
Lưu lại và đặt tên là DisableHomePage.vbs
Để chạy nó , bạn nhấn chuột vào tập tin này và chọn Yes . Logoff để thay đổi có hiệu lực .
Trả lời câu hỏi
Câu hỏi lĩnh vực Bảo mật, virus
Rao vặt Siêu Vip