Jump to content

Recommended Posts

Posted

For fun, I'm building an app that opens a webpage and refreshes it every 30 seconds.

But once the script performs _IEAction($oIE, "refresh"), the GUI closes.

Any help is appreciated.

 


#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WinAPIFiles.au3>
#include <Array.au3>
#include <File.au3>
#include <Excel.au3>
#include <DateTimeConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIShellEx.au3>
#include <MsgBoxConstants.au3>
#include <Date.au3>
#include <ComboConstants.au3>
#include <guimenu.au3>
#include <IE.au3>

HotKeySet("{F4}", "_Exit")

;Open the file(s) in the selected folder
$extension = ".txt"
$app2openWith = @SystemDir & "\notepad.exe"

Func Begin()

    Global $loopTrick = 0

    #Region ### START Koda GUI section ### Form=c:\users\mchu\downloads\autoit\my code\form1.kxf
    Global $UI = GUICreate("Hit Em Up!", 256, 113, -1, -1)
    GUISetBkColor(0x000000)

    $menu = _GUICtrlMenu_GetSystemMenu($UI)
    _GUICtrlMenu_EnableMenuItem($menu, $SC_CLOSE, 1, False)

    Global $url = GUICtrlCreateInput("https://www.youtube.com/watch?v=dQw4w9WgXcQ", 81, 8, 160, 21)
    $Label1 = GUICtrlCreateLabel("Target:", 16, 8, 55, 17)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    Global $StartBut = GUICtrlCreateButton("Start", 16, 40, 67, 25)
    GUICtrlSetFont(-1, 13, 800, 0, "MS Sans Serif")
    GUICtrlSetBkColor(-1, 0x008000)
    $Label2 = GUICtrlCreateLabel("(Press F4 to Exit)", 96, 40, 8000, 17)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    GUISetState(@SW_SHOW)

    #EndRegion ### END Koda GUI section ###

    While 1
        $UIfunc = GUIGetMsg()
        Select
            Case $UIfunc = $GUI_EVENT_CLOSE
                _Exit()
            Case $UIfunc = $StartBut
                If GUICtrlRead($url) = "" Then
                    MsgBox(48, "Um...", "Give me a target you idiot.")
                Else
                    GUICtrlSetState($url, $GUI_DISABLE)
                    GUICtrlSetState($StartBut, $GUI_DISABLE)
                    Start()
                EndIf
        EndSelect
    WEnd
EndFunc   ;==>Begin

Func Start()
    If $loopTrick = 0 Then
        Global $oIE = _IECreate(GUICtrlRead($url))
        _IELoadWait($oIE)
        Again()
    ElseIf $loopTrick = 1 Then
        Sleep(3000)
        _IEAction($oIE, "refresh")
        Sleep(3000)
        Start()
    EndIf
EndFunc   ;==>Start

Func Again()
    $loopTrick = 1
    Start()
EndFunc   ;==>Again

Func _Exit()
    Exit
EndFunc   ;==>_Exit

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...