AkelPad

Code: Select all

WScript.Echo(ExecWait("ping akelpad.sourceforge.net"));

function ExecWait(pCmd)
{
  AkelPad.Call("Log::Output", 1, pCmd);
  while (GetExecState())
    WScript.Sleep(100);
  return GetExecExitCode();
}

function GetExecState()
{
  var lpState;
  var nState=0;

  if (lpState=AkelPad.MemAlloc(4 /*sizeof(DWORD)*/))
  {
    AkelPad.Call("Log::Output", 3, lpState);
    nState=AkelPad.MemRead(lpState, 3 /*DT_DWORD*/);
    AkelPad.MemFree(lpState);
  }
  return nState;
}

function GetExecExitCode()
{
  var lpExitCode;
  var nExitCode=0;

  if (lpExitCode=AkelPad.MemAlloc(4 /*sizeof(DWORD)*/))
  {
    AkelPad.Call("Log::Output", 3, 0, 0, 0, 0, lpExitCode);
    nExitCode=AkelPad.MemRead(lpExitCode, 3 /*DT_DWORD*/);
    AkelPad.MemFree(lpExitCode);
  }
  return nExitCode;
}

Code: Select all

AkelPad.MessageBox(AkelPad.GetMainWnd(), GetOutputWindowText(), "Log output text", 64 /*MB_ICONINFORMATION*/);

function GetOutputWindowText()
{
  var lpWnd;
  var hWnd;
  var nTextLen;
  var lpText;
  var sText="";

  if (lpWnd=AkelPad.MemAlloc(_X64?8:4 /*sizeof(HWND)*/))
  {
    AkelPad.Call("Log::Output", 2, lpWnd);
    if (hWnd=AkelPad.MemRead(lpWnd, 2 /*DT_QWORD*/))
    {
      if (nTextLen=AkelPad.SendMessage(hWnd, 14 /*WM_GETTEXTLENGTH*/, 0, 0))
      {
        if (lpText=AkelPad.MemAlloc((nTextLen + 1) * 2))
        {
          AkelPad.SendMessage(hWnd, 13 /*WM_GETTEXT*/, nTextLen + 1, lpText);
          sText = AkelPad.MemRead(lpText, 1 /*DT_UNICODE*/);
          AkelPad.MemFree(lpText);
        }
      }
    }
    AkelPad.MemFree(lpWnd);
  }
  return sText;
}