JS版易语言代码框 Ecode2.0（高亮，流程线）

请叫我宇哥

う网淅乄

牛逼               

kiss0459

叛逆的心 发表于 2015-9-9 22:31
貌似论坛更好用的说
[e=1].版本 2

论坛的这个能不能 改成用易语言调用啊，最近想写一个源码管理器

叛逆的心

貌似论坛更好用的说

  

子程序名	返回值类型	公开	备 注
GetProcessHandle	整数型
参数名	类 型	参考	可空	数组	备 注
lpProcessName	文本型

变量名	类 型	静态	数组	备 注
hSnapShot	整数型
dwRet	整数型
prHandle	整数型
pe32	PROCESSENTRY32

hSnapShot ＝ CreateToolhelp32Snapshot ( #TH32CS_SNAPALL, 0)
如果真 (hSnapShot ＝ 0)
信息框 (“获得进程快照失败”, 0, )
返回 (dwRet)
pe32.dwSize ＝ 1024
prHandle ＝ Process32First (hSnapShot, pe32)
判断循环首 (prHandle ≠ 0)
判断 (到文本 (pe32.szExeFile) ＝ lpProcessName)
dwRet ＝ pe32.th32ProcessID
跳出循环 ()
prHandle ＝ Process32Next (hSnapShot, pe32)

判断循环尾 ()
CloseHandle (hSnapShot)
返回 (dwRet)

.版本 2<br /> <br /> .子程序 GetProcessHandle, 整数型<br /> .参数 lpProcessName, 文本型<br /> .局部变量 hSnapShot, 整数型<br /> .局部变量 dwRet, 整数型<br /> .局部变量 prHandle, 整数型<br /> .局部变量 pe32, PROCESSENTRY32<br /> <br /> hSnapShot ＝ CreateToolhelp32Snapshot (#TH32CS_SNAPALL, 0)<br /> .如果真 (hSnapShot ＝ 0)<br />     信息框 (“获得进程快照失败”, 0, )<br />     返回 (dwRet)<br /> .如果真结束<br /> pe32.dwSize ＝ 1024<br /> prHandle ＝ Process32First (hSnapShot, pe32)<br /> .判断循环首 (prHandle ≠ 0)<br />     .判断开始 (到文本 (pe32.szExeFile) ＝ lpProcessName)<br />         dwRet ＝ pe32.th32ProcessID<br />         跳出循环 ()<br />     .默认<br />         prHandle ＝ Process32Next (hSnapShot, pe32)<br />     .判断结束<br /> <br /> .判断循环尾 ()<br /> CloseHandle (hSnapShot)<br /> 返回 (dwRet)

虚伪的爱

好东西的说~~

fengyewl

支持开源~！感谢分享

陌小夜

好东西的说~~

Hongpeople

有bug 多个判断会出错

bindit

又一个精品。谢谢楼主，太谢谢了，支持

易模块

是浏览器插件？