Sign in to follow this  
Followers 0
realkiller

help me

4 posts in this topic

#1 ·  Posted (edited)

is it possible to let the gui use less cpu, it usses now 50%:S i think it has something to do with the looping

#include <GUIConstants.au3>
#include <Date.au3>
#include <IE.au3>

;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Passwords >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
$Password = "password.txt"
$loginClairAV_U = FileReadLine($Password, 21)
$loginClairAV_P = FileReadLine($Password, 22)
$ClairifyU = FileReadLine($Password, 13)
$ClairifyP = FileReadLine($Password, 14)
$RollercoasterU = FileReadLine($Password, 6)
$RollercoasterP = FileReadLine($Password, 7)
$supportcenterU = FileReadLine($Password, 2)
$supportcenterP = FileReadLine($Password, 3)
$AvayaU = FileReadLine($Password, 17)
$AvayaP = FileReadLine($Password, 18)
$LotusP = FileReadLine($Password, 10)
$isisU = FileReadLine($Password, 29)
$isisP = FileReadLine($Password, 30)
Local $Password = "timmy"
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Passwords >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>




;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< login 24 Help tool >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Do
$sPass = InputBox("Security Check", "Enter your password:", "", "*")
If $sPass = $Password Then
MsgBox(0, "Access Granted", "Thank you, you have logged in successfully.", 1)
Else
MsgBox(0, "Access Denied", "Sorry, you did not enter the correct password." & @CRLF & "Try Again.")
EndIf
Until $sPass = $Password
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< login 24 Help tool >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>



GUICreate("24 Help V1.0 Beta 1", "878", "24", "", "", $WS_POPUPWINDOW, $WS_EX_TOPMOST)
Opt("GUICoordMode", 2)
GUISetHelp("notepad");<--- will run notepad if F1 is typed
$Button_7 = GUICtrlCreateButton("< ISIS >", 2, 2, 90)
$Button_2 = GUICtrlCreateButton("< Rollercoaster >", 0, -1)
$Button_3 = GUICtrlCreateButton("< Support Center >", 0, -1, 93)
$Button_4 = GUICtrlCreateButton("< C-Spire >", 0, -1)
GUICtrlCreateDate(@YEAR & "/" & @MON & "/" & @MDAY, 7, -1, 185)
$Button_5 = GUICtrlCreateButton("< Avaya >", 50, -1, 90)
$Button_1 = GUICtrlCreateButton("< Clairify >", 0, -1)
$Button_6 = GUICtrlCreateButton("< Lotus >", 0, -1)
Opt("GUICoordMode", 1)
$lblTime = GUICtrlCreateLabel("Time", 562, 5, 43)
$lastsec = @SEC


GUISetState()
While 1
$msg = GUIGetMsg()
updateTime()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_1; Clairify( moet gecontroleerd nog worden/ de moet nog een winactivate hebben voor als hij al bestaat.)                        O Fout
;opent de login voor na clairify toe te gaan
_IECreate("https://iapp.upc.biz/Citrix/UPCApplications/auth/login.aspx")
;wacht tot hij klaar is met het laden van de pagina
$x = StatusbarGetText("UPC Web Access Login")
While Not StringInStr($x, "Done")
Sleep(100)
$x = StatusbarGetText("UPC Web Access Login")
WEnd
;verplaatst het scherm zodat alles netjes staat
WinMove("UPC Web Access Login", "", 0, 26, 1024)
;login
Send($loginClairAV_U)
Send("{TAB}")
Send($loginClairAV_P)
Send("{TAB}")
Send("{DOWN}")
Send("{TAB 2}")
Send("{ENTER}")
;wacht tot hij klaar is met inloggen
$x = StatusbarGetText("UPC Web Access - Welcome")
While Not StringInStr($x, "Done")
Sleep(100)
$x = StatusbarGetText("UPC Web Access - Welcome")
WEnd
;clairify gaat hij nu opstarten
_IENavigate($oIE, "https://iapp.upc.biz/Citrix/UPCApplications/site/launch.ica?NFuse_Application=Citrix.MPS.App.NLCF102.Clarify+249+CLARNL+3T+Twenty4Help&NFuse_AppFriendlyNameURLENcoded=Clarify+249+CLARNL+3T+Twenty4Help")
;rot venster dat nog komt
WinWaitActive("Code of conduct,E-Mail usage and Internet policy.")
Send("{ENTER}")
;login clairify
WinWaitActive("Clarify Login")
Send($ClairifyP)
Send("{TAB 4}")
Send($ClairifyU)
Send("{ENTER}")
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Clairify Einde >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>




