Code By :肩膀
S_Gui 扫描器已经发布过了，为了方便大家学习，现提供原代码。有兴趣的朋友可以编译一下。
复制内容到剪贴板
代码:
.版本 2
.支持库 internet
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 目录, 文本型
.局部变量 命令, 文本型
目录 ＝ 取运行目录 () ＋ “\”
写到文件 (目录 ＋ “s.tmp”, #S)
命令 ＝ “s.tmp ” ＋ 组合框1.取项目文本 (组合框1.现行选中项) ＋ “ ” ＋ 编辑框1.内容 ＋ “ ” ＋ 编辑框2.内容 ＋ “ ” ＋ 编辑框3.内容 ＋ “ ” ＋ 编辑框5.内容 ＋ “ /save”
运行 (命令, 假, )
.子程序 _按钮2_被单击
.如果真 (文件是否存在 (“Result.txt”) ＝ 假)
信息框 (“记录不存在”, 0, )
返回 ()
.如果真结束
运行 (“cmd /c start Result.txt”, 真, 1)
.子程序 _按钮3_被单击
.局部变量 ip, 文本型
.局部变量 txt, 文本型
.局部变量 前位置, 整数型
.局部变量 尾位置, 整数型
编辑框1.内容 ＝ 删首空 (编辑框1.内容)
txt ＝ 到文本 (HTTP读文件 (“http://www.86bzl.com/IP/?s=” ＋ 编辑框1.内容))
前位置 ＝ 寻找文本 (txt, 到文本 (#IP), , 假) ＋ 取字节集长度 (#IP)
尾位置 ＝ 寻找文本 (txt, “</b></div>”, 前位置, 假)
信息框 (删首空 (取文本中间 (txt, 前位置, 尾位置 － 前位置) ＋ #换行符 ＋ 取文本中间 (txt, 2, 寻找文本 (txt, “>”, , 假) － 2)), 0, )
.子程序 _按钮4_被单击
.局部变量 ip, 文本型
.局部变量 txt, 文本型
.局部变量 前位置, 整数型
.局部变量 尾位置, 整数型
编辑框2.内容 ＝ 删首空 (编辑框2.内容)
.如果真 (编辑框2.内容 ＝ “”)
信息框 (“IP为空”, 0, )
编辑框2.获取焦点 ()
.如果真结束
txt ＝ 到文本 (HTTP读文件 (“http://www.86bzl.com/IP/?s=” ＋ 编辑框2.内容))
前位置 ＝ 寻找文本 (txt, 到文本 (#IP), , 假) ＋ 取字节集长度 (#IP)
尾位置 ＝ 寻找文本 (txt, “</b></div>”, 前位置, 假)
信息框 (删首空 (取文本中间 (txt, 前位置, 尾位置 － 前位置) ＋ #换行符 ＋ 取文本中间 (txt, 2, 寻找文本 (txt, “>”, , 假) － 2)), 0, )
.子程序 _按钮5_被单击
写到文件 (“readme.jpg”, #readme)
运行 (“cmd /c start xp2.tmp”, 假, )
运行 (“cmd /c readme.jpg”, 假, 1)
