本帖最后由 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
|