请问如何去掉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:44 编辑
根据分辨率自动调大小的话我的思路是这样
应该先读取本机分辨率然后再设置这句
$Form1 = GUICreate("窗体1",1000, 750)
这样判断不就搞定了?
例:
$Height=@DesktopHeight
$Width=@DesktopWidth
if $height="***" then
$Form1 = GUICreate("窗体1",1000, 750)
elseif $Height="***" then
……
endif
其中你可以只判断宽或高也可以以和或一起判断 都可以! 楼上大大可不可以把代码结合在一起,我不懂这个
$Height=@DesktopHeight;这个应该是自动获取分辨率的高
$Width=@DesktopWidth;这个应该是自动获取分辨率的宽
if $height="***" then;这句我没看懂。
$Form1 = GUICreate("窗体1",1000, 750);这句应该是创建GUI窗口,下面的我也看不懂了。
elseif $Height="***" Then
elseif $Width="***" Then
endif 是这个意思吗?#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 楼上大大可不可以把代码结合在一起,我不懂这个
$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所有的宏.
多看下基础 多谢,看懂大部分了,也谢谢4楼的朋友写代码。为了表示感谢,请接受我的一点心意。 怎么这个评分有限制啊。还从没试过这里面的评分系统。 多谢,看懂大部分了,也谢谢4楼的朋友写代码。为了表示感谢,请接受我的一点心意。
cd309420 发表于 2009-9-29 10:24 http://www.autoitx.com/images/common/back.gif
呵呵!没什么,有问题大家共同探讨吧!
我也经常郁闷很多莫名其妙的问题,也经常麻烦大家。:face (27): #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. 路过,路过 学习了。。。 看看啊。。
页:
[1]