* IECreatebutton method() * Writes a IE registry entry: * Creates a Tools menu pad, button and right click menu item in * internet explorer LPARAMETERS cId, cMenuText, cIcoFile, cQueryString * cId - button id hexadecimal, 3 chars. * cMenuText - Tools and Right Click menu text, may contain & For hotkey * cIcoFile - .ico file name * cQueryString - query string passed to run.htm manager. * contains method to run Local ICODIR, SCRIPTDIR ICODIR = strt(request.form('icodir'),'\','\\')+'\\' SCRIPTDIR = 'http://'+Request.form('host')+ '/ie/' ASSERT LEN(m.cId)=3 AND BETWEEN( VAL('0x'+m.cID),1, 0xFFF ) Response.Write( ; '[HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\{c95fe080-8f5d-11d2-a20b-00aa003c1'+m.cId+'}]'+CRLF+ ; '"MenuText"="'+m.cMenuText+'"' + CRLF + ; '"clsid"="{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}"'+ CRLF + ; '"Icon"="'+m.ICODIR+m.cIcoFile+'"'+ CRLF + ; '"HotIcon"="'+m.ICODIR+m.cIcoFile+'"'+ CRLF + ; '"ButtonText"="'+ CHRTRAN( m.cMenuText, '&', '')+'"'+ CRLF + ; '"Script"="'+m.SCRIPTDIR+ 'run.htm?'+m.cQuerystring+'"'+ CRLF + ; '"Default Visible"="Yes"' + + CRLF + ; ; '[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\MenuExt\'+ ; m.cMenuText+']' + CRLF + ; '@="'+ m.SCRIPTDIR+m.cQueryString+'"'+CRLF )