13-07-19, 10:06 PM
تكرم أخي أبو روضة
عندما يرسل المتصفح طلباً يكون الطلب متضمن خاصية إسمها UserAgent
وفيها بيانات تدل على نوع نظام التشغيل الذي يعمل عليه.
والموقع يقرأ هذه الخاصية، ومن خلال بياناتها يعرف الموقع إذا كان الطلب أتى من كمبيوتر أم من موبايل.
ولو غيرنا بيانات هذه الخاصية من أجل إيهام الموقع أن التصفح يتم من نظام أندرويد فسوف يجيب على الطلب بما يناسبه.
ونظام الويندوز فيه API ممكن من خلالها تغيير محتوى الخاصية UserAgent
وهي UrlMkSetSessionOption مع تحديد URLMON_OPTION_USERAGENT
هذا الكود في تجميعة لبيانات UserAgent مختصرة لعدة أنظمة تشغيل، تستطيع إختيار ما تريد.
ضع هذا الكود في الفورم.
أخي أبو روضة
إذا كان فيه شيء يحتاج توضيح، فأخبرني
عندما يرسل المتصفح طلباً يكون الطلب متضمن خاصية إسمها UserAgent
وفيها بيانات تدل على نوع نظام التشغيل الذي يعمل عليه.
والموقع يقرأ هذه الخاصية، ومن خلال بياناتها يعرف الموقع إذا كان الطلب أتى من كمبيوتر أم من موبايل.
ولو غيرنا بيانات هذه الخاصية من أجل إيهام الموقع أن التصفح يتم من نظام أندرويد فسوف يجيب على الطلب بما يناسبه.
ونظام الويندوز فيه API ممكن من خلالها تغيير محتوى الخاصية UserAgent
وهي UrlMkSetSessionOption مع تحديد URLMON_OPTION_USERAGENT
هذا الكود في تجميعة لبيانات UserAgent مختصرة لعدة أنظمة تشغيل، تستطيع إختيار ما تريد.
ضع هذا الكود في الفورم.
PHP كود :
<Runtime.InteropServices.DllImport("urlmon.dll")>
Private Shared Function UrlMkSetSessionOption(ByVal dwOption As Integer, ByVal pBuffer As String, ByVal dwBufferLength As Integer, ByVal dwReserved As Integer) As Integer
End Function
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
'--- UserAgent Changing ---'
Const URLMON_OPTION_USERAGENT As Integer = &H10000001
Dim MacUserAgent As String = "Mozilla/5.0 (Macintosh)"
Dim iPadUserAgent As String = "Mozilla/5.0 (iPad)"
Dim iPhoneUserAgent As String = "Mozilla/5.0 (iPhone)"
Dim AndroidUserAgent As String = "Mozilla/5.0 (Android 2.2)"
Dim WindowsUserAgent As String = "Mozilla/5.0 (Windows NT 6.0)"
Dim LinuxUserAgent As String = "Mozilla/5.0 (X11)"
UrlMkSetSessionOption(URLMON_OPTION_USERAGENT, AndroidUserAgent, AndroidUserAgent.Length, 0)
'--- End UserAgent Changing ---'
End Sub
أخي أبو روضة
إذا كان فيه شيء يحتاج توضيح، فأخبرني

