alive.hta

copy to alive.hta:

<html>
<head>
<title>alive</title>
<HTA:APPLICATION
    ID="alive"
    Version="1.01"
    BORDER="thin"
    BORDERSTYLE="normal"
    CAPTION="yes"
    APPLICATIONNAME="alive"
    SCROLL="auto"
    SINGLEINSTANCE="yes"
    MINIMIZEBUTTON="yes"
    SCROLL="no"
    SHOWINTASKBAR="no"
    SYSMENU="yes"
    ICON="settings.ico"
/>

<style type="text/css">
    .style1
    {
        font-family: Tahoma;
    }
    .style2
    {
        width: 77px;
        height: 78px;
    }
</style>
</head>
<script language="VBScript">
    Sub Window_onLoad
        window.resizeTo 300,150
    End Sub

    Sub closeWindow
       self.close
    End Sub

    Sub alive
     Set WshShell = CreateObject("WScript.Shell")
     WshShell.SendKeys "{SCROLLLOCK 2}"
    End Sub

    Sub keepAlive
      iTimerID = window.setInterval("alive", 180000)
      REM MsgBox "Timer Started"
      btnStartTimer.value = "Running"
    End Sub
</script>
<body
 style="background-color: rgb(0, 0, 0); color: rgb(256, 256, 256);"
 alink="#b68415" link="#93248f" vlink="#999999">
<center>
    <h1 style="width: 230px">
        <span class="style1"><strong style="text-align: left">
            <input id=btnStartTimer type="button" value="alive" name="start_button1"  onClick="keepAlive">
            <input id=btnClose type="button" value="Close" name="start_button2"
            onClick="closeWindow">
        </span>
    </h1>
</center>
</body>
</html>

Tags

Copyright 2018· All rights reserved