Xer0 module open sourced.(incomplete data structures)

Yahoo module


Bebo
strhtml$ = Inet1.OpenURL("http://www.bebo.com/Search2.jsp?SearchTerm=" & Text6)
If InStr(strhtml$, "") Then
meh = bebo(strhtml$)

Freindster
strhtml$ = Inet1.OpenURL("http://www.friendster.com/usersearch.php?search=1&usearch=" & Text6.Text)
If InStr(strhtml$, "") Then
meh = freindster(strhtml$)
List1.AddItem meh

Experimental Aim module
StatVar = Inet1.OpenURL("http://api.oscar.aol.com/presence/icon?k=sh1KjgMJWk8QBf-R&t=" & Text1.Text)
If InStr(StatVar, "offline") Then
yahoo1 = " -Offline"
ElseIf InStr(StatVar, " online") Then
yahoo1 = " -Online"
List6.AddItem "#----aol/aim online " & Now & "(!NOW!)----#"
List6.AddItem (Text1 & "@aol/aim")
End If

Youtube Alt Query
DoEvents
profilecheck = Inet1.OpenURL("http://www.youtube.com/user_ajax?action_check_username&user=$user")
If InStr(profilecheck, "Username unavailable") Then