注册表-初级程序-极语言教程

//窗体代码:

整数 窗体,编辑,按钮2,按钮3,IE7,IE8,IE8标准,IE9兼容,IE9标准,IE10兼容,IE10标准,IE11兼容,IE11标准;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-350)>>1,上=(桌面.高-300)>>1;
窗体=创建窗口($200,程序.名称,"更改程序版本",$10C80000,左,上,350,300,0,0,0,0);
编辑=创建窗口($200,"Edit","name.exe",$50010080,70,55,185,25,窗体,1,4,0);
按钮2=创建窗口($0,"Button","添加",$50000000,75,190,70,35,窗体,2,3,0);
按钮3=创建窗口($0,"Button","删除",$50000000,195,190,70,35,窗体,3,3,0);
IE7=创建窗口($0,"Button","IE7",$50016009,30,90,45,20,窗体,4,7,0);
IE8=创建窗口($0,"Button","IE8兼容",$50016009,120,90,75,20,窗体,5,7,0);
IE8标准=创建窗口($0,"Button","IE8标准",$50016009,210,90,70,20,窗体,6,7,0);
IE9兼容=创建窗口($0,"Button","IE9兼容",$50016009,30,115,70,20,窗体,7,7,0);
IE9标准=创建窗口($0,"Button","IE9标准",$50016009,120,120,75,20,窗体,8,7,0);
IE10兼容=创建窗口($0,"Button","IE10兼容",$50016009,210,120,80,20,窗体,9,7,0);
IE10标准=创建窗口($0,"Button","IE10标准",$50016009,30,150,80,20,窗体,10,7,0);
IE11兼容=创建窗口($0,"Button","IE11兼容",$50016009,120,150,80,20,窗体,11,7,0);
IE11标准=创建窗口($0,"Button","IE11标准",$50016009,210,150,80,20,窗体,12,7,0);
窗体启动;读取消息
结束
程序段 左键点击(编号)
{判断(编号)为 2 按钮2_点击
为 3 按钮3_点击
为 4 IE7_点击
为 5 IE8_点击
为 6 IE8标准_点击
为 7 IE9兼容_点击
为 8 IE9标准_点击
为 9 IE10兼容_点击
为 10 IE10标准_点击
为 11 IE11兼容_点击
为 12 IE11标准_点击
}

 

//程序代码:

程序段 窗体消息(窗口,消息,参数,数据)
    判断(消息)为 窗口关闭{停止(0)}
    为 单击左键{左键点击(参数)}
    为 绘制按钮 文本改色(参数,$C0FFFF)
    否则 处理窗口(窗口,消息,参数,数据)
结束

整数 表项,项值=8000;文本 项名[32]
文本 路径[96]="SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION";

程序段 窗体启动
     打开表项(表键本机, 路径,  @表项)
结束
//网页框默认是IE6版本,通过注册表修改程序的内置浏览器版本
//编辑框输入程序名即可,32位系统请把\Wow6432Node这段文字去掉
程序段 按钮2_点击
    项名~编辑
    改子项值(表项, 项名,0, 表整数, @项值,4)
    信息框(0,项名,"添加成功",信息图标)
结束

程序段 按钮3_点击
    项名~编辑
    删除值名(表项, 项名)
结束

程序段 IE7_点击
    项值=7000
结束

程序段 IE8_点击
    项值=8000
结束

程序段 IE8标准_点击
    项值=8888
结束

程序段 IE9兼容_点击
    项值=9000
结束

程序段 IE9标准_点击
    项值=9999
结束

程序段 IE10兼容_点击
    项值=10000
结束

程序段 IE10标准_点击
    项值=10001
结束

程序段 IE11兼容_点击
    项值=11000
结束

程序段 IE11标准_点击
    项值=11001
结束