作者表示压力很大.......
源码如下
.版本 2
.支持库 HtmlView
.支持库 eAPI
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.子程序 _编辑框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
编辑框1.内容 = “”
.子程序 _编辑框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.判断开始 (编辑框2.内容 = “0”)
编辑框1.内容 = “”
编辑框2.内容 = “1”
.默认
.判断结束
.子程序 _按钮2_被单击
标签6.标题 = 超文本浏览框2.标题
.子程序 _按钮3_被单击
信息框 (“暂时无法使用!”, 0, “暂时无法使用!”)
.子程序 _标签2_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
打开指定网址 (“http://www.52lan.co.cc”)
.子程序 _标签3_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
打开指定网址 (“http://www.52lan.co.cc”)
.子程序 _按钮1_被单击
.判断开始 (编辑框1.内容 = “ 在这里添加视频地址,支持http、ftp、ed2k、thunder、magnet开头的链接(双击清空地址栏)”)
信息框 (“请输入地址!”, 0, “请输入地址!”)
.判断 (编辑框1.内容 = “”)
信息框 (“请输入地址!”, 0, “请输入地址!”)
.默认
超文本浏览框1.地址 = “http://www.52lan.co.cc/vod/vod.php?str=” + 编辑框1.内容
图片框1.可视 = 假
.判断结束
.子程序 __启动窗口_将被销毁
打开指定网址 (“http://www.52lan.co.cc”)
|