(12-07-19, 06:00 PM)dasktop كتب : [ -> ]اضف الاداة التالية للمشروع
http://vb4arb.com/vb/attachment.php?aid=17146
عن طريق ctlr +d
https://m.youtube.com/watch?list=PLDJJY_Mbkad92nHkgjUWn4MrH9uM_NPyf&v=jj0zARTCBiw&app=m
(12-07-19, 08:58 PM)kiki كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
استخدم الرابط بهذا الشكل
PHP كود :
https://m.youtube.com/watch?list=PLDJJY_Mbkad92nHkgjUWn4MrH9uM_NPyf&v=jj0zARTCBiw&app=m
https://www.youtube.com/embed/?list=PLDJJY_Mbkad92nHkgjUWn4MrH9uM_NPyf
https://www.youtube.com/embed/?list=PLDJJY_Mbkad92nHkgjUWn4MrH9uM_NPyf&autoplay=1
(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
أخي أبو روضة
إذا مازلت ترغب في التصفح وكأنك تتصفح من موبايل فأخبرني
<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
(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 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
أخي أبو روضة
إذا كان فيه شيء يحتاج توضيح، فأخبرني