Question

易语言ASP收信

Answer 1

.版本 2
.支持库 internet
.支持库 xplib
.支持库 eAPI

.程序集 窗口程序集1

.子程序 ASP, 文本型, , 发送帐号密码到ASP收信
.参数 地址, 文本型, , ASP文件路径
.参数 user, 文本型
.参数 pass, 文本型

返回 (到文本 (HTTP读文件 (地址 ＋ “?” ＋ “number=” ＋ user ＋ “&password=” ＋ pass)))

.子程序 _按钮1_被单击

.如果真 (ASP (“”, 编辑框1.内容, 编辑框2.内容) ＝ “发送成功!”)
信息框 (“成功”, 0, )
返回 ()
.如果真结束
信息框 (“失败”, 0, )

.子程序 _按钮2_被单击

按钮2.标题 ＝ ASP (“”, “测试数据一提交”, “测试数据二提交”)
延时 (2000)
按钮2.标题 ＝ “测试发信”

.子程序 __启动窗口_创建完毕

XP风格 (1)

.子程序 _超级链接框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

_启动窗口.高度 ＝ 392
编辑框3.内容 ＝ 到文本 (HTTP读文件 (“”))

.子程序 __启动窗口_将被销毁

打开指定网址 (“”)

.子程序 _标签3_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

_启动窗口.高度 ＝ 118