端口服务查询程序 V2.0（正式版） 原代码公布 原创 Analy=分析家

====主界面======


Private Sub Combo1_Click()
StringType = Combo1.ListIndex           '下拉列表筐1内容编号,0为服务端口号,1为服务名称,默认为0
End Sub



Private Sub Combo2_Click()
DataType = Combo2.ListIndex           '下拉列表筐2内容编号,0为全部,1为程序自身,2为用户添加,默认为0
End Sub

Private Sub Command1_Click()
'--------检查a.res文件是否存在------
If Dir("a.res", vbDirectory) <> "" Then
    '存在则退出判断转如日常操作
        Else
    MsgBox "没找到 a.RES 文件,此文件为资源文件.程序结束", , "加载失败"
    GoTo Over       '如过不存在则跳转至Over段
End If
'------检查a.res文件完毕------
'----检查用户是否输入查询条件(查询字符串),并转入相应操作-------=============
If Text1.Text = "" Then
    MsgBox "请您输入需要查询的端口或者服务名称" + Chr(13) & Chr(10) + Chr(13) & Chr(10) + "注意:服务名称必须小写", 32, "FD科技"
    GoTo Over                '如果用户没有输入查询条件则跳至Over
End If          '结束判断,并且进入日常操作
'
'-----检查查询字符串类型,并且转入相应的核心过程-------============
If StringType = 0 Then
    ScanLong = Text1.Text        '赋值需要查询的字符串,端口
    Call SL           '转入端口号查询
        Else
    ScanString = Text1.Text        '赋值需要查询的字符串,服务
    Call SS           '转入服务名称查询
End If
'
'-------Over段-----------=========
Over:
'只用于结束
End Sub



Private Sub Form_Load()
'========----------程序初始化--------==============
StringType = 0              '默认查询字符串类型为端口号
DataType = 0               '默认查询数据库类型为全部的数据库
End Sub

Private Sub H_1_Click()
If Dir("使用说明.txt", vbDirectory) <> "" Then
    Shell "notepad.exe 使用说明.txt", vbNormalFocus
        Else
    MsgBox "没找到 使用说明.txt 文件", , "加载失败"
End If
End Sub

Private Sub H_2_Click()
F_lianxi.Show 0, Me
End Sub

Private Sub H_4_Click()
F_guanyu.Show 0, Me
End Sub

Private Sub Image1_Click()

End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)

End Sub

Private Sub H_6_Click()
Shell "UpData.exe", vbNormalFocus
End
End Sub

Private Sub L_1_Click()
'-----------------英文转中文过程----------==============
'---主界面标题栏---
OpenA.Caption = "FD端口服务查询  Service Scan   V 2.1        "
'---菜单栏---
F_0.Caption = "文件(&F)"              '文件
X_0.Caption = "查看(&X)"              '查看
T_0.Caption = "项目(&T)"              '项目
L_1.Caption = "●中文"                '中文
L_2.Caption = "  English"             'English
H_0.Caption = "帮助(&H)"              '帮助
H_1.Caption = "使用说明(&R)"            '使用说明
H_2.Caption = "联系作者(&C)"    '联系作者
H_4.Caption = "关于 Service Scan V2.1(&A)" '关于 Service Scan V2.1
'---任务区---
Frame1.Caption = "任务区"            '任务区
Label1.Caption = "查询字符："     '查询字符
Command1.Caption = "开始查询"    '开始查询
End Sub

Private Sub L_2_Click()
'-----------------中文转英文过程----------==============
'---主界面标题栏---
OpenA.Caption = "FD Port Service Scan Fairy V 2.1                                                  "
'---菜单栏---
F_0.Caption = "File(&F)"              '文件
X_0.Caption = "View(&V)"              '查看
T_0.Caption = "Options(&O)"           '项目
L_1.Caption = "  中文"                '中文
L_2.Caption = "●English"             'English
H_0.Caption = "Help(&H)"              '帮助
H_1.Caption = "Readme(&R)"            '使用说明
H_2.Caption = "Contact Author(&C)"    '联系作者
H_4.Caption = "About Service Scan V2.1(&A)" '关于 Service Scan V2.1
'---任务区---
Frame1.Caption = "Taskbar"            '任务区
Label1.Caption = "Scan Condition"     '查询字符
Command1.Caption = "Search"    '开始查询
End Sub


Private Sub Label2_Click()
Shell "cmd /c start Http://www.efreedom.com.cn"
End Sub

Private Sub T_1_Click()
F_Upport.Show 0, Me
End Sub