frmdnslookup.frm

支持监控包括传输控制协议和 UDP 的所有的互联网传输协议。同时程序具有实时文件防修改监控功能

VERSION 5.00
Object = "{9B1E48ED-8018-11D3-B75D-006097A1EBF0}#1.0#0"; "DNS.ocx"
Begin VB.Form frmDNSLookup 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "DNS Lookup"
   ClientHeight    =   1620
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   6030
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmDNSLookup.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmDNSLookup.frx":08CA
   ScaleHeight     =   1620
   ScaleWidth      =   6030
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin OnIt_Pro_Firewall.CandyButton cmdToIP 
      Height          =   375
      Left            =   120
      TabIndex        =   6
      Top             =   720
      Width           =   2175
      _extentx        =   3836
      _extenty        =   661
      font            =   "frmDNSLookup.frx":771B
      caption         =   "Name to IP Address =>"
      captionhighlitecolor=   0
      iconhighlitecolor=   0
      forecolor       =   16777215
      style           =   6
      checked         =   0
      colorbuttonhover=   15309136
      colorbuttonup   =   13657888
      colorbuttondown =   10512144
      colorbright     =   16772528
      borderbrightness=   0
      displayhand     =   0
      colorscheme     =   1
   End
   Begin OnIt_Pro_Firewall.CandyButton cmdToName 
      Height          =   375
      Left            =   3720
      TabIndex        =   5
      Top             =   720
      Width           =   2175
      _extentx        =   3836
      _extenty        =   661
      font            =   "frmDNSLookup.frx":7743
      caption         =   "<= IP Address to Name"
      captionhighlitecolor=   0
      iconhighlitecolor=   0
      forecolor       =   16777215
      style           =   6
      checked         =   0
      colorbuttonhover=   15309136
      colorbuttonup   =   13657888
      colorbuttondown =   10512144
      colorbright     =   16772528
      borderbrightness=   0
      displayhand     =   0
      colorscheme     =   1
   End
   Begin DNSControl.DNS DNS1 
      Left            =   360
      Top             =   960
      _ExtentX        =   873
      _ExtentY        =   661
   End
   Begin VB.TextBox txtName 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   120
      TabIndex        =   2
      Top             =   360
      Width           =   2175
   End
   Begin VB.TextBox txtIP 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   3720
      TabIndex        =   1
      Top             =   360
      Width           =   2175
   End
   Begin VB.CommandButton OKButton 
      Caption         =   "Close"
      Height          =   375
      Left            =   4680
      TabIndex        =   0
      Top             =   1200
      Width           =   1215
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Host Name:"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   195
      Left            =   120
      TabIndex        =   4
      Top             =   120
      Width           =   960
   End
   Begin VB.Label Label2 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Host IP Address:"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   4440
      TabIndex        =   3
      Top             =   120
      Width           =   1395
   End
End
Attribute VB_Name = "frmDNSLookup"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdToIP_Click()
    Me.MousePointer = 11
    txtIP.Text = DNS1.NameToAddress(txtName.Text)
    Me.MousePointer = 0
End Sub
Private Sub cmdToName_Click()
    Me.MousePointer = 11
    txtName.Text = DNS1.AddressToName(txtIP.Text)
    Me.MousePointer = 0
End Sub
Private Sub OKButton_Click()
    Unload Me
End Sub