通过网页右键调用易程序

想学坏的小孩

.版本 2
.支持库 internet

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕
.局部变量 地址参数, 文本型, , "0"
.局部变量 图片, 字节集
.局部变量 图片号, 整数型

_启动窗口.总在最前 ＝ 真
画板1.自动重画 ＝ 真
取命令行 (地址参数)  ' 取回浏览器传递回来的图片地址
.如果真 (取数组成员数 (地址参数) ＝ 0)  ' 禁止直接运行本程序
    信息框 (“请在浏览器中网页图片上点击右键调用本程序”, 0, )
    结束 ()
.如果真结束
标题 ＝ 地址参数 [1]
图片 ＝ HTTP读文件 (地址参数 [1])  ' 用HTTP读文件()命令下载图片文件
图片号 ＝ 载入图片 (图片)
' 根据图片大小调整画板与窗口的宽度和高度
画板1.宽度 ＝ 画板1.取图片宽度 (图片号)
画板1.高度 ＝ 画板1.取图片高度 (图片号)
_启动窗口.宽度 ＝ 画板1.宽度 ＋ 6
_启动窗口.高度 ＝ 画板1.高度 ＋ 26
画板1.移动 (0, 0, 取用户区宽度 (), 取用户区高度 ())
画板1.画图片 (图片号, 0, 0, , , )  ' 显示图片