سلام
ديدين كه وقتي يه تب رو توي IE باز ميكنين يا حتي IE رو برا اولين بار باز ميكنين توي آدرس بار نوشته شده
about:Tabs
خوب ،ميخوام بهتون يه راهي بگم كه هر موقع نوشتين مثلاً about:G مستقيم بره به وب سايت google.com و ياهر سايت ديگه اي كه دوست دارين / اول از همه محل تنظيمات رو بهتون ميگم و بعدش برنامه نويسيش رو
برا اينكار به ترتيب زير عمل كنين
1- در قسمت Run ويندوز (WinKey + R) بنويسيد regedit
2- در پنجره باز شده به اين آدرس بريد
حالا روي عبارت AboutURLs راست كليك كنيد
كه بعدش ميشه اين
كه در قسمت NAME درسمت راست پانل نوشتم m و بعد در قسمت Value Data هم آدرس اينترنتي رو نوشتم و بعد هم OK
=================================================
خوب حالا همه اينارو با كدنويسي در ويژوال بيسيك 6 انجام ميديم
يه همچين فرمي رو ايجاد ميكنيم
برنامه زمانيكه اجرا ميشه بايد يك كپي از زيرشاخه انتخابي ايجاد كنه - چرا ؟ برا اينكه از داخل اون فايل بتونه نسخه برنامه اديتور رجيستري رو دربياره ( راهيديگه نميدونم )
Shell "regedit.exe /e c:\RegistryEditorVersion.reg HKEY_USERS"
ايجاد كپي و ذخيره با نام RegistryEditorVersion.reg
Dim Textline As String
Filenum = FreeFile Open "c:\RegistryEditorVersion.reg" For Input As Filenum Line Input #Filenum, Textline
خواندن سطراول فايل مذكور براي بدست آوردن نسخه اديتور
Close Filenum Text4.Text = Textline
نوشتم نسخه اديتور در فيلد خودش
Text1.Enabled = True Text2.Enabled = True Command1.Enabled = True
خوب حالابايد برنامه اطلاعات لازم رو از فيلدهاي مربوطه گرفته و فايل رجيستري ايجاد كرده و بعد اون رو به رجيستري سيستم اعمال كنه
Text4.Text = RTrim(Text4.Text) Text4.Text = LTrim(Text4.Text) ver = Text4.Text
نسخه اديتور رو از فيلد مربوطه گرفته و فضاهاي خالي طرفين رو حذف ميكنه
ki = "[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\AboutURLs]" Text3.Text = """" & Text2.Text & """" & "=" & """" & "http://www." & Text1.Text & """"
كليد مربوط به رجيستري و آدرس وب سايت همرا با آلياسي ( مخفف ) مورد نظر رو از فيل مربوطه گرفته
Filenum = FreeFile Close #Filenum
Open "c:\" & Text2.Text & ".reg" For Append As Filenum
فايلي با نام آلياس ( مخفف ) ايجاد ميكنه Print #Filenum, ver Print #Filenum, ki Print #Filenum, Text3.Text
و در آن فايل به ترتيب نسخه اديتور - كليد مربوط به رجيستري و آلياس رو مينويسه
Close #Filenum Shell "regedit.exe /s " & "c:\" & Text2.Text & ".reg"
بعدش فايل رجيستري ساخته شده رو اجرا ميكنه و اعمال ميكنه
Text1.Text = Empty Text2.Text = Empty Text1.SetFocus
برنامه اجرايي
سورس برنامه
فقط به اين قسمت دقت كنيد كه اون كاراكتر نامفهوم بايد پاك بشه
نمونه فايل ايجاد شده
اميدوارم استفاده لازم رو برده باشيد
يا حق