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

Apple。

借鉴了网络上的方法，将方法改成了程序，使用起来更佳简便。

上电脑课告别被控制的困扰。

调用了Sp EC 请自行下载模块，附件仅有源码。

学生端密码.e (1003.76 KB, 下载次数: 128)

2018-5-24 12:56 上传

点击文件名下载附件
下载积分: 精币 -2 枚

  

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

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

变量名	类 型	静态	数组	备 注
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)

补充内容 (2018-12-1 23:51):
42L 编译出成品

jowojjnd

66666666666666666666

厉害了我的哥？

可以可以 挺强的

Apple。

学生端.zip (616.28 KB, 下载次数: 19)

2018-12-1 23:51 上传

点击文件名下载附件
下载积分: 精币 -2 枚

天生表演家

好歹也把模块分享下

Sylas

一叶飘零G 发表于 2018-6-11 18:21
我们机房是2015豪华版，，取密没用，强关也关不掉，拒绝访问，，心累

简单...你直接禁用网络就OK  

空痕

谁知道模块在哪下  新手 = =

2586850402

巧了 楼主我也做了自己的破J学生端工具，有兴趣一起交流啊

Apple。

一叶飘零G 发表于 2018-6-11 18:21
我们机房是2015豪华版，，取密没用，强关也关不掉，拒绝访问，，心累

我没没机会接触到豪华版的哈哈哈哈

一叶飘零G

我们机房是2015豪华版，，取密没用，强关也关不掉，拒绝访问，，心累

一叶飘零G

可以可以的