;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Rollercoaster Start >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Case $msg = $Button_2; Rollercoaster (controleren of er nu daadwerkelijk een wachtwoord is of niet)                                                    O Fout
If WinExists("Rollercoaster") Then
WinActivate("Rollercoaster")
WinMove("Rollercoaster", "", 0, 26, 1024)
Else
_IECreate("http://sddportal.yi.org/tools/rollercoaster/main.html")
WinWaitActive("Connect to sddportal.yi.org")
WinMove("Connect to sddportal.yi.org", "", "", "", 999999999999999999, 99999999999999999)
ControlSend("Connect to sddportal.yi.org", "", "Edit2", $RollercoasterU)
ControlSend("Connect to sddportal.yi.org", "", "Edit3", $RollercoasterP)
Send("{ENTER}")
WinWaitActive("Rollercoaster")
WinMove("Rollercoaster", "", 0, 26, 1024)
EndIf
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Rollercoaster Einde >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>




;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Support Center Start >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Case $msg = $Button_3; SupportSoft Support Center Web                                                                                                 V Goed
AutoItSetOption("WinTitleMatchMode", 1)
If WinExists("SupportSoft Support Center Web") Then
WinMove("SupportSoft Support Center Web", "", 0, 26, 1024)
WinActivate("SupportSoft Support Center Web")
Else
AutoItSetOption("WinTitleMatchMode", 1)    
_IECreate("http://scaprd.upc.biz/sdchealtop")
WinWaitActive("Support Center login")
WinMove("Support Center login", "", "", 999999999999999999, 99999999999999999)
$x = StatusbarGetText("Support Center login")
While Not StringInStr($x, "Done")
Sleep(100)
$x = StatusbarGetText("Support Center login")
WEnd
Send($supportcenterU)
Send("{TAB}")
Send($supportcenterP)
Send("{ENTER}")
WinWaitActive("SupportSoft Support Center Web")
WinMove("SupportSoft Support Center Web", "", 0, 26, 1024)
EndIf
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Support Center Einde >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>




;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< C-spire Start >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Case $msg = $Button_4; C-Spire (Login nog maken voor C-spire en window activate)                                                                    O Fout
$oIE = _IECreate("https://iapp.upc.biz/Citrix/UPCApplications/auth/login.aspx")
$x = StatusbarGetText("UPC Web Access Login")
While Not StringInStr($x, "Done")
Sleep(100)
$x = StatusbarGetText("UPC Web Access Login")
WEnd
WinMove("UPC Web Access Login", "", 0, 26, 1024)
Send($loginClairAV_U)
Send("{TAB}")
Send($loginClairAV_P)
Send("{TAB}")
Send("{DOWN}")
Send("{TAB 2}")
Send("{ENTER}")
Sleep("1000")
$x = StatusbarGetText("UPC Web Access - Welcome")
While Not StringInStr($x, "Done")
Sleep(100)
$x = StatusbarGetText("UPC Web Access - Welcome")
WEnd
_IENavigate($oIE, "https://iapp.upc.biz/Citrix/UPCApplications/site/launch.ica?NFuse_Application=Citrix.MPS.App.NLCF103.Internet+Explorer&NFuse_AppFriendlyNameURLENcoded=Internet+Explorer")
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< C-spire Einde >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
           ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Avaya Begin >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Case $msg = $Button_5; Avaya                                                                                                                        V Goed
