网页-初级程序-极语言教程

//窗体代码:

整数 窗体,网页;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-484)>>1,上=(桌面.高-448)>>1;初始页框;
整数 菜单=创建菜单
整数 菜单.1=创建菜单
附加菜单(菜单,16,菜单.1,"主菜单")
附加菜单(菜单.1,0,1001,"显示")
附加菜单(菜单.1,0,1002,"隐藏")
附加菜单(菜单.1,0,1003,"主页")
附加菜单(菜单.1,0,1004,"升级")
窗体=创建窗口($200,程序.名称,"网页浏览",$10C80000,左,上,484,448,0,菜单,0,0);
网页=创建窗口($200,"AtlAxWin","sec.z5x.cn",$50200000,0,0,500,480,窗体,1,5,0);
窗体启动;读取消息
结束
程序段 左键点击(编号)
{判断(编号)为 1001 显示菜单_点击
为 1002 隐藏菜单_点击
为 1003 主页菜单_点击
为 1004 升级菜单_点击
}

//程序代码:

程序段 窗体消息(窗口,消息,参数,数据)
    判断(消息)为 窗口关闭{停止(0)}
    为 单击左键{左键点击(参数)}
    否则 处理窗口(窗口,消息,参数,数据)
结束

对象 浏览=浏览器对象
整数 表项,项值=11000;
文本 路径[96]="SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION";

程序段 窗体启动
    浏览=控件对象 网页
    浏览.改静默(1)显隐窗口(窗体,窗口最大)
    移动窗口(网页,0,0,桌面.宽,桌面.高,假)
    打开表项($80000002, 路径,  @表项)
结束

程序段 显示菜单_点击
    显隐窗口(网页,窗口显示)
结束

程序段 隐藏菜单_点击
    显隐窗口(网页,窗口隐藏)
结束

程序段 主页菜单_点击
    浏览.主页
结束

程序段 升级菜单_点击
    改子项值(表项, "网页.exe",0, 4, @项值,4)
    信息框(0,"重启程序生效","升级IE11成功",信息图标)
结束