تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف اجعل الويب براوزر بصيغة الموبيل
#1
السلام عليكم اخوتى
كلما احاول الدخول لليوتيوب من الويب براوزر بهذا الرابط مثلا
يدخل عادى وكأنه من الكمبيوتر هكذا


وانا أريده يغير ال www بال M
فكيف يتم هذا الله يكرمكم.
مع انى مغير الرابط بال m لكن عند الدخول يرجع مرة اخرى لل www
الرد }}}
تم الشكر بواسطة:
#2
اضف الاداة التالية للمشروع

http://vb4arb.com/vb/attachment.php?aid=17146


عن طريق ctlr +d
الرد }}}
#3
(12-07-19, 06:00 PM)dasktop كتب : اضف الاداة التالية للمشروع

http://vb4arb.com/vb/attachment.php?aid=17146


عن طريق ctlr +d

لا يوجد تغير أخى هو هو
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#4
وعليكم السلام ورحمة الله وبركاته

استخدم الرابط بهذا الشكل
PHP كود :
https://m.youtube.com/watch?list=PLDJJY_Mbkad92nHkgjUWn4MrH9uM_NPyf&v=jj0zARTCBiw&app=m 
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#5
(12-07-19, 08:58 PM)kiki كتب : وعليكم السلام ورحمة الله وبركاته

استخدم الرابط بهذا الشكل
PHP كود :
https://m.youtube.com/watch?list=PLDJJY_Mbkad92nHkgjUWn4MrH9uM_NPyf&v=jj0zARTCBiw&app=m 

شكرا لك أخى لكنه ايضا عند فتح الصفحة المرادة يرجع كما كان...
عموما مش مهم أنا قلت أأخذ فكرة فقط يمكن تنفع لآنه سيكون أسرع بكثير
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#6
أخي أبو روضة

ما راح تستفيد من فتح الرابط المذكور وكأنه على الموبايل لأن يختلف عن الكمبيوتر
صحيح أن صور الفيديوهات تظهر ولكن عند الضغط على أي فديو يوتيوب من أجل تشغيله ماراح يشتغل

إن كنت تقصد بالسرعة بأن تتجنب تحميل كامل صفحة اليويوب العادية التي تحتوي على التعليقات وغيرها
فاليوتيوب يتيح استخدم أسلوب embed في الرابط الذي يفتح نافذة الفديو فقط بكامل صفحة المتصفح مثل
PHP كود :
https://www.youtube.com/embed/?list=PLDJJY_Mbkad92nHkgjUWn4MrH9uM_NPyf 

وإذا أردت أن يبدأ تشغيل أول فيديو من القائمة مباشرة أضف autoplay=1 مثل
PHP كود :
https://www.youtube.com/embed/?list=PLDJJY_Mbkad92nHkgjUWn4MrH9uM_NPyf&autoplay=1 


أخي أبو روضة
إذا مازلت ترغب في التصفح وكأنك تتصفح من موبايل فأخبرني
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , ابو روضة
#7
(13-07-19, 09:11 PM)الحازمي كتب : أخي أبو روضة

ما راح تستفيد من فتح الرابط المذكور وكأنه على الموبايل لأن يختلف عن الكمبيوتر
صحيح أن صور الفيديوهات تظهر ولكن عند الضغط على أي فديو يوتيوب من أجل تشغيله ماراح يشتغل

إن كنت تقصد بالسرعة بأن تتجنب تحميل كامل صفحة اليويوب العادية التي تحتوي على التعليقات وغيرها
فاليوتيوب يتيح استخدم أسلوب embed في الرابط الذي يفتح نافذة الفديو فقط بكامل صفحة المتصفح مثل
PHP كود :
https://www.youtube.com/embed/?list=PLDJJY_Mbkad92nHkgjUWn4MrH9uM_NPyf 

وإذا أردت أن يبدأ تشغيل أول فيديو من القائمة مباشرة أضف autoplay=1 مثل
PHP كود :
https://www.youtube.com/embed/?list=PLDJJY_Mbkad92nHkgjUWn4MrH9uM_NPyf&autoplay=1 


أخي أبو روضة
إذا مازلت ترغب في التصفح وكأنك تتصفح من موبايل فأخبرني

فعلا كدة سريع أخى ولا يأخذ وقت بارك الله فيك وفى عمرك ووقتك....
لو الطريقة سهلة ومش هاتتعبك بتاعة الموبيل يبقى زيادة الخير خيرين كما نقول
لكن لو هتاخد وقت من حضرتك يبقى مش مهم وتكرم والله
الرد }}}
تم الشكر بواسطة: الحازمي
#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 

أخي أبو روضة
إذا كان فيه شيء يحتاج توضيح، فأخبرني
الرد }}}
#9
(13-07-19, 10:06 PM)الحازمي كتب : تكرم أخي أبو روضة

عندما يرسل المتصفح طلباً يكون الطلب متضمن خاصية إسمها 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 

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

كتر ألف خيرك أخى الكريم ماشاء الله عليك..
بتذكرنى بأخ غالى على قلبى غائب من مُدّة الله يحفظك أخى " بدرى "
ويحفظك أخى الكريم الحازمي ويبارك بعمرك
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , الحازمي , الحازمي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تحويل المشروع سطح المكتب للعمل على الويب Doby 3 381 13-01-24, 04:22 AM
آخر رد: dr.programming
  كيف اجعل قيمة dateTimePicker2 تساوي dateTimePicker1 Adel27213 2 283 09-11-23, 09:07 PM
آخر رد: Adel27213
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 490 05-11-23, 01:45 AM
آخر رد: justforit
  [VB.NET] كيف اجعل البرنامج يحدد اخر يوم من كل شهر Adel27213 2 365 03-11-23, 06:50 AM
آخر رد: Adel27213
  تصميم برنامج على الويب تركي احمد 6 828 24-05-23, 01:29 AM
آخر رد: سعود
  هل ممكن اجعل عناصر ال LISTBOX بشكل افقي ismaeel 0 381 01-05-23, 11:26 PM
آخر رد: ismaeel
  [VB.NET] كيفية جلب البيانات من مواقع الويب إلى vb.net lysalh65@gmail.com 3 634 14-01-23, 07:14 AM
آخر رد: lysalh65@gmail.com
  ممكن كود برنامج حفظ بصيغة exe. oussama vb.net 6 3,242 17-09-22, 01:23 PM
آخر رد: ThurmMl
  قراءة خلية من الداتا قريد بصيغة نص aftfm 0 695 21-08-22, 05:22 AM
آخر رد: aftfm
  كيف اجعل Autoscroll هي التي تزيد عدد الصفوف في عرض البيانات عبدالكريم برشدان 1 625 07-08-22, 02:55 PM
آخر رد: asmarsou

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم