ใน windows form เขียนคำสั่งตามด้านล่าง สามารถอ่านข้อมูลจาก web Browser ได้ปกติ แต่เมื่อไปใช้บน Windows CE 6.0 เจ้าคำสั่ง Dim data As String
data = WebBrowser1.DocumentText ไม่สามารถใช้งานได้ครับมีวิธีการเขียนแบบอื่นหรือเปล่าครับ เพื่อให้ อ่านคำสั่งจาก Webbrowser ได้
Code (VB.NET)
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Dim data As String
data = WebBrowser1.DocumentText
Select Case data(2)
Case "0"
WebBrowser1.Navigate("http://192.168.10.2/iV01")
Case "1"
End Select
End Sub
Private Sub TimerReciveAGV_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerReciveAGV.Tick
WebBrowser1.Navigate("http://192.168.10.2/0")
WebBrowser1.Refresh()
End Sub
ได้แล้วครับ ตาม Code ด้านล่างเลยครับ ขอบคุณ web นี้ ครับ http://www.youtube.com/watch?v=LC8KVVTTjXQ
Code (VB.NET)
Function getHTML(ByVal Address As String) As String
Dim rt As String = ""
Dim wRequest As WebRequest
Dim wResponse As WebResponse
Dim SR As StreamReader
wRequest = WebRequest.Create(Address)
wResponse = wRequest.GetResponse
SR = New StreamReader(wResponse.GetResponseStream)
rt = SR.ReadToEnd
SR.Close()
Return rt
End Function
Private Sub TimerReceiveAGVIP_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerReceiveAGVIP.Tick
Dim strReceiveAGV As String = getHTML("http://192.168.10.2/StsNet.htm")
End Sub