تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف اجعل الويب براوزر بصيغة الموبيل
#8
تكرم أخي أبو روضة

عندما يرسل المتصفح طلباً يكون الطلب متضمن خاصية إسمها UserAgent
وفيها بيانات تدل على نوع نظام التشغيل الذي يعمل عليه.

والموقع يقرأ هذه الخاصية، ومن خلال بياناتها يعرف الموقع إذا كان الطلب أتى من كمبيوتر أم من موبايل.

ولو غيرنا بيانات هذه الخاصية من أجل إيهام الموقع أن التصفح يتم من نظام أندرويد فسوف يجيب على الطلب بما يناسبه.

ونظام الويندوز فيه API ممكن من خلالها تغيير محتوى الخاصية UserAgent
وهي UrlMkSetSessionOption مع تحديد URLMON_OPTION_USERAGENT

هذا الكود في تجميعة لبيانات UserAgent مختصرة لعدة أنظمة تشغيل، تستطيع إختيار ما تريد.

ضع هذا الكود في الفورم.
PHP كود :
<Runtime.InteropServices.DllImport("urlmon.dll")>
Private 
Shared Function UrlMkSetSessionOption(ByVal dwOption As IntegerByVal pBuffer As StringByVal dwBufferLength As IntegerByVal dwReserved As Integer) As Integer
End 
Function

Private 
Sub Form1_Load(ByVal sender As ObjectByVal e As EventArgsHandles 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_USERAGENTAndroidUserAgentAndroidUserAgent.Length0)
 
   '--- End UserAgent Changing ---'
End Sub 

أخي أبو روضة
إذا كان فيه شيء يحتاج توضيح، فأخبرني
الرد }}}


الردود في هذا الموضوع
RE: كيف اجعل الويب براوزر بصيغة الموبيل - بواسطة الحازمي - 13-07-19, 10:06 PM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تحويل المشروع سطح المكتب للعمل على الويب Doby 5 1,343 06-07-24, 12:25 PM
آخر رد: DOX.1
  حفظ الصورة من picture box وحفظها بصيغة pdf جيولوجي مبتدئ 8 762 09-06-24, 04:02 PM
آخر رد: جيولوجي مبتدئ
  كيف اجعل قيمة dateTimePicker2 تساوي dateTimePicker1 Adel27213 2 636 09-11-23, 09:07 PM
آخر رد: Adel27213
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 937 05-11-23, 01:45 AM
آخر رد: justforit
  [VB.NET] كيف اجعل البرنامج يحدد اخر يوم من كل شهر Adel27213 2 663 03-11-23, 06:50 AM
آخر رد: Adel27213
  تصميم برنامج على الويب تركي احمد 6 1,348 24-05-23, 01:29 AM
آخر رد: سعود
  هل ممكن اجعل عناصر ال LISTBOX بشكل افقي ismaeel 0 620 01-05-23, 11:26 PM
آخر رد: ismaeel
  [VB.NET] كيفية جلب البيانات من مواقع الويب إلى vb.net lysalh65@gmail.com 3 962 14-01-23, 07:14 AM
آخر رد: lysalh65@gmail.com
  ممكن كود برنامج حفظ بصيغة exe. oussama vb.net 6 3,591 17-09-22, 01:23 PM
آخر رد: ThurmMl
  قراءة خلية من الداتا قريد بصيغة نص aftfm 0 1,009 21-08-22, 05:22 AM
آخر رد: aftfm

التنقل السريع :


يقوم بقرائة الموضوع: