.版本 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)