JS: открыть в броузере IE родительского окна не новое окно, а вкладку

null@example.com (Rom5) — Fri, 12 Oct 2012 08:07:14 +0000

Возникла мысль, как упростить открытие в IE размещенных в тестовых комментах сайтов специально видоизмененных ссылок - с добавленными в адрес пробелами и всякими спец.символами.

Идею оформил простенькой html-страничкой, вызываемой из контекстноого меню при выделении такой "битой ссылки". Скрипт пробует убрать явно лишние символы, добавляет "http://" (если не было), тестирует доступность адреса методом приведенным в ветке JavaScript: как получить по javascript-ссылке адрес для загрузки файла, если тест успешен, то страничка со скриптом закрывается, а ссылка без лишних вопросов открывается в новом окне IE, если тест неуспешен, то дается возможность перед запуском перехода адрес подправить.

Вот, текст страницы IE_OpenAddrInNewWin.htm:









Open in New Window...





[]













	









 IE_OpenAddrInNewWin.htm v0.2 by 11.10.2012   © R.G.

Вот, скрипт IE_OpenAddrInNewWin_setup.vbs для настройки меню:


' IE_OpenAddrInNewWin_setup.vbs
' ----------------------------------------------------------------------------------------
' Добавляет/Удаляет в контекстное меню Internet Explorer пункт
' ----------------------------------------------------------------------------------------

'--- имя добавляемого пункта
Const csMenu = "_Open selected HTTP-Address in New Window"

'--- имя прописываемого для пункта HTML-файла
Const csFile = "IE_OpenAddrInNewWin.htm"

'--- описание фцнкционала добавляемого пункта
Const csDescription = "для добавления возможности открытия выделенного на странице адреса в новом окне"


Dim WshShell, FSO
Set WshShell = WScript.CreateObject("WScript.Shell")
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")

Dim REG_MENUEXT, REG_NEWMENU, rc, sPathApp, sPathHTM
REG_MENUEXT = "HKCU\Software\Microsoft\Internet Explorer\MenuExt\" ' путь к меню Internet Explorer в реестре
sPathApp = fso.GetAbsolutePathName(".") 'путь к каталогу запуска задачи'
sPathHTM = sPathApp & "\" & csFile 'полный путь к HTML-странице

'--- проверка наличия в IE нашего пункта'
If uf_keyExists( REG_MENUEXT & csMenu & "\" ) Then 
	'--- менюшка уже есть, предлагаем удалить'
	rc=MsgBox("Удалять из меню Internet Explorer данный пункт ?" & vbCrLf & vbCrLf & _
	"Назначение пункта: " & csDescription & ".", vbQuestion + vbOKCancel, csMenu)
	If rc=vbOK Then
		WshShell.RegDelete( REG_MENUEXT & csMenu & "\" )
		MsgBox "Удаление выполнено." & vbCrLf &_
			"Перезапустите Internet Explorer, чтобы изменения вступили в силу" & vbCrLf & vbCrLf, _
			vbInformation, "Удаление в IE меню """ & csMenu & """"
	End IF
else '--- пункта меню нет, предлагаем установить'
	rc = MsgBox("Хотите добавить в контекстное меню Internet Explorer пункт """ & csMenu & """" & vbCrLf & vbCrLf & _
		csDescription & vbCrLf & vbCrLf, _
		vbYesNo OR vbQuestion, "Установка """ & csMenu & """")
	If rc=vbYes Then
		' Записываем в реестр требуемые значения
		REG_NEWMENU = REG_MENUEXT & csMenu & "\"
		WshShell.RegWrite REG_NEWMENU, sPathHTM, "REG_SZ"
		WshShell.RegWrite REG_NEWMENU & "Contexts", 4+8+16+32, "REG_DWORD" 'Controls + Tables + Text selection + Anchor'
		WshShell.RegWrite REG_NEWMENU & "Flags",    1, "REG_DWORD"
		WshShell.RegWrite REG_NEWMENU & "My_Desccription", csDescription, "REG_SZ" 'Собственный.параметр реестра - описание пункта'
		MsgBox "Данные были успешно внесены," & vbCrLf & _
			"путь к программе прописан следующий - """&sPathHTM&"""." & vbCrLf & vbCrLf & _
			"Перезапустите Internet Explorer, чтобы изменения вступили в силу, " &_
			"добавленный пункт будет отображаться в контекстном меню при наличии выделенного на странице текста." & vbCrLf &vbCrLf,_
			vbInformation, csMenu
	End IF
End If

Set FSO = Nothing
Set WshShell = Nothing


'--- проверка наличия ключа реестра'
Function uf_keyExists(key)
  Dim key2    
  On Error Resume Next
  key2 = WshShell.RegRead(key)
  If Err <> 0 Then
    uf_keyExists = False
  Else
    uf_keyExists = True
  End If
  On Error GoTo 0
End Function

Имхо, получилось довольно удобно открывать такие ссылки, но еще хотелось бы, чтобы по возможности открывалось не новое окно броузера, а новая вкладка.

В строке:

onclick="var url=document.getElementById('tParam').value;
        var win=window.open(url); win.focus(); window.close();"

пробовал "методом тыка" изменять "window.open(url);" на "window.open(url,'_blank');", на "parentwin.open(...);" - открытие в новой вкладке так и не добился.
Прошу Вашей подсказки.

Серый форум — JS: открыть в броузере IE родительского окна не новое окно, а вкладку

JS: открыть в броузере IE родительского окна не новое окно, а вкладку