[code=vbnet]Public Function ConfigureUID(uid As Integer)
URLProfile = "http://www.codecommunity.net/member.php?action=profile&uid="
URLOnline = "http://www.codecommunity.net/reputation.php?uid="
URLSupMem = "http://codecommunity.net/checku.php?user="
URLProfile = URLProfile & uid.ToString
URLRep = URLRep & uid.ToString
Try
WebC = Web.DownloadString(URLProfile)
Catch ex As WebException
WebC = "Something went wrong in the configuration."
End Try

Try
DimC = New IO.StreamReader(Net.WebRequest.Create(URLProfile).GetResponse.GetResponseStream).ReadToEnd
Catch ex As WebException
DimC = "Something went wrong in the configuration."
End Try

URLSupMem = URLSupMem & GetUsername(uid)
Try
SupMem = New IO.StreamReader(Net.WebRequest.Create(URLSupMem).GetResponse.GetResponseStream).ReadToEnd
Catch ex As Exception
SupMem = "Something went wrong in the configuration." 'GoTos may look nice, but they're bad. Sorry :p
End Try

Return Nothing 'Exiting a function isn't necessary, this is done automatically.
End Function

Public Function GetUsername(uid As Integer) As String
Try
Return Split(WebC, "<title>Code Community - Profile of ")(1).Split("<")(0)
Catch ex As Exception
Return "Error retrieving username."
End Try
End Function

Public Function GetJoinDate(uid As Integer) As String
Try
Return Split(WebC, "<strong>Registration Date:</strong> ")(1).Split("<")(0)
Catch ex As Exception
Return "Error retrieving join date."
End Try
End Function

Public Function GetDateOfBirth(uid As Integer) As String
Try
Return Split(WebC, "<strong>Date of Birth:</strong> ")(1).Split("<")(0)
Catch ex As Exception
Return "Error retrieving date of birth."
End Try
End Function

Public Function GetLocalTime(uid As Integer) As String
Try
Return Split(WebC, "<strong>Local Time:</strong> ")(1).Split("<")(0)
Catch ex As Exception
Return "Error retrieving local time."
End Try
End Function

Public Function GetStatus(uid As Integer) As String
Try
Return Split(WebC, "<strong>Status:</strong> ")(1).Split("<")(0)
Catch ex As Exception
Return "Error retrieving user status."
End Try
End Function

Public Function GetLastVisit(uid As Integer) As String
Try
Return Split(Split(WebC, "<td class=""trow2""><strong>Last Visit:</strong></td>" & vbNewLine)(1).Split("/")(0), ">")(1)
Catch ex As Exception
Return "Error retrieving last visit."
End Try
End Function
.
Public Function GetPosts(uid As Integer, Optional ByRef bolean As Boolean = False) As String
Try
Return Split(Split(WebC, "<td class=""trow1""><strong>Total Posts:</strong></td>" & vbNewLine)(1).Split(")")(0), ">")(1) & ")"
Catch ex As Exception
Return "Error retrieving total posts."
End Try
End Function

Public Function GetOnlineTime(uid As Integer) As String
Try
Return Split(Split(WebC, "<td class=""trow2""><strong>Time Spent Online:</strong></td>" & vbNewLine)(1).Split("/")(0), ">")(1)
Catch ex As Exception
Return "Error retrieving total online time."
End Try
End Function

Public Function GetReferredMembers(uid As Integer) As String
Try
Return Split(WebC, "<td class=""trow1""><strong>Members Referred:</strong></td>" & vbNewLine & "<td class=""trow1"">")(1).Split(" ")(0)
Catch ex As Exception
Return "Error retrieving total referred members."
End Try
End Function[/code]