AkelPad

Code: Select all

var code = "BYR";
var messages = [];
var url = getRequestURL(code);
messages.push("URL: " + url);
try {
	var request = new ActiveXObject("Microsoft.XMLHTTP");
	request.open("GET", url, false);
	request.send(null);
	var ratio = getRatioFromResponse(request.responseText);
	if(!isNaN(ratio))
		messages.push("Ratio for " + code + ": " + ratio);
	else
		messages.push("Can't get ratio");
}
catch(e) {
	messages.push("Error: " + e.message);
}
WScript.Echo(messages.join("\n"));

function getRequestURL(code) {
	if(code == "SKK") // Example: http://www.google.com/ig/calculator?hl=en&q=100EUR%3D%3FAUD
		return "http://www.google.com/ig/calculator?hl=en&q=" + encodeURIComponent(1 + code + "=?USD");
	// Example: http://exchange-rates.org/converter/BYR/USD/1/Y
	return "http://exchange-rates.org/converter/" + code + "/USD/1/N";
}
function getRatioFromResponse(response) {
	//WScript.Echo("Response:\n" + response);
	// http://exchange-rates.org/converter/BYR/USD/1/N
	// <span id="ctl00_M_lblToAmount">0.0003295</span>
	if(/<span id="ctl00_M_lblToAmount">([^<>]+)<\/span>/.test(response)) {
		messages.push("getRatioFromResponse: exchange-rates.org -> [" + RegExp.$1 + "]");
		return Number(RegExp.$1.replace(/\s+/g, "").replace(/,/g, ""));
	}

	// http://www.google.com/ig/calculator?hl=en&q=100EUR%3D%3FAUD
	// {lhs: "100 Euros",rhs: "135.069786 Australian dollars",error: "",icc: true}
	// We don't have native JSON support :(
	// And Google can return numbers in exponential format:
	//   1.35069786 \x26#215; 10\x3csup\x3e-6\x3c/sup\x3e
	//   => 1.35069786 × 10<sup>-6</sup> => 1.35069786 × 10<sup>-6</sup>
	// Or add spaces: 135 069.786
	if(/[{,]\s*rhs:\s*"([\d\s]+(\.\d+)?)\s+[^"]+"\s*[,}]/.test(response)) {
		messages.push("getRatioFromResponse: google.com -> [" + RegExp.$1 + "]");
		return Number(RegExp.$1.replace(/\s+/g, "")); // Only 1.35069786 and 135 069.786 supported
	}

	return NaN;
}

Code: Select all

//// Timer example

var hMainWnd=AkelPad.GetMainWnd();
var oSys=AkelPad.SystemFunction();
var lpTimerProc;
var nTimerID=1;
var nTimerSysID;
var nStopAfter=3;

if (lpTimerProc=oSys.RegisterCallback("TimerProc"))
{
  if (nTimerSysID=oSys.Call("user32::SetTimer", 0, nTimerID, 1000, lpTimerProc))
  {
    AkelPad.WindowGetMessage();
    oSys.Call("user32::KillTimer", 0, nTimerSysID);
  }
  oSys.UnregisterCallback(lpTimerProc);
}

function TimerProc(hWnd, uMsg, idEvent, dwTime)
{
  oSys.Call("user32::SetWindowText" + _TCHAR, hMainWnd, "" + dwTime);

  if (--nStopAfter <= 0)
  {
    //Exit message loop
    oSys.Call("user32::PostQuitMessage", 0);
  }
}