增加改进下精易模块

rszhao

  

子程序名	返回值类型	公开	备 注
暂停服务	逻辑型
参数名	类 型	参考	可空	数组	备 注
服务名称	文本型

变量名	类 型	静态	数组	备 注
局_SC对象句柄	整数型
局_服务句柄	整数型
局_结果	整数型
局_服务状态	SERVICE_Mode

如果真 (取状态 (服务名称) ≠ 4)
返回 (假)
局_SC对象句柄 ＝ SER_取SC对象句柄 ( #GENERIC_WRITE )
局_服务状态 ＝ GetServer ()
如果真 (局_SC对象句柄 ≠ 0)
局_服务句柄 ＝ SER_打开服务句柄 (局_SC对象句柄, 服务名称, 983551)
如果真 (局_服务句柄 ≠ 0)
局_结果 ＝ ControlService (局_服务句柄, 2, 局_服务状态)
如果真 (局_结果 ＝ 0)
m_ERRORCode ＝ GetLastError ()
CloseServiceHandle (局_服务句柄)
CloseServiceHandle (局_SC对象句柄)
返回 (局_结果 ≠ 0)

CloseServiceHandle (局_SC对象句柄)
返回 (假)

子程序名	返回值类型	公开	备 注
恢复服务	逻辑型
参数名	类 型	参考	可空	数组	备 注
服务名称	文本型

变量名	类 型	静态	数组	备 注
局_SC对象句柄	整数型
局_服务句柄	整数型
局_结果	整数型
局_服务状态	SERVICE_Mode

如果真 (取状态 (服务名称) ≠ 7)
返回 (真)
局_SC对象句柄 ＝ SER_取SC对象句柄 ( #GENERIC_WRITE )
局_服务状态 ＝ GetServer ()
如果真 (局_SC对象句柄 ≠ 0)
局_服务句柄 ＝ SER_打开服务句柄 (局_SC对象句柄, 服务名称, 983551)
如果真 (局_服务句柄 ≠ 0)
局_结果 ＝ ControlService (局_服务句柄, 3, 局_服务状态)
如果真 (局_结果 ＝ 0)
m_ERRORCode ＝ GetLastError ()
CloseServiceHandle (局_服务句柄)
CloseServiceHandle (局_SC对象句柄)
返回 (局_结果 ≠ 0)

CloseServiceHandle (局_SC对象句柄)
返回 (假)

.版本 2<br /> <br /> .子程序 暂停服务, 逻辑型, 公开<br /> .参数 服务名称, 文本型<br /> .局部变量 局_SC对象句柄, 整数型<br /> .局部变量 局_服务句柄, 整数型<br /> .局部变量 局_结果, 整数型<br /> .局部变量 局_服务状态, SERVICE_Mode<br /> <br /> .如果真 (取状态 (服务名称) ≠ 4)<br />     返回 (假)<br /> .如果真结束<br /> 局_SC对象句柄 ＝ SER_取SC对象句柄 (#GENERIC_WRITE)<br /> 局_服务状态 ＝ GetServer ()<br /> .如果真 (局_SC对象句柄 ≠ 0)<br />     局_服务句柄 ＝ SER_打开服务句柄 (局_SC对象句柄, 服务名称, 983551)<br />     .如果真 (局_服务句柄 ≠ 0)<br />         局_结果 ＝ ControlService (局_服务句柄, 2, 局_服务状态)<br />         .如果真 (局_结果 ＝ 0)<br />             m_ERRORCode ＝ GetLastError ()<br />         .如果真结束<br />         CloseServiceHandle (局_服务句柄)<br />         CloseServiceHandle (局_SC对象句柄)<br />         返回 (局_结果 ≠ 0)<br />     .如果真结束<br /> <br />     CloseServiceHandle (局_SC对象句柄)<br /> .如果真结束<br /> 返回 (假)<br /> .版本 2<br /> <br /> .子程序 恢复服务, 逻辑型, 公开<br /> .参数 服务名称, 文本型<br /> .局部变量 局_SC对象句柄, 整数型<br /> .局部变量 局_服务句柄, 整数型<br /> .局部变量 局_结果, 整数型<br /> .局部变量 局_服务状态, SERVICE_Mode<br /> <br /> .如果真 (取状态 (服务名称) ≠ 7)<br />     返回 (真)<br /> .如果真结束<br /> 局_SC对象句柄 ＝ SER_取SC对象句柄 (#GENERIC_WRITE)<br /> 局_服务状态 ＝ GetServer ()<br /> .如果真 (局_SC对象句柄 ≠ 0)<br />     局_服务句柄 ＝ SER_打开服务句柄 (局_SC对象句柄, 服务名称, 983551)<br />     .如果真 (局_服务句柄 ≠ 0)<br />         局_结果 ＝ ControlService (局_服务句柄, 3, 局_服务状态)<br />         .如果真 (局_结果 ＝ 0)<br />             m_ERRORCode ＝ GetLastError ()<br />         .如果真结束<br />         CloseServiceHandle (局_服务句柄)<br />         CloseServiceHandle (局_SC对象句柄)<br />         返回 (局_结果 ≠ 0)<br />     .如果真结束<br /> <br />     CloseServiceHandle (局_SC对象句柄)<br /> .如果真结束<br /> 返回 (假)

系统服务添加部分我已贴上.自己是可以用,但是模块更新我每次都要去改下.希望增加下免得我次次都去改!
对话框_另存,加个参数就是

rszhao

不是一样的么?

易语言12345

提议不错！

学习不易哦

感谢楼主，一起把精易完善得越来约好

红颜脸庞仍娇俏

萧阳天 发表于 2016-4-3 12:59
下一个版本将重写系统服务类

管理组  版主
用户组  论坛嘉宾
扩展用户组  正式版主

隐藏的好深

萧阳天

对话框_另存为   此功能已弃用,建议使用   类_通用对话框  类

萧阳天

下一个版本将重写系统服务类

独道

对，这个提议很好我很赞同