找回密码
 加入
搜索
楼主: ohyes627

[IE类操作] 【已解决】求助,大虾们,有没有定时自动刷新ie的代码,谢谢了!

 火.. [复制链接]
发表于 2012-3-14 15:09:58 | 显示全部楼层
回复 15# zldfsz


    WM_KEYDOWN     F5 对应的16进制值   在帮助中有的  搜一下
看下msdn对postmessage 的解释

评分

参与人数 1金钱 +10 收起 理由
zldfsz + 10

查看全部评分

发表于 2012-3-14 15:29:09 | 显示全部楼层
谢谢,有点明白了,一会儿去看看相关资料
发表于 2012-3-14 15:53:21 | 显示全部楼层
ipnu说法是否
发表于 2012-3-14 15:53:37 | 显示全部楼层
学习了?支持,全力支持
 楼主| 发表于 2012-3-14 15:56:40 | 显示全部楼层
回复 14# haijie1223


    十分感谢!我回去好好研究一下帮助文件。
 楼主| 发表于 2012-3-14 16:01:43 | 显示全部楼层
回复 13# hzxymkb


    哪个浏览器带?推荐一下,谢谢!
发表于 2012-3-14 16:24:04 | 显示全部楼层
回复 21# ohyes627


    世界之窗  360 都带,我习惯了世界之窗2.4.1.8
 楼主| 发表于 2012-3-14 16:28:03 | 显示全部楼层
回复 22# haijie1223


    哦,不过我测试的时候只用ie,别的浏览器没用过。还是要感谢一下。论坛里这么多热心人,学习氛围也不错,我找到组织了。
发表于 2012-3-14 16:40:14 | 显示全部楼层
#include <IE.au3>
$oIE = _IECreate("http://www.baidu.com")
$kw = _IEGetObjById($oIE,"kw")
_IEFormElementSetValue($kw,"测试刷新")
Sleep(2000)
;刷新一下
_IEAction($oIE,"refresh")

评分

参与人数 2金钱 +40 收起 理由
haijie1223 + 20 学习 原来这样也可以
afan + 20

查看全部评分

 楼主| 发表于 2012-3-14 17:22:41 | 显示全部楼层
回复 24# 风行者


    运行结果:直接打开ie--进入百度,在搜索栏里输入“测试刷新”-然后就没有然后了。。。

如果执行上述操作之后关闭ie,隔1分钟再次执行。。。反复循环或者再加一个可以设定循环次数的功能就更好了,呵呵。
发表于 2012-3-15 09:34:28 | 显示全部楼层
回复 21# ohyes627


    360都带的!
发表于 2012-4-3 08:03:22 | 显示全部楼层
额,昨天辛苦做了一个工具,刚好有你的功能,代码:
#include <GUIConstantsEx.au3>
#include <IE.au3>

Opt("GUIOnEventMode", 1)
$mainwindow = GUICreate("IE自动刷新工具", 300, 120)
Global $oIE,$url,$urlbefore,$time
If FileExists(@ScriptDir&"\refresh.ini") Then
   $urlbefore = IniRead(@ScriptDir&"\refresh.ini", "section2", "key", "NotFound")
   $time = IniRead(@ScriptDir&"\refresh.ini", "section", "key", "NotFound")
Else
    $urlbefore = ""
        $time = 60
EndIf
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked") ;
$file = GUICtrlCreateInput($urlbefore,30,30,200)
$okbutton = GUICtrlCreateButton("确定", 30,90, 60)
GUICtrlCreateLabel("时间间隔(以秒为单位)",30,60)
GUICtrlCreateLabel("请输入网址",30,10)
$file1 = GUICtrlCreateInput($time,150,58,30)
GUICtrlSetOnEvent($okbutton, "OKButton")
GUISetState(@SW_SHOW)

$i = 0

While 1
        Select
                Case $i = 0
                        Sleep(10000)
                Case $i = 1
                        Sleep($time)
            _IEAction ($oIE, "refresh")
EndSelect


WEnd
Func CLOSEClicked()

  Exit
EndFunc
Func OKButton()
  $i = 1
  $url = GUICtrlRead($file)
  $time = GUICtrlRead($file1)
  IniWrite(@ScriptDir&"\refresh.ini", "section2", "key", $url)
  IniWrite(@ScriptDir&"\refresh.ini", "section", "key", $time)
$oIE = _IECreate (GUICtrlRead($file))
$time = $time*1000
EndFunc
发表于 2013-4-27 09:14:23 | 显示全部楼层
你這段代碼運行完後就沒有啦
不能定時刷新
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-11-17 21:23 , Processed in 0.094426 second(s), 15 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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