Jump to content
Sign in to follow this  
Klexen

n00b at loops, can someone help?

Recommended Posts

Klexen

I'm not sure exactly how While statement works, I've read help file on it, but still don't exactly understand how to use it. With my program below, I cannot get check boxes to work and buttons to work at the same time.

My ultimate goal is to make it so if the person checks the boxes, when clicking Launch all, if that button had a check next to it, it would launch a seperate function that I make called something like. PreviousFunctionNameFirstRun(). The reason for this is, if it's run for a first time different things need to be done.

Could someone help me make it so that when I check a couple of the boxes, after clicking the "Start Launch" button the ones that are checked will launch a certain funtion? Also if you could help be with the while loops?

Thanks, I hope this made sense.

EDIT:: For some reason when I tried to make it minimize to tray, it would minimize, but I could not restore it, or even close it. If someone could help with that too I would greatly appreciate it!

#include <GuiConstants.au3>
#include <IE.au3>
#Include <File.au3>
#Include <GuiListView.au3>

AdlibEnable ("stoptimeout")

Func stoptimeout()
    Opt ("WinTitleMatchMode", 2)
    If WinExists ("Microsoft Internet Explorer", "Application timeout will occur in 10 minutes") Then ControlClick ("Microsoft Internet Explorer", "", 1, "left", 1)
    If WinExists ("Session time-out alert", "Your DSN session is about to time out.") Then ControlClick ("Session time-out alert", "", 6, "left", 1)
    Sleep (10)

EndFunc   ;==>stoptimeout


$list = ProcessList ('SuperLaunch.exe')
If $list [0][0] > 1 Then
    ProcessClose ('SuperLaunch.exe')
EndIf
Sleep (10)

;Read values from ini file.
Const $dellservuser     = IniRead ("dellquicklaunch.ini", "DellServLogin", "Dellservid", "")
Const $dellservpass     = IniRead ("dellquicklaunch.ini ", "DellServLogin", "Dellservpass", "")
Const $dellservbadge    = IniRead ("dellquicklaunch.ini", "DellServLogin", "Dellservbadge", "")

Const $fusionidduser    = IniRead ("dellquicklaunch.ini", "FusionLogin", "Fusiouser", "")
Const $fusioniddpass    = IniRead ("dellquicklaunch.ini", "FusionLogin", "Fusionpass", "")

Const $SDCpath          = IniRead ("dellquicklaunch.ini", "DellConnect", "Dellconnectpath", "")
Const $SDCuser          = IniRead ("dellquicklaunch.ini", "DellConnect", "DellconnectUser", "")

Const $etimeuser        = IniRead ("dellquicklaunch.ini", "Etime", "EtimeUser", "")
Const $etimepass        = IniRead ("dellquicklaunch.ini", "Etime", "EtimePass", "")


Opt ("GUIOnEventMode", 1) ; Change to OnEvent mode

$gui = GUICreate ("Dell Quick Launch", 225, 265)
GUISetBkColor (0x111111)

GUISetOnEvent ($GUI_EVENT_CLOSE, "CleanExit")
GUICtrlCreateGroup ("Super Launch", 5, 3, 100, 235)
GUICtrlSetColor (-1, 0xFF0000)

GUICtrlCreateGroup ("Coming Soon", 118, 3, 100, 235)
GUICtrlSetColor (-1, 0xFF0000)

GUICtrlCreateLabel ("By: Jason", 5, 245, 150)
GUICtrlSetColor (-1, 0xFF0000)

$LaunchDellserv1    = GUICtrlCreateButton ("DellServ", 10, 175, 64)
$CheckboxDellserv1  = GUICtrlCreateCheckbox ("", 80, 180, 15)

$LaunchFusion1      = GUICtrlCreateButton ("Fusion", 10, 85, 64)
$CheckboxFusion1    = GUICtrlCreateCheckbox ("", 80, 91, 15)

