/*  UberLinux - Portfolio  */

Private Sub Command1_Click()
Dim strIP as string
Dim strName as string
strIP = Winsock1.LocalIP     'Captures IP Address and stores it


home/
procedures/
stories/
archive/
links/
portfolio/
about/

Websites

TBA

 

Artwork

TBA

Code

Click - source | executable
Triangle - source | executable

Scripts

sshd_init


strName = Winsock1.LocalHostName     'Captures Host Name and stores
msgbox "Your IP Address is: " & strIP & vbCrLf & vbCrLf & _
"Your HostName is: " & Ucase(strName)     'Separates the 2 in a msgbox
End Sub

home/    procedures/    stories/    archive/    links/    portfolio/    about/

Revised 09/11/2006

Copyright 2003-2006 uberlinux.org