realkiller Posted November 11, 2006 Share Posted November 11, 2006 i got now 4 internet windows with 4buntons on the top to login / make the window active. is it possible to intigrate it into one programme with the buntons on the top sow i can switch with the windows this is my code sow far: expandcollapse popup#include <GUIConstants.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) ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Passwords >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GUICreate("24 Help", "637", "40", "", "",$WS_POPUPWINDOW,$WS_EX_TOPMOST) Opt("GUICoordMode",2) GUISetHelp("notepad") ; will run notepad if F1 is typed $Button_1 = GUICtrlCreateButton ("Clairify", 5, 10, 100) $Button_2 = GUICtrlCreateButton ( "Rollercoaster", 0, -1) $Button_3 = GUICtrlCreateButton ( "Support center", 0, -1) $Button_4 = GUICtrlCreateButton ( "C-Spire", 0, -1) $Button_5 = GUICtrlCreateButton ( "Avaya", 30, -1) $Button_6 = GUICtrlCreateButton ( "Lotus", 0, -1) GUISetState () While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Clairify Begin >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Case $msg = $Button_1 run("C:\Program Files\Internet Explorer\IEXPLORE.EXE https://iapp.upc.biz/Citrix/UPCApplications/auth/login.aspx") $x = StatusbarGetText("Internet Explorer") While Not StringInStr ($x, "Done") Sleep (100) $x = StatusbarGetText("Internet Explorer") WEnd Send($loginClairAV_U) Send("{TAB}") Send($loginClairAV_P) Send("{TAB}") Send("{DOWN}") Send("{TAB 2}") Send("{ENTER}") sleep("1000") $x = StatusbarGetText("Internet Explorer") While Not StringInStr ($x, "Done") Sleep (100) $x = StatusbarGetText("Internet Explorer") WEnd ControlClick("","","Edit1") Sleep("500") ControlSend("", "", "Edit1", "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",1) Sleep("500") Send("{ENTER}") WinWaitActive() Send($ClairifyP) Send("{TAB 4}") Send($ClairifyU) Send("{ENTER}") MsgBox(0, "Klaar", "Klaar", 1) ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Clairify Einde >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Rollercoaster Start >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Case $msg = $Button_2 run("C:\Program Files\Internet Explorer\IEXPLORE.EXE http://sddportal.yi.org/tools/rollercoaster/main.html") WinWaitActive("Connect to sddportal.yi.org") ControlSend("Connect to sddportal.yi.org", "", "Edit2", $RollercoasterU) Sleep("500") Send("{TAB}") ControlSend("Connect to sddportal.yi.org", "", "Edit3", $RollercoasterP) Sleep("500") Send("{ENTER}") MsgBox(0, "Klaar", "Klaar", 1) ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Rollercoaster Einde >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Support Center Start >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Case $msg = $Button_3 run("C:\Program Files\Internet Explorer\IEXPLORE.EXE http://scaprd.upc.biz/sdchealtop") $x = StatusbarGetText("Internet Explorer") While Not StringInStr ($x, "Done") Sleep (100) $x = StatusbarGetText("Internet Explorer") WEnd Send($supportcenterU) Sleep("500") Send("{TAB}") Send($supportcenterP) Sleep("500") Send("{ENTER}") MsgBox(0, "Klaar", "Klaar", 1) ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Support Center Einde >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< C-spire Start >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Case $msg = $Button_4 MsgBox(0, "Klaar", "Klaar", 1) ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< C-spire Einde >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Avaya Begin >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Case $msg = $Button_5 run("C:\Program Files\Internet Explorer\IEXPLORE.EXE https://iapp.upc.biz/Citrix/UPCApplications/auth/login.aspx") $x = StatusbarGetText("Internet Explorer") While Not StringInStr ($x, "Done") Sleep (100) $x = StatusbarGetText("Internet Explorer") WEnd Send($loginClairAV_U) Send("{TAB}") Send($loginClairAV_P) Send("{TAB}") Send("{DOWN}") Send("{TAB 2}") Send("{ENTER}") sleep("1000") $x = StatusbarGetText("Internet Explorer") While Not StringInStr ($x, "Done") Sleep (100) $x = StatusbarGetText("Internet Explorer") WEnd AutoItSetOption("WinTitleMatchMode", 2) WinActivate("Internet Explorer") ControlClick("","","Edit1") Sleep("500") ControlSend("", "", "Edit1", "https://iapp.upc.biz/Citrix/UPCApplications/site/launch.ica?NFuse_Application=Citrix.MPS.App.NLCF102.Avaya+613&NFuse_AppFriendlyNameURLENcoded=Avaya+613", 1) Sleep("500") Send("{ENTER}") WinActive("Code of conduct,E-Mail usage and Internet policy.") Sleep("500") Send("{ENTER}") WinWaitActive("Avaya Agent Login") Send($AvayaU) Send("{TAB}") Send($AvayaP) Send("{ENTER}") MsgBox(0, "Klaar", "Klaar", 1) ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Avaya Einde >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Lotus Start >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Case $msg = $Button_6 run("C:\lotus\notes\notes.exe =N:\notes.ini") WinWaitActive("Lotus Notes") ControlSend("Lotus Notes", "", "IRIS.password2", $LotusP) Sleep("500") Send("{ENTER}") MsgBox(0, "Klaar", "Klaar", 1) ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Lotus Start >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> EndSelect Wend Remote 3.1 BetaRemote Media Player ControlUSB Security 1.2 Link to comment Share on other sites More sharing options...
realkiller Posted November 12, 2006 Author Share Posted November 12, 2006 to bad that nobody can help me Remote 3.1 BetaRemote Media Player ControlUSB Security 1.2 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