ie浏览器网页版进入_[按键精灵手机版教程]网页游戏之规范浏览器大小有一手...

金猪脚本(原飞猪脚本)以按键精灵教学为主,涉及UiBot，Python,Lua等脚本编程语言,教学包括全自动办公脚本,游戏辅助脚本,引流脚本,网页脚本,安卓脚本,IOS脚本,注册脚本,点赞脚本,阅读脚本以及网赚脚本等各个领域。想制作脚本和学习按键精灵的朋友可以添加按键精灵学习交流群:554127455 学习路上不再孤单,金猪脚本伴你一同成长.

写页游脚本的时候，浏览器的不统一是硬伤。

目前的解决方法有：

1、自己用VB语言或其他语言写一个脚本专用的浏览器。

2、让使用者用指定的浏览器。

3、用361插件，创建浏览器窗口。

还有其他的方法吗？

答案是肯定的，

小编这里分享一个方法：来创建一个指定大小、位置，不允许改变窗口大小的浏览器。

步骤

我们要利用 "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

『拓展』

[backcolor=rgb(249, 249, 249)]with …… End with 语句

是当一个对象要执行一系列语句时，起减少代码作用的。

我们常用的大漠插件，大漠对象也是对象，所以这个语句也可以使用在大漠的例子中。

『例如』

1. Set dm = createobject("dm.dmsoft")
2. With dm
3. .moveto 200,200
4. .leftclick
5. End With

复制代码

判断网页是否加载完毕

判断网页是否加载完毕，我们需要用到 "InternetExplorer.application"对象里的busy属性

Busy的意思是： 忙碌的、占线

当网页还在加载过程中，Busy的值是Ture当网页加载完毕之后，Busy的值为False

『代码』

1. While ie.busy
2. delay 200
3. Wend

复制代码

『分析』

使用while……wend条件循环语句，

当ie.busy这个条件为True的时候则进入循环体，延时200毫秒。

直到ie.busy这个条件为False的时候退出循环。

释放对象

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

『代码』

1. Set ie=Nothing '释放对象

复制代码

整体代码

1. Set ie=CreateObject("InternetExplorer.application") '首先建立IE对象
2. With ie
3. .Visible=True '设置对象为可视
4. .MenuBar=false '菜单栏不可见
5. .ToolBar=false'工具栏不可见
6. .StatusBar=false '状态栏不可见
7. .Width =1024 '浏览器宽
8. .Height=768 '浏览器高
9. .Left=0 'X坐标
10. .Top=0 'Y坐标
11. .FullScreen=0 ' 1：全屏 0：非全屏
12. .Navigate "http://www.anjian.com" '打开网址
13. .Resizable=false '设置浏览器大小是否可以被改动 True：可以改动 False：不可以改动
14. End With
15. While ie.busy
16. delay 200
17. Wend
18. //ie.Quit '关闭浏览器
19. Set ie=Nothing '释放对象