تحية طيبة للجميع.....
اريد كود لجعل صفحة موقع معين هى الصفحة الرئيسية لمستكشف الانترنت :rolleyes:
تحية طيبة للجميع.....
اريد كود لجعل صفحة موقع معين هى الصفحة الرئيسية لمستكشف الانترنت :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
السلام عليكم
يمكنك عمل ذلك بالكتابة في 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:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
هذا الموضوع مغلق.