CHPP Development/VB.NET/

From Hattrick
Revision as of 17:50, 27 February 2006 by 88.152.141.180 (talk)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigationJump to search

Code #1: Getting the recommended server


Protected Function Get_Recommended_Server() 

   Dim xmlds As New System.Data.DataSet
   Dim xmlTable As New System.Data.DataTable
   Dim xmldr As System.Data.DataRow()
   xmlds.ReadXml("http://www.hattrick.org/common/menu.asp?outputType=XML")
   xmlTable = xmlds.Tables("HattrickData")
   xmldr = xmlTable.Select(Nothing, Nothing, Data.DataViewRowState.CurrentRows)
   Return (xmldr(0)(5).ToString)

End Function

Retrieved from "https://wiki.hattrick.org/index.php?title=CHPP_Development/VB.NET/&oldid=18892"