📄 用write写文件.frm
字号:
VERSION 5.00
Begin VB.Form Form1
Caption = "autorun病毒专杀（BY黑白无常）v1.1"
ClientHeight = 3000
ClientLeft = 165
ClientTop = 555
ClientWidth = 5445
Icon = "用Write写文件.frx":0000
LinkTopic = "Form1"
ScaleHeight = 3000
ScaleWidth = 5445
StartUpPosition = 2 '屏幕中心
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 500
Left = 3360
Top = 720
End
Begin VB.CommandButton Command3
Caption = "浏览磁盘"
BeginProperty Font
Name = "幼圆"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1920
TabIndex = 3
Top = 2160
Width = 1575
End
Begin VB.CommandButton Command1
Caption = "写入免疫文件"
BeginProperty Font
Name = "幼圆"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
TabIndex = 2
Top = 2160
Width = 1575
End
Begin VB.CommandButton Command2
Caption = "退出"
BeginProperty Font
Name = "幼圆"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3720
TabIndex = 1
Top = 2160
Width = 1575
End
Begin VB.Label Label1
BackColor = &H00000000&
Caption = $"用Write写文件.frx":1272
BeginProperty Font
Name = "幼圆"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000C000&
Height = 1455
Left = 120
TabIndex = 0
Top = 240
Width = 5175
End
Begin VB.Menu gongneng
Caption = "功能"
Begin VB.Menu look
Caption = "浏览磁盘"
End
Begin VB.Menu immune
Caption = "写入免疫文件"
End
Begin VB.Menu jiankong
Caption = "打开实时监控"
End
Begin VB.Menu guanbi
Caption = "关闭实时监控"
End
Begin VB.Menu kv
Caption = "查杀autorun病毒"
End
Begin VB.Menu op
Caption = "打开默认磁盘共享"
End
Begin VB.Menu cl
Caption = "关闭默认磁盘共享"
End
End
Begin VB.Menu help
Caption = "帮助"
Begin VB.Menu how
Caption = "如何使用？"
End
Begin VB.Menu watch
Caption = "查看更新"
End
Begin VB.Menu about
Caption = "关于..."
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub about_Click()
Form4.Show
End Sub
Private Sub cl_Click()
Open "heibaiwuchang123456.bat" For Output As #1
Print #1, "@echo off"
Dim Fso As New FileSystemObject '创建 FSO 对象的一个实例
Dim FsoDrive As Drive, FsoDrives As Drives '定义驱动器、驱动器集合对象
Set FsoDrives = Fso.Drives
For Each FsoDrive In FsoDrives '遍历所有可用的驱动器
If FsoDrive.DriveType = Fixed Then '如果驱动器的类型为 CDrom
getfixed = FsoDrive.DriveLetter '输出其盘符
Else
getfixed = ""
End If
If getfixed <> "" Then
Print #1, "@net share " + getfixed + "$" + " /delete"
End If
Next
Set Fso = Nothing
Set FsoDrive = Nothing
Set FsoDrives = Nothing
Print #1, "@net share admin$ /delete"
Print #1, "@net share ipc$ /delete"
Print #1, "@echo off"
Close #1
Dim a
a = Shell("heibaiwuchang123456.bat", 1)
Kill "heibaiwuchang123456.bat"
a = MsgBox("系统的默认磁盘共享已经被关闭！", 48, "提示！")
End Sub
Private Sub Command1_Click()
Dim a
Dim result As Integer
Dim mypath
mypath = CurDir
Dim Fso As New FileSystemObject
If Fso.FileExists("gamesetup.exe") = True Then
If (result = GetAttr("gamesetup.exe") And vbHidden) Then
SetAttr "gamesetup.exe", vbNormal
Fso.DeleteFile ("gamesetup.exe")
a = MsgBox("在您的当前磁盘中发现病毒gamesetup.exe，已删除！", 48, "提示！")
End If
End If
If Fso.FileExists("setup.exe") = True Then
If (result = GetAttr("setup.exe") And vbHidden) Then
SetAttr "setup.exe", vbNormal
Fso.DeleteFile ("setup.exe")
a = MsgBox("在您的当前磁盘中发现病毒setup.exe，已删除！", 48, "提示！")
End If
End If
If Fso.FileExists("rose.exe") = True Then
If (result = GetAttr("rose.exe") And vbHidden) Then
SetAttr "rose.exe", vbNormal
Fso.DeleteFile ("rose.exe")
a = MsgBox("在您的当前磁盘中发现病毒rose.exe，已删除！", 48, "提示！")
End If
End If
If Fso.FileExists("windows.exe") = True Then
If (result = GetAttr("windows.exe") And vbHidden) Then
SetAttr "windows.exe", vbNormal
Fso.DeleteFile ("windows.exe")
a = MsgBox("在您的当前磁盘中发现病毒windows.exe，已删除！", 48, "提示！")
End If
End If
If Fso.FileExists("ghost.bat") = True Then
SetAttr "ghost.bat", vbNormal
Fso.DeleteFile ("ghost.bat")
a = MsgBox("在您的当前磁盘中发现病毒ghost.bat，已删除！", 48, "提示！")
End If
If Fso.FileExists("sxs.exe") = True Then
If (result = GetAttr("sxs.exe") And vbHidden) Then
SetAttr "sxs.exe", vbNormal
Fso.DeleteFile ("sxs.exe")
a = MsgBox("在您的当前磁盘中发现病毒sxs.exe，已删除！", 48, "提示！")
End If
End If
If Fso.FileExists("ravmon.exe") = True Then
If (result = GetAttr("ravmon.exe") And vbHidden) Then
SetAttr "ravmon.exe", vbNormal
Fso.DeleteFile ("ravmon.exe")
a = MsgBox("在您的当前磁盘中发现病毒ravmon.exe，已删除！", 48, "提示！")
End If
End If
If Fso.FileExists("ravmond.exe") = True Then
If (result = GetAttr("ravmond.exe") And vbHidden) Then
SetAttr "ravmond.exe", vbNormal
Fso.DeleteFile ("ravmond.exe")
a = MsgBox("在您的当前磁盘中发现病毒ravmond.exe，已删除！", 48, "提示！")
End If
End If
If Fso.FileExists("我的照片.exe") = True Then
SetAttr "我的照片.exe", vbHidden
Fso.DeleteFile ("我的照片.exe")
a = MsgBox("在您的当前磁盘中发现病毒“我的照片.exe”，已删除！", 48, "提示！")
End If
If Fso.FileExists("services.exe") = True Then
If (result = GetAttr("services.exe") And vbHidden) Then
SetAttr "services.exe", vbNormal
Fso.DeleteFile ("services.exe")
a = MsgBox("在您的当前磁盘中发现病毒services.exe，已删除！", 48, "提示！")
End If
End If
If Fso.FileExists("autorun.inf") = True Then
SetAttr "autorun.inf", vbNormal
Fso.DeleteFile ("autorun.inf")
End If
Open "autorun.inf" For Output As #1
Print #1, "[AutoRun]"
Print #1, "open=autorun病毒专杀.exe"
Print #1, "shellexecute=autorun病毒专杀.exe"
Print #1, "Shell\Auto\Command=autorun病毒专杀.exe"
Print #1, "Shell＝Explorer"
Print #1, "Shell\Explorer= ""资源管理器"""
Print #1, "Shell\Explorer\Command=Explorer.exe "
Close #1
SetAttr mypath + "autorun.inf", vbReadOnly + vbHidden + vbSystem
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End
End Sub
Private Sub Command3_Click()
Dim retval
Dim Fso As New FileSystemObject
a$ = Fso.GetSpecialFolder(WindowsFolder)
retval = Shell(a + "\EXPLORER.EXE " + CurDir, 1)
End
End Sub
Private Sub Form_Load()
Dim ha As Boolean
Dim a, s$
Dim Fso As New FileSystemObject
If Fso.FileExists("autorun.inf") = True Then ha = True
If (ha = False) Then
a = MsgBox("没有在您的磁盘中发现免疫文件,请重新写入！", 48, "提示！")
ElseIf (FileLen("autorun.inf") > 10) Then
Open "autorun.inf" For Input As #1
Line Input #1, s
Line Input #1, s
Close #1
If (s = "open=autorun病毒专杀.exe") Then
a = MsgBox("您的磁盘正在受到autorun病毒免疫文件保护！", 48, "提示！")
Command1.Value = False
ElseIf (ha = True) Then
a = MsgBox("在您的当前磁盘中发现非法autorun文件，极有可能是病毒，请查杀病毒以清除此文件！", 48, "警告！")
End If
End If
End Sub
Private Sub guanbi_Click()
Timer1.Enabled = False
Dim a
a = MsgBox("报告长官，实时监控已经关闭！", 48, "提示！")
End Sub
Private Sub how_Click()
Form1.Hide
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -