meekly 发表于 2011-10-26 17:26:00

【已解决】请问如何去掉垂直滚动条？

本帖最后由 meekly 于 2011-10-26 20:19 编辑

如果足够高，则不出现垂直滚动条，但是如果文章过长了垂直滚动条则自动出现，怎么让这个滚动条一直不出现
第二个问题是如何在IE地址发生变化后自动转向指定的地址？谢谢大家！#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <WindowsConstants.au3>
Opt('MustDeclareVars', 1)
Example()
Func Example()
      Local $oIE, $GUIActiveX, $GUI_Button_Back, $GUI_Button_Forward, $GUI_Button_Leixing,$GUI_CHECKED
      Local $GUI_Button_Home, $GUI_Button_Stop, $msg, $oForm, $oText,$cols,$lForm
      $oIE = ObjCreate("Shell.Explorer.2")
      GUICreate("工单系统", 800, 600, (@DesktopWidth - 800) / 2, (@DesktopHeight - 600) / 2, BitOR($WS_CAPTION,$WS_POPUP,$WS_SYSMENU))
      $GUIActiveX = GUICtrlCreateObj ($oIE, -230, -250, 1024, 750)
      $GUI_Button_Back = GUICtrlCreateButton("填入IP", 10, 550, 100, 30)
      $GUI_Button_Forward = GUICtrlCreateButton("刷新", 230, 550, 100, 30)
      $GUI_Button_Stop = GUICtrlCreateButton("关闭", 470, 550, 100, 30)

      GUISetState()
      $oIE.navigate("http://www.baidu.com")
                _IELoadWait($oIE,1000)
                _IEHeadInsertEventScript ($oIE, "document", "oncontextmenu", "alert('No Context Menu');return false")
                ; Waiting for user to close the window
      While 1
                $msg = GUIGetMsg()

                Select
                        Case $msg = $GUI_EVENT_CLOSE
                              ExitLoop
                        Case $msg = $GUI_Button_Home
                              
                        Case $msg = $GUI_Button_Back
                              $oForm = _IEFormGetObjByName ($oIE, "ds")
                              $oText = _IEFormElementGetObjByName ($oForm, "example1")
                              _IEFormElementSetValue ($oText, "116.255.150.243")
                        Case $msg = $GUI_Button_Forward
                              Send("{F5}")
                        Case $msg = $GUI_Button_Leixing
                              
                        Case $msg = $GUI_Button_Stop
                              Exit
                EndSelect
               
      WEnd

      GUIDelete()
EndFunc

htmgyv 发表于 2011-10-26 17:56:26

虽然是个新手，学习了~

meekly 发表于 2011-10-26 18:32:32

等待高手的出现

lynfr8 发表于 2011-10-26 18:51:30

第一个问题：
http://www.autoitx.com/forum.php?mod=viewthread&tid=26865&fromuid=1003
http://www.autoitx.com/redirect. ... =93632&fromuid=1003
http://www.autoitx.com/redirect. ... 168362&fromuid=1003

http://www.autoitx.com/forum.php?mod=viewthread&tid=9845&fromuid=1003
http://www.autoitx.com/forum.php?mod=viewthread&tid=28230&highlight=document.body.scroll
第二个问题：

http://www.autoitx.com/viewthrea ... E%B5%D8%D6%B7%C0%B8
http://www.autoitx.com/forum.php?mod=viewthread&tid=19400&fromuid=1003

最后：善用搜索！

lynfr8 发表于 2011-10-26 18:53:04

回复 3# meekly


与其一味去等
不如主动去找

meekly 发表于 2011-10-26 19:14:05

回复 5# lynfr8


    呵呵，其实这些我都搜索到了，就是不能起作用

lynfr8 发表于 2011-10-26 19:17:14

回复 6# meekly


    是吧，截图看看

meekly 发表于 2011-10-26 19:54:02

回复 7# lynfr8


lynfr8 发表于 2011-10-26 20:21:09

回复 8# meekly


    把你加了隐藏滚动条的代码发上来

meekly 发表于 2011-10-26 20:22:01

回复 9# lynfr8


    谢谢lynfr8，已经解决了！非常感谢！

lynfr8 发表于 2011-10-26 20:23:24

本帖最后由 lynfr8 于 2011-10-26 20:24 编辑

回复 10# meekly


    如何解决的？是不是隐藏滚动条关键代码放的位置不对？还是网络延时网页加载慢导致隐藏滚动条关键代码 被无效执行了？

meekly 发表于 2011-10-26 21:44:02

回复 11# lynfr8


    是的，但是判定地址变化后，跳转到指定地址还没头绪，你帮我看下怎么修改？谢谢！放的位置不对，现在就是网络延迟也会失效

hzxymkb 发表于 2011-10-26 22:09:53

把代码放上来就会有人帮你修改，你不放谁愿意帮你呢？
页: [1]
查看完整版本: 【已解决】请问如何去掉垂直滚动条？