Posted By

Angelboy on 09/09/10


Tagged

vb6


Versions (?)

habbo reconocedor de sexo


 / Published in: Visual Basic
 

  1. Public Function AsignarG(Getgender As String) As String
  2. Dim piel As String
  3.  
  4. piel = "<set id=""620"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">"
  5. piel = piel & "<set id=""626"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">"
  6. piel = piel & "<set id=""3096"" gender=""F"" club=""2"" colorable=""1"" selectable=""1"">"
  7. piel = piel & "<set id=""180"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">"
  8. piel = piel & "<set id=""207"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">"
  9. piel = piel & "<set id=""3091"" gender=""M"" club=""2"" colorable=""1"" selectable=""1"">"
  10. piel = piel & "<set id=""205"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">"
  11. piel = piel & "<set id=""190"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">"
  12. piel = piel & "<set id=""3092"" gender=""M"" club=""2"" colorable=""1"" selectable=""1"">"
  13. piel = piel & "<set id=""625"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">"
  14. piel = piel & "<set id=""185"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">"
  15. piel = piel & "<set id=""195"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">"
  16. piel = piel & "<set id=""3093"" gender=""M"" club=""2"" colorable=""1"" selectable=""1"">"
  17. piel = piel & "<set id=""610"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">"
  18. piel = piel & "<set id=""3097"" gender=""F"" club=""2"" colorable=""1"" selectable=""1"">"
  19. piel = piel & "<set id=""200"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">"
  20. piel = piel & "<set id=""600"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">"
  21. piel = piel & "<set id=""615"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">"
  22. piel = piel & "<set id=""3098"" gender=""F"" club=""2"" colorable=""1"" selectable=""1"">"
  23. piel = piel & "<set id=""206"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">"
  24. piel = piel & "<set id=""3094"" gender=""M"" club=""2"" colorable=""1"" selectable=""1"">"
  25. piel = piel & "<set id=""627"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">"
  26. piel = piel & "<set id=""605"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">"
  27. piel = piel & "<set id=""3099"" gender=""F"" club=""2"" colorable=""1"" selectable=""1"">"
  28. piel = piel & "<set id=""208"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">"
  29. piel = piel & "<set id=""209"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">"
  30. piel = piel & "<set id=""3095"" gender=""M"" club=""2"" colorable=""1"" selectable=""1"">"
  31. piel = piel & "<set id=""628"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">"
  32. piel = piel & "<set id=""629"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">"
  33. piel = piel & "<set id=""3100"" gender=""F"" club=""2"" colorable=""1"" selectable=""1"">"
  34. piel = piel & "<set id=""3101"" gender=""M"" club=""2"" colorable=""1"" selectable=""1"">"
  35. piel = piel & "<set id=""3102"" gender=""M"" club=""2"" colorable=""1"" selectable=""1"">"
  36. piel = piel & "<set id=""3103"" gender=""M"" club=""2"" colorable=""1"" selectable=""1"">"
  37. piel = piel & "<set id=""3104"" gender=""F"" club=""2"" colorable=""1"" selectable=""1"">"
  38. piel = piel & "<set id=""3105"" gender=""F"" club=""2"" colorable=""1"" selectable=""1"">"
  39. piel = piel & "<set id=""3106"" gender=""F"" club=""2"" colorable=""1"" selectable=""1"">"
  40.  
  41. If InStr(piel, "<set id=""" & Getgender) Then
  42. Getgender = Split(piel, "<set id=""" & Getgender & """ gender=""")(1)
  43. Getgender = Split(Getgender, """")(0)
  44. AsignarG = Getgender
  45. End If
  46.  
  47.  
  48.  
  49. End Function

Report this snippet  

You need to login to post a comment.