ميدونين چطوري ميشه جلوي :About درآدرس بار IE بنويسيم G ؛ برامون سايت GOOGLE.com رو باز كنه؟؟!!

[AtAgAmEr 2689]

سلام

 

ديدين كه وقتي يه تب رو توي 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

 

برنامه اجرايي

 

 

سورس برنامه

 

 

 

 

فقط به اين قسمت دقت كنيد كه اون كاراكتر نامفهوم بايد پاك بشه

 

نمونه فايل ايجاد شده

 

اميدوارم استفاده لازم رو برده باشيد

يا حق

 

 

 

 

 

 

ویرایش شده مارچ 18, 2013 توسط atagamer