• 0
GHOST2010

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

سؤال

تحية طيبة للجميع.....

اريد كود لجعل صفحة موقع معين هى الصفحة الرئيسية لمستكشف الانترنت :rolleyes:

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

8 إجابة على هذا السؤال .

  • 0

السلام عليكم

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

تحياتي لك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

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")

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

وفقكم الله

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

تحياتي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .