找回密码
 加入
搜索
查看: 3457|回复: 11

请问如何去掉IE标题栏,以及自动全屏适应分辨率大小。(送50币)

[复制链接]
发表于 2009-9-28 11:04:00 | 显示全部楼层 |阅读模式
本帖最后由 cd309420 于 2009-9-30 10:27 编辑

借用http://www.autoitx.com/forum.php ... 85&highlight=ie
   代码很有创意,但如果我要去掉IE标题栏和状态栏,退出程序使用快捷键。不显示关闭及最小化、最大化按钮。让程序自动识别显示分辨率并全屏。
以下是“五猫橙 ”朋友的代码。
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3> ;这个别忘了
#Region ### START Koda GUI section ###
$Form1 = GUICreate("窗体1",1000, 750)
;下面是关键
$oIE = ObjCreate("Shell.Explorer.2")
GUICtrlCreateObj($oIE, -12, -17, 1000, 750)
$oIE.navigate("http://www.autoitx.com/")
;上面是关键
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd


以及“kn007”的代码。在“五猫橙 ”上有所修改。
#NoTrayIcon;无系统托盘图标
#Region ### START Koda GUI section ###  ;koda开始,一种制作gui的东西,方便新手
$Form1 = GUICreate("窗体1",1000, 750);建立gui(1000X750);创建用户图形界面接口(GUI)
$oIE = ObjCreate("Shell.Explorer.2");http://msdn.microsoft.com/en-us/library/bb774094(VS.85).aspx;http://msdn.microsoft.com/en-us/library/bb774073(VS.85).aspx
GUICtrlCreateObj($oIE, -12, -17, 1000, 750) ;对上面的对象设置大小
$oIE.navigate("http://www.autoitx.com/");打开http://www.autoitx.com/
GUISetState(@SW_SHOW);显示gui
#EndRegion ### END Koda GUI section ### ;koda结束,一种制作gui的东西,方便新手
While 1 ;循环
     Sleep(1)  ;这个可以不要,是让cpu无法上升的语句      
     If GUIGetMsg() = -3 Then Exit ;如果按右上角的X就退出
WEnd;循环结束
发表于 2009-9-28 16:36:12 | 显示全部楼层
本帖最后由 jycel 于 2009-9-28 16:44 编辑

根据分辨率自动调大小的话我的思路是这样
应该先读取本机分辨率然后再设置这句
$Form1 = GUICreate("窗体1",1000, 750)
这样判断不就搞定了?
例:
$Height=@DesktopHeight
$Width=@DesktopWidth
if $height="***" then
$Form1 = GUICreate("窗体1",1000, 750)
elseif $Height="***" then
……
endif
其中你可以只判断宽或高也可以以和或一起判断 都可以!
 楼主| 发表于 2009-9-29 09:49:10 | 显示全部楼层
楼上大大可不可以把代码结合在一起,我不懂这个
$Height=@DesktopHeight;这个应该是自动获取分辨率的高
$Width=@DesktopWidth;这个应该是自动获取分辨率的宽
if $height="***" then;这句我没看懂。
$Form1 = GUICreate("窗体1",1000, 750);这句应该是创建GUI窗口,下面的我也看不懂了。
elseif $Height="***" Then
elseif $Width="***" Then
endif
发表于 2009-9-29 10:07:07 | 显示全部楼层
是这个意思吗?
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Form1", @DesktopWidth-5, @DesktopHeight-62)
GUISetState(@SW_SHOW)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd

评分

参与人数 1金钱 +10 收起 理由
cd309420 + 10 感谢

查看全部评分

发表于 2009-9-29 10:14:05 | 显示全部楼层
楼上大大可不可以把代码结合在一起,我不懂这个
$Height=@DesktopHeight;这个应该是自动获取分辨率的高
$Width=@DesktopWidth;这个应该是自动获取分辨率的宽
if $height="***" then;这句我没看懂。
$Form1 = GUI ...
cd309420 发表于 2009-9-29 09:49

@DesktopHeight和@DesktopWidth
上句是桌面高度(像素) (垂直分辨率)和桌面宽度(像素) (水平分辨率)的意思
if $height="***" then;这句表示,如果高度等一个值比如说768(17寸的显示器分辨率为1024*768)明白不?判断当前的分辨率,如果在这显示范围内,设定你的值
elseif $height="***" then;是表示连续判断!当不等于上面判断值是又和这个判断!
帮助中搜索下
if  then else(elseif) endif
和AUTOIT所有的宏.
多看下基础
 楼主| 发表于 2009-9-29 10:24:01 | 显示全部楼层
多谢,看懂大部分了,也谢谢4楼的朋友写代码。为了表示感谢,请接受我的一点心意。
 楼主| 发表于 2009-9-29 10:27:25 | 显示全部楼层
怎么这个评分有限制啊。还从没试过这里面的评分系统。
发表于 2009-9-29 12:24:05 | 显示全部楼层
多谢,看懂大部分了,也谢谢4楼的朋友写代码。为了表示感谢,请接受我的一点心意。
cd309420 发表于 2009-9-29 10:24


呵呵!没什么,有问题大家共同探讨吧!

我也经常郁闷很多莫名其妙的问题,也经常麻烦大家。
发表于 2010-6-21 22:05:32 | 显示全部楼层
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ###
$Form1 = GUICreate("窗体1",@DesktopWidth, @DesktopHeight)
$oIE = ObjCreate("Shell.Explorer.2")
GUICtrlCreateObj($oIE, -12, -17, @DesktopWidth, @DesktopHeight)
$oIE.navigate("http://www.autoitx.com/")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
        EndSwitch
WEnd

虽然你解决了不知道我这个可行不.关闭请用ALT+F4.
发表于 2010-6-22 16:19:48 | 显示全部楼层
路过,路过
发表于 2010-7-16 11:09:13 | 显示全部楼层
学习了。。。
发表于 2010-9-13 09:09:10 | 显示全部楼层
看看啊。。
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-10-3 08:21 , Processed in 0.087128 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表