'Shows the File Control Window
Files.Show()
'---------------------------------------...
Browser.Show()
'Timer, its not enabled
'---------------------------------------...
'Defining a local port...
sock.LocalPort = "2"
'---------------------------------------...
'Turn the sock.LocalIP into a string, and Dim it LocalIP
Dim LocalIP As String = sock.LocalIP
'Turn the sock.LocalPort into an Ineger, and Dim it LocalPort
Dim LocalPort As String = sock.LocalPort
'---------------------------------------...
'---------------------------------------...
'Define the LocalIP, Google is 74.125.39.104
'Googles IP : 74.125.39.104
LocalIP = "74.125.39.104"
'---------------------------------------...
'---------------------------------------...
'Display the LocalIP in the IP TextBox
IP.Text = LocalIP
'Display the LocalPort in the LocalPort TextBox
port.Text = LocalPort
'---------------------------------------...
'---------------------------------------...
Dim IPText As String = IP.Text
Dim PortText As String = port.Text
'---------------------------------------...
'Tell Your Web Browser to Navigate to the String, LocalIP Given
'to it
Browser.WBrowser.Navigate(LocalIP)
'---------------------------------------...
'Display in the Status TextBox, What IP Your Connected to
If IPText = LocalIP Then
ipstatus.Text = "Connected to Local IP"
IP2.Text = LocalIP
Else
ipstatus.Text = "Not Connected to Local IP"
IP2.Text = LocalIP
End If
'---------------------------------------...
'Display in the Status TextBox, What Local Port Your Connected to
If PortText = LocalPort Then
portstatus.Text = "Connected to Local Port"
Port2.Text = LocalPort
Else
portstatus.Text = "Not Connected to Local Port"
Port2.Text = LocalPort
End If
sock.Connect()
'---------------------------------------...
End Sub
Tags: