易语言恢复电脑与禁用网卡X64-X86源码

.版本 2
.支持库 spec

.程序集 窗口程序集1, , , ' 本源码来自三叶资源网(www.sanye.cx)

.子程序 __启动窗口_创建完毕
.局部变量 IsWow64Process, 整数型
.局部变量 char, 文本型
.局部变量 NetName, 文本型
.局部变量 loop, 整数型

.如果真 (GetProcAddress (GetModuleHandle (“kernel32”), “IsWow64Process”) ≠ 0)
    IsWow64Process (GetCurrentProcess (), IsWow64Process)
.如果真结束
按钮1.发送信息 (5644, 0, 1)
g_DevconExe ＝ 取运行目录 () ＋ “Devcon.exe”
.判断开始 (IsWow64Process ＝ 1)
    写到文件 (g_DevconExe, #DevconX64)
.默认
    写到文件 (g_DevconExe, #DevconX86)
.判断结束

char ＝ 字符 (32)
组合框1.加入项目 (char ＋ “---”, 0)
.计次循环首 (100, loop)
    NetName ＝ 取文本注册项 (4, “SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\” ＋ 到文本 (loop) ＋ “Description”, )
    .如果真 (NetName ≠ “”)
        组合框1.加入项目 (NetName, loop)
    .如果真结束

.计次循环尾 ()
组合框1.现行选中项 ＝ 0

.子程序 _按钮1_被单击
.局部变量 Index, 整数型
.局部变量 NetName, 文本型
.局部变量 start, 整数型

Index ＝ 组合框1.取项目数值 (组合框1.现行选中项)
.如果真 (Index ＝ 0)
    MessageBox (_启动窗口.取窗口句柄 (), “请选择要禁用或启用的网卡!                              ”, 标题, 0 ＋ 48)
    组合框1.获取焦点 ()
    返回 ()
.如果真结束
按钮1.禁止 ＝ 真
.如果 (按钮1.标题 ＝ “禁用网卡”)
    按钮1.标题 ＝ “启用网卡”
.否则
    按钮1.标题 ＝ “禁用网卡”
.如果结束
NetName ＝ 选择 (按钮1.标题 ＝ “禁用网卡”, “启用”, “禁用”)
标题 ＝ “ 正在” ＋ NetName ＋ “网络连接,请稍后..”
延迟 (1000)
start ＝ _设置网卡状态 (选择 (按钮1.标题 ＝ “禁用网卡”, 假, 真), Index)
.判断开始 (start ≥ 32)
    标题 ＝ “ 网络连接” ＋ NetName ＋ “成功..”
.默认
    标题 ＝ “ 网络连接” ＋ NetName ＋ “失败,权限不足建议关闭杀毒软件或重新启动主机.”
.判断结束
按钮1.禁止 ＝ 假

.子程序 _设置网卡状态, 整数型
.参数 IsOpen, 逻辑型, 可空, 真为禁止,假为恢复
.参数 NetId, 整数型, 可空
.局部变量 PnpId, 文本型
.局部变量 Return, 整数型

PnpId ＝ 取文本注册项 (4, “SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\” ＋ 到文本 (NetId) ＋ “ServiceName”, )
.如果真 (PnpId ＝ “”)
    返回 (0)
.如果真结束
PnpId ＝ 取文本注册项 (4, “SYSTEM\ControlSet001\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\” ＋ PnpId ＋ “Connection\PnpInstanceID”, )
.如果真 (PnpId ＝ “”)
    返回 (0)
.如果真结束
Return ＝ ShellExecute (0, “open”, “Devcon.exe”, 选择 (IsOpen, “disable”, “enable”) ＋ 字符 (32) ＋ #引号 ＋ 字符 (64) ＋ PnpId ＋ #引号, 取运行目录 (), #SW_HIDE)
返回 (Return)

@猫吃了易语言