• Home
 · 
• Registry
 · 
• Displays the IP of a computer.

Displays the IP of a computer.

Displays the IP of a computer.

API Declarations


Insert 1 Textbox
Insert 2 Command Buttons Rename Caption as Display and Clear



Rate Displays the IP of a computer.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

If Text1.Text = "" Then
    Command1.Enabled = False
    Text1.Text = Winsock1.LocalIP
Else
    Command1.Enabled = True
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
If Text1.Text = "" Then
    Command1.Enabled = True
Else
    Command1.Enabled = False
End If
End Sub

Private Sub Form_Load()
Text1.Text = ""
If Text1.Text = "" Then
    Command1.Enabled = False
Else
    Command1.Enabled = True
End If
Text1.Text = Winsock1.LocalIP
End Sub