台灣最大程式設計社群網站
線上人數
1127
 
會員總數:246046
討論主題:189630
歡迎您免費加入會員
討論區列表 >> VB.NET >> WEBBROWSER 偽裝 Header
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
WEBBROWSER 偽裝 Header
價值 : 250 QP  點閱數:82 回應數:2
樓主

順子
初學者
636 80
2839 396
發送站內信

捐贈 VP 給 順子
源碼
Dim sHeaders As String
sHeaders = "User-Agent: Mozilla/5.0 (iPhone; CPU iPhone OS 13_3_1 like Mac OS X) AppleWebKit/605.1.15 (KHTML, like Gecko) Version/13.0.5 Mobile/15E148 Safari/604.1" & vbCrLf
WebBrowser1.Navigate("http://154.213.219.250/ua.asp", "_self", Nothing, sHeaders)

偽裝後 開啟頁面偽裝成功了
但是... 若在WEBBROWSER內重整後 偽裝的USER AGENT 竟然變成IE了
想請教各位大大 有人知道這問題要怎解決嗎?
要怎麼才能持續偽裝的 USER-AGENT?

搜尋相關Tags的文章: [ WEBBROWSER ] ,
本篇文章發表於2020-08-17 21:32
1樓
作者回應

順子
捐贈 VP 給 順子 檢舉此回應
找到方法了.... ^^
Module Module1
<Runtime.InteropServices.DllImport("urlmon.dll", CharSet:=Runtime.InteropServices.CharSet.Ansi)>
Private Function UrlMkSetSessionOption(
ByVal dwOption As Integer,
ByVal pBuffer As String,
ByVal dwBufferLength As Integer,
ByVal dwReserved As Integer) As Integer
End Function

Const URLMON_OPTION_USERAGENT As Integer = &H10000001

Public Sub ChangeUserAgent(ByVal Agent As String)
UrlMkSetSessionOption(URLMON_OPTION_USERAGENT, Agent, Agent.Length, 0)
End Sub
End Module
本篇文章回覆於2020-08-17 22:29
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
回應

香帥
檢舉此回應
通常偽裝都是自己寫socket對談,尤其開源軟體很多,拿來改一下成為自己熟悉的語言,建議不要用WebBrowser,因為會碰到改版問題,容易曝光。
本篇文章回覆於2020-08-18 16:49
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.