按键精灵脚本制作教程：网页游戏规范浏览器大小

步骤

我们要利用 "InternetExplorer.application"对象，来启动一个ie浏览器窗口，并且设置这个窗口的宽、高、位置等。

『1』    创建IE对象。『2』    设置IE浏览器窗口宽、高、位置等。『3』    打开要打开的网址『4』    判断网页是否加载完毕『5』    释放对象。

创建IE对象

我们创建一个ie浏览器对象，命名为ie（对象名可根据个人喜好，ie也可，ei也可） ：Set ie=CreateObject("InternetExplorer.application")那么，我们在设置ie浏览器对象属性时，使用以下语法：ie.属性=值

设置

当我们要对一个对象执行一系列语句的时候，为了减少一些代码，我们使用 with …… End with   语句。

『语法』 With 对象名  属性=值  End With

我们前面建立的对象名是 ie 

『代码』

With ie    .Visible=True '设置对象为可视    .MenuBar=false '菜单栏不可见    .ToolBar=false'工具栏不可见    .StatusBar=false '状态栏不可见    .Width =1024 '浏览器宽    .Height=768  '浏览器高    .Left=0 'X坐标    .Top=0 'Y坐标    .FullScreen=0 '全屏    .Navigate "http://www.anjian.com" '打开网址    .Resizable=false '设置IE对象大小是否可以被改动End With

『拓展』  with …… End with   语句  是当一个对象要执行一系列语句时，起减少代码作用的。  我们常用的大漠插件，大漠对象也是对象，所以这个语句也可以使用在大漠的例子中。

『例如』

Set dm = createobject("dm.dmsoft") 

With dm

.moveto 200,200

.leftclick 

End With

判断网页是否加载完毕

判断网页是否加载完毕，我们需要用到 "InternetExplorer.application"对象里的busy属性Busy的意思是： 忙碌的、占线当网页还在加载过程中，Busy的值是Ture当网页加载完毕之后，Busy的值为False

『代码』

While ie.busy

    delay 200

Wend

『分析』使用while……wend条件循环语句，当ie.busy这个条件为True的时候则进入循环体，延时200毫秒。直到ie.busy这个条件为False的时候退出循环。

释放对象

当浏览器窗口设置完毕之后，不需要再对它进行设置的时候，我们要把前面创建的对象释放掉，减少系统资源占用。

『代码』

Set ie=Nothing '释放对象

整体代码

Set ie=CreateObject("InternetExplorer.application") '首先建立IE对象

With ie

    .Visible=True '设置对象为可视

    .MenuBar=false '菜单栏不可见  

    .ToolBar=false'工具栏不可见

    .StatusBar=false '状态栏不可见

    .Width =1024 '浏览器宽

    .Height=768  '浏览器高

    .Left=0 'X坐标  

    .Top=0 'Y坐标

    .FullScreen=0 '    1：全屏   0：非全屏

    .Navigate "http://www.anjian.com" '打开网址

    .Resizable=false '设置浏览器大小是否可以被改动  True：可以改动  False：不可以改动

End With

While ie.busy

    delay 200

Wend

//ie.Quit '关闭浏览器

Set ie=Nothing '释放对象