23-09-22, 10:36 PM
هذا كود فتح الروابط :
في الجزء الأول تضع عنوان المتصفح (تقريبا يقبلا أغلب أنواع المتصفحات).
ثم مسافة
في الجزء الثاني تضع الرابط الذي تريد فتحه
--
في القسم الثاني بعد الفاصلة تحدد هل تريد فتح الصفحة بكامل الشاشة أو عادي أو مصغر.
كود :
Dim BrowserAddress As String = "C:\Program Files\Google\Chrome\Application\chrome.exe"
Dim strUrl As String = "www.goolge.com"
Shell(BrowserAddress & " " & strUrl, vbMaximizedFocus)في الجزء الأول تضع عنوان المتصفح (تقريبا يقبلا أغلب أنواع المتصفحات).
ثم مسافة
في الجزء الثاني تضع الرابط الذي تريد فتحه
--
في القسم الثاني بعد الفاصلة تحدد هل تريد فتح الصفحة بكامل الشاشة أو عادي أو مصغر.
قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
