AkelPad

Code: Select all

// InsertUnicodeChar.js
//with HexSel plugin http://akelpad.sourceforge.net/forum/viewtopic.php?p=26700#p26700
//without HexSel plugin http://akelpad.sourceforge.net/forum/viewtopic.php?p=26702#p26702
// Version: 2014-11-29 (x86/x64)
// Authors:
// - idea & first version: Skif_off;
// - development: KDJ, VladSh, Instructor.
//
// Insert Unicode Char
//
// Usage:
// Call("Scripts::Main", 1, "InsertUnicodeChar.js")

var hMainWnd      = AkelPad.GetMainWnd();
var pAkelPlugsDir = AkelPad.GetAkelDir(4);
var fso           = new ActiveXObject("Scripting.FileSystemObject");
var sHex          = "002F";
var sText         = "";
var i;

if (AkelPad.GetEditWnd())
{
  for (;;)
  {
    sHex = AkelPad.InputBox(hMainWnd, "Insert characters from hex codes", "Four digits hex codes:", sHex);

    if (! sHex)
      break;
    else if (/[^a-f\d]+/i.test(sHex))
      AkelPad.MessageBox(hMainWnd, "Hex digits only (0-9, A-F).", "Error", 0x10 /*MB_ICONERROR*/);
    else
    {
      if(fso.FileExists(pAkelPlugsDir + "\\HexSel.dll"))
      {
        AkelPad.Call("HexSel::Main", 1, 10, "", "", sHex);
      }
      else
      {
        if (sHex = sHex.substr(0, Math.floor(sHex.length / 4) * 4))
        {
          for (i = 0; i < sHex.length; i += 4)
            sText += String.fromCharCode(parseInt(sHex.substr(i, 4), 16));

          AkelPad.ReplaceSel(sText);
        }
      }
      break;
    }
  }
}

Code: Select all

if (typeof AkelPad == "undefined")
{
  try
  {
    AkelPad  = new ActiveXObject("AkelPad.Document");
    var _X64 = AkelPad.Constants._X64;
  }
  catch (oError)
  {
    WScript.Echo("You need to register Scripts.dll");
    WScript.Quit();
  }
}

var oSys       = AkelPad.SystemFunction();
var nSASize    = _X64 ? 24 : 12 /*sizeof(SECURITY_ATTRIBUTES)*/;
var lpSA       = AkelPad.MemAlloc(nSASize);
var lpOutRead  = AkelPad.MemAlloc(_X64 ? 8 : 4);
var lpOutWrite = AkelPad.MemAlloc(_X64 ? 8 : 4);
var nBufSize   = 65536;
var hOutRead;
var hOutWrite;

AkelPad.MemCopy(lpSA,             nSASize, 3 /*DT_DWORD*/); //nLength
AkelPad.MemCopy(lpSA + (_X64 ?  8 : 4), 0, 2 /*DT_QWORD*/); //lpSecurityDescriptor
AkelPad.MemCopy(lpSA + (_X64 ? 16 : 8), 1, 3 /*DT_DWORD*/); //bInheritHandle

if (oSys.Call("Kernel32::CreatePipe", lpOutRead, lpOutWrite, lpSA, nBufSize))
{
  hOutRead  = AkelPad.MemRead(lpOutRead,  2 /*DT_QWORD*/);
  hOutWrite = AkelPad.MemRead(lpOutWrite, 2 /*DT_QWORD*/);

  WScript.Echo("Pipe has been created.\nhOutRead: " + hOutRead + "\nhOutWrite: " + hOutWrite);

  oSys.Call("Kernel32::CloseHandle", hOutRead);
  oSys.Call("Kernel32::CloseHandle", hOutWrite);
}
else
  WScript.Echo("Last error code: " + oSys.GetLastError());

AkelPad.MemFree(lpSA);
AkelPad.MemFree(lpOutRead);
AkelPad.MemFree(lpOutWrite);

Code: Select all

WScript.Echo("typeof AkelPad: " + typeof AkelPad + "\ntypeof _X64: " + typeof _X64);
if (typeof AkelPad == "undefined") {
  try {
    AkelPad  = new ActiveXObject("AkelPad.Document");
    var _X64 = AkelPad.Constants._X64;
  }
  catch (oError) {
    WScript.Echo("You need to register Scripts.dll");
    WScript.Quit();
  }
}
WScript.Echo("typeof AkelPad: " + typeof AkelPad + "\ntypeof _X64: " + typeof _X64);

Code: Select all

WScript.Echo("typeof AkelPad: " + typeof AkelPad + "\ntypeof _X64: " + typeof _X64);
if (typeof AkelPad == "undefined") {
  try {
    AkelPad  = new ActiveXObject("AkelPad.Document");
    _X64 = AkelPad.Constants._X64;
  }
  catch (oError) {
    WScript.Echo("You need to register Scripts.dll");
    WScript.Quit();
  }
}
WScript.Echo("typeof AkelPad: " + typeof AkelPad + "\ntypeof _X64: " + typeof _X64);