找回密码
 加入
搜索
查看: 2548|回复: 7

[AU3基础] 【已解决】论坛挂机不能后台刷新网页及资源占用

  [复制链接]
发表于 2011-11-12 22:01:06 | 显示全部楼层 |阅读模式
本帖最后由 user11 于 2012-4-9 23:12 编辑

论坛刷分 看雪的 以前的号忘记了。。想挂机,估计很多论坛都通用。。

已经登录了,就没写登录过程,后台刷新网页 间隔 一分钟,测试了两个小时,没效果, 请各位前辈指点,

编译后的程序占用内存 14M,能不能减少些。。。
#include <IE.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <WinAPI.au3>

TraySetClick(0)
     
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("看雪挂机", 500, 150)
$oIE = ObjCreate("Shell.Explorer.2")
$GUIActiveX = GUICtrlCreateObj($oIE, -1, -1,500,500)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$oIE.navigate("http://bbs.pediy.com")

$Hwnd = WinGetHandle("看雪挂机")

_WinAPI_ShowWindow($Hwnd,@SW_HIDE ) 

While 1
        
HotKeySet("{ESC}", "MyExit")
HotKeySet("{F5}", "Mygui")
HotKeySet("{F6}", "Nogui")
$nMsg = GUIGetMsg()

_IEAction($oIE, "refresh")

Sleep(60000)
If $nMsg = $GUI_EVENT_CLOSE Then
        Exit
EndIf

WEnd

Func MyExit()
    Exit 
EndFunc

Func Mygui()
_WinAPI_ShowWindow($Hwnd,@SW_RESTORE)

WinActive($Hwnd)
EndFunc
Func Nogui()
_WinAPI_ShowWindow($Hwnd,@SW_HIDE ) 
EndFunc
发表于 2011-11-12 22:06:17 | 显示全部楼层
不用吧,我用世界之窗浏览器,直接就可以设置自动刷新及间隔时间的,还自己写一个?
发表于 2011-11-12 23:18:02 | 显示全部楼层
不要光刷新,最好在两个地址之间来回跳转。
发表于 2011-11-12 23:48:36 | 显示全部楼层
用第三方浏览器有自动刷新的功能的
 楼主| 发表于 2011-11-13 16:08:37 | 显示全部楼层
晕,版主这不是为了学习au3么。。不喜欢国产的第三方,  chrome用户。。。
发表于 2011-11-14 22:08:51 | 显示全部楼层
回复 2# kevinch
一直用世界之窗,我还真的不知道有这个功能呢!怎么设置啊?没有找到自动刷新的设置
发表于 2011-11-15 18:37:23 | 显示全部楼层
回复 6# xms77
标签上点右键会看到,如果设置了点右键关闭标签则左右一起点然后松开
发表于 2011-11-15 21:38:59 | 显示全部楼层
回复 7# kevinch
一直没有注意到,现在一看果然有,呵呵,多谢了!
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-10-1 07:34 , Processed in 0.085670 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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