[JScript] jQuery without IE

For those who looked, this is mod of plasticgrammer's post. Most of the comments are Google Translates attempts at the original programmer's Japanese.

The single biggest difference from the previous posting is that Internet Explorer is not called into to manage jQuery. Instead the htmlfile object is used.

jQuery expects a few global symbols (it is after all a browser library), so the beginning of the code declares them: document, window etc. Then the jQuery file is dragged across the internet and eval'd in the context of the script.

You'll notice that the jQuery version is quite ancient. This is another problem with this approach. I imagine that it's just a case of declaring some more public symbols. If anyone tries this, please let me know how recent you can go before things break. And if you succeed in using more recent jQuery libraries, please do let me know what modifications were required.

// To prepare, such as window or document to the global name space
(function (url) {
  if ("undefined" === typeof document)
    document = new ActiveXObject("htmlfile");
  document.write("<" + "html" + ">" + "<" + "/html>"); // this important
  if ("undefined" === typeof window)
    window = document.parentWindow;
  if ("undefined" === typeof alert)
    alert = function (s) {
      return window.alert(s);
    };
  if ("undefined" === typeof confirm)
    confirm = function (s) {
      return window.confirm(s)
    };
  if ("undefined" === typeof location)
    location = window.location;
  if ("undefined" === typeof navigator)
    navigator = window.navigator;
  if ("undefined" === typeof window.ActiveXObject)
    window.ActiveXObject = ActiveXObject;

  var XMLHttpRequest = new ActiveXObject("WinHttp.WinHttpRequest.5.1");
  var o = XMLHttpRequest.open("GET", url, false);
  var s = XMLHttpRequest.send();
  eval(XMLHttpRequest.ResponseText);
  return true;
})("http://ajax.googleapis.com/ajax/libs/jquery/1.2.6/jquery.js");

Now a bit of demo code. Notice how we tell JScript what $ means. Possibly that could go in the earlier block of code as yet another global.

var $ = window.$;

// Operation example of a simple jQuery object
WScript.Echo($("<" + "div" + ">").attr("a", "fo").get(0).outerHTML);

// Course alert even I can use.
alert($("<" + "div" + ">").attr("a", "fo").get(0).outerHTML);

