输入网址直接下载文件内含下载器

.如果真 (超级列表框1.取表项数 () ≠ 0)
消息 (_启动窗口.取窗口句柄 (), “已经有任务，等完成后再说”, “下载王”, 4096, 64)
返回 (假)
.如果真结束
i ＝ 倒找文本 (file, “/”, , 假)
a ＝ 取文本中间 (file, i ＋ 1, 取文本长度 (file) － i)
path ＝ path ＋ “\” ＋ a
hnet ＝ 打开网络 (“download”, 0, “”, “”, 0)
.如果真 (hnet ＝ 0)
信息框 (“打开网络失败，请检查网络是否畅通”, 0, )
返回 (假)
.如果真结束
hfile ＝ 打开网络文件 (hnet, file, “”, 0, 0, 0)
.如果真 (hfile ＝ 0)
信息框 (“打开文件失败，无此文件”, 0, )
返回 (假)
.如果真结束
超级列表框1.插入表项 (0, , , , , )
超级列表框1.置标题 (0, 0, a)
超级列表框1.置标题 (0, 1, “正在下载中...”)
编辑框1.内容 ＝ “文件信息：” ＋ #换行符 ＋ “网 址：” ＋ file ＋ #换行符 ＋ “保存路径：” ＋ path
buffer ＝ HTTP读文件 (file1)
文件 ＝ 打开文件 (path, 4, )
写出字节集 (文件, buffer)
关闭文件 (文件)
超级列表框1.删除表项 (0)
i ＝ 消息 (_启动窗口.取窗口句柄 (), a ＋ “已经下载完毕!现在打开吗？”, “下载王”, 4500, 64)
.如果真 (i ＝ 6)
打开 (_启动窗口.取窗口句柄 (), “open”, path, 0, 0, 1)