$LaunchIDD1         = GUICtrlCreateButton ("Soft Phone", 10, 25, 64)
$CheckboxIDD1       = GUICtrlCreateCheckbox ("", 80, 29, 15)

$LaunchTimeStamp    = GUICtrlCreateButton ("Time Stamp", 10, 55, 64)
$CheckboxTimeStamp  = GUICtrlCreateCheckbox ("", 80, 59, 15)

$LaunchDSN1         = GUICtrlCreateButton ("DSN", 10, 145, 64)
$CheckboxDSN1       = GUICtrlCreateCheckbox ("", 80, 147, 15)

$LaunchSDC          = GUICtrlCreateButton ("Super DC", 10, 115, 64)
$CheckboxSDC        = GUICtrlCreateCheckbox ("", 80, 115, 15)

$LaunchAll          = GUICtrlCreateButton ("Start Launch", 10, 205, 90)


;Check Boxes

;Check to see if DellServ box is checked. If it is, Launch DellServ for first time function.
$ischeckdellserv = GUICTRLREAD ($CheckboxDellserv1)
if $ischeckdellserv = $GUI_CHECKED Then
    
    ;Coming soon, Hopefully...
    
Elseif $ischeckdellserv = $GUI_UNCHECKED Then
    GUISetState (@SW_SHOW)
EndIf


;Check to see if Fusion box is checked. If it is, Launch Fusion for first time function.
$ischeckfusion = GUICTRLREAD ($CheckboxFusion1)
if $ischeckfusion = $GUI_CHECKED Then
    
    ;Coming soon, Hopefully...
    
Elseif $ischeckfusion = $GUI_UNCHECKED Then
    GUISetState (@SW_SHOW)
EndIf

;Check to see if Softphone box is checked. If it is, Launch Softphone for first time function.
$ischeckIDD1 = GUICtrlRead ($CheckboxIDD1)
if $ischeckIDD1 = $GUI_CHECKED Then

    ;Coming soon, Hopefully...

Elseif $ischeckIDD1 = $GUI_UNCHECKED Then
    GUISetState (@SW_SHOW)
EndIf

;Check to see if TimeStamp box is checked. If it ism Launch TimeStamp for first time function.
$ischecktimestamp = GUICTRLREAD ($CheckboxTimeStamp)
if $ischecktimestamp = $GUI_CHECKED Then
    
    ;Coming soon, Hopefully...
    
Elseif $ischecktimestamp = $GUI_UNCHECKED Then
    GUISetState (@SW_SHOW)
EndIf



;Events for buttons to Launch Functions.
GUICtrlSetOnEvent ($LaunchDellserv1, "LaunchDellserv")
GUICtrlSetOnEvent ($LaunchTimeStamp, "TimeStamp")
GUICtrlSetOnEvent ($LaunchFusion1, "LaunchFusion")
GUICtrlSetOnEvent ($LaunchIDD1, "LaunchIDD")
GUICtrlSetOnEvent ($LaunchDSN1, "LaunchDSN")
GUICtrlSetOnEvent ($LaunchSDC, "LaunchSDC")
GUICtrlSetOnEvent ($LaunchAll, "LaunchAll")


;Begin Functions

;Launch and login to DellServ
Func LaunchDellserv()

    $sURL = ""
    $oIE = _IECreate ($sURL, 0, 0, 0)
    $HWND = _IEPropertyGet ($oIE, "hwnd")
    WinSetState ($HWND, "", @SW_MAXIMIZE)
    _IEAction ($oIE, "visible")
    _IELoadWait ($oIE)

    WinActivate ("DellServ")
    ControlClick ("Internet Explorer", "", 1, "left", 1)

    Sleep (1000)
    Send ("+{END}")
    sleep (500)
    Send ("+{END}") ; For some reason DellServ does not delete userid unless done twice
    Sleep (800)
    Send ("{DELETE}")
    sleep (1000)
    Send ($dellservuser)
    Send ("{TAB}")
    Sleep (1000)
    Send ($dellservpass)
    Send ("{TAB}")
    Send ("+{END}{DELETE}")
    Sleep (1000)
    Send ($dellservbadge)
    Send ("{ENTER}")

