level 14
522237296
楼主
取连接状态 这个方法存在Bug,
通过自编程的程序连接上Wifi后,取连接状态 的结果仍然是未连接。
详情:破进程 过程,指令分支 1
组件:
ebit 按钮
stop 按钮
bar 进度条
进度框1 进度框
info 输入框
name 标签
钟 时钟
WIFI wifi组件
广播 系统广播
代码:
变量 加密 为 整数型
变量 NID 为 整数型
变量 PWD 为 文本型()
变量 进程位 为 整数型
事件 破.创建完毕()
广播.注册广播("WIFINAME")
PWD=分割文本(读入资源文件("dic.txt","UTF-8"),"|")
结束 事件
事件 破.切换完毕()
进程位=0
破进程(3)
结束 事件
事件 广播.收到广播(消息ID 为 整数型)
加密=消息ID
name.标题=广播.取广播内容()
结束 事件
事件 破.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
判断 键代码
分支 4
破进程(3)
切换窗口(读取窗口("无线助手"))
结束 判断
结束 事件
事件 ebit.被单击()
破进程(2)
结束 事件
事件 stop.被单击()
破进程(3)
结束 事件
事件 钟.周期事件()
破进程(1)
结束 事件
过程 破进程(指令 为 整数型)
变量 状态 为 逻辑型
判断 指令 '0查看 1过程 2开启 3关闭
分支 1
如果 WIFI.是否已开启()=真 则
判断 WIFI.取连接状态(NID)
分支 0
弹出提示("已连接!")
状态=假
分支 1
进程位=进程位 + 1
如果 WIFI.删除网络(NID) = 真 则
弹出提示("测试下一个密码: " & PWD(进程位))
WIFI.添加网络(name.标题,PWD(进程位),加密)
WIFI.置指定WIFI状态(NID,真)
结束 如果
分支 2
弹出提示("请稍等,正在测试: " & PWD(进程位))
分支 3
弹出提示("未知状态")
结束 判断
bar.位置=进程位
info.内容=info.内容 & "\n 正在测试密码: " & PWD(进程位)
结束 如果
分支 2
状态=真
ebit.可用=假
stop.可用=真
进度框1.可视=真
bar.可视=真
NID = WIFI.添加网络(name.标题,PWD(进程位),加密)
如果 NID = -1 则
弹出提示("错误: 网络无法被添加")
状态=假
否则
弹出提示("破解进行中")
info.内容=info.内容 & "\n 载入字典: 已载入 " & 取数组成员数(PWD) & " 个密码. \n"
info.内容=info.内容 & "软件性能不稳定,若连接到WIFI,请手动停止.\n 启动中...\n 正在尝试密码: " & PWD(进程位)
bar.最大位置= 取数组成员数(PWD)
WIFI.置指定WIFI状态(NID,真)
钟.可用=真
钟.时钟周期=25000
结束 如果
分支 3
状态=假
ebit.可用=真
stop.可用=假
进度框1.可视=假
bar.可视=假
钟.可用=假
结束 判断
结束 过程
2014年09月03日 11点09分
1
通过自编程的程序连接上Wifi后,取连接状态 的结果仍然是未连接。
详情:破进程 过程,指令分支 1
组件:
ebit 按钮
stop 按钮
bar 进度条
进度框1 进度框
info 输入框
name 标签
钟 时钟
WIFI wifi组件
广播 系统广播
代码:
变量 加密 为 整数型
变量 NID 为 整数型
变量 PWD 为 文本型()
变量 进程位 为 整数型
事件 破.创建完毕()
广播.注册广播("WIFINAME")
PWD=分割文本(读入资源文件("dic.txt","UTF-8"),"|")
结束 事件
事件 破.切换完毕()
进程位=0
破进程(3)
结束 事件
事件 广播.收到广播(消息ID 为 整数型)
加密=消息ID
name.标题=广播.取广播内容()
结束 事件
事件 破.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
判断 键代码
分支 4
破进程(3)
切换窗口(读取窗口("无线助手"))
结束 判断
结束 事件
事件 ebit.被单击()
破进程(2)
结束 事件
事件 stop.被单击()
破进程(3)
结束 事件
事件 钟.周期事件()
破进程(1)
结束 事件
过程 破进程(指令 为 整数型)
变量 状态 为 逻辑型
判断 指令 '0查看 1过程 2开启 3关闭
分支 1
如果 WIFI.是否已开启()=真 则
判断 WIFI.取连接状态(NID)
分支 0
弹出提示("已连接!")
状态=假
分支 1
进程位=进程位 + 1
如果 WIFI.删除网络(NID) = 真 则
弹出提示("测试下一个密码: " & PWD(进程位))
WIFI.添加网络(name.标题,PWD(进程位),加密)
WIFI.置指定WIFI状态(NID,真)
结束 如果
分支 2
弹出提示("请稍等,正在测试: " & PWD(进程位))
分支 3
弹出提示("未知状态")
结束 判断
bar.位置=进程位
info.内容=info.内容 & "\n 正在测试密码: " & PWD(进程位)
结束 如果
分支 2
状态=真
ebit.可用=假
stop.可用=真
进度框1.可视=真
bar.可视=真
NID = WIFI.添加网络(name.标题,PWD(进程位),加密)
如果 NID = -1 则
弹出提示("错误: 网络无法被添加")
状态=假
否则
弹出提示("破解进行中")
info.内容=info.内容 & "\n 载入字典: 已载入 " & 取数组成员数(PWD) & " 个密码. \n"
info.内容=info.内容 & "软件性能不稳定,若连接到WIFI,请手动停止.\n 启动中...\n 正在尝试密码: " & PWD(进程位)
bar.最大位置= 取数组成员数(PWD)
WIFI.置指定WIFI状态(NID,真)
钟.可用=真
钟.时钟周期=25000
结束 如果
分支 3
状态=假
ebit.可用=真
stop.可用=假
进度框1.可视=假
bar.可视=假
钟.可用=假
结束 判断
结束 过程