易语言系统服务源码

易语言系统服务源码系统结构:ServiceMain,ServiceCtrlHandler,SetStatus,OnStart,OnStop,OnPause,OnContinue,OnShutdown,ServiceWorkerThread,ShowMessageBox,CreateProcess,InstallService,UninstallService,strstr,SuperSleepEx,StartServiceCtrlDispatcher,SetServiceStatus,RegisterServiceCtrlHandler,OutputDebugString,CreateThread,WTSQueryUserToken,DuplicateTokenEx,CreateEnvironmentBlock,CreateProcessAsUserA,CloseHandle,DestroyEnvironmentBlock,GetLastError,WTSGetActiveConsoleSessionId,WTSSendMessage,WaitForSingleObject,GetModuleFileName,OpenSCManagerA,CreateServiceA,OpenServiceA,QueryServiceStatus,DeleteServiceA,ControlService,StartServiceA,CloseServiceHandle,GetCommandLineA,ShellExecuteA,PathFileExistsA,CreateWaitableTimerA,SetWaitableTimer,MsgWaitForMultipleObjects, ======程序集1 || ||------_启动子程序 || ||------ServiceMain || ||------ServiceCtrlHandler || ||------SetStatus || ||------OnStart || ||------OnStop || ||------OnPause || ||------OnContinue || ||------OnShutdown || ||------ServiceWorkerThread || || ======Utils || ||------ShowMessageBox || ||------CreateProcess || ||------InstallService || ||------UninstallService || ||------strstr || ||------SuperSleepEx || || ======调用的Dll || ||---[dll]------StartServiceCtrlDispatcher || ||---[dll]------SetServiceStatus || ||---[dll]------RegisterServiceCtrlHandler || ||---[dll]------OutputDebugString || ||---[dll]------CreateThread || ||---[dll]------WTSQueryUserToken || ||---[dll]------DuplicateTokenEx || ||---[dll]------CreateEnvironmentBlock || ||---[dll]------CreateProcessAsUserA || ||---[dll]------CloseHandle || ||---[dll]------DestroyEnvironmentBlock || ||---[dll]------GetLastError || ||---[dll]------WTSGetActiveConsoleSessionId || ||---[dll]------WTSSendMessage || ||---[dll]------WaitForSingleObject || ||---[dll]------GetModuleFileName || ||---[dll]------OpenSCManagerA || ||---[dll]------CreateServiceA || ||---[dll]------OpenServiceA || ||---[dll]------QueryServiceStatus || ||---[dll]------DeleteServiceA || ||---[dll]------ControlService || ||---[dll]------StartServiceA || ||---[dll]------CloseServiceHandle || ||---[dll]------GetCommandLineA || ||---[dll]------ShellExecuteA || ||---[dll]------PathFileExistsA || ||---[dll]------CreateWaitableTimerA || ||---[dll]------SetWaitableTimer || ||---[dll]------MsgWaitForMultipleObjects 调用的DLL命令: .DLL命令StartServiceCtrlDispatcher,逻辑型,"advapi32.dll","StartServiceCtrlDispatcherA",,连接线索 .参数lpServiceStartTable,SERVICE_TABLE_ENTRY,数组 .DLL命令SetServiceStatus,逻辑型,"advapi32.dll","SetServiceStatus" .参数hServiceStatus,整数型 .参数lpServiceStatus,SERVICE_STATUS .DLL命令RegisterServiceCtrlHandler,整数型,"advapi32.dll","RegisterServiceCtrlHandlerA",,登记服务控制请求句柄 .参数lpServiceName,文本型 .参数lpHandlerProc,整数型 .DLL命令OutputDebugString,,"kernel32","OutputDebugStringA",,向调试发送字符串 .参数lpOutputString,文本型 .DLL命令CreateThread,整数型,"kernel32.dll","CreateThread" .参数lpThreadAttributes,整数型,,默认SECURITY_ATTRIBUTES结构 .参数dwStackSize,整数型,,设置初始栈的大小，以字节为单位，如果为0，那么默认将使用与调用该函数的线程相同的栈空间大小。任何情况下，Windows根据需要动态延长堆栈的大小 .参数lpStartAddress,子程序指针,,指向线程函数的指针，形式：@函数名，函数名称没有限制，但是必须以下列形式声明 .参数lpParameter,整数型,,向线程函数传递的参数，是一个指向结构的指针，不需传递参数时，为NULL .参数dwCreationFlags,整数型,,线程标志,0立即激活 .参数lpThreadId,整数型,,保存新线程的id .DLL命令WTSQueryUserToken,逻辑型,"wtsapi32.dll","WTSQueryUserToken",公开,BOOLWINAPIWTSQueryUserToken .参数SessionId,整数型,,_In_ULONGSessionId, .参数phToken,整数型,传址,_Out_PHANDLEphToken, .DLL命令DuplicateTokenEx,逻辑型,"advapi32.dll","DuplicateTokenEx" .参数hExistingToken,整数型 .参数dwDesiredAccess,整数型 .参数lpTokenAttributes,整数型 .参数ImpersonationLevel,整数型 .参数TokenType,整数型 .参数phNewToken,整数型,传址 .DLL命令CreateEnvironmentBlock,逻辑型,"userenv.dll","CreateEnvironmentBlock",公开,BOOLWINAPICreateEnvironmentBlock .参数lpEnvironment,整数型,传址,_Out_LPVOIDlpEnvironment, .参数hToken,整数型,,_In_opt_HANDLEhToken, .参数bInherit,逻辑型,,_In_BOOLbInherit, .DLL命令CreateProcessAsUserA,逻辑型,"Advapi32.dll","CreateProcessAsUserA",公开,BOOLWINAPICreateProcessAsUser .参数hToken,整数型,,_In_opt_HANDLEhToken, .参数lpApplicationName,文本型,,_In_opt_LPCTSTRlpApplicationName, .参数lpCommandLine,文本型,,_Inout_opt_LPTSTRlpCommandLine, .参数lpProcessAttributes,整数型,,_In_opt_LPSECURITY_ATTRIBUTESlpProcessAttributes, .参数lpThreadAttributes,整数型,,_In_opt_LPSECURITY_ATTRIBUTESlpThreadAttributes, .参数bInheritHandles,逻辑型,,_In_BOOLbInheritHandles, .参数dwCreationFlags,整数型,,_In_DWORDdwCreationFlags, .参数lpEnvironment,整数型,,_In_opt_LPVOIDlpEnvironment, .参数lpCurrentDirectory,文本型,,_In_opt_LPCTSTRlpCurrentDirectory, .参数lpStartupInfo,STARTUPINFO,传址,_In_LPSTARTUPINFOlpStartupInfo, .参数lpProcessInformation,PROCESS_INFORMATION,传址,_Out_LPPROCESS_INFORMATIONlpProcessInformation, .DLL命令CloseHandle,整数型,"kernel32","CloseHandle",,关闭一个内核对象。其中包括文件、文件映射、进程、线程、安全和同步对象等。涉及文件处理时，这个函数通常与vb的close命令相似。应尽可能的使用close，因为它支持vb的差错控制。注意这个函数使用的文件句柄与vb的文件编号是完全不同的非零表示成功，零表示失败。会设置GetLastError .参数hObject,整数型,,欲关闭的一个对象的句柄; .DLL命令DestroyEnvironmentBlock,整数型,"userenv.dll","DestroyEnvironmentBlock" .参数lpEnvironment,整数型 .DLL命令GetLastError,整数型,"kernel32","GetLastError",,针对之前调用的api函数，用这个函数取得扩展错误信息（在vb里使用：在vb中，用Err对象的GetLastError属性获取GetLastError的值。这样做是必要的，因为在api调用返回以及vb调用继续执行期间，vb有时会重设GetLastError的值）由api函数决定。请参考api32.txt文件，其中列出了一系列错误常数；都以ERROR_前缀起头。常用的错误代码见下表 .DLL命令WTSGetActiveConsoleSessionId,整数型,"Kernel32.dll","WTSGetActiveConsoleSessionId",公开 .DLL命令WTSSendMessage,逻辑型,"wtsapi32.dll","WTSSendMessageA" .参数hServer,整数型 .参数SessionId,整数型 .参数pTitle,文本型 .参数TitleLength,整数型 .参数pMessage,文本型 .参数MessageLength,整数型 .参数Style,整数型 .参数timeout,整数型 .参数pResponse,整数型,传址 .参数bWait,逻辑型 .DLL命令WaitForSingleObject,整数型,"kernel32","WaitForSingleObject",,监测一个对象 .参数hHandle,整数型 .参数dwMilliseconds,整数型 .DLL命令GetModuleFileName,整数型,"kernel32","GetModuleFileNameA",,获取一个已装载模板的完整路径名称如执行成功，返回复制到lpFileName的实际字符数量；零表示失败。会设置GetLastError .参数hModule,整数型,,一个模块的句柄。可以是一个DLL模块，或者是一个应用程序的实例句柄 .参数lpFileName,文本型,,指定一个字串缓冲区，要在其中容纳文件的用NULL字符中止的路径名，hModule模块就是从这个文件装载进来的 .参数nSize,整数型,,装载到缓冲区lpFileName的最大字符数量; .DLL命令OpenSCManagerA,整数型,"advapi32.dll","OpenSCManagerA",公开 .参数lpMachineName,整数型 .参数lpDatabaseName,整数型 .参数dwDesiredAccess,整数型 .DLL命令CreateServiceA,整数型,"advapi32.dll","CreateServiceA",公开 .参数hSCManager,整数型 .参数lpServiceName,文本型 .参数lpDisplayName,文本型 .参数dwDesiredAccess,整数型 .参数dwServiceType,整数型 .参数dwStartType,整数型 .参数dwErrorControl,整数型 .参数lpBinaryPathName,文本型 .参数lpLoadOrderGroup,文本型 .参数lpdwTagId,整数型 .参数lpDependencies,文本型 .参数lpServiceStartName,整数型 .参数lpPassword,文本型 .DLL命令OpenServiceA,整数型,"advapi32.dll","OpenServiceA",,打开服务 .参数hSCManager,整数型 .参数lpServiceName,文本型 .参数dwDesiredAccess,整数型 .DLL命令QueryServiceStatus,逻辑型,"advapi32","QueryServiceStatus",公开 .参数hService,整数型 .参数lpServiceStatus,SERVICE_STATUS .DLL命令DeleteServiceA,逻辑型,"advapi32","DeleteService",公开 .参数hService,整数型 .DLL命令ControlService,逻辑型,"advapi32","ControlService",公开 .参数hService,整数型 .参数dwControl,整数型 .参数lpServiceStatus,SERVICE_STATUS,传址 .DLL命令StartServiceA,整数型,"advapi32.dll","StartServiceA",公开 .参数服务句柄,整数型 .参数dwNumServiceArgs,整数型 .参数lpServiceArgVectors,整数型 .DLL命令CloseServiceHandle,逻辑型,"advapi32","CloseServiceHandle",公开 .参数hSCObject,整数型 .DLL命令GetCommandLineA,文本型,"kernel32","GetCommandLineA",,获得指向当前命令行缓冲区的一个指针命令行缓冲区在内存中的地址 .DLL命令ShellExecuteA,整数型,"shell32.dll","ShellExecuteA",,;查找与指定文件关联在一起的程序的文件名非零表示成功，零表示失败。会设置GetLastError .参数hwnd,整数型,,指定一个窗口的句柄，有时候，windows程序有必要在创建自己的主窗口前显示一个消息框 .参数lpOperation,文本型,,指定字串“open”来打开lpFlie文档，或指定“Print”来打印它 .参数lpFile,文本型,,想用关联程序打印或打开一个程序名或文件名 .参数lpParameters,文本型,,如lpszFlie是可执行文件，则这个字串包含传递给执行程序的参数 .参数lpDirectory,文本型,,想使用的完整路径 .参数nShowCmd,整数型,,定义了如何显示启动程序的常数值。参考ShowWindow函数的nCmdShow参数; .DLL命令PathFileExistsA,逻辑型,"shlwapi.dll","PathFileExistsA" .参数pszPath,文本型 .DLL命令CreateWaitableTimerA,整数型,"kernel32.dll","CreateWaitableTimerA" .参数lpTimerAttributes,整数型 .参数bManualReset,逻辑型 .参数lpTimerName,整数型 .DLL命令SetWaitableTimer,整数型,"kernel32.dll","SetWaitableTimer" .参数hTimer,整数型 .参数pDueTime,LARGE_INTEGER .参数lPeriod,整数型 .参数pfnCompletionRoutine,整数型 .参数lpArgToCompletionRoutine,整数型 .参数fResume,逻辑型 .DLL命令MsgWaitForMultipleObjects,整数型,"user32.dll","MsgWaitForMultipleObjects" .参数nCount,整数型 .参数pHandles,整数型,传址 .参数fWaitAll,逻辑型 .参数dwMilliseconds,整数型 .参数dwWakeMask,整数型