PC-Online 1999 November/PCOnline_11_1999.iso/muenchen/hhel.js

Text File | 1999-09-28 | 757b | 21 lines

var InternetExplorer = navigator.appName.indexOf("Microsoft") != -1;

if (navigator.userAgent && navigator.userAgent.indexOf("MSIE")>=0 &&
 (navigator.userAgent.indexOf("Windows 95")>=0 ||
  navigator.userAgent.indexOf("Windows 98")>=0 || navigator.userAgent.indexOf("Windows NT")>=0)) {
 document.write('<script language=VBScript\> \n');
 document.write('Sub hhel_FSCommand(ByVal command, ByVal args)\n');
 document.write('  call hhel_DoFSCommand(command, args)\n');
 document.write('end sub\n');
 document.write('</script\> \n');
}

function hhel_DoFSCommand(command, args) {
var mapObj = InternetExplorer ? parent.fmap.hmap : parent.fmap.document.hmap;
if ( command=="hilfe" ) {
   mapObj.Zoom(0);
   mapObj.GotoFrame(50);
  }
}