วันพุธที่ 31 มีนาคม พ.ศ. 2564

การใช้ WebClient สำหรับเรียก URL

Dim _url As String = "https://www.MyDomain.com/?q=ทดสอบ"

Dim wc As New System.Net.WebClient()

wc.Encoding = System.Text.Encoding.UTF8


' เสนอการใช้งาน 3 แบบคือ

' 1) ใช้เรียก HTML ของเว็บไซต์นั้นแล้วส่งค่าให้ตัวแปร

Dim Result As String = wc.DownloadString(_url

' 2) ใช้ส่งค่าไปยังเว็บไซต์ผ่าน URL
wc.OpenRead(_url)

' 3) เรียก HTML แล้วนำไปสร้างเป็นไฟล์ในเครื่องเรา
wc.DownloadFile(_url,
"C:\Log Files\123.html")

 

wc.Dispose()

wc = Nothing

 

'******************* อีกแบบครับ ****************

Dim HttpWebRequestX As System.Net.HttpWebRequest = CType(System.Net.WebRequest.Create(_url), System.Net.HttpWebRequest)

HttpWebRequestX.Method = "GET"

Dim WebResponseX As System.Net.WebResponse = HttpWebRequestX.GetResponse()

Dim StreamReaderX As System.IO.StreamReader = New System.IO.StreamReader(WebResponseX.GetResponseStream(), System.Text.Encoding.UTF8)

Dim Source As String = StreamReaderX.ReadToEnd()

StreamReaderX.Close()

WebResponseX.Close()


ไม่มีความคิดเห็น:

แสดงความคิดเห็น

การใช้ WebClient สำหรับเรียก URL

Dim _url As String = " https :// www . MyDomain . com /?q=ทดสอบ " Dim wc As New System . Net . WebClient () wc . Encodin...