AkelPad

Code: Select all

Test3();

function Test1()
{
  var dwState = 0;
  var lpState = AkelPad.MemAlloc(4 /*sizeof(DWORD)*/);
  if (lpState)
  {
    AkelPad.Call("Log::Output", 3, lpState);
    dwState = AkelPad.MemRead(lpState, 3 /*DT_DWORD*/);
    AkelPad.MemFree(lpState);
    WScript.Echo(dwState);
  }
}

function Test2()
{
  AkelPad.Call("Log::Output", 5, "Hello!\n");
  
  var hChildProcess = 0;
  var lpChildProcess = AkelPad.MemAlloc(_X64 ? 8 : 4 /*sizeof(HANDLE)*/);
  if (lpChildProcess)
  {
    AkelPad.Call("Log::Output", 3, 0, 0, lpChildProcess);
    hChildProcess = AkelPad.MemRead(lpChildProcess, 2 /*DT_QWORD*/);
    AkelPad.MemFree(lpChildProcess);
    AkelPad.Call("Log::Output", 5, "hChildProcess = " + hChildProcess + "\n");
  }
}

function Test3()
{
  var prevState = -1;
  var dwState = 0;
  var lpState = 0;
  var hPluginThread = 0;
  var lpPluginThread = 0;
  var hChildProcess = 0;
  var lpChildProcess = 0;
  var s;
  
  lpState = AkelPad.MemAlloc(4 /*sizeof(DWORD)*/);
  lpPluginThread = AkelPad.MemAlloc(_X64 ? 8 : 4 /*sizeof(HANDLE)*/);
  lpChildProcess = AkelPad.MemAlloc(_X64 ? 8 : 4 /*sizeof(HANDLE)*/);
  
  if (lpState && lpPluginThread && lpChildProcess)
  {
    AkelPad.Call("Log::Output", 5, "*** Starting cmd.exe...\n", -1, 0);
    AkelPad.Call("Log::Output", 1, "cmd", "", "", "", -1, -1, 8);

    while (prevState != 0)
    {
      AkelPad.Call("Log::Output", 3, lpState, lpPluginThread, lpChildProcess);
      dwState = AkelPad.MemRead(lpState, 3 /*DT_DWORD*/);
      if (dwState != prevState)
      {
        if (dwState >= 4)
        {
          hPluginThread = AkelPad.MemRead(lpPluginThread, 2 /*DT_QWORD*/);
          hChildProcess = AkelPad.MemRead(lpChildProcess, 2 /*DT_QWORD*/);
          s = "*** The process " + hChildProcess + " has been created in thread " + hPluginThread + "\n";
          s = s + "*** Now please type "exit" to exit cmd.exe...\n";
        }
        else if (dwState >= 2)
        {
          hPluginThread = AkelPad.MemRead(lpPluginThread, 2 /*DT_QWORD*/);
          s = "*** The plugin thread has been created: " + hPluginThread + "\n";
        }
        else if (dwState >= 1)
        {
          s = "*** Preparing to execute the command...\n";
        }
        else if (dwState == 0 && prevState != -1)
        {
          s = "*** That's all, folks!\n";
        }

        if (dwState != 0 || prevState != -1)
        {
          AkelPad.Call("Log::Output", 5, s);
          prevState = dwState;
        }
      }
      else
      {
        WScript.Sleep(100);
      }
    }
    
    AkelPad.MemFree(lpChildProcess);
    AkelPad.MemFree(lpPluginThread);
    AkelPad.MemFree(lpState);
  }
}