realkiller Posted November 24, 2006 Share Posted November 24, 2006 (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 expandcollapse popup#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 November 24, 2006 by realkiller Remote 3.1 BetaRemote Media Player ControlUSB Security 1.2 Link to comment Share on other sites More sharing options...
Uten Posted November 24, 2006 Share Posted November 24, 2006 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. Please keep your sig. small! Use the help file. Search the forum. Then ask unresolved questions :) Script plugin demo, Simple Trace udf, TrayMenuEx udf, IOChatter demo, freebasic multithreaded dll sample, PostMessage, Aspell, Code profiling Link to comment Share on other sites More sharing options...
Fossil Rock Posted November 24, 2006 Share Posted November 24, 2006 Put some sleeps in there ..that'll help. Agreement is not necessary - thinking for one's self is! Link to comment Share on other sites More sharing options...
Paulie Posted November 25, 2006 Share Posted November 25, 2006 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. Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now