ให้ด้วยนะครับ
โดยกำหนด Referer // User Agent และ อื่นๆ ที่สามารถ Request ได้โดยผ่าน Method Navigate
โดยผมทดสอบ ดัก HTTP Request มา
GET /?hl=th HTTP/1.1
Host: www.youtube.com
Connection: keep-alive
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/27.0.1453.116 Safari/537.36
Referer: https://www.google.co.th/
Accept-Encoding: gzip,deflate,sdch
Accept-Language: th-TH,th;q=0.8
Dim Header as string = "Referer: https://www.google.co.th/" & vbCrLf & "User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/27.0.1453.116 Safari/537.36" & vbCrLf
ในโค้ด กำหนด ตัวแปร เป็น String ใส่ ค่า Referer กับ User Agent ที่จะส่งไป Request ไว้
การใช้งาน
WebBrowser1.Navigate(URL, "_self", Nothing, Header)
เรียกใช้ Webbrowser Navigate โดยการกำหนด Header ไว้ ใน Function Agument