(Blogspot didn't like seeing div etc as markup, thus the odd syntax).

© Copyright Bruce M. Axtens, 2015

[JScript] Using jQuery in IE

IE is the browser we all love to hate. It's also scriptable and so inevitably ends up being considered for various tasks.

The following fragment demonstrates the first of two mechanisms I've found for instantiating jQuery in an IE session under script control.

var oIE;
  try {
    oIE = new ActiveXObject("InternetExplorer.Application");
  } catch (errIE) {
    WScript.Quit();
  }
  oIE.Visible = false;

  oIE.Navigate("http://www.example.com");
  while (oIE.Busy) {
    WScript.Sleep(100);
  }

  WScript.Sleep(1000); // could be less

  var DOM = oIE.Document;
  var scr = DOM.createElement('script');
  scr.src = "https://code.jquery.com/jquery-2.1.4.min.js";
  DOM.head.appendChild(scr);

  var $ = DOM.parentWindow.jQuery;

The above code is sliced out of a current project. We navigate to the target, create a script tag, point it at jquery's CDN, and append it to the document's head. Then we define a $ to point to oIE.Document.parentWindow.jQuery.

The same technique can be applied to any page, really. I have a bookmark in my browser that has a name of InjectjQuery and an address of

javascript:var script = document.createElement('script');script.src = "https://code.jquery.com/jquery-2.1.4.min.js"; document.head.appendChild(script);

The second method for instantiating jQuery in IE can be found at plasticgrammer. I had difficulty with it, but got it working. It has some good things which I'll discuss in the next posting.

© Copyright Bruce M. Axtens, 2015

[VBScript] Classes, classes, classes

Over at Win32Scripting where I've been hanging out of late, some bright spark, Tony Hinkle by name, put up code to

"Use IE as an output device! This script is an example of how to make a DIV element an object and then change the innerHTML property. This is a vbs file, not an .asp file. ..."

Being adventurous, I turned it into a class and added a bit of WMI to get the screen dimensions. class IEDisplay '~ Based on original work by Tony Hinkle, tonyhinkle@yahoo.com private TEMPORARY_FOLDER private objShell private objIE private objFSO private objFolder private strName private streamOut private objDIV private numHeight private numWidth private numTop private numLeft private sub Class_Initialize() Dim strComputer Dim objWMIService Dim colItems Dim objItem Dim arrMonitors( 10, 1 ) Dim numMonitorCount Set objShell = WScript.CreateObject("WScript.Shell") Set objIE = CreateObject("InternetExplorer.Application") strComputer = "." Set objWMIService = GetObject( "winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery( "Select * from Win32_DesktopMonitor") numMonitorCount = 0 For Each objItem in colItems arrMonitors( numMonitorCount, 0 ) = objItem.ScreenHeight arrMonitors( numMonitorCount, 1 ) = objItem.ScreenWidth numMonitorCount = numMonitorCount + 1 Next numHeight = arrMonitors( 0, 0 ) numWidth = arrMonitors( 0, 1 ) '~ MsgBox numHeight & " " & numWidth Set objFSO = CreateObject("Scripting.FileSystemObject") TEMPORARY_FOLDER = 2 set objFolder = objFSO.GetSpecialFolder( TEMPORARY_FOLDER ) '~ strName = objFolder.Path & "\" & objFSO.GetTempName & ".html" strName = objFSO.GetTempName '~ WScript.Echo strName set streamOut = objFolder.CreateTextFile( strName, True ) streamOut.WriteLine("<HTML><HEAD><TITLE>Information</TITLE></HEAD>") streamOut.WriteLine("<BODY SCROLL='NO'><CENTER><FONT FACE='arial black'> <HR COLOR='BLACK'>") streamOut.WriteLine("<DIV id='MakeMeAnObject'></DIV>") streamOut.WriteLine("<HR COLOR='BLACK'></FONT></CENTER></BODY></HTML>") streamOut.Close numTop = 0 numLeft = 0 end sub Sub Init( strPosition ) 'NW, N, NE, W, CENTRE, E, SW, S, SE Select Case strPosition Case "NW" numTop = 0 numLeft = 0 Case "N" numTop = 0 numLeft = ( numWidth / 2 ) - 250 Case "NE" numTop = 0 numLeft = numWidth - 500 Case "W" numTop = ( numHeight / 2 ) - 55 numLeft = 0 Case "CENTRE" numTop = ( numHeight / 2 ) - 55 numLeft = ( numWidth / 2 ) - 250 Case "E" numTop = ( numHeight / 2 ) - 55 numLeft = numWidth - 500 Case "SW" numTop = numHeight - 110 numLeft = 0 Case "S" numTop = numHeight - 110 numLeft = ( numWidth / 2 ) - 250 Case "SE" numTop = numHeight - 110 numLeft = numWidth - 500 Case Else numTop = 0 numLeft = 0 End Select SetupIE( objFolder.Path & "\" & strName ) Set objDIV = objIE.Document.All("MakeMeAnObject") '~ wscript.echo typename(objdiv) end sub private sub Class_Terminate() 'Close IE and delete the file objIE.Quit '~ optionally you may want to get rid of the temp file end sub public sub Display( strMsg, numMillisec ) '~ wscript.echo typename(objdiv) '~ MsgBox TypeName( numMillisec ) objDIV.InnerHTML = strMsg WScript.Sleep numMillisec end sub Private Sub SetupIE(File2Load) objIE.Navigate File2Load objIE.ToolBar = False objIE.StatusBar = False objIE.Resizable = False Do Loop While objIE.Busy objIE.Width = 500 objIE.Height = 110 objIE.Left = numLeft objIE.Top = numTop objIE.Visible = True objShell.AppActivate("Microsoft Internet Explorer") End Sub end class And some test code which puts boxes at 9 different points on the screen: set x = new iedisplay dim a a = split("NE,N,NW,SE,S,SW,E,CENTRE,W",",") for i = 0 to ubound(a) x.Init a(i) x.Display "Woof",10 next