[Iska]

2All: приношу свои извинения — вместо потребного кода файла реестра я, нелепым образом перепутав созданный файл реестра и резервную копию, выложил выше оригинальное содержимое из резервной копии, а именно — «"%ProgramFiles%\OUTLOOK EXPRESS\MSIMN.EXE" /mailurl:%1», . Поправил.

9190, давайте сделаем чуть попроще. Вот код нового скрипта:

читать дальше »

Код:

Option Explicit

Const HKEY_LOCAL_MACHINE = &H80000002

Dim strWebApp

' Яндекс
'strWebApp = "https://mail.yandex.ru/neo2/#compose/mailto="

' Mail.RU
'strWebApp = "https://e.mail.ru/cgi-bin/sentmsg?mailto="

' GMail
'strWebApp = "https://mail.google.com/mail/?extsrc=mailto&url="

With WScript.Arguments
	If .Count = 1 Then
		WScript.CreateObject("WScript.Shell").Run strWebApp & Escape(.Item(0))
	Else
		If Not IsEmpty(strWebApp) Then
			If WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\default").Get("StdRegProv").SetExpandedStringValue( _
				HKEY_LOCAL_MACHINE, "Software\Classes\mailto\shell\open\command", "", """" & WScript.FullName & """ """ & WScript.ScriptFullName & """ ""%1""" _
			) = 0 Then
				WScript.Echo "Successfully add this script into registry [HKEY_LOCAL_MACHINE\Software\Classes\mailto\shell\open\command\(Default)]."
			Else
				WScript.Echo "Can't add this script into registry [HKEY_LOCAL_MACHINE\Software\Classes\mailto\shell\open\command\(Default)]."
			End If
		Else
			WScript.Echo "Uncomment one of statement string with assignment of «strWebApp» variable, save this script and run again."
		End If
	End If
End With

WScript.Quit 0

Раскомментируйте одну из выделенных строк, определяющих переменную «strWebApp», задающую Web-сервис. Сохраните полученный код под любым именем и с расширением «.vbs» в любом удобном для Вас месте. Запустите его один раз. Он добавит в потребный параметр и раздел реестра ссылку на запуск самого себя с параметром. После этого можно пробовать пользоваться.

Если понадобится сменить Web-сервис — комментируете текущую строку с присваиванием переменной «strWebApp» и раскомментируете потребную и сохраняете код.

Восстановить обработчик по умолчанию — как обычно, в «Выборе программ по умолчанию».