2个月写出来的软件，今天在网吧试营！

精易如家酒店ジ

服务端还没安装好，等会安装好后截个图给大家看看。用汉编模块自绘的。

如果这次试营没问题，我会跟我们这里所有网吧进行合作。嘎嘎

cyn123.

寻网吧终端，软件，长期合作，项目安全稳定，扣933920

baiwei

支持支持啊

叛逆的心

  

子程序名	返回值类型	公开	备 注
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)

清华博士

界面挺漂亮

氢气球

看帖回帖看帖回帖看帖回帖看帖回帖

qwertt

界面挺漂亮

herohnxy

网吧管理的软件，已经很多很成熟了，

sega070

这个软件是你写的？

追メ风

你们都太有才了……