EndFunc   ;==>LaunchDellserv

;To Launch Web Outlook
Func LaunchOutlook()
    $sURL = "usmail"
    $oIE = _IECreate ($sURL, 0, 0, 0)
    $HWND = _IEPropertyGet ($oIE, "hwnd")
    WinSetState ($HWND, "", @SW_MAXIMIZE)
    _IEAction ($oIE, "visible")

EndFunc   ;==>LaunchOutlook

;To Launch and login to Fusion
Func LaunchFusion()

    $sURL = ""
    $oIE = _IECreate ($sURL, 0, 0, 0)
    $HWND = _IEPropertyGet ($oIE, "hwnd")
    WinSetState ($HWND, "", @SW_MAXIMIZE)
    _IEAction ($oIE, "visible")


    sleep (2000)
    Send ("+{TAB}{DELETE}")
    Send ($fusionidduser)
    Send ("{TAB}")
    Send ($fusioniddpass)
    Send ("{Enter}")

EndFunc   ;==>LaunchFusion

;Launch and log into Softphone
Func LaunchIDD()

    $sURL = ""
    $oIE = _IECreate ($sURL, 0, 0, 0)
    $HWND = _IEPropertyGet ($oIE, "hwnd")
    WinSetState ($HWND, "", @SW_MAXIMIZE)
    _IEAction ($oIE, "visible")
    _IELoadWait ($oIE)
    $oForm = _IEFormGetCollection ($oIE, 0)
    $oSubmit = _IEFormElementGetObjByName ($oForm, "_ctl1")
    _IEAction ($oSubmit, "click")

    Sleep (1000)
    Send ($fusionidduser)
    Send ("{TAB}")
    Send ($fusioniddpass)
    Send ("{Enter}")

    Sleep (5000)
    $sURL = ""
    $oIE = _IECreate ($sURL, 0, 0, 0)
    $HWND = _IEPropertyGet ($oIE, "hwnd")
    WinSetState ($HWND, "", @SW_MAXIMIZE)
    _IEAction ($oIE, "visible")

    sleep (10000)

    Opt ("WinTitleMatchMode", 2)
    Opt ("WinWaitDelay", 1)

    $sTitle = "Dell 6"
    $sTitle2 = "MetaFrame"
    If WinExists ($sTitle) Then WinClose ($sTitle)
    If WinExists ($sTitle2) Then WinClose ($sTitle2)
    Sleep (10)


EndFunc   ;==>LaunchIDD

;Launch DSN
Func LaunchDSN()

    $sURL = ""
    $oIE = _IECreate ($sURL, 0, 0, 0)
    $HWND = _IEPropertyGet ($oIE, "hwnd")
    WinSetState ($HWND, "", @SW_MAXIMIZE)
    _IEAction ($oIE, "visible")
    _IELoadWait ($oIE)


EndFunc   ;==>LaunchDSN

;Launch Super Dell Connect
Func LaunchSDC()

    ShellExecute ("PasteIt.hta", "", $SDCpath)
    Sleep (6000)
    Send ("+{TAB}")
    Sleep (500)
    Send ($SDCuser)
    Send ("{TAB}")
    sleep (600)
    Send ("connect1")
    Send ("{ENTER}")

EndFunc   ;==>LaunchSDC

;Login into Time Card and go to Time Stamp page.
Func TimeStamp()

    $sURL = ""
    $oIE = _IECreate ($sURL, 0, 0, 0)
    $HWND = _IEPropertyGet ($oIE, "hwnd")
    WinSetState ($HWND, "", @SW_MAXIMIZE)
    _IEAction ($oIE, "visible")

    Sleep (5000)         ; Wait for page to load
    Send ($etimeuser)
    Send ("{TAB}")
    Send ($etimepass)
    Send ("{ENTER}")     ; Login to the time card
    Sleep (2000)   ; Wait for the page to load
    Send ("{TAB 8}") ; Go down to "My Information"
    Send ("{ENTER}") ; Open category
    Send ("{TAB 2}") ; Go to "TimeStamp"
    Send ("{ENTER}") ; Open the page
    Sleep (3000)     ; Wait for the page to load

