【原创】极域电子教室密码获取/修改强制关闭 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

变量名	类型	静态	数组	备注
pswd	文本型
rcd	文本型

返回 ()

如果真 (进程是否存在 (“StudentMain.exe”) ＝假)

编辑框1.内容＝ “学生端未启动”

编辑框2.内容＝ “学生端未启动”

编辑框1.禁止＝真

编辑框2.禁止＝真

按钮1.禁止＝真

按钮2.禁止＝真

标签3.标题＝ “未检测到学生端，请重启本软件继续尝试。”

标签3.文本颜色＝ #红色

返回 ()

pswd ＝取文本注册项 (4, “SOFTWARE\TopDomain\e-Learning Class Standard\1.00\UninstallPasswd”, )
rcd ＝取文本中间 (pswd, 7, 取文本长度 (pswd) － 6)
编辑框1.内容＝ rcd
信息框 (“复制成功”, 0, , )

子程序名	返回值类型	公开	备注
_按钮2_被单击

如果真 (编辑框2.内容 ≠ “”)

写注册项 (4, “SOFTWARE\TopDomain\e-Learning Class Standard\1.00\UninstallPasswd”, “Passwd” ＋编辑框2.内容)

信息框 (“success!”, 0, , )

__启动窗口_创建完毕 ()

子程序名	返回值类型	公开	备注
_按钮1_被单击

置剪辑板文本 (编辑框1.内容)

子程序名	返回值类型	公开	备注
_按钮3_被单击

变量名	类型	静态	数组	备注
pid

如果真 (信息框 (“强制关闭的方法会被老师看见哦。如果需要关闭，请复制密码后进入【设置】里面手动关闭！” ＋ #换行符＋ “如果想要继续强制关闭，请点击确定。”, 1, “确定要强制关闭吗？”, ) ＝ #确认钮 )

pid ＝ GetProcessPid (“StudentMain.exe”)

运行 (“taskkill /im studentmain.exe /f”, 假, )

运行 (“ntsd /p ” ＋到文本 (pid), 假, )

处理事件 ()

结束进程 (取进程ID (“StudentMain.exe”))

信息框 (“已执行强制关闭命令！”, 0, , )

子程序名	返回值类型	公开	备注
结束进程	逻辑型
参数名	类型	参考	可空	数组	备注
进程ID	整数型

返回 (TerminateProcess (OpenProcess (1, 0, 进程ID), 0) ＝ 1)

子程序名	返回值类型	公开	备注
GetProcessPid	整数型		失败返回-1 进程名称取PID
参数名	类型	参考	可空	数组	备注
进程名	文本型

变量名	类型	静态	数组	备注
hSnapShot	整数型
End	整数型
buffer	PROCESSENTRY32
pid	整数型

pid ＝ -1
hSnapShot ＝ CreateToolhelp32Snapshot (2, 0)
buffer.dwSize ＝ 296
End ＝ Process32First2 (hSnapShot, buffer)

判断循环首 (End ≠ 0)

如果真 (到小写 (到文本 (buffer.szExeFile)) ＝到小写 (进程名))

pid ＝ buffer.th32ProcessID

跳出循环 ()

End ＝ Process32Next2 (hSnapShot, buffer)

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

.版本 2<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 __启动窗口_创建完毕<br />
.局部变量 pswd, 文本型<br />
.局部变量 rcd, 文本型<br />
<br />
返回 ()<br />
<br />
<br />
.如果真 (进程是否存在 (“StudentMain.exe”) ＝ 假)<br />
    编辑框1.内容 ＝ “学生端未启动”<br />
    编辑框2.内容 ＝ “学生端未启动”<br />
    编辑框1.禁止 ＝ 真<br />
    编辑框2.禁止 ＝ 真<br />
    按钮1.禁止 ＝ 真<br />
    按钮2.禁止 ＝ 真<br />
    标签3.标题 ＝ “未检测到学生端，请重启本软件继续尝试。”<br />
    标签3.文本颜色 ＝ #红色<br />
    返回 ()<br />
.如果真结束<br />
<br />
pswd ＝ 取文本注册项 (4, “SOFTWARE\TopDomain\e-Learning Class Standard\1.00\UninstallPasswd”, )<br />
rcd ＝ 取文本中间 (pswd, 7, 取文本长度 (pswd) － 6)<br />
编辑框1.内容 ＝ rcd<br />
信息框 (“复制成功”, 0, , )<br />
<br />
.子程序 _按钮2_被单击<br />
<br />
.如果真 (编辑框2.内容 ≠ “”)<br />
<br />
    写注册项 (4, “SOFTWARE\TopDomain\e-Learning Class Standard\1.00\UninstallPasswd”, “Passwd” ＋ 编辑框2.内容)<br />
    信息框 (“success!”, 0, , )<br />
    __启动窗口_创建完毕 ()<br />
<br />
<br />
.如果真结束<br />
<br />
<br />
.子程序 _按钮1_被单击<br />
<br />
置剪辑板文本 (编辑框1.内容)<br />
<br />
.子程序 _按钮3_被单击<br />
.局部变量 pid<br />
<br />
.如果真 (信息框 (“强制关闭的方法会被老师看见哦。 如果需要关闭，请复制密码后进入【设置】里面手动关闭！” ＋ #换行符 ＋ “如果想要继续强制关闭，请点击确定。”, 1, “确定要强制关闭吗？”, ) ＝ #确认钮)<br />
    pid ＝ GetProcessPid (“StudentMain.exe”)<br />
    运行 (“taskkill /im studentmain.exe /f”, 假, )<br />
    运行 (“ntsd /p ” ＋ 到文本 (pid), 假, )<br />
    处理事件 ()<br />
    结束进程 (取进程ID (“StudentMain.exe”))<br />
    信息框 (“已执行强制关闭命令！”, 0, , )<br />
.如果真结束<br />
<br />
<br />
.子程序 结束进程, 逻辑型<br />
.参数 进程ID, 整数型<br />
<br />
返回 (TerminateProcess (OpenProcess (1, 0, 进程ID), 0) ＝ 1)<br />
<br />
.子程序 GetProcessPid, 整数型, 公开, 失败返回-1 进程名称取PID<br />
.参数 进程名, 文本型<br />
.局部变量 hSnapShot, 整数型<br />
.局部变量 End, 整数型<br />
.局部变量 buffer, PROCESSENTRY32<br />
.局部变量 pid, 整数型<br />
<br />
pid ＝ -1<br />
hSnapShot ＝ CreateToolhelp32Snapshot (2, 0)<br />
buffer.dwSize ＝ 296<br />
End ＝ Process32First2 (hSnapShot, buffer)<br />
.判断循环首 (End ≠ 0)<br />
    .如果真 (到小写 (到文本 (buffer.szExeFile)) ＝ 到小写 (进程名))<br />
        pid ＝ buffer.th32ProcessID<br />
        跳出循环 ()<br />
    .如果真结束<br />
    End ＝ Process32Next2 (hSnapShot, buffer)<br />
.判断循环尾 ()<br />
CloseHandle (hSnapShot)<br />
返回 (pid)