$oIE = _IECreate("https://iapp.upc.biz/Citrix/UPCApplications/auth/login.aspx")
$x = StatusbarGetText("UPC Web Access Login")
While Not StringInStr($x, "Done")
Sleep(100)
$x = StatusbarGetText("UPC Web Access Login")
WEnd
Send($loginClairAV_U)
Send("{TAB}")
Send($loginClairAV_P)
Send("{TAB}")
Send("{DOWN}")
Send("{TAB 2}")
Send("{ENTER}")
Sleep("1000")
$x = StatusbarGetText("UPC Web Access - Welcome")
While Not StringInStr($x, "Done")
Sleep(100)
$x = StatusbarGetText("UPC Web Access - Welcome")
WEnd
_IENavigate($oIE, "https://iapp.upc.biz/Citrix/UPCApplications/site/launch.ica?NFuse_Application=Citrix.MPS.App.NLCF102.Avaya+613&NFuse_AppFriendlyNameURLENcoded=Avaya+613")
WinWaitActive("Code of conduct,E-Mail usage and Internet policy. - \\Remote")
Send("{ENTER}")
WinWaitActive("Avaya Agent Login")
Send($AvayaU)
Send("{TAB}")
Send($AvayaP)
Send("{ENTER}")
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Avaya Einde >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Lotus Start >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Case $msg = $Button_6; Lotus                                                                                                                        V Goed
AutoItSetOption("WinTitleMatchMode", 1)
If WinExists("Logout Screen") Then
WinActivate("Logout Screen")
WinWaitActive("Logout Screen")
Send("{ENTER}")
Send($LotusP)
Sleep("500")
Send("{ENTER}")
AutoItSetOption("WinTitleMatchMode", 2)
WinWaitActive("IBM Lotus Notes")
WinMove("IBM Lotus Notes", "", 0, 26, 1024)
EndIf
If ProcessExists("nlnotes.exe") Then
AutoItSetOption("WinTitleMatchMode", 2)
WinActivate("IBM Lotus Notes")
WinMove("IBM Lotus Notes", "", 0, 26, 1024)
Else
AutoItSetOption("WinTitleMatchMode", 1)
Run("C:\lotus\notes\notes.exe =N:\notes.ini")
WinWaitActive("Lotus Notes")
Sleep("1000")
WinActivate("Lotus Notes")
Send($LotusP)
Sleep("500")
Send("{ENTER}")
AutoItSetOption("WinTitleMatchMode", 2)
WinWaitActive("IBM Lotus Notes")
WinMove("IBM Lotus Notes", "", 0, 26, 1024)
EndIf
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Lotus Start >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Case $msg = $Button_7; ISIS                                                                                                                            V Goed
AutoItSetOption("WinTitleMatchMode", 1)
If WinExists("ISIS") Then
WinActivate("ISIS")
Else
_IECreate("http://isis.yi.org/")
WinWaitActive("Connect to isis.yi.org")
WinMove("Connect to isis.yi.org", "", "", "", 999999999999999999, 99999999999999999)
ControlSend("", "", "Edit2", $isisU)
ControlSend("", "", "Edit3", $isisP)
ControlClick("", "", "Button2")
WinWaitActive("ISIS")
WinMove("ISIS", "", 0, 26, 1024)
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
EndSelect
WEnd

Func updateTime()
$cursec = @SEC
If $cursec <> $lastsec Then
$lastsec = $cursec
GUICtrlSetData($lblTime, _NowTime())
EndIf
EndFunc
Edited by realkiller

Share this post


Link to post
Share on other sites



You know there is a tool called tidy?

Use it!

And you should probably use the latest beta to. It has meassures to prevent excessive CPU usage.

Share this post


Link to post
Share on other sites

Put some sleeps in there ..that'll help.


Agreement is not necessary - thinking for one's self is!

My-Colors.jpg

cuniform2.gif

Share this post


Link to post
Share on other sites

Here we go again...

For future reference, when posting a thread , make its title remotely pertinent to question/subject you are posting about.

This is the support section of the forum, its meant for questions, so naming a thread "I Have A Problem", or "Question", or "Help Me My, Code Doesn't Work", or "Noob Requesting Assistance" Is redundant, and makes it harder for anyone else who has the same/similar questions as you to find the answer by searching the forums, which in turn means people often have to make extra threads and people who are answering the threads just end up repeating themselves several times over.

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  
Followers 0