Find all our projects in development below.
All source code is GNU General Public License (GPL)
Browsing RevDNSForm.frm (3.41 KB)
VERSION 5.00
Begin VB.Form RevDNSForm
BorderStyle = 3 'Fixed Dialog
Caption = "Reverse DNS Lookup"
ClientHeight = 1095
ClientLeft = 45
ClientTop = 330
ClientWidth = 4815
ClipControls = 0 'False
Icon = "RevDNSForm.frx":0000
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1095
ScaleWidth = 4815
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.TextBox Text2
Height = 1815
Left = 120
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 5
TabStop = 0 'False
Top = 1320
Width = 4575
End
Begin VB.CommandButton Command3
Caption = "&IP List >>"
Height = 375
Left = 3600
TabIndex = 4
Top = 600
Width = 1095
End
Begin VB.CommandButton Command1
Caption = "&Lookup"
Default = -1 'True
Enabled = 0 'False
Height = 375
Left = 1200
TabIndex = 2
Top = 600
Width = 1095
End
Begin VB.CommandButton Command2
Cancel = -1 'True
Caption = "Close"
Height = 375
Left = 2400
TabIndex = 3
Top = 600
Width = 1095
End
Begin VB.TextBox Text1
Height = 315
Left = 720
MaxLength = 255
TabIndex = 1
Top = 120
Width = 3975
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "&Host:"
Height = 255
Left = 120
TabIndex = 0
Top = 165
Width = 495
End
End
Attribute VB_Name = "RevDNSForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Sub EnableControls(bOption As Boolean)
For Each Control In Me.Controls()
Control.Enabled = bOption
Next Control
EnableX Me.hWnd, bOption
End Sub
Private Sub Command1_Click()
Dim IPCollection() As String
Dim i As Integer
If Command3.Caption = "&IP List >>" Then Command3_Click
EnableControls False
Text2.Text = ""
GetIPAddress Text1.Text, IPCollection
For i = LBound(IPCollection) To UBound(IPCollection)
Text2.Text = Text2.Text + IPCollection(i) + IIf(i = UBound(IPCollection), "", vbCrLf)
Next i
EnableControls True
Command1.SetFocus
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
If Command3.Caption = "&IP List >>" Then
Height = 3630
Text2.TabStop = True
Command3.Caption = "&IP List <<"
ElseIf Command3.Caption = "&IP List <<" Then
Height = 1470
Text2.TabStop = False
Command3.Caption = "&IP List >>"
End If
End Sub
Private Sub Text1_Change()
If Text1.Text = "" Then Command1.Enabled = False
If Text1.Text <> "" Then Command1.Enabled = True
End Sub