جعل الصفحة الرئيسة للانترنت الصفحة الذي أريدها

السلام عليكم ورحمة الله وبركاته

هذا الكود لتغيير الصفحة الرئيسية للمتصفح

Dim O As Object
Private Sub Form_Load()
Set O = CreateObject("WScript.Shell")
O.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", "", "REG_SZ"
End Sub

بارك الله فيك واسعدك

وجزاك الله كل الخير

بسم الله الرحمن الرحيم

------------------------

يمكنك تطوير الفكرة عن طريق تبيدل ,"http:hfh.com"

ب ,text1.text

مع وضع textbox في الفورم ووضع الكود في اداة الزر

كيف ممكن أجعل .. عندما يعمل تشغيل للبرنامج

تظهر له نافذة منبثقة ..

مثل الإعلانات؟؟؟؟؟؟؟

كيف يتم ذلك بارك الله فيكم

وشكرا

للرفع

للرفع مع وجود امل للرد

اخى العزيز رزان...

السلام عليكم ورحمة الله وبركاته

هل يمكنك توضيح السؤال اكثر من ذلك...؟

;) ;) :rolleyes:

السؤال إنني أريد ..أن تظهر صفحة الانترنت

بدون قوائم ملف تحرير عرض ... إلى أخر

وبدون رموز الخلف الأمام إيقاف .. إلى أخر

وأتحكم في طول وعرض الصفحة الإكسبلور التي سوف تفتح

وشكرا

للرفع

السلام عليكم..

Dim IE As Object

Set IE = CreateObject("InternetExplorer.Application")

With IE
.ToolBar = False
.Resizable = False
.Visible = True
.width = 200
.height = 200
.Navigate("ArabTeam2000.com")

End With

فقط لا تنسي إضافة مكتبة Microsoft Internet controls من نافذة References

بارك الله فيك أخي الفاضل

Pharaonic_Guy

أنار الله طريقك بالخير والصواب

شكرا لكم جميعا