cd309420 发表于 2009-9-28 11:04:00

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

本帖最后由 cd309420 于 2009-9-30 10:27 编辑

借用http://www.autoitx.com/forum.php?mod=viewthread&tid=9685&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;循环结束

jycel 发表于 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
其中你可以只判断宽或高也可以以和或一起判断 都可以!

cd309420 发表于 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

jycel 发表于 2009-9-29 10:14:05

楼上大大可不可以把代码结合在一起,我不懂这个
$Height=@DesktopHeight;这个应该是自动获取分辨率的高
$Width=@DesktopWidth;这个应该是自动获取分辨率的宽
if $height="***" then;这句我没看懂。
$Form1 = GUI ...
cd309420 发表于 2009-9-29 09:49 http://www.autoitx.com/images/common/back.gif
@DesktopHeight和@DesktopWidth
上句是桌面高度(像素) (垂直分辨率)和桌面宽度(像素) (水平分辨率)的意思
if $height="***" then;这句表示,如果高度等一个值比如说768(17寸的显示器分辨率为1024*768)明白不?判断当前的分辨率,如果在这显示范围内,设定你的值
elseif $height="***" then;是表示连续判断!当不等于上面判断值是又和这个判断!
帮助中搜索下
ifthen else(elseif) endif
和AUTOIT所有的宏.
多看下基础

cd309420 发表于 2009-9-29 10:24:01

多谢,看懂大部分了,也谢谢4楼的朋友写代码。为了表示感谢,请接受我的一点心意。

cd309420 发表于 2009-9-29 10:27:25

怎么这个评分有限制啊。还从没试过这里面的评分系统。

水木子 发表于 2009-9-29 12:24:05

多谢,看懂大部分了,也谢谢4楼的朋友写代码。为了表示感谢,请接受我的一点心意。
cd309420 发表于 2009-9-29 10:24 http://www.autoitx.com/images/common/back.gif

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

我也经常郁闷很多莫名其妙的问题,也经常麻烦大家。:face (27):

x4t10 发表于 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.

mfknui 发表于 2010-6-22 16:19:48

路过,路过

anzhilin 发表于 2010-7-16 11:09:13

学习了。。。

lenovolove 发表于 2010-9-13 09:09:10

看看啊。。
页: [1]
查看完整版本: 请问如何去掉IE标题栏,以及自动全屏适应分辨率大小。(送50币)