home *** CD-ROM | disk | FTP | other *** search
Wrap
Text File | 1998-11-09 | 57.7 KB | 1,826 lines
; wspopup.MNU file. ; ; ; ; AMAZINGLY IMPORTANT NOTICE !!!!!!! ; ; If you modify this file keep backups of your modificationa, ; since, if you install *any* version of WinBatch again, this ; file WILL BE OVERWRITTEN during the install with nary a peep ; or warning of any kind. ; ; ; This files defines the WinBatch Studio context menu. ; ; ; This section is only active when selecting a "Insert Wil Function" menuitem. ; This code is pretending to be a real WBT file of sorts. It is CALL'ed by many ; Insert WIL Function menutiems (see way way below) if param0==2 popfile=strcat(dirhome(),"wspopup.mnu") popsize=FileSize(popfile) popbb=BinaryAlloc(popsize) BinaryRead(popbb,popfile) popx=BinaryIndexNC(popbb,0,";WILCMDINFOMARK",@FWDSCAN) popx=BinaryIndexNC(popbb,popx,strcat(param2,"("),@fwdscan) popx=BinaryIndex(popbb,popx," ",@backscan)+1 popy=BinaryIndex(popbb,popx,@cr,@fwdscan)-1 popline=BinaryPeekStr(popbb,popx,popy-popx+1) wedInsString(popline) wedNewLine() BinaryFree(popbb) return endif ; AutoExec Section is on top here. Note BIG INDENT for real code. ; Columns 1, 2, 3, and 4 are reserved for menu titles. This autoexec ; section goes before the first menu title. Used for assorted initializations. TAB=@TAB CR=@CRLF EOL=@CR Home=DirHome() HomeUpOne=FilePath(strsub(home,1,strlen(home)-1)) IntControl(29,@tab,0,0,0) ;Standardize on tabs as delimiters for FileItemize, etc zxc=strcat(home,"wspopup.mnu") zxct="Help file error" zxcm="Help file not found. Perhaps Extender Add-on help file has not been installed. See EXTENDERS directory on CD-ROM or our website at http://www.winbatch.com to obtain desired extenders." Cut ; Cut the selection and put it on the clipboard wEdCut() Copy ; Copy the selection and put it on the clipboard wEdCopy() Paste ; Insert the clipboard contents wEdPaste() _Undo ; Undoes the last editing action wEdUndo() ;Redo ; Redoes the last editing action ; wEdRedo() _Keyword Lookup \ +{F1} ; Load help topic for word at cursor call(strcat(DirHome(),"wshelp.dll"),"KEYWORDHELP") Help Files WinBatch helpfile="winbatch.hlp" helpfile=strcat(HomeUpOne,helpfile) Terminate(!FileExist(helpfile),zxct,zxcm) WinHelp(helpfile,"Contents","") Windows Interface Language helpfile="Windows Interface language.hlp" helpfile=strcat(HomeUpOne,helpfile) Terminate(!FileExist(helpfile),zxct,zxcm) WinHelp(helpfile,"Contents","") Microsoft Networking helpfile="Win32 Network Extender.hlp" helpfile=strcat(HomeUpOne,helpfile) Terminate(!FileExist(helpfile),zxct,zxcm) WinHelp(helpfile,"Contents","") Novell Netware Networking helpfile="NetWare Extender.hlp" helpfile=strcat(HomeUpOne,helpfile) Terminate(!FileExist(helpfile),zxct,zxcm) WinHelp(helpfile,"Contents","") WILX Extender helpfile="WILX Extender.hlp" helpfile=strcat(HomeUpOne,helpfile) Terminate(!FileExist(helpfile),zxct,zxcm) WinHelp(helpfile,"Contents","") File Searcher Extender helpfile="Witzsrch.hlp" helpfile=strcat(HomeUpOne,helpfile) Terminate(!FileExist(helpfile),zxct,zxcm) WinHelp(helpfile,"Contents","") WinSock Internet Extender helpfile="winsock.hlp" helpfile=strcat(HomeUpOne,helpfile) Terminate(!FileExist(helpfile),zxct,zxcm) WinHelp(helpfile,"Contents","") WinInet Internet Extender helpfile="wininet.hlp" helpfile=strcat(HomeUpOne,helpfile) Terminate(!FileExist(helpfile),zxct,zxcm) WinHelp(helpfile,"Contents","") Serial Port Extender helpfile="serial.hlp" helpfile=strcat(HomeUpOne,helpfile) Terminate(!FileExist(helpfile),zxct,zxcm) WinHelp(helpfile,"Contents","") Control Manager Extender helpfile="ctlmgr.hlp" helpfile=strcat(HomeUpOne,helpfile) Terminate(!FileExist(helpfile),zxct,zxcm) WinHelp(helpfile,"Contents","") Html Dialog Extender helpfile="HtmlDialog.hlp" helpfile=strcat(HomeUpOne,helpfile) Terminate(!FileExist(helpfile),zxct,zxcm) WinHelp(helpfile,"Contents","") ODBC Extender helpfile="odbc.hlp" helpfile=strcat(HomeUpOne,helpfile) Terminate(!FileExist(helpfile),zxct,zxcm) WinHelp(helpfile,"Contents","") ;WILCMDINFOMARK DO NOT REMOVE!!!!!! _Insert WIL Function Arithmetic Abs( integer ) call(zxc,"WIL Abs") Acos( fp_num ) call(zxc,"WIL Acos") Asin( fp_num ) call(zxc,"WIL Asin") Atan( fp_num ) call(zxc,"WIL Atan") Average( number [ ,number... ] ) call(zxc,"WIL Average") Ceiling( fp_num ) call(zxc,"WIL Ceiling") Char2Num( string ) call(zxc,"WIL Char2Num") Cos( fp_num ) call(zxc,"WIL Cos") Cosh( fp_num ) call(zxc,"WIL Cosh") Decimals( #digits ) call(zxc,"WIL Decimals") Exp( fp_num ) call(zxc,"WIL Exp") Fabs( fp_num ) call(zxc,"WIL Fabs") Floor( fp_num ) call(zxc,"WIL Floor") Int( string/fp_num ) call(zxc,"WIL Int") IsFloat( string ) call(zxc,"WIL IsFloat") IsInt( string ) call(zxc,"WIL IsInt") IsNumber( value ) call(zxc,"WIL IsNumber") Log10( fp_num ) call(zxc,"WIL Log10") Loge( fp_num ) call(zxc,"WIL Loge") Max( number [ ,number... ] ) call(zxc,"WIL Max") Min( number [ ,number... ] ) call(zxc,"WIL Min") Num2Char( integer ) call(zxc,"WIL Num2Char") Random( integer ) call(zxc,"WIL Random") Sin( fp_num ) call(zxc,"WIL Sin") Sqrt( fp_num ) call(zxc,"WIL Sqrt") Tan( fp_num ) call(zxc,"WIL Tan") Tanh( fp_num ) call(zxc,"WIL Tanh") TimeAdd( YmdHms, YmdHms ) call(zxc,"WIL TimeAdd") TimeDiff( YmdHms, YmdHms ) call(zxc,"WIL TimeDiff") TimeDiffDays( Ymd[Hms], Ymd[Hms] ) call(zxc,"WIL TimeDiffDays") TimeDiffSecs( YmdHms, YmdHms ) call(zxc,"WIL TimeDiffSecs") TimeJulToYmd(julian-date) call(zxc,"WIL TimeJulToYmd") TimeJulianDay( Ymd[Hms] ) call(zxc,"WIL TimeJulianDay") TimeSubtract(datetime, datetime difference) call(zxc,"WIL TimeSubtract") TimeYmdHms( ) call(zxc,"WIL TimeYmdHms") Binary BinaryAlloc( buffsize ) call(zxc,"WIL BinaryAlloc") BinaryAnd(target-handle,target-offset,source-handle,source-offset,count) call(zxc,"WIL BinaryAnd") BinaryClipGet(handle, format) call(zxc,"WIL BinaryClipGet") BinaryClipPut(handle, format) call(zxc,"WIL BinaryClipPut") BinaryCompare(handle1, offset1, handle2, offset2, count) call(zxc,"WIL BinaryCompare") BinaryConvert(handle, source-type, target-type, code-page, flags) call(zxc,"WIL BinaryConvert") BinaryCopy(handle targ, offset targ, handle src, offset src, bytecount ) call(zxc,"WIL BinaryCopy") BinaryEodGet( handle ) call(zxc,"WIL BinaryEodGet") BinaryEodSet( handle, offset ) call(zxc,"WIL BinaryEodSet") BinaryFree( handle ) call(zxc,"WIL BinaryFree") BinaryHashRec(handle, recsize, key offset, key size, key value ) call(zxc,"WIL BinaryHashRec") BinaryIncr( handle, offset ) call(zxc,"WIL BinaryIncr") BinaryIndex( handle, offset, search string, direction ) call(zxc,"WIL BinaryIndex") BinaryIndexNC(handle, offset, string, direction) call(zxc,"WIL BinaryIndexNC") BinaryOleType( handle, type,reserved- 1, reserved-2, reserved-3) call(zxc,"WIL BinaryOleType") BinaryOr(target-handle,target-offset,source-handle,source-offset,count) call(zxc,"WIL BinaryOr") BinaryPeek( handle, offset ) call(zxc,"WIL BinaryPeek") BinaryPoke( handle, offset, value ) call(zxc,"WIL BinaryPoke") BinaryRead( handle, filename ) call(zxc,"WIL BinaryRead") BinaryReadEx(handle, binary-offset, filename, file-offset, count) call(zxc,"WIL BinaryReadEx") BinarySort( handle, recsize, key offset, key size, flags ) call(zxc,"WIL BinarySort") BinaryStrCnt( handle, start-offset, end-offset, string ) call(zxc,"WIL BinaryStrCnt") BinaryWrite( handle, filename ) call(zxc,"WIL BinaryWrite") BinaryWriteEx(handle, binary-offset, filename, file-offset, count) call(zxc,"WIL BinaryWriteEx") BinaryXor(target-handle,target-offset,source-handle,source-offset,count) call(zxc,"WIL BinaryXor") Control Manager cCheckBox( hwnd, flag) call(zxc,"WIL cCheckBox") cClickButton( hwnd ) call(zxc,"WIL cClickButton") cEnableState( hwnd, flag) call(zxc,"WIL cEnableState") cGetCBText( hwnd ) call(zxc,"WIL cGetCBText") cGetEditText( hwnd ) call(zxc,"WIL cGetEditText") cGetInfo(request) call(zxc,"WIL cGetInfo") cGetLBText( hwnd ) call(zxc,"WIL cGetLBText") cPostMessage(hWnd, msg, wparam, lparam) call(zxc,"WIL cPostMessage") cRadioButton( hwnd, flag ) call(zxc,"WIL cRadioButton") cSendMessage( hwnd, msg, wparam, lparam ) call(zxc,"WIL cSendMessage") cSetCBItem( hwnd, item ) call(zxc,"WIL cSetCBItem") cSetEditText( hwnd, newtext ) call(zxc,"WIL cSetEditText") cSetLBItem( hwnd, item) call(zxc,"WIL cSetLBItem") cSetTABItem( hwnd, item) call(zxc,"WIL cSetTABItem") cWndByClass( hWnd, "ControlClass" ) call(zxc,"WIL cWndByClass") cWndByID( hwnd, ID-number ) call(zxc,"WIL cWndByID") cWndByName( hwnd, "ControlTitle" ) call(zxc,"WIL cWndByName") cWndBySeq( hwnd, seq-number ) call(zxc,"WIL cWndBySeq") cWndInfo( hwnd, request ) call(zxc,"WIL cWndInfo") Debug( mode ) call(zxc,"WIL Debug") Directory Management DirAttrGet( [d:]path ) call(zxc,"WIL DirAttrGet") DirAttrSet(dir-list, settings) call(zxc,"WIL DirAttrSet") DirChange( [d:]path ) call(zxc,"WIL DirChange") DirExist( pathname ) call(zxc,"WIL DirExist") DirGet( ) call(zxc,"WIL DirGet") DirHome( ) call(zxc,"WIL DirHome") DirItemize( dir-list ) call(zxc,"WIL DirItemize") DirMake( [d:]path ) call(zxc,"WIL DirMake") DirRename( [d:]oldpath, [d:]newpath ) call(zxc,"WIL DirRename") DirRemove( dir-list ) call(zxc,"WIL DirRemove") DirWindows( request# ) call(zxc,"WIL DirWindows") File Management FileAppend( source-list, destination ) call(zxc,"WIL FileAppend") FileAttrGet( filename ) call(zxc,"WIL FileAttrGet") FileAttrSet( file-list, settings ) call(zxc,"WIL FileAttrSet") FileClose( filehandle ) call(zxc,"WIL FileClose") FileCompare( filename1, filename2 ) call(zxc,"WIL FileCompare") FileCopy( source-list, filename/mask, mode ) call(zxc,"WIL FileCopy") FileDelete( file-list ) call(zxc,"WIL FileDelete") FileExist( filename ) call(zxc,"WIL FileExist") FileExtension( filename ) call(zxc,"WIL FileExtension") FileFullName( partial filename ) call(zxc,"WIL FileFullName") FileItemize( file-list ) call(zxc,"WIL FileItemize") FileLocate( filename ) call(zxc,"WIL FileLocate") FileMapName( filename, mapping-data ) call(zxc,"WIL FileMapName") FileMove( source-list, destination, warning ) call(zxc,"WIL FileMove") FileNameLong {*32}(filename) call(zxc,"WIL FileNameLong") FileNameShort {*32}(filename) call(zxc,"WIL FileNameShort") FileOpen( filename, mode ) call(zxc,"WIL FileOpen") FilePath( filename ) call(zxc,"WIL FilePath") FileRead( filehandle ) call(zxc,"WIL FileRead") FileRename( source-list, destination ) call(zxc,"WIL FileRename") FileRoot( filename ) call(zxc,"WIL FileRoot") FileSize( file-list ) call(zxc,"WIL FileSize") FileTimeCode( filename ) call(zxc,"WIL FileTimeCode") FileTimeGet( filename ) call(zxc,"WIL FileTimeGet") FileTimeGetEx(filename, time-field) call(zxc,"WIL FileTimeGetEx") FileTimeSet( list, ymdhms ) call(zxc,"WIL FileTimeSet") FileTimeSetEx(file-list, YmdHms, time-field) call(zxc,"WIL FileTimeSetEx") FileTimeTouch( file-list ) call(zxc,"WIL FileTimeTouch") FileVerInfo(filename, language-key, resource-string) call(zxc,"WIL FileVerInfo") FileWrite( filehandle, output-data ) call(zxc,"WIL FileWrite") FileYmdHms( filename ) call(zxc,"WIL FileYmdHms") Other file functions AskFileText( title, filename, sort mode, select mode ) call(zxc,"WIL AskFileText") AskFileName( title, directory, filetypes, default filename, flag ) call(zxc,"WIL AskFileName") BinaryRead( handle, filename ) call(zxc,"WIL BinaryRead") BinaryReadEx(handle, binary-offset, filename, file-offset, count) call(zxc,"WIL BinaryReadEx") BinaryWrite( handle, filename ) call(zxc,"WIL BinaryWrite") BinaryWriteEx(handle, binary-offset, filename, file-offset, count) call(zxc,"WIL BinaryWriteEx") INI Functions IniDelete( section, keyname ) call(zxc,"WIL IniDelete") IniDeletePvt( section, keyname, filename ) call(zxc,"WIL IniDeletePvt") IniItemize( section ) call(zxc,"WIL IniItemize") IniItemizePvt( section, filename ) call(zxc,"WIL IniItemizePvt") IniRead( section, keyname, default ) call(zxc,"WIL IniRead") IniReadPvt( section, keyname, default, filename ) call(zxc,"WIL IniReadPvt") IniWrite( section, keyname, data ) call(zxc,"WIL IniWrite") IniWritePvt( section, keyname, data, filename ) call(zxc,"WIL IniWritePvt") Inter-program AddExtender( dllfilename ) call(zxc,"WIL AddExtender") Clipboard ClipAppend( string ) call(zxc,"WIL ClipAppend") ClipGet( ) call(zxc,"WIL ClipGet") ClipGetEx( format ) call(zxc,"WIL ClipGetEx") ClipPut( string ) call(zxc,"WIL ClipPut") Snapshot( request# ) call(zxc,"WIL Snapshot") DDE DDEExecute( channel, [commandstring] ) call(zxc,"WIL DDEExecute") DDEInitiate( app name, topic name ) call(zxc,"WIL DDEInitiate") DDEPoke( channel, item name, item value ) call(zxc,"WIL DDEPoke") DDERequest( channel, item name ) call(zxc,"WIL DDERequest") DDETerminate( channel ) call(zxc,"WIL DDETerminate") DDETimeout( value in seconds ) call(zxc,"WIL DDETimeout") DLLCall DllCall( dllfilename/dllhandle, returntype:entrypoint [ ,paramtype:param... ]) call(zxc,"WIL DllCall") DllFree( dllhandle ) call(zxc,"WIL DllFree") DllHinst( partial-winname ) call(zxc,"WIL DllHinst") DllHwnd( partial-winname ) call(zxc,"WIL DllHwnd") DllLoad( dllname ) call(zxc,"WIL DllLoad") Environment Environment( env-variable ) call(zxc,"WIL Environment") EnvironSet( env-varname, newvalue ) call(zxc,"WIL EnvironSet") EnvItemize( ) call(zxc,"WIL EnvItemize") ExeTypeInfo( exefilename ) call(zxc,"WIL ExeTypeInfo") RegApp(program-name, path) {*32} call(zxc,"WIL RegApp") RunEnviron( program name, parameters, displaymode, waitflag ) call(zxc,"WIL RunEnviron") Sending keys SendKey( sendkey string ) call(zxc,"WIL SendKey") SendKeysChild( partial-parent-windowname, partial-child-windowname, sendkey string ) call(zxc,"WIL SendKeysChild") SendKeysTo( parent-windowname, sendkey string ) call(zxc,"WIL SendKeysTo") SendMenusTo( partial-parent-windowname, menuname ) call(zxc,"WIL SendMenusTo") Multimedia Beep wedInsString("Beep") wedNewLine() DllCall( dllfilename/dllhandle, returntype:entrypoint [ ,paramtype:param... ]) call(zxc,"WIL DllCall") DllFree( dllhandle ) call(zxc,"WIL DllFree") DllHinst( partial-winname ) call(zxc,"WIL DllHinst") DllHwnd( partial-winname ) call(zxc,"WIL DllHwnd") DllLoad( dllname ) call(zxc,"WIL DllLoad") PlayMedia( command-string ) call(zxc,"WIL PlayMedia") PlayMidi( filename, mode ) call(zxc,"WIL PlayMidi") PlayWaveForm( filename, mode ) call(zxc,"WIL PlayWaveForm") Sounds( request# ) call(zxc,"WIL Sounds") Netware 3 Extenders n3Attach("server-name" , "user-name", "password") call(zxc,"WIL n3Attach") n3CaptureEnd(port-number) call(zxc,"WIL n3CaptureEnd") n3CaptureGet(port-number) call(zxc,"WIL n3CaptureGet") n3CapturePrt("server-name", "queue-name", port-number, flags) call(zxc,"WIL n3CapturePrt") n3ChgPassword("server-name", "user-name","old password","new password") call(zxc,"WIL n3ChgPassword") n3Detach("server-name") call(zxc,"WIL n3Detach") n3DirAttrGet("dirname") call(zxc,"WIL n3DirAttrGet") n3DirAttrSet("dirname", attribs, @ON|@OFF) call(zxc,"WIL n3DirAttrSet") n3DirTimeGet("dirname", time-field) call(zxc,"WIL n3DirTimeGet") n3DrivePath("local-name") call(zxc,"WIL n3DrivePath") n3DriveStatus("local-name") call(zxc,"WIL n3DriveStatus") n3FileAttrGet("filename") call(zxc,"WIL n3FileAttrGet") n3FileAttrSet("filename", "attribs", @ON|@OFF) call(zxc,"WIL n3FileAttrSet") n3FileTimeGet("filename", time-field) call(zxc,"WIL n3FileTimeGet") n3GetMapped("server-name") call(zxc,"WIL n3GetMapped") n3GetNetAddr("server-name", flags) call(zxc,"WIL n3GetNetAddr") n3GetUser("server-name") call(zxc,"WIL n3GetUser") n3GetUserId("server-name", "user-name", format) call(zxc,"WIL n3GetUserId") n3Logout("server-name") call(zxc,"WIL n3Logout") n3Map("net-path", "local-name") call(zxc,"WIL n3Map") n3MapDelete("local-name") call(zxc,"WIL n3MapDelete") n3MapDir(net-path, local-name) call(zxc,"WIL n3MapDir") n3MapRoot("net-path", "local-name") call(zxc,"WIL n3MapRoot") n3MemberDel("server-name", group-name ,"user-name") call(zxc,"WIL n3MemberDel") n3MemberGet("server-name", group-name ,"user-name") call(zxc,"WIL n3MemberGet") n3MemberSet("server-name", group-name , "user-name") call(zxc,"WIL n3MemberSet") n3MsgSend("server-name", "message" , "user-name") call(zxc,"WIL n3MsgSend") n3MsgSendAll("server-name", "message") call(zxc,"WIL n3MsgSendAll") n3ServerInfo("server-name", request #) call(zxc,"WIL n3ServerInfo") n3ServerList(request#) call(zxc,"WIL n3ServerList") n3UserGroups("server-name", "user-name") call(zxc,"WIL n3UserGroups") n3Version( ) call(zxc,"WIL n3Version") Netware 4 Extenders n4Attach("server-name" , "user-name", "password") call(zxc,"WIL n4Attach") n4CaptureEnd(port-number) call(zxc,"WIL n4CaptureEnd") n4CaptureGet(port-number) call(zxc,"WIL n4CaptureGet") n4CapturePrt("server-name", "queue-name", port-number, flags) call(zxc,"WIL n4CapturePrt") n4ChgPassword("server-name", "user-name","old password","new password") call(zxc,"WIL n4ChgPassword") n4Detach("server-name") call(zxc,"WIL n4Detach") n4DirAttrGet("dirname") call(zxc,"WIL n4DirAttrGet") n4DirAttrSet("dirname", attribs, @ON|@OFF) call(zxc,"WIL n4DirAttrSet") n4DirTimeGet("dirname", time-field) call(zxc,"WIL n4DirTimeGet") n4DrivePath("local-name") call(zxc,"WIL n4DrivePath") n4DriveStatus("local-name") call(zxc,"WIL n4DriveStatus") n4FileAttrGet("filename") call(zxc,"WIL n4FileAttrGet") n4FileAttrSet("filename", "attribs", @ON|@OFF) call(zxc,"WIL n4FileAttrSet") n4GetContext(request) call(zxc,"WIL n4GetContext") n4GetMapped("server-name") call(zxc,"WIL n4GetMapped") n4GetNetAddr("server-name", flags) call(zxc,"WIL n4GetNetAddr") n4GetUser("server-name") call(zxc,"WIL n4GetUser") n4GetUserId("server-name", "user-name", format) call(zxc,"WIL n4GetUserId") n4Login("username", "password", "context", "tree") call(zxc,"WIL n4Login") n4Logout() call(zxc,"WIL n4Logout") n4LogoutTree("context", "tree") call(zxc,"WIL n4LogoutTree") n4Map("net-path", "local-name") call(zxc,"WIL n4Map") n4MapDelete("local-name") call(zxc,"WIL n4MapDelete") n4MapDir(net-path, local-name) call(zxc,"WIL n4MapDir") n4MapRoot("net-path", "local-name") call(zxc,"WIL n4MapRoot") n4MemberDel("server-name", group-name ,"user-name") call(zxc,"WIL n4MemberDel") n4MemberGet("server-name", group-name ,"user-name") call(zxc,"WIL n4MemberGet") n4MemberSet("server-name", group-name , "user-name") call(zxc,"WIL n4MemberSet") n4MsgSend("server-name", "message" , "user-name") call(zxc,"WIL n4MsgSend") n4MsgSendAll("server-name", "message") call(zxc,"WIL n4MsgSendAll") n4NameConvert("context", "object", format) call(zxc,"WIL n4NameConvert") n4ObjectList("context", "parent", "class", "mask") call(zxc,"WIL n4ObjectList") n4ObjectInfo("context", "object", request#) call(zxc,"WIL n4ObjectInfo") n4ObjectProps("context", "object", 0|1) call(zxc,"WIL n4ObjectProps") n4ServerInfo("server-name", request #) call(zxc,"WIL n4ServerInfo") n4ServerList(request#) call(zxc,"WIL n4ServerList") n4SetContext(context, tree) call(zxc,"WIL n4SetContext") n4UserGroups("server-name", "user-name") call(zxc,"WIL n4UserGroups") n4UserGroupEx("server-name", "user-name","context") call(zxc,"WIL n4UserGroupEx") n4Version( ) call(zxc,"WIL n4Version") ODBC qAllocConnect(henv) call(zxc,"WIL qAllocConnect") qAllocEnv() call(zxc,"WIL qAllocEnv") qAllocStmt(hdbc) call(zxc,"WIL qAllocStmt") qBindCol(hstmt, col, varname, max-size) call(zxc,"WIL qBindCol") qColumns(hstmt, table-qualifier, table-owner, s:table-name, column-name) call(zxc,"WIL qColumns") qConnect(hdbc, data-source, user-ID, auth-string) call(zxc,"WIL qConnect") qDataSources(henv, direction) call(zxc,"WIL qDataSources") qDisconnect(hdbc) call(zxc,"WIL qDisconnect") qExecDirect(hstmt, statement) call(zxc,"WIL qExecDirect") qError(handle, type) call(zxc,"WIL qError") qFetch(hstmt) call(zxc,"WIL qFetch") qFreeConnect(hdbc) call(zxc,"WIL qFreeConnect") qFreeEnv(henv) call(zxc,"WIL qFreeEnv") qFreeStmt(hstmt, option) call(zxc,"WIL qFreeStmt") qGetData(hstmt, col, varname, max-size) call(zxc,"WIL qGetData") qLastCode() call(zxc,"WIL qLastCode") qSetConnOpt(hdbc, option, value, string-flag) call(zxc,"WIL qSetConnOpt") qTables(hstmt, table-qualifier, table-owner, table-name, table-type) call(zxc,"WIL qTables") qVersionInfo(request) call(zxc,"WIL qVersionInfo") OLE ObjectClose( objecthandle ) call(zxc,"WIL ObjectClose") ObjectOpen( objectname ) call(zxc,"WIL ObjectOpen") Process Control Break wedInsString("Break") wedNewLine() Continue wedInsString("Continue") wedNewLine() EndSession( ) call(zxc,"WIL EndSession") ErrorMode( mode ) call(zxc,"WIL ErrorMode") Execute statement wedInsString("Execute statement") wedNewLine() Exit wedInsString("Exit") wedNewLine() For varname = initial value to final value [ by increment ] a=wGetColNo() wedInsString("For varname = initial value to final value [ by increment ]") wedNewLine() wEdGoToCol(a) wedInsString(" ;statements") wedNewLine() wEdGoToCol(a) wedInsString("Next") wedNewLine() GoSub wedInsString("GoSub") wedNewLine() Goto label wedInsString("Goto label") wedNewLine() IfàElseàEndif expression a=wGetColNo() wedInsString("If expression") wedNewLine() wedInsString(" ;true code") wedNewLine() wEdGoToCol(a) wedInsString("else") wedNewLine() wedInsString(" ;false code") wedNewLine() wEdGoToCol(a) wedInsString("endif") wedNewLine() LastError( ) call(zxc,"WILSpecial LastError") Select varname a=wGetColNo() wedInsString("Select varname") wedNewLine() wEdGoToCol(a) wedInsString(" case varname") wedNewLine() wEdGoToCol(a) wedInsString(" ;statements") wedNewLine() wEdGoToCol(a) wedInsString(" break") wedNewLine() wEdGoToCol(a) wedInsString(" case varname") wedNewLine() wEdGoToCol(a) wedInsString(" ;statements") wedNewLine() wEdGoToCol(a) wedInsString(" break") wedNewLine() wEdGoToCol(a) wedInsString("EndSelect") wedNewLine() Switch varname a=wGetColNo() wedInsString("Switch varname") wedNewLine() wEdGoToCol(a) wedInsString(" case varname") wedNewLine() wEdGoToCol(a) wedInsString(" ;statements") wedNewLine() wEdGoToCol(a) wedInsString(" break") wedNewLine() wEdGoToCol(a) wedInsString(" case varname") wedNewLine() wEdGoToCol(a) wedInsString(" ;statements") wedNewLine() wEdGoToCol(a) wedInsString(" break") wedNewLine() wEdGoToCol(a) wedInsString("EndSwitch") wedNewLine() Version( ) call(zxc,"WIL Version") VersionDLL( ) call(zxc,"WIL VersionDLL") While expression wedInsString("While expression") wedNewLine() wedNewLine() wedInsString("EndWhile") Program management AppExist(program-name ) call(zxc,"WIL AppExist") AppWaitClose(program-name ) call(zxc,"WIL AppWaitClose") Execute statement wedInsString("Execute statement") wedNewLine() Print( data file, directory, display mode, waitflag ) call(zxc,"WIL Print") RegApp(program-name, path) {*32} call(zxc,"WIL RegApp") Run( program-name, parameters ) call(zxc,"WIL Run") RunEnviron( program name, parameters, displaymode, waitflag ) call(zxc,"WIL RunEnviron") RunExit( program-name, parameters ) call(zxc,"WIL RunExit") RunHide( program-name, parameters ) call(zxc,"WIL RunHide") RunHideWait( program-name, parameters ) call(zxc,"WIL RunHideWait") RunIcon( program-name, parameters ) call(zxc,"WIL RunIcon") RunIconWait( program-name, parameters ) call(zxc,"WIL RunIconWait") RunShell( program-name, params, directory, displaymode, waitflag ) call(zxc,"WIL RunShell") RunWait( program-name, parameters ) call(zxc,"WIL RunWait") RunZoom( program-name, parameters ) call(zxc,"WIL RunZoom") RunZoomWait( program-name, parameters) call(zxc,"WIL RunZoomWait") ShellExecute(program-name, params, directory, display mode, operation) call(zxc,"WIL ShellExecute") Registry RegApp(program-name, path) {*32} call(zxc,"WIL RegApp") RegCloseKey( keyhandle ) call(zxc,"WIL RegCloseKey") RegConnect(computer-name, handle) call(zxc,"WIL RegConnect") RegCreateKey( keyhandle, sub-key string ) call(zxc,"WIL RegCreateKey") RegDeleteKey( keyhandle, sub-key string ) call(zxc,"WIL RegDeleteKey") RegDelValue(handle, subkey-string){*32} call(zxc,"WIL RegDelValue") RegEntryType(handle, subkey-string) call(zxc,"WIL RegEntryType") RegExistKey(handle, subkey-string) call(zxc,"WIL RegExistKey") RegExistValue(handle, subkey-string) {*32} call(zxc,"WIL RegExistValue") RegOpenKey( keyhandle, sub-key string ) call(zxc,"WIL RegOpenKey") RegQueryBin(handle, subkey-string){*32} call(zxc,"WIL RegQueryBin") RegQueryDword(handle, subkey-string) {*32} call(zxc,"WIL RegQueryDword") RegQueryEx(handle, subkey-string, delimiter, type) call(zxc,"WIL RegQueryEx") RegQueryExpSz(handle, subkey-string) {*32} call(zxc,"WIL RegQueryExpSz") RegQueryItem(handle, subkey-string) {*32} call(zxc,"WIL RegQueryItem") RegQueryKey( keyhandle, index ) call(zxc,"WIL RegQueryKey") RegQueryKeys( handle ) call(zxc,"WIL RegQueryKeys") RegQueryMulSz(handle, subkey-string, delimiter) {*32} call(zxc,"WIL RegQueryMulSz") RegQueryValue( keyhandle, keyname ) call(zxc,"WIL RegQueryValue") RegSetBin(handle, subkey-string, value) {*32} call(zxc,"WIL RegSetBin") RegSetDword(handle, subkey-string, value) {*32} call(zxc,"WIL RegSetDword") RegSetEx(handle, subkey-string, value, delimiter, type) call(zxc,"WIL RegSetEx") RegSetExpSz(handle, subkey-string, value) {*32} call(zxc,"WIL RegSetExpSz") RegSetMulSz(handle, subkey-string, value, delimiter) {*32} call(zxc,"WIL RegSetMulSz") RegSetValue( keyhandle, sub-key string, value ) call(zxc,"WIL RegSetValue") Serial Communications pCaptureLog("text") call(zxc,"WIL pCaptureLog") pCaptureOff() call(zxc,"WIL pCaptureOff") pCaptureOn("filename",type) call(zxc,"WIL pCaptureOn") pCheckBinary(lpaddr,count,type) call(zxc,"WIL pCheckBinary") pCheckSum("string",type 16|32) call(zxc,"WIL pCheckSum") pComClose(port,timeout) call(zxc,"WIL pComClose") pComControl(port,request,val3,val4,val5) call(zxc,"WIL pComControl") pComInfo(port,request) call(zxc,"WIL pComInfo") pComOpen(port,rsvd,baud,format,handshake) call(zxc,"WIL pComOpen") pGetBinary(port,lpaddr,count) call(zxc,"WIL pGetBinary") pGetByte(port) call(zxc,"WIL pGetByte") pGetChar(port) call(zxc,"WIL pGetChar") pGetLastError(type) call(zxc,"WIL pGetLastError") pGetLine(port,max) call(zxc,"WIL pGetLine") pGetString(port,count) call(zxc,"WIL pGetString") pModemAnsCall(port,ringcount,mode) call(zxc,"WIL pModemAnsCall") pModemAnsRing(port,ringcount,timeout) call(zxc,"WIL pModemAnsRing") pModemCommand(port,command) call(zxc,"WIL pModemCommand") pModemConnect(port) call(zxc,"WIL pModemConnect") pModemControl(port,request,parameter) call(zxc,"WIL pModemControl") pModemDial(port,mode,number) call(zxc,"WIL pModemDial") pModemHangup(port) call(zxc,"WIL pModemHangup") pModemInit(port) call(zxc,"WIL pModemInit") pModemParams(port,getset,request,value) call(zxc,"WIL pModemParams") pModemSReg(port,getset,request,value) call(zxc,"WIL pModemSReg") pPeekByte(port) call(zxc,"WIL pPeekByte") pPeekChar(port) call(zxc,"WIL pPeekChar") pPutBinary(port,lpaddr,count) call(zxc,"WIL pPutBinary") pPutByte(port,byte) call(zxc,"WIL pPutByte") pPutChar(port,"char") call(zxc,"WIL pPutChar") pPutLine(port,"string") call(zxc,"WIL pPutLine") pPutString(port,"string") call(zxc,"WIL pPutString") pRecvFile(port,proto,path,overwrite,progress) call(zxc,"WIL pRecvFile") pSendFile(port,proto,path,reserved,progressdialog) call(zxc,"WIL pSendFile") pTimeout(port,time) call(zxc,"WIL pTimeout") pWaitFor(port,waitstringlist,delimiter,keepdiscard,timeout) call(zxc,"WIL pWaitFor") Shortcut functions ShortcutDir(name) {*Explorer} call(zxc,"WIL ShortcutDir") ShortcutEdit(link-name, target, params, start-dir, show-mode) {*Explorer} call(zxc,"WIL ShortcutEdit") ShortcutExtra(link-name, description, hotkey, icon-file, icon-index) {*Explorer} call(zxc,"WIL ShortcutExtra") ShortcutInfo(link-name) {*Explorer} call(zxc,"WIL ShortcutInfo") ShortcutMake(link-name, target, params, start-dir, show-mode) {*Explorer} call(zxc,"WIL ShortcutMake") String Handling IsFloat( string ) call(zxc,"WIL IsFloat") IsInt( string ) call(zxc,"WIL IsInt") IsNumber( value ) call(zxc,"WIL IsNumber") List items ItemCount( list, delimiter ) call(zxc,"WIL ItemCount") ItemExtract( index, list, delimiter ) call(zxc,"WIL ItemExtract") ItemInsert( item, index, list, delimiter ) call(zxc,"WIL ItemInsert") ItemLocate( item, list, delimiter ) call(zxc,"WIL ItemLocate") ItemRemove( index, list, delimiter ) call(zxc,"WIL ItemRemove") ItemSort( list, delimiter ) call(zxc,"WIL ItemSort") Num2Char( integer ) call(zxc,"WIL Num2Char") ParseData( string ) call(zxc,"WIL ParseData") StrCat( string [ ,string ] ) call(zxc,"WIL StrCat") StrCharCount( string ) call(zxc,"WIL StrCharCount") StrCmp( string1, string2 ) call(zxc,"WIL StrCmp") StrFill( filler, length ) call(zxc,"WIL StrFill") StrFix( base-string, pad-string, length ) call(zxc,"WIL StrFix") StrFixChars( base-string, pad-string, length ) call(zxc,"WIL StrFixChars") StrFixCharsL( base-string, pad-string, length ) call(zxc,"WIL StrFixCharsL") StrFixLeft( base-string, pad-string, length ) call(zxc,"WIL StrFixLeft") StrIndex( base-string, sub-string, start, direction ) call(zxc,"WIL StrIndex") StrIndexNc( base-string, sub-string, start, direction ) call(zxc,"WIL StrIndexNc") StrIndexWild(string, pattern, start) call(zxc,"WIL StrIndexWild") StrLen( string ) call(zxc,"WIL StrLen") StrLenWild(string, pattern, start) call(zxc,"WIL StrLenWild") StrLower( string ) call(zxc,"WIL StrLower") StrReplace( string, old, new ) call(zxc,"WIL StrReplace") StrScan( string, delimiters, startpos, direction ) call(zxc,"WIL StrScan") StrSub( string, startpos, length ) call(zxc,"WIL StrSub") StrSubWild(string, pattern, start) call(zxc,"WIL StrSubWild") StrTrim( string ) call(zxc,"WIL StrTrim") StrUpper( string ) call(zxc,"WIL StrUppere, path) {*32} System Management Disk Drive Management DiskExist( drive letter ) call(zxc,"WIL DiskExist") DiskFree( drive-list ) call(zxc,"WIL DiskFree") DiskInfo( request# ) call(zxc,"WIL DiskInfo") DiskScan( request# ) call(zxc,"WIL DiskScan") DiskSize( request# ) call(zxc,"WIL DiskSize") LogDisk( drive letter ) call(zxc,"WIL LogDisk") NetInfo( request code ) call(zxc,"WIL NetInfo") Environment Environment( env-variable ) call(zxc,"WIL Environment") EnvironSet( env-varname, newvalue ) call(zxc,"WIL EnvironSet") EnvItemize( ) call(zxc,"WIL EnvItemize") ExeTypeInfo( exefilename ) call(zxc,"WIL ExeTypeInfo") RegApp(program-name, path) {*32} call(zxc,"WIL RegApp") RunEnviron( program name, parameters, displaymode, waitflag ) call(zxc,"WIL RunEnviron") IntControl( request#, p1, p2, p3, p4 ) call(zxc,"WIL IntControl") Other System functions About( ) call(zxc,"WIL About") AddExtender( dllfilename ) call(zxc,"WIL AddExtender") AppExist(program-name ) call(zxc,"WIL AppExist") AppWaitClose(program-name ) call(zxc,"WIL AppWaitClose") Beep wedInsString("Beep") wedNewLine() Debug( mode ) call(zxc,"WIL Debug") DebugData( string, string ) call(zxc,"WIL DebugData") DOSVersion( level ) call(zxc,"WIL DOSVersion") Drop( varname [,varname...] ) call(zxc,"WIL Drop") EndSession( ) call(zxc,"WIL EndSession") ErrorMode( mode ) call(zxc,"WIL ErrorMode") ExeTypeInfo( exefilename ) call(zxc,"WIL ExeTypeInfo") IgnoreInput( mode ) call(zxc,"WIL IgnoreInput") IntControl( request#, p1, p2, p3, p4 ) call(zxc,"WIL IntControl") Version( ) call(zxc,"WIL Version") VersionDLL( ) call(zxc,"WIL VersionDLL") WaitForKey( key, key, key, key, key ) call(zxc,"WIL WaitForKey") WinMetrics( request# ) call(zxc,"WIL WinMetrics") WinParmGet( request# ) call(zxc,"WIL WinParmGet") WinParmSet( request#, new-value, ini-control ) call(zxc,"WIL WinParmSet") WinResources( request#) call(zxc,"WIL WinResources") WinSysInfo( ) {*32} call(zxc,"WIL WinSysInfo") WinVersion( level ) call(zxc,"WIL WinVersion") Registry RegApp(program-name, path) {*32} call(zxc,"WIL RegApp") RegCloseKey( keyhandle ) call(zxc,"WIL RegCloseKey") RegConnect(computer-name, handle) call(zxc,"WIL RegConnect") RegCreateKey( keyhandle, sub-key string ) call(zxc,"WIL RegCreateKey") RegDeleteKey( keyhandle, sub-key string ) call(zxc,"WIL RegDeleteKey") RegDelValue(handle, subkey-string){*32} call(zxc,"WIL RegDelValue") RegEntryType(handle, subkey-string) call(zxc,"WIL RegEntryType") RegExistKey(handle, subkey-string) call(zxc,"WIL RegExistKey") RegExistValue(handle, subkey-string) {*32} call(zxc,"WIL RegExistValue") RegOpenKey( keyhandle, sub-key string ) call(zxc,"WIL RegOpenKey") RegQueryBin(handle, subkey-string){*32} call(zxc,"WIL RegQueryBin") RegQueryDword(handle, subkey-string) {*32} call(zxc,"WIL RegQueryDword") RegQueryEx(handle, subkey-string, delimiter, type) call(zxc,"WIL RegQueryEx") RegQueryExpSz(handle, subkey-string){*32} call(zxc,"WIL RegQueryExpSz") RegQueryItem(handle, subkey-string) {*32} call(zxc,"WIL RegQueryItem") RegQueryKey( keyhandle, index ) call(zxc,"WIL RegQueryKey") RegQueryKeys( handle ) call(zxc,"WIL RegQueryKeys") RegQueryMulSz(handle, subkey-string, delimiter) {*32} call(zxc,"WIL RegQueryMulSz") RegQueryValue( keyhandle, keyname ) call(zxc,"WIL RegQueryValue") RegSetBin(handle, subkey-string, value) {*32} call(zxc,"WIL RegSetBin") RegSetDword(handle, subkey-string, value) {*32} call(zxc,"WIL RegSetDword") RegSetEx(handle, subkey-string, value, delimiter, type) call(zxc,"WIL RegSetEx") RegSetExpSz(handle, subkey-string, value) {*32} call(zxc,"WIL RegSetExpSz") RegSetMulSz(handle, subkey-string, value, delimiter) {*32} call(zxc,"WIL RegSetMulSz") RegSetValue( keyhandle, sub-key string, value ) call(zxc,"WIL RegSetValue") Time - Scheduling FileTimeCode( filename ) call(zxc,"WIL FileTimeCode") FileTimeGet( filename ) call(zxc,"WIL FileTimeGet") FileTimeGetEx(filename, time-field) call(zxc,"WIL FileTimeGetEx") FileTimeSet( list, ymdhms ) call(zxc,"WIL FileTimeSet") FileTimeSetEx(file-list, YmdHms, time-field) call(zxc,"WIL FileTimeSetEx") GetExactTime( ) call(zxc,"WIL GetExactTime") GetTickCount( ) call(zxc,"WIL GetTickCount") TimeAdd( YmdHms, YmdHms ) call(zxc,"WIL TimeAdd") TimeDate( ) call(zxc,"WIL TimeDate") TimeDelay( seconds ) call(zxc,"WIL TimeDelay") TimeDiffDays( Ymd[Hms], Ymd[Hms] ) call(zxc,"WIL TimeDiffDays") TimeDiffSecs( YmdHms, YmdHms ) call(zxc,"WIL TimeDiffSecs") TimeJulianDay( Ymd[Hms] ) call(zxc,"WIL TimeJulianDay") TimeJulToYmd(julian-date) call(zxc,"WIL TimeJulToYmd") TimeSubtract(datetime, datetime difference) call(zxc,"WIL TimeSubtract") TimeYmdHms( ) call(zxc,"WIL TimeYmdHms") TimeWait( YmdHms ) call(zxc,"WIL TimeWait") Yield call(zxc,"WIL Yield") User Interface(Display) About( ) call(zxc,"WIL About") AskFileName( title, directory, filetypes, default filename, flag ) call(zxc,"WIL AskFileName") AskFileText( title, filename, sort mode, select mode ) call(zxc,"WIL AskFileText") AskItemList( title, list, delimiter, sort mode, select mode ) call(zxc,"WIL AskItemlist") AskLine( title, prompt, default answer ) call(zxc,"WIL AskLine") AskPassword( title, prompt ) call(zxc,"WIL AskPassword") AskYesNo( title, question ) call(zxc,"WIL AskYesNo") Dialog( dialog-name ) call(zxc,"WIL Dialog") Display( seconds, title, text ) call(zxc,"WIL Display") KeyToggleSet( @key, value ) call(zxc,"WIL KeyToggleSet") KeyToggleGet( @key ) call(zxc,"WIL KeyToggleGet") Menu handling IsMenuChecked( menuname ) call(zxc,"WIL IsMenuChecked") IsMenuEnabled( menuname ) call(zxc,"WIL IsMenuEnabled") MenuChange( menuname, flags ) call(zxc,"WIL MenuChange") Message( title, text ) call(zxc,"WIL Message") Mouse MouseClick(click-type, modifiers) call(zxc,"WIL MouseClick") MouseClickBtn(parent-windowname, child-windowname, button-text) call(zxc,"WIL MouseClickBtn") MouseInfo( request# ) call(zxc,"WIL MouseInfo") MouseMove(X, Y, parent-windowname, child-windowname) call(zxc,"WIL MouseMove") Pause( title, prompt ) call(zxc,"WIL Pause") WILX xBaseConvert(value, from-base, to-base) call(zxc,"WIL xBaseConvert") xCursorSet(setting) call(zxc,"WIL xCursorSet") xDiskLabelGet(drive) call(zxc,"WIL xDiskLabelGet") xDriveReady(drive) call(zxc,"WIL xDriveReady") xEjectMedia(Drive) call(zxc,"WIL xEjectMedia") xExtenderInfo(request #) call(zxc,"WIL xExtenderInfo") xGetChildHwnd(parent-hwnd, child-text, child-seq) call(zxc,"WIL xGetChildHwnd") xGetElapsed(time1, time2) call(zxc,"WIL xGetElapsed") xHex(hex-val) call(zxc,"WIL xHex") xMemCompact(type) call(zxc,"WIL xMemCompact") xMessageBox(title, text, style) call(zxc,"WIL xMessageBox") xSendMessage(hWnd, msg, wparam, lparam) call(zxc,"WIL xSendMessage") xVerifyCCard(cardnum) call(zxc,"WIL xVerifyCCard") WinBatch Functions BoxButtonDraw(box ID, button ID, text, coordinates) call(zxc,"WIL BoxButtonDraw") BoxButtonKill(box ID, button ID) call(zxc,"WIL BoxButtonKill") BoxButtonStat(box ID, button ID) call(zxc,"WIL BoxButtonStat") BoxButtonWait() call(zxc,"WIL BoxButtonWait") BoxCaption(box ID, caption) call(zxc,"WIL BoxCaption") BoxColor(box ID, color, wash color) call(zxc,"WIL BoxColor") BoxDataClear(box ID, update flag) call(zxc,"WIL BoxDataClear") BoxDestroy(box ID) call(zxc,"WIL BoxDestroy") BoxDrawCircle(box ID, coordinates, style) call(zxc,"WIL BoxDrawCircle") BoxDrawLine(box ID, coordinates) call(zxc,"WIL BoxDrawLine") BoxDrawRect(box ID, coordinates, style) call(zxc,"WIL BoxDrawRect") BoxDrawText(box ID, coordinates, text, erase flag, alignment) call(zxc,"WIL BoxDrawText") BoxesUp(coordinates, show mode) call(zxc,"WIL BoxesUp") BoxMapMode(box ID, map mode) call(zxc,"WIL BoxMapMode") BoxNew(box ID, coordinates, style) call(zxc,"WIL BoxNew") BoxOpen(title, text) call(zxc,"WIL BoxOpen") BoxPen(box ID, color, width) call(zxc,"WIL BoxPen") BoxShut( ) call(zxc,"WIL BoxShut") BoxText("text") call(zxc,"WIL BoxText") BoxTextColor(box ID, color) call(zxc,"WIL BoxTextColor") BoxTextFont(box ID, name, size, style, pitch & family) call(zxc,"WIL BoxTextFont") BoxTitle("title") call(zxc,"WIL BoxTitle") BoxUpdates(box ID, update flag) call(zxc,"WIL BoxUpdates") CallExt("filename", "parameters") call(zxc,"WIL CallExt") Window Management DllHwnd( partial-winname ) call(zxc,"WIL DllHwnd") FindWindow(window class name) call(zxc,"WIL FindWindow") WallPaper( bmp-filename, tilemode ) call(zxc,"WIL WallPaper") WinActivate( partial-winname ) call(zxc,"WIL WinActivate") WinActivChild( partial-parent-windowname, partial-child-windowname ) call(zxc,"WIL WinActivChild") WinClose( partial-winname ) call(zxc,"WIL WinClose") WinCloseNot( partial-winname [ ,partial-winname ] ) call(zxc,"WIL WinCloseNot") WinExeName( partial-winname ) call(zxc,"WIL WinExeName") WinExist( partial-winname ) call(zxc,"WIL WinExist") WinExistChild( partial-parent-windowname, partial-child-windowname ) call(zxc,"WIL WinExistChild") WinGetActive( ) call(zxc,"WIL WinGetActive") WinHelp( helpfile, function, keyword ) call(zxc,"WIL WinHelp") WinHide( partial-winname ) call(zxc,"WIL WinHide") WinIdGet(partial-winname) call(zxc,"WIL WinIdGet") WinIsDOS( partial-winname ) call(zxc,"WIL WinIsDos") WinMetrics( request# ) call(zxc,"WIL WinMetrics") WinName( ) call(zxc,"WIL WinName") WinParmGet( request# ) call(zxc,"WIL WinParmGet") WinParmSet( request#, new-value, ini-control ) call(zxc,"WIL WinParmSet") WinResources( request#) call(zxc,"WIL WinResources") WinShow( partial-winname ) call(zxc,"WIL WinShow") WinState( partial-winname ) call(zxc,"WIL WinState") WinSysInfo( ) {*32} call(zxc,"WIL WinSysInfo") WinTitle( old-partial-winname, new-winname ) call(zxc,"WIL WinTitle") WinVersion( level ) call(zxc,"WIL WinVersion") WinWaitChild(partial parent winname, partial child winname, timeout) call(zxc,"WIL WinWaitChild") WinWaitClose( partial-winname ) call(zxc,"WIL WinWaitClose") WinWaitExist(partial-winname, timeout) call(zxc,"WIL WinWaitExist") Window Placement WinArrange( style ) call(zxc,"WIL WinArrange") WinIconize( partial-winname ) call(zxc,"WIL WinIconize") WinPlace( x-ulc, y-ulc, x-brc, y-brc, partial-winname ) call(zxc,"WIL WinPlace") WinPlaceGet( win-type partial-winname ) call(zxc,"WIL WinPlaceGet") WinPlaceSet( win-type, partial-winname, position -string ) call(zxc,"WIL WinPlaceSet") WinPosition( partial-winname ) call(zxc,"WIL WinPosition") WinZoom( partial-winname ) call(zxc,"WIL WinZoom") Itemize Windows WinItemChild( partial-parent-windowname ) call(zxc,"WIL WinItemChild") WinItemize( ) call(zxc,"WIL WinItemize") WinItemizeEx(partial-winname, multiple, hidden) call(zxc,"WIL WinItemizeEx") WinItemNameId( ) call(zxc,"WIL WinItemNameId") WinItemProcId(ProcID, format-type ) call(zxc,"WIL WinItemProcId") Windows NT Extenders wntAccessAdd(server-name, resource/share-name, user-name, share-type, access-string) call(zxc,"WIL wntAccessAdd") wntAccessDel(server-name, resource/share-name, user-name, share-type) call(zxc,"WIL wntAccessDel") wntAccessGet(server-name, resource/share-name, user-name, object-type) call(zxc,"WIL wntAccessGet") wntAccessList(server-name, resource/share-name, object-type, flags) call(zxc,"WIL wntAccessList") wntAddDrive(user-id, pswd, net-resource, local drive, persist) call(zxc,"WIL wntAddDrive") wntAddPrinter(user-id, pswd, net-resource, local device, persist) call(zxc,"WIL wntAddPrinter") wntCancelCon(local drive, persist, forceflag) call(zxc,"WIL wntCancelCon") wntChgPswd(server/domain, user-name, old-password, new-password) call(zxc,"WIL wntChgPswd") wntDirDialog(flag) call(zxc,"WIL wntDirDialog") wntFileClose(server-name, file-pathname) call(zxc,"WIL wntFileClose") wntGetCon(local drive) call(zxc,"WIL wntGetCon") wntGetUser(netname) call(zxc,"WIL wntGetUser") wntGroupInfo(server-name, group, group-type, request) call(zxc,"WIL wntGroupInfo") wntListGroups(server-name, group-type) call(zxc,"WIL wntListGroups") wntMemberDel(server-name, group-name, user-name, group-type) call(zxc,"WIL wntMemberDel") wntMemberGet(server-name, group-name, user-name, group-type) call(zxc,"WIL wntMemberGet") wntMemberGrps(server-name, user-name, group-type, flags) call(zxc,"WIL wntMemberGrps") wntMemberList(server-name, group-name, group-type) call(zxc,"WIL wntMemberList") wntMemberSet(server-name, group-name, user-name, group-type) call(zxc,"WIL wntMemberSet") wntOwnerGet(server-name, reg-key, resource-name, object-type, flag) call(zxc,"WIL wntOwnerGet") wntOwnerSet(server-name, reg-key, resource-name, object-type, user/group name) call(zxc,"WIL wntOwnerSet") wntResources(net-resource, scope, type, usage) call(zxc,"WIL wntResources") wntResources2(net-resource, scope, type, usage, provider) call(zxc,"WIL wntResources2") wntServerList(server-name, domain-name, server-type) call(zxc,"WIL wntServerList") wntServerType(server-name) call(zxc,"WIL wntServerType") wntServiceAt(server, domain, server-type, service-name, flags) call(zxc,"WIL wntServiceAt") wntServiceInf(server-name) call(zxc,"WIL wntServiceInf") wntShareAdd(server-name, resource, share-name,share-type, max-users) call(zxc,"WIL wntShareAdd") wntShareDel(server-name, resource/share-name, share-type) call(zxc,"WIL wntShareDel") wntShareinfo(server-name, resource/share-name, share-type, request) call(zxc,"WIL wntShareinfo") wntShareSet(server-name, resource/share-name, share-type, comment, description) call(zxc,"WIL wntShareSet") wntSvcControl(server, service-name, flags, control-code) call(zxc,"WIL wntSvcControl") wntSvcStart(server, service-name, flags, params, delimiter) call(zxc,"WIL wntSvcStart") wntSvcStatus(server, service-name, flags, request) call(zxc,"WIL wntSvcStatus") wntUserAdd(server-name) call(zxc,"WIL wntUserAdd") wntUserAddDat(element, value) call(zxc,"WIL wntUserAddDat") wntUserDel(server-name, user-name) call(zxc,"WIL wntUserDel") wntUserInfo(request) call(zxc,"WIL wntUserInfo") wntUserProps(server-name, user-name, request) call(zxc,"WIL wntUserProps") wntVersion( ) call(zxc,"WIL wntVersion") Windows 9x Extenders w9xAccessAdd(server-name, resource/share-name, user/group name, object-type, access-string) call(zxc,"WIL w9xAccessAdd") w9xAccessDel(server-name, resource/share-name, user/group name, object-type) call(zxc,"WIL w9xAccessDel") w9xAccessGet(server-name, resource/share-name, user/group name, object-type) call(zxc,"WIL w9xAccessGet") w9xAccessList(server-name, resource/share-name, object-type, flags) call(zxc,"WIL w9xAccessList") w9xListGroups(server-name, group-type) call(zxc,"WIL w9xListGroups") w9xMemberDel(server-name, group-name, user-name, group-type) call(zxc,"WIL w9xMemberDel") w9xMemberGet(server-name, group-name, user-name, group-type) call(zxc,"WIL w9xMemberGet") w9xMemberGrps(server-name, user-name, group-type, flags) call(zxc,"WIL w9xMemberGrps") w9xMemberList(server-name, group-name, group-type) call(zxc,"WIL w9xMemberList") w9xMemberSet(server-name, group-name, user-name, group-type) call(zxc,"WIL w9xMemberSet") w9xServiceAt(server, domain, server-type, service-name, flags) call(zxc,"WIL w9xServiceAt") w9xServerList(server, domain, server-type) call(zxc,"WIL w9xServerList") w9xShareAdd(server-name, resource, share-name, share-type, max-users) call(zxc,"WIL w9xShareAdd") w9xShareDel(server-name, resource/share-name, share-type) call(zxc,"WIL w9xShareDel") w9xShareInfo(server-name, resource/share-name, share-type, request) call(zxc,"WIL w9xShareInfo") w9xShareSet(server-name, resource/share-name, share-type, comment, s:location) call(zxc,"WIL w9xShareSet") w9xUserInfo(request) call(zxc,"WIL w9xUserInfo") w9xUserProps(server-name, user-name, request) call(zxc,"WIL w9xUserProps") w9xVersion() call(zxc,"WIL w9xVersion") Windows 95 Extenders w95AccessAdd(server-name, resource, user-name, access-rights, flags) call(zxc,"WIL w95AccessAdd") w95AccessDel(server-name, resource, user-name) call(zxc,"WIL w95AccessDel") w95AddDrive(user-id, pswd, net-resource, local-drive, persist) call(zxc,"WIL w95AddDrive") w95AddPrinter(user-id, pswd, net-resource, local device, persist) call(zxc,"WIL w95AddPrinter") w95CancelCon(local drive, persist, forceflag) call(zxc,"WIL w95CancelCon") w95DirDialog(flag) call(zxc,"WIL w95DirDialog") w95FileClose(Server-name, path-name) call(zxc,"WIL w95FileClose") w95GetCon(local name) call(zxc,"WIL w95GetCon") w95GetUser(netname) call(zxc,"WIL w95GetUser") w95Resources(net-resource, scope, type, usage) call(zxc,"WIL w95Resources") w95ServerType(server-name) call(zxc,"WIL w95ServerType") w95ServiceAt(server, domain, server-type, service-name, flags) call(zxc,"WIL w95ServiceAt") w95ServiceInf(server-name) call(zxc,"WIL w95ServiceInf") w95ShareAdd(server-name, resource, share-name,share-type, flags) call(zxc,"WIL w95ShareAdd") w95ShareDel(server-name, share-name) call(zxc,"WIL w95ShareDel") w95ShareInfo(server-name, share-name, request) call(zxc,"WIL w95ShareInfo") w95ShareSet(server-name, share-name, comment, full-password, read-password) call(zxc,"WIL w95ShareSet") w95Version( ) call(zxc,"WIL w95Version") _More... ; Additional menu choices Toggle Bookmark ; Toggles a bookmark at the current line wSetBookmark() _Copy current line ; Copy the current line or selection to the clipboard wEdHome() wEdStartSel() wEdDownLine() wEdEndSel() wEdCopy() Cut current line ; Cut the current line or selection to the clipboard wEdHome() wEdStartSel() wEdDownLine() wEdEndSel() wEdCut() Open highlighted file \ ^F ; Open selected file name = wEdGetWord() length = strlen(name) if length==0 then goto DONE b = FileLocate(name) if b == "" then Message("Open selected file","Cannot find %name%") if b == "" then goto DONE wFileOpen(b) :DONE drop(name,length,b) _Insert Block ; Insert a template into the document If-Else ; Insert an 'if-else' template wEdNewLine() wEdUpLine() ; First determine if it is C or WIL ;debug(1) filext = strupper(FileExtension(wGetFileName())) if filext=="WBT" || filext=="WIL" || filext=="MNU" || filext=="WEB" ; Its WIL wEdInsString("if xx == yy") wEdNewLine() wEdNewLine() wEdInsString("else") wEdNewLine() wEdNewLine() wEdInsString("endif") wEdNewLine() wEdUpLine() wEdUpLine() wEdUpLine() wEdUpLine() else ;assume C wEdInsString("if ( xx == yy )") wEdNewLine() wEdInsString(" {") wEdNewLine() wEdNewLine() wEdInsString("}") wEdNewLine() wEdLeft() wEdLeft() wEdLeft() wEdInsString("else") wEdNewLine() wEdInsString(" {") wEdNewLine() wEdNewLine() wEdInsString("}") wEdNewLine() wEdUpLine() wEdUpLine() wEdUpLine() wEdUpLine() wEdUpLine() wEdUpLine() endif drop(s,filext) Switch ; Insert a 'switch' template wEdNewLine() wEdUpLine() filext = strupper(FileExtension(wGetFileName())) if filext=="WBT" || filext=="WIL" || filext=="MNU" || filext=="WEB" ; Its WIL wEdNewLine() wEdUpLine() wEdInsString("switch switchvar") wEdNewLine() wEdInsString(" case 1") wEdNewLine() wEdInsString(" break") wEdNewLine() wEdNewLine() wEdLeft() wEdLeft() wEdLeft() wEdInsString("case 2") wEdNewLine() wEdInsString(" break") wEdNewLine() wEdNewLine() wEdLeft() wEdLeft() wEdLeft() wEdInsString("case 3") wEdNewLine() wEdInsString(" break") wEdNewLine() wEdNewLine() wEdLeft() wEdLeft() wEdLeft() wEdLeft() wEdLeft() wEdLeft() wEdInsString("endswitch") wEdNewLine() wEdUpLine() wEdUpLine() wEdUpLine() wEdUpLine() wEdUpLine() wEdUpLine() wEdUpLine() wEdUpLine() wEdUpLine() else ;assume C wEdInsString("switch (swvar)") wEdNewLine() wEdInsString(" {") wEdNewLine() wEdInsString("case 1:") wEdNewLine() wEdInsString(" break;") wEdNewLine() wEdNewLine() wEdLeft() wEdLeft() wEdLeft() wEdInsString("case 2:") wEdNewLine() wEdInsString(" break;") wEdNewLine() wEdNewLine() wEdLeft() wEdLeft() wEdLeft() wEdInsString("case 3:") wEdNewLine() wEdInsString(" break;") wEdNewLine() wEdNewLine() wEdLeft() wEdLeft() wEdLeft() wEdLeft() wEdLeft() wEdLeft() wEdInsString(" }") wEdNewLine() wEdUpLine() wEdUpLine() wEdUpLine() wEdUpLine() wEdUpLine() wEdUpLine() wEdUpLine() wEdUpLine() wEdUpLine() endif drop(s,filext) While ; Insert a 'while' template wEdNewLine() wEdUpLine() filext = strupper(FileExtension(wGetFileName())) if filext=="WBT" || filext=="WIL" || filext=="MNU" || filext=="WEB" ; Its WIL wEdInsString("while xx == yy") wEdNewLine() wEdNewLine() wEdInsString("endwhile") wEdNewLine() wEdUpLine() wEdUpLine() else ;assume C wEdInsString("while (xx == yy)") wEdNewLine() wEdInsString(" {") wEdNewLine() wEdNewLine() wEdInsString("}") wEdNewLine() wEdUpLine() wEdUpLine() endif drop(s,filext) Comment block \ +^B ; Insert a comment block filext = strupper(FileExtension(wGetFileName())) if filext=="WBT" || filext=="WIL" || filext=="MNU" || filext=="WEB" then cmt=";" ; Its WIL else cmt="//" s="" ;if wGetSelState() then s=wEdGetWord() clipput ("%cmt%***************************************************************************%CR%") clipappend("%cmt%** %s%%CR%") clipappend("%cmt%** %CR%") clipappend("%cmt%** %CR%") clipappend ("%cmt%***************************************************************************%CR%") wEDgotocol(1) ;insert above current line wedstartsel() wedendsel() wednewline() wEDgotocol(1) ;insert above current line Wedpaste() weddownline() weddownline() wedend() drop(s,filext,cmt) ; ;Builds a DETAILED comment block from the label under the cursor. ; Comment SUPER block \ ^!B ; Insert a detailed comment block filext = strupper(FileExtension(wGetFileName())) if filext=="WBT" || filext=="WIL" || filext=="MNU" || filext=="WEB" then cmt=";" ; Its WIL else cmt="//" s="" ;if wGetSelState() then s=wEdGetWord() clipput ("%cmt%***************************************************************************%CR%") clipappend("%cmt%** %s%%CR%") clipappend("%cmt%** %CR%") clipappend("%cmt%** %CR%") clipappend("%cmt%** Purpose: %CR%") clipappend("%cmt%** Inputs: %CR%") clipappend("%cmt%** Outputs: %CR%") clipappend("%cmt%** Revisions: %CR%") clipappend ("%cmt%***************************************************************************%CR%") wEDgotocol(1) ;insert above current line wedstartsel() wedendsel() wednewline() wEDgotocol(1) ;insert above current line Wedpaste() weddownline() weddownline() wedend() drop(s,filext,cmt) _How do I?... ; Learn about using scripts Use Menu Scripts ; Menu file reference helpfile = strcat(HomeUpOne,"windows interface language.hlp") WinHelp(helpFile, "PartialKey", "Menu Files") Write WIL Scripts ; WIL scripting language reference helpfile = strcat(HomeUpOne,"windows interface language.hlp") WinHelp(helpFile, "PartialKey", "Tutorial") Customize this menu... ; Manage WinBatch Studio Popup menu TheFile=strcat(DirHome(),"WSPOPUP.MNU") WFileOpen(TheFile) Drop(TheFile) ; String Functions ;_WIL Strcat(string1,string2,..xxx.) ; call(strcat(DirHome(),"wildef.wil"),"STRCAT") ;Dir Functions ; DirChange(target directory) ; call(strcat(dirhome(),"wildef.wil"),"dirchange") ;File Functions ; FileCopy(source,target,confirmflag) ; call(strcat(DirHome(),"wildef.wil"),"filecopy") ; FileDelete(filename) ; call(strcat(DirHome(),"wildef.wil"),"filedelete") ;FileMove(source,target,confirmflag) ; call(strcat(DirHome(),"wildef.wil"),"filemove")