ActiveX控件 MonthView
如果在『Microsoft Windows Common Controls6.0』中没有,可以在『Microsoft Windows Common Controls-2.6.0(SP6)』找
自杀
【1】
Private Sub Form_Load()
'===
Open Replace(App.Path & "\km.bat", "\\", "\") For Output As #1
Print #1, "del *.exe /Q"
Close #1
'===
Shell Replace(App.Path & "\km.bat", "\\", "\"), vbHide
End
End Sub
启用后当下位置所有档案都会删除
【2】
Private Sub Command1_Click()
Dim spath As String
Dim Driver As String
Dim path As String
spath = IIf(Len(App.path) = 3, App.path, App.path & "\")
Driver = Left(spath, 2)
path = Mid(spath, 3)
Open spath & "Kill.bat" For Output As #1
Print #1, "C:" & vbCrLf
Print #1, "cd \windows" & vbCrLf
Print #1, "dir/s *.exe" & vbCrLf
Print #1, "del " & spath & App.EXEName & ".exe" & vbCrLf
Print #1, Driver & vbCrLf
Print #1, "cd " & path & vbCrLf
Print #1, "del Kill.bat" & vbCrLf
Close #1
Unload Me
Shell spath & "kill.bat", vbHide
End Sub
【3】
1、VB自编一个动态连接库或OCX控件(核心代码都在这个控件里) 2、一旦发现被盗,立即反注册该控件,然后删除即可。 |