سؤال يبحث عن رد عاجل

السلام عليكم

يمكنك عمل ذلك بالكتابة في Windows Regisey على المسار التالي :

HKEY_CURRENT_USER \ Software \ Microsoft \ Internet Explorer \ Main \ Start Page

شكراً جزيلاً لك :rolleyes:

تفضل الكود التالي يبدل لك الصفحه الرئيسية الى التي تريدها :

Private Declare Function RegCloseKey Lib "advapi32.dll" _
    (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" _
    Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey _
    As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias _
    "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName _
    As String, ByVal Reserved As Long, ByVal dwType As Long, _
    lpData As Any, ByVal cbData As Long) As Long
Private Const REG_SZ = 1
Private Const HKEY_CURRENT_USER = &H80000001
Public Sub SaveString(hKey As Long, Path As String, _
    Name As String, Data As String)
    Dim KeyHandle As Long
    Dim r As Long
    r = RegCreateKey(hKey, Path, KeyHandle)
    r = RegSetValueEx(KeyHandle, Name, 0, _
        REG_SZ, ByVal Data, Len(Data))
    r = RegCloseKey(KeyHandle)
End Sub
Public Sub SetStartPage(URL As String)
    Call SaveString(HKEY_CURRENT_USER, _
        "Software\Microsoft\Internet Explorer\Main", _
        "Start Page", URL)
End Sub
Private Sub Command1_Click()
SetStartPage ("http://www.code4arab.com")
End Sub

والصفحه الرئيسية في هذا الكود موجوده في السطر قبل الأخير ..

تحياتي لك

شكراً جزيلاً على الكود الرائع والمشاركة الفعالة بارك الله فيكم جميعاً :rolleyes:

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

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

أخي العزيز :: محمد المهدي ::

تفضل هذا مثال على ما طلبته :

Private Sub SetHomePage(URL As String)
    Dim W As Object
    Set W = CreateObject("WScript.Shell")

    Const Key = "HKCU\Software\Microsoft\" _
            + "\Internet Explorer\Main\Start Page"

    W.RegWrite Key, URL

    Set W = Nothing
End Sub

ولاستخدام هذا الإجراء قم باستخدام الكود التالي في المكان الذي تريده :

    SetHomePage ("http://www.google.com.sa")

ولوضع الصفحة الرئيسية عبارة عن صفحة فارغة استخدم الكود التالي :

    SetHomePage ("about:blank")

وتقبل تحياتي ،،

يبدو أنني لم ألاحظ أن أخي النبهاني قد سبقني في الإجابة

جزاك الله أخي النبهاني خيرًا

وفقكم الله

بالعكس اخي العزيز شكرا لك على الفائده الرائعه وطريقتك رائعه جدا واحترافيه ..

تحياتي

شكراً لكم جميعاً والطرق كلها رائعة وتؤدى نفس الغرض زادكم الله من علمه :rolleyes: