📄 form3.frm
字号:
Left = 6240
TabIndex = 11
Top = 2400
Width = 2175
End
Begin VB.Label Label9
BackColor = &H00000000&
Caption = "命令执行"
BeginProperty Font
Name = "Arial"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 6240
TabIndex = 10
Top = 1080
Width = 2175
End
Begin VB.Label Label8
BackColor = &H00000000&
Caption = "Remote Processes"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 8520
TabIndex = 9
Top = 720
Width = 2775
End
Begin VB.Label Label7
BackColor = &H00000000&
Caption = "开放服务查看"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 6240
TabIndex = 8
Top = 720
Width = 2175
End
Begin VB.Label Label6
BackColor = &H00000000&
Caption = "端口扫描器（利用代理）"
BeginProperty Font
Name = "Arial"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 6240
TabIndex = 7
Top = 240
Width = 5055
End
Begin VB.Label Label5
BackColor = &H00000000&
Caption = "PING 扫描器"
BeginProperty Font
Name = "Arial"
Size = 24
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 495
Left = 720
TabIndex = 6
Top = 2760
Width = 5295
End
Begin VB.Label Label4
BackColor = &H00000000&
Caption = "批量端口扫描器"
BeginProperty Font
Name = "Arial"
Size = 24
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 495
Left = 720
TabIndex = 5
Top = 2160
Width = 5295
End
Begin VB.Label Label3
BackColor = &H00000000&
Caption = "远程目录遍历扫描器"
BeginProperty Font
Name = "Arial"
Size = 24
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 615
Left = 720
TabIndex = 4
Top = 1440
Width = 5295
End
Begin VB.Label lblmail
BackColor = &H80000009&
Caption = "THECRACKERS_GROUP@YAHOO.CA"
BeginProperty Font
Name = "Arial"
Size = 20.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 495
Left = 2160
TabIndex = 3
Top = 7440
Width = 7455
End
Begin VB.Label lblcap
BackColor = &H80000006&
Caption = "SCAN TOOL ( CHAZ EDITION ) THECRACKERS GROUP INC 2005"
BeginProperty Font
Name = "Arial"
Size = 24
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 1215
Left = 2040
TabIndex = 2
Top = 6000
Width = 8175
End
Begin VB.Label Label2
BackColor = &H00000000&
Caption = "BANNER GRABING"
BeginProperty Font
Name = "Arial"
Size = 24
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 495
Left = 720
TabIndex = 1
Top = 840
Width = 5295
End
Begin VB.Label Label1
BackColor = &H00000000&
Caption = "CGI漏洞程序扫描器"
BeginProperty Font
Name = "Arial"
Size = 24
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 495
Left = 720
TabIndex = 0
Top = 240
Width = 5295
End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' by nima bagheri form THECRACKERS_GROUP@yahoo.ca
'TEL 098-0151-2210510
Private Sub Form_Load()
Me.Hide
End Sub
Private Sub Label1_Click()
Me.Hide
form2.Show
End Sub
Private Sub Label10_Click()
frmGethostbyname.Show
End Sub
Private Sub Label11_Click()
frmGetHostByAddress.Show
End Sub
Private Sub Label12_Click()
frmtrace.Show
End Sub
Private Sub Label13_Click()
frmshare.Show
End Sub
Private Sub Label14_Click()
frmpasscrack.Show
Me.Hide
End Sub
Private Sub Label15_Click()
frmmail.Show
Me.Hide
End Sub
Private Sub Label16_Click()
frmsnmp.Show
End Sub
Private Sub Label17_Click()
frmmacarp.Show
End Sub
Private Sub Label18_Click()
frmenumshare.Show
End Sub
Private Sub Label19_Click()
frmsendmess.Show
End Sub
Private Sub Label2_Click()
form1.Show
Me.Hide
End Sub
Private Sub Label20_Click()
frmdnssrv.Show
End Sub
Private Sub Label21_Click()
frmwhois.Show
End Sub
Private Sub Label22_Click()
frmDOSOutput.Show
End Sub
Private Sub Label23_Click()
On Error Resume Next
Shell App.path + "\" + "sniffer.dll", vbNormalFocus
End Sub
Private Sub Label24_Click()
frmspyport.Show
End Sub
Private Sub Label25_Click()
frmwebatk.Show
Me.Hide
End Sub
Private Sub Label26_Click()
frmsysmon.Show
Me.Hide
End Sub
Private Sub Label27_Click()
TestSuite.Show
End Sub
Private Sub Label3_Click()
Frmdt.Show
Me.Hide
End Sub
Private Sub Label4_Click()
frmscan.Show
Me.Hide
End Sub
Private Sub Label5_Click()
frmping.Show
Me.Hide
End Sub
Private Sub Label6_Click()
frmscanproxy.Show
Me.Hide
End Sub
Private Sub Label7_Click()
frmservices.Show
End Sub
Private Sub Label8_Click()
frmprocesses.Show
End Sub
Private Sub Label9_Click()
frmremotecommand.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -