by rose_script (1 Submission)
Category: Registry
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 4th May 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Displays the IP of a computer.
API Declarations
Insert 1 Textbox
Insert 2 Command Buttons Rename Caption as Display and Clear
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