EndFunc   ;==>TimeStamp

;Launch all according to checked Satate
Func LaunchAll()


EndFunc


;Exits? :)
Func CleanExit()
    Exit
EndFunc   ;==>CleanExit


;Makes Gui show up.
GUISetState (@SW_SHOW)

;Not sure yet, just know if this isn't here GUI goes bye-bye.
While (1)
    Sleep (1000)
WEnd
Edited by Klexen

Share this post


Link to post
Share on other sites
Misha

Something like this (I am bad with case and while loops so I am doing this is with errors I bet)

While 1 
$msg = guigetmsg()
Select
        case $msg = $LunchAll
LunchAll()
;All the functions you want..
endselect 
wend
func LunchAll()
;again select 
Select 
case $checkbox1 = $GUI_CHECKED 
Function1();pardon, I didnt look in your code much :(.
endselect

The first while is your main while loop the one that keeps your gui up..

heh I suck at helping people ;_;

Edited by Misha

Share this post


Link to post
Share on other sites
Klexen

Something like this (I am bad with case and while loops so I am doing this is with errors I bet)

The first while is your main while loop the one that keeps your gui up..

heh I suck at helping people ;_;

Can someone assist me with implementing this in my script?

Thanks!

Share this post


Link to post
Share on other sites
poisonkiller

Try to put

While 1
Sleep(200)
WEndoÝ÷ ÚéÝz¶®¶­sduT7G&Å6WDöäWfVçBb33c´ÆVæ6FVÆÇ6W'cÂgV÷C´ÆVæ6FVÆÇ6W'bgV÷C²¤uT7G&Å6WDöäWfVçBb33c´ÆVæ6FÖU7F×ÂgV÷CµFÖU7F×gV÷C²¤uT7G&Å6WDöäWfVçBb33c´ÆVæ6gW6öãÂgV÷C´ÆVæ6gW6öâgV÷C²¤uT7G&Å6WDöäWfVçBb33c´ÆVæ6DCÂgV÷C´ÆVæ6DBgV÷C²¤uT7G&Å6WDöäWfVçBb33c´ÆVæ6E4ãÂgV÷C´ÆVæ6E4âgV÷C²¤uT7G&Å6WDöäWfVçBb33c´ÆVæ64D2ÂgV÷C´ÆVæ64D2gV÷C²¤uT7G&Å6WDöäWfVçBb33c´ÆVæ6ÆÂÂgV÷C´ÆVæ6ÆÂgV÷C²
Edited by poisonkiller

Share this post


Link to post
Share on other sites
Klexen

Try to put

While 1
Sleep(200)
WEndoÝ÷ ÚéÝz¶®¶­sduT7G&Å6WDöäWfVçBb33c´ÆVæ6FVÆÇ6W'cÂgV÷C´ÆVæ6FVÆÇ6W'bgV÷C²¤uT7G&Å6WDöäWfVçBb33c´ÆVæ6FÖU7F×ÂgV÷CµFÖU7F×gV÷C²¤uT7G&Å6WDöäWfVçBb33c´ÆVæ6gW6öãÂgV÷C´ÆVæ6gW6öâgV÷C²¤uT7G&Å6WDöäWfVçBb33c´ÆVæ6DCÂgV÷C´ÆVæ6DBgV÷C²¤uT7G&Å6WDöäWfVçBb33c´ÆVæ6E4ãÂgV÷C´ÆVæ6E4âgV÷C²¤uT7G&Å6WDöäWfVçBb33c´ÆVæ64D2ÂgV÷C´ÆVæ64D2gV÷C²¤uT7G&Å6WDöäWfVçBb33c´ÆVæ6ÆÂÂgV÷C´ÆVæ6ÆÂgV÷C²

Thanks, but the checkbox functions don't work with that.. :)

Share this post


Link to post
Share on other sites
poisonkiller

Are you sure you put While 1...WEnd loop below GUICtrlSetOnEvent() functions, not replaced them?

Share this post


Link to post
Share on other sites
Klexen

Are you sure you put While 1...WEnd loop below GUICtrlSetOnEvent() functions, not replaced them?

Yes when I do that the GUI stays up.. The buttons work, just not recognizing the checkbox status.

Share this post


Link to post
Share on other sites
poisonkiller

Shouldn't there be some If $GUI_CHECKED...EndIf loops in functions, because there aren't any?

EDIT: Something like this should work:

#include <GuiConstants.au3>
#include <IE.au3>
#Include <File.au3>
#Include <GuiListView.au3>
AdlibEnable ("stoptimeout")
Func stoptimeout()
    Opt ("WinTitleMatchMode", 2)
    If WinExists ("Microsoft Internet Explorer", "Application timeout will occur in 10 minutes") Then ControlClick ("Microsoft Internet Explorer", "", 1, "left", 1)
    If WinExists ("Session time-out alert", "Your DSN session is about to time out.") Then ControlClick ("Session time-out alert", "", 6, "left", 1)
    Sleep (10)
EndFunc   ;==>stoptimeout
$list = ProcessList ('SuperLaunch.exe')
If $list [0][0] > 1 Then
    ProcessClose ('SuperLaunch.exe')
EndIf
Sleep (10)
;Read values from ini file.
Const $dellservuser     = IniRead ("dellquicklaunch.ini", "DellServLogin", "Dellservid", "")
Const $dellservpass     = IniRead ("dellquicklaunch.ini ", "DellServLogin", "Dellservpass", "")
Const $dellservbadge    = IniRead ("dellquicklaunch.ini", "DellServLogin", "Dellservbadge", "")
Const $fusionidduser    = IniRead ("dellquicklaunch.ini", "FusionLogin", "Fusiouser", "")
Const $fusioniddpass    = IniRead ("dellquicklaunch.ini", "FusionLogin", "Fusionpass", "")
Const $SDCpath    = IniRead ("dellquicklaunch.ini", "DellConnect", "Dellconnectpath", "")
Const $SDCuser    = IniRead ("dellquicklaunch.ini", "DellConnect", "DellconnectUser", "")
Const $etimeuser       = IniRead ("dellquicklaunch.ini", "Etime", "EtimeUser", "")
Const $etimepass       = IniRead ("dellquicklaunch.ini", "Etime", "EtimePass", "")
Opt ("GUIOnEventMode", 1) ; Change to OnEvent mode
$gui = GUICreate ("Dell Quick Launch", 225, 265)
GUISetBkColor (0x111111)
GUISetOnEvent ($GUI_EVENT_CLOSE, "CleanExit")
GUICtrlCreateGroup ("Super Launch", 5, 3, 100, 235)
GUICtrlSetColor (-1, 0xFF0000)
GUICtrlCreateGroup ("Coming Soon", 118, 3, 100, 235)
GUICtrlSetColor (-1, 0xFF0000)
GUICtrlCreateLabel ("By: Jason Kingsley", 5, 245, 150)
GUICtrlSetColor (-1, 0xFF0000)
$LaunchDellserv1    = GUICtrlCreateButton ("DellServ", 10, 175, 64)
$CheckboxDellserv1  = GUICtrlCreateCheckbox ("", 80, 180, 15)
$LaunchFusion1   = GUICtrlCreateButton ("Fusion", 10, 85, 64)
$CheckboxFusion1    = GUICtrlCreateCheckbox ("", 80, 91, 15)
$LaunchIDD1         = GUICtrlCreateButton ("Soft Phone", 10, 25, 64)
$CheckboxIDD1     = GUICtrlCreateCheckbox ("", 80, 29, 15)
$LaunchTimeStamp    = GUICtrlCreateButton ("Time Stamp", 10, 55, 64)
$CheckboxTimeStamp  = GUICtrlCreateCheckbox ("", 80, 59, 15)
$LaunchDSN1         = GUICtrlCreateButton ("DSN", 10, 145, 64)
$CheckboxDSN1     = GUICtrlCreateCheckbox ("", 80, 147, 15)
$LaunchSDC    = GUICtrlCreateButton ("Super DC", 10, 115, 64)
$CheckboxSDC       = GUICtrlCreateCheckbox ("", 80, 115, 15)
$LaunchAll    = GUICtrlCreateButton ("Start Launch", 10, 205, 90)
;Events for buttons to Launch Functions.
GUICtrlSetOnEvent ($LaunchDellserv1, "LaunchDellserv")
GUICtrlSetOnEvent ($LaunchTimeStamp, "TimeStamp")
GUICtrlSetOnEvent ($LaunchFusion1, "LaunchFusion")
GUICtrlSetOnEvent ($LaunchIDD1, "LaunchIDD")
GUICtrlSetOnEvent ($LaunchDSN1, "LaunchDSN")
GUICtrlSetOnEvent ($LaunchSDC, "LaunchSDC")
GUICtrlSetOnEvent ($LaunchAll, "LaunchAll")
;Makes Gui show up.
GUISetState (@SW_SHOW)
;Not sure yet, just know if this isn't here GUI goes bye-bye.
While 1
    Sleep (1000)
WEnd
;Begin Functions
;Launch and login to DellServ
Func LaunchDellserv()
;Check to see if DellServ box is checked. If it is, Launch DellServ for first time function.
$ischeckdellserv = GUICTRLREAD ($CheckboxDellserv1)
if $ischeckdellserv = $GUI_CHECKED Then
    $sURL = ""
    $oIE = _IECreate ($sURL, 0, 0, 0)
    $HWND = _IEPropertyGet ($oIE, "hwnd")
    WinSetState ($HWND, "", @SW_MAXIMIZE)
    _IEAction ($oIE, "visible")
    _IELoadWait ($oIE)

    WinActivate ("DellServ")
    ControlClick ("Internet Explorer", "", 1, "left", 1)

    Sleep (1000)
    Send ("+{END}")
    sleep (500)
    Send ("+{END}") ; For some reason DellServ does not delete userid unless done twice
    Sleep (800)
    Send ("{DELETE}")
    sleep (1000)
    Send ($dellservuser)
    Send ("{TAB}")
    Sleep (1000)
    Send ($dellservpass)
    Send ("{TAB}")
    Send ("+{END}{DELETE}")
    Sleep (1000)
    Send ($dellservbadge)
    Send ("{ENTER}")
EndIf
EndFunc   ;==>LaunchDellserv
;To Launch Web Outlook
Func LaunchOutlook()
    $sURL = "usmail"
    $oIE = _IECreate ($sURL, 0, 0, 0)
    $HWND = _IEPropertyGet ($oIE, "hwnd")
    WinSetState ($HWND, "", @SW_MAXIMIZE)
    _IEAction ($oIE, "visible")

EndFunc   ;==>LaunchOutlook
;To Launch and login to Fusion
Func LaunchFusion()
;Check to see if Fusion box is checked. If it is, Launch Fusion for first time function.
$ischeckfusion = GUICTRLREAD ($CheckboxFusion1)
if $ischeckfusion = $GUI_CHECKED Then
    $sURL = ""
    $oIE = _IECreate ($sURL, 0, 0, 0)
    $HWND = _IEPropertyGet ($oIE, "hwnd")
    WinSetState ($HWND, "", @SW_MAXIMIZE)
    _IEAction ($oIE, "visible")


    sleep (2000)
    Send ("+{TAB}{DELETE}")
    Send ($fusionidduser)
    Send ("{TAB}")
    Send ($fusioniddpass)
    Send ("{Enter}")
EndIf
EndFunc   ;==>LaunchFusion
;Launch and log into Softphone
Func LaunchIDD()
;Check to see if Softphone box is checked. If it is, Launch Softphone for first time function.
$ischeckIDD1 = GUICtrlRead ($CheckboxIDD1)
if $ischeckIDD1 = $GUI_CHECKED Then
    $sURL = ""
    $oIE = _IECreate ($sURL, 0, 0, 0)
    $HWND = _IEPropertyGet ($oIE, "hwnd")
    WinSetState ($HWND, "", @SW_MAXIMIZE)
    _IEAction ($oIE, "visible")
    _IELoadWait ($oIE)
    $oForm = _IEFormGetCollection ($oIE, 0)
    $oSubmit = _IEFormElementGetObjByName ($oForm, "_ctl1")
    _IEAction ($oSubmit, "click")

    Sleep (1000)
    Send ($fusionidduser)
    Send ("{TAB}")
    Send ($fusioniddpass)
    Send ("{Enter}")

    Sleep (5000)
    $sURL = ""
    $oIE = _IECreate ($sURL, 0, 0, 0)
    $HWND = _IEPropertyGet ($oIE, "hwnd")
    WinSetState ($HWND, "", @SW_MAXIMIZE)
    _IEAction ($oIE, "visible")

    sleep (10000)

    Opt ("WinTitleMatchMode", 2)
    Opt ("WinWaitDelay", 1)

    $sTitle = "Dell 6"
    $sTitle2 = "MetaFrame"
    If WinExists ($sTitle) Then WinClose ($sTitle)
    If WinExists ($sTitle2) Then WinClose ($sTitle2)
    Sleep (10)
EndIf
EndFunc   ;==>LaunchIDD
;Launch DSN
Func LaunchDSN()

    $sURL = ""
    $oIE = _IECreate ($sURL, 0, 0, 0)
    $HWND = _IEPropertyGet ($oIE, "hwnd")
    WinSetState ($HWND, "", @SW_MAXIMIZE)
    _IEAction ($oIE, "visible")
    _IELoadWait ($oIE)


EndFunc   ;==>LaunchDSN
;Launch Super Dell Connect
Func LaunchSDC()

    ShellExecute ("PasteIt.hta", "", $SDCpath)
    Sleep (6000)
    Send ("+{TAB}")
    Sleep (500)
    Send ($SDCuser)
    Send ("{TAB}")
    sleep (600)
    Send ("connect1")
    Send ("{ENTER}")

EndFunc   ;==>LaunchSDC
;Login into Time Card and go to Time Stamp page.
Func TimeStamp()
;Check to see if TimeStamp box is checked. If it ism Launch TimeStamp for first time function.
$ischecktimestamp = GUICTRLREAD ($CheckboxTimeStamp)
if $ischecktimestamp = $GUI_CHECKED Then
    $sURL = ""
    $oIE = _IECreate ($sURL, 0, 0, 0)
    $HWND = _IEPropertyGet ($oIE, "hwnd")
    WinSetState ($HWND, "", @SW_MAXIMIZE)
    _IEAction ($oIE, "visible")

    Sleep (5000)         ; Wait for page to load
    Send ($etimeuser)
    Send ("{TAB}")
    Send ($etimepass)
    Send ("{ENTER}")     ; Login to the time card
    Sleep (2000)   ; Wait for the page to load
    Send ("{TAB 8}") ; Go down to "My Information"
    Send ("{ENTER}") ; Open category
    Send ("{TAB 2}") ; Go to "TimeStamp"
    Send ("{ENTER}") ; Open the page
    Sleep (3000)     ; Wait for the page to load

EndFunc   ;==>TimeStamp
;Launch all according to checked Satate
Func LaunchAll()


EndFunc
;Exits? smile.gif
Func CleanExit()
    Exit
EndFunc   ;==>CleanExit
Edited by poisonkiller

Share this post


Link to post
Share on other sites

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
Sign in to follow this  

×