''' <summary>
''' 获取网页html源码。
''' </summary>
''' <param name="AUrl"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function GetHtml(ByVal AUrl As String, ByVal APageCode As System.Text.Encoding) As String
Dim httpReq As System.Net.HttpWebRequest = Nothing
Dim httpResp As System.Net.HttpWebResponse = Nothing
Dim httpURL As New System.Uri(AUrl)
Dim reader As IO.StreamReader = Nothing
Dim htmlStr As String = String.Empty
Try
httpReq = CType(Net.WebRequest.Create(httpURL), Net.HttpWebRequest)
httpReq.Method = "GET"
httpResp = CType(httpReq.GetResponse(), Net.HttpWebResponse)
reader = New IO.StreamReader(httpResp.GetResponseStream, APageCode)
htmlStr = reader.ReadToEnd()
Catch ex As Exception
Finally
If Not IsNothing(reader) Then reader.Close()
If Not IsNothing(httpResp) Then httpResp.Close()
End Try
Return htmlStr
End Function
/* 1 construct html form 2 bind data to form 3 validate form data 4 collect data from form */ (function($){ var controlTypes = ['textbox','password',' ......
<OBJECT height="700" width="800" border="0" classid="clsid:CA8A9780-280D-11CF-A24D-444553540000"
>
<PARAM NAME="_Version" VALUE="65539">
<PARAM NAME="_ExtentX" VALUE="20108">
<PARAM NAME="_ExtentY" VALUE="10866">
<PARAM NAME="_StockProps" VALUE="0">
<PARA ......
