Dim sRemote As String = "^\<table width\=\""99\%\"" align\=\""center\"" id\=\""main\-content\"" cellpadding\=\""2\"" cellspacing\=\""0""\>[\\s\\S].*?\<\/td\>\<\/tr\>\<\/table\>$"
Dim strHtml As String = GetRequestString(spath, 5000, 0, UTF8Encoding.UTF8)
strHtml = GetRegValue(strHtml, sRemote)
Me.Label1.Text = strHtml