Explorer'da TITLE Problemi ve Çözümü

Internet konusunda bilgi ve ipuçları paylaşım alanıdır.
Cevapla
Kullanıcı avatarı
velociraptor
Yottabyte3
Yottabyte3
Mesajlar: 28496
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek

Explorer'da TITLE Problemi ve Çözümü

Mesaj gönderen velociraptor » 11 Kas 2009, 19:56

Eğer, IE tarayıcısında dolaştığınız sitelerin site başlıkları gözükmüyorsa aşağıdaki script'i kullanabilirsiniz

Kod: Tümünü seç

'chgietitle.vbs - Change Title bar text in IE5
'or restores to default value of Microsoft Internet Explorer
'© Doug Knox - rev 12/05/99

Option Explicit

'Declare variables
Dim WSHShell, n, MyBox, p, p1, t, cn, Caption

'set variables and Shell
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Internet Explorer\Main\Window Title"
p1 = "HKLM\Software\Microsoft\Internet Explorer\Main\Window Title"
t = "Change IE Title Bar Text"
Caption = "Would you like to use the default" & vbCR
Caption = Caption & "value of Microsoft Internet Explorer?"
'This section reads the current value if any and puts it in an Input Box
'where you may change it as you like for Internet Explorer
'adds/changes keys in HKCU
MyBox = MsgBox(Caption, 4131, t)

If MyBox = vbCancel Then
   WScript.Quit
ElseIf MyBox = vbNo Then
   On Error Resume Next
   n = WSHShell.RegRead(p)
   On Error Goto 0
   cn = InputBox("Type new Title Text and click OK", t, n)
   If cn <> "" then
      WSHShell.RegWrite p, cn
      WSHShell.RegWrite p1, cn
   End If
ElseIf MyBox = vbYes Then
	WSHShell.RegDelete p
	WSHShell.RegDelete p1
End If
ALINTIDIR
Knowledge determines destiny, And ye shall know the Truth and the Truth shall make you free



Cevapla