易语言版已连接无线网络 本地WiFi/WLAN密码查看器源码 - For Windows10

a1a2dnp

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. .局部变量 计数, 整数型
   
8. .局部变量 已保存WLAN名称, 文本型, , "0"
   
9. .局部变量 输出信息, 文本型
   
10. .局部变量 总数, 整数型
    
11. .局部变量 标题, 文本型
    
12. 
    
13. 取用户已保存WLAN (已保存WLAN名称)
    
14. 标题 ＝ “易语言版已连接WiFi/WLAN密码查看器”
    
15. 总数 ＝ 取数组成员数 (已保存WLAN名称)
    
16. .如果真 (总数 ＝ 0)
    
17.     信息框 (“系统中没有搜索到已保存的无线网络，可能没有安装无线网卡驱动或不支持当前操作系统！”, 16, 标题, )
    
18.     返回 (0)
    
19. .如果真结束
    
20. .计次循环首 (总数, 计数)
    
21.     输出信息 ＝ 输出信息 ＋ “名称:” ＋ 已保存WLAN名称 [计数] ＋ “ 密码:” ＋ 取WLAN密码 (已保存WLAN名称 [计数]) ＋ #换行符
    
22. .计次循环尾 ()
    
23. 信息框 (输出信息, 64, 标题, )
    
24. 返回 (0)
    
25. 
    
26. 
    
27. .子程序 取用户已保存WLAN, 逻辑型
    
28. .参数 WLAN名称, 文本型, 参考 数组
    
29. .局部变量 输出结果, 文本型
    
30. .局部变量 结果分割, 文本型, , "0"
    
31. .局部变量 计数, 整数型
    
32. 
    
33. 重定义数组 (WLAN名称, 假, 0)
    
34. .如果真 (运行控制台程序 (“netsh wlan show profile”, 输出结果, , ) ＝ 假)
    
35.     返回 (假)
    
36. .如果真结束
    
37. 结果分割 ＝ 分割文本 (输出结果, #换行符, )
    
38. .计次循环首 (取数组成员数 (结果分割), 计数)
    
39.     .如果真 (取文本左边 (结果分割 [计数], 23) ＝ 到文本 ({ 32, 32, 32, 32, 203, 249, 211, 208, 211, 195, 187, 167, 197, 228, 214, 195, 206, 196, 188, 254, 32, 58, 32 }))
    
40.         结果分割 [计数] ＝ 取文本右边 (结果分割 [计数], 取文本长度 (结果分割 [计数]) － 23)
    
41.         加入成员 (WLAN名称, 结果分割 [计数])
    
42.     .如果真结束
    
43. 
    
44. .计次循环尾 ()
    
45. 返回 (真)
    
46. 
    
47. 
    
48. .子程序 取WLAN密码, 文本型
    
49. .参数 WLAN名称, 文本型
    
50. .局部变量 输出结果, 文本型
    
51. .局部变量 结果分割, 文本型, , "0"
    
52. .局部变量 计数, 整数型
    
53. 
    
54. .如果真 (运行控制台程序 (“netsh wlan show profile name=” ＋ #引号 ＋ WLAN名称 ＋ #引号 ＋ “ key=clear”, 输出结果, , ) ＝ 假)
    
55.     返回 (“”)
    
56. .如果真结束
    
57. 结果分割 ＝ 分割文本 (输出结果, #换行符, )
    
58. .计次循环首 (取数组成员数 (结果分割), 计数)
    
59.     .如果真 (取文本左边 (结果分割 [计数], 26) ＝ 到文本 ({ 32, 32, 32, 32, 185, 216, 188, 252, 196, 218, 200, 221, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 58, 32 }))
    
60.         结果分割 [计数] ＝ 取文本右边 (结果分割 [计数], 取文本长度 (结果分割 [计数]) － 26)
    
61.         返回 (结果分割 [计数])
    
62.     .如果真结束
    
63. 
    
64. .计次循环尾 ()
    
65. 返回 (“”)
    
66. 
    

复制代码

1心1亿

我用的有线，路过好了。

Get

我也路过

电脑高手

不错，正好需要

demon

谢谢分享

花心大萝卜

我来看看

花心大萝卜

Win7测试ok！！！