学习visual basic 6 笔记

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、一旦发现被盗，立即反注册该控件，然后删除即可。