精易论坛

标题: 求助!超文本预览框问题!浏览器问题! [打印本页]

作者: 绥德小高    时间: 2014-4-7 05:14
标题: 求助!超文本预览框问题!浏览器问题!
我做了一款单页面的浏览器,也就是只有一个超文本预览框,下面上图,运行后可以进去主页,然后主页里面点击任何东西都不动了!我不知道为什吗?

浏览器.jpg (1.97 MB, 下载次数: 12)

浏览器.jpg

作者: 痛恨一生    时间: 2014-4-7 05:59
提示: 作者被禁止或删除 内容自动屏蔽
作者: 小King    时间: 2014-4-7 08:41
上源码是唯一解决方法。
作者: 绥德小高    时间: 2014-4-7 12:31
[e]
.版本 2
.支持库 HtmlView
.支持库 iext
.支持库 shell
.支持库 internet
.支持库 sock
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 窗口截图, 字节集

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

函数_加载皮肤 (#界面_积木)
超文本浏览框1.地址 = “www.2345.com/?k372837226”
透明标签1.标题 = 到文本 (取星期几 (取现行时间 ()))
透明标签3.标题 = 到文本 (取年份 (取现行时间 ())) + “ ” + “年”
透明标签4.标题 = 到文本 (取月份 (取现行时间 ())) + “ ” + “月”
透明标签5.标题 = 到文本 (取日 (取现行时间 ())) + “ ” + “日”
时钟1.时钟周期 = 1000
分组框8.可视 = 假
状态条1.置文本 (3, “本软件由绥德汉工作室-绥德小高制作”)
状态条1.置文本 (1, “稳定”)

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

超文本浏览框1.地址 = “www.2345.com/?k372837226”

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

.如果真 (编辑框1.内容 = “”)
    信息框 (“地址不能为空!”, 0, )
    返回 ()
.如果真结束
超文本浏览框1.地址 = 编辑框1.内容


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

超文本浏览框1.地址 = “www.shuobar.cn”

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

超文本浏览框1.地址 = “www.weilaikj.cn”

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

.如果真 (编辑框2.内容 = “”)
    信息框 (“搜索内容不能为空!”, 0, )
    返回 ()
.如果真结束
超文本浏览框1.地址 = “http://www.baidu.com/s?wd= ” + 编辑框2.内容


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

载入 (关于, _启动窗口, 真)


.子程序 _时钟1_周期事件

透明标签6.标题 = 到文本 (取现行时间 ())
状态条1.置文本 (2, “      现在是 : ” + 到文本 (取现行时间 ()))


.子程序 __启动窗口_尺寸被改变

超文本浏览框1.宽度 = _启动窗口.宽度 - 18
超文本浏览框1.高度 = _启动窗口.高度 - 173


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

超文本浏览框1.地址 = “www.r816.com”

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

超文本浏览框1.执行命令 (1)


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

超文本浏览框1.执行命令 (0)


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

超文本浏览框1.执行命令 (5)

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

超文本浏览框1.执行命令 (#刷新)


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

载入 (收藏, _启动窗口, 真)


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

.判断开始 (分组框8.可视 = 真)
    分组框8.可视 = 假
.判断 (分组框8.可视 = 假)
    分组框8.可视 = 真
.默认

.判断结束


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

分组框8.可视 = 假

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

运行 (“control.exe inetcpl.cpl”, 假, )

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

载入 (工具, _启动窗口, 真)


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

载入 (it人, _启动窗口, 真)


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

窗口截图 = 截图 ()
通用对话框1.类型 = 1
通用对话框1.默认文件后缀 = “bmp”
.如果真 (通用对话框1.打开 () = 真)
    写到文件 (通用对话框1.文件名, 窗口截图)
    信息框 (“保存完毕!”, 0, “消息:”)
.如果真结束


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

执行 (, “calc”, , “C:\Windows\system32”, )

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

载入 (窗口1, _启动窗口, 真)


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

运行 (取运行目录 () + “/” + “zmht” + “/” + “zmht.exe”, 假, )


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

运行 (取运行目录 () + “/” + “yy” + “/” + “yy.exe”, 假, )


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

超文本浏览框1.地址 = “http://www.52suide.com/plugin.php?id=damei_tv:tv”

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

运行 (取运行目录 () + “/” + “xz” + “/” + “xz.exe”, 假, )


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

.如果真 (编辑框5.内容 = “”)
    信息框 (“对不起!建议不能为空”, 0, )
    返回 ()
.如果真结束
.如果真 (编辑框6.内容 = “”)
    信息框 (“请输入你的QQ!”, 0, )
    返回 ()

.如果真结束
连接发信服务器 (“smtp.qq.com”, 25, “[email protected]”, “18791262004”, )
发送邮件 (“浏览器建议”, “建议:” + 编辑框5.内容 + #换行符 + “建议人QQ:” + 编辑框6.内容 + #换行符 + “IP:” + 到文本 (取本机IP ()) + #换行符 + “计算机名:” + 到文本 (取本机名 ()) + #换行符 + “网卡名:” + 到文本 (取本机网卡名 ()) + #换行符 + “网卡物理地址:” + 到文本 (取本机网卡物理地址 ()), “[email protected]”, “[email protected]”, “[email protected]”, “[email protected]”, “[email protected]”)

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

.如果真 (编辑框3.内容 = “”)
    信息框 (“搜索内容不能为空!”, 0, )
    返回 ()
.如果真结束


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

.如果真 (编辑框4.内容 = “”)
    信息框 (“播放地址不能为空!”, 0, )
    返回 ()
.如果真结束
[/e]
作者: 绥德小高    时间: 2014-4-8 23:13
已经解决了
作者: 绥德小高    时间: 2014-4-8 23:13
已经解决了




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4