AkelPad

Code: Select all

if (! AkelPad.Include("CaretSelect.js")) WScript.Quit();

var URL = getLinkCaret();
if (URL) {
	if (URL.charAt(0) != "\\")	{	//не сетевой путь в файловой системе
		if (URL.indexOf(":\\") == -1 && URL.indexOf(":/") == -1)
			URL = "http://" + URL;
	}
	
	var WshShell = new ActiveXObject("WScript.Shell");
	WshShell.Exec('rundll32.exe shell32, ShellExec_RunDLL "' + URL + '"');
}

Code: Select all

if (SelectLinkUnderCaret(AkelPad.GetEditWnd()))
  AkelPad.Exec('rundll32.exe shell32,ShellExec_RunDLL "' + AkelPad.GetSelText() + '"');

function SelectLinkUnderCaret(hWndEdit)
{
  var lpSel;
  var lpCaret;
  var bSelected=false;

  if (lpCaret=AkelPad.MemAlloc(_X64?24:12 /*sizeof(AECHARINDEX)*/))
  {
    AkelPad.SendMessage(hWndEdit, 3130 /*AEM_GETINDEX*/, 5 /*AEGI_CARETCHAR*/, lpCaret);
    if (lpSel=AkelPad.MemAlloc(_X64?56:28 /*sizeof(AESELECTION)*/))
    {
      if (AkelPad.SendMessage(hWndEdit, 3149 /*AEM_INDEXINURL*/, lpCaret, lpSel))
      {
        AkelPad.SendMessage(hWndEdit, 3126 /*AEM_SETSEL*/, lpCaret, lpSel);
        bSelected=true;
      }
      AkelPad.MemFree(lpSel);
    }
    AkelPad.MemFree(lpCaret);
  }
  return bSelected;
}

Code: Select all

var sLink=GetLinkUnderCaret(AkelPad.GetEditWnd());
if (sLink)
  AkelPad.Exec('rundll32.exe shell32,ShellExec_RunDLL "' + sLink + '"');

function GetLinkUnderCaret(hWndEdit)
{
  var lpSel;
  var lpCaret;
  var nLinkStart;
  var nLinkEnd;
  var sLink;

  if (lpCaret=AkelPad.MemAlloc(_X64?24:12 /*sizeof(AECHARINDEX)*/))
  {
    AkelPad.SendMessage(hWndEdit, 3130 /*AEM_GETINDEX*/, 5 /*AEGI_CARETCHAR*/, lpCaret);
    if (lpSel=AkelPad.MemAlloc(_X64?48:24 /*sizeof(AESELECTION)*/))
    {
      if (AkelPad.SendMessage(hWndEdit, 3149 /*AEM_INDEXINURL*/, lpCaret, lpSel))
      {
        nLinkStart=AkelPad.SendMessage(hWndEdit, 3136 /*AEM_INDEXTORICHOFFSET*/, 0, lpSel);
        nLinkEnd=AkelPad.SendMessage(hWndEdit, 3136 /*AEM_INDEXTORICHOFFSET*/, 0, lpSel + (_X64?24:12));
        sLink=AkelPad.GetTextRange(nLinkStart, nLinkEnd);
      }
      AkelPad.MemFree(lpSel);
    }
    AkelPad.MemFree(lpCaret);
  }
  return sLink;
}

Code: Select all

var oSys=AkelPad.SystemFunction();
var hWndEdit=AkelPad.GetEditWnd();
var crUrl;

if (crUrl=GetLinkUnderCaret(hWndEdit))
  oSys.Call("shell32::ShellExecute" + _TCHAR, hWndEdit, "open", AkelPad.GetTextRange(crUrl.cpMin, crUrl.cpMax), 0, 0, 1 /*SW_SHOWNORMAL*/);

function GetLinkUnderCaret(hWndEdit)
{
  var lpRange;
  var lpCaret;
  var crUrl=[];
  var bResult=false;

  if (lpCaret=AkelPad.MemAlloc(_X64?24:12 /*sizeof(AECHARINDEX)*/))
  {
    AkelPad.SendMessage(hWndEdit, 3130 /*AEM_GETINDEX*/, 5 /*AEGI_CARETCHAR*/, lpCaret);
    if (lpRange=AkelPad.MemAlloc(_X64?48:24 /*sizeof(AECHARRANGE)*/))
    {
      if (AkelPad.SendMessage(hWndEdit, 3149 /*AEM_INDEXINURL*/, lpCaret, lpRange))
      {
        crUrl.cpMin=AkelPad.SendMessage(hWndEdit, 3136 /*AEM_INDEXTORICHOFFSET*/, 0, lpRange);
        crUrl.cpMax=AkelPad.SendMessage(hWndEdit, 3136 /*AEM_INDEXTORICHOFFSET*/, 0, lpRange + (_X64?24:12) /*offsetof(AECHARRANGE, ciMax)*/);
        bResult=true;
      }
      AkelPad.MemFree(lpRange);
    }
    AkelPad.MemFree(lpCaret);
  }
  if (bResult)
    return crUrl;
  return 0;
}