Sign in to follow this  
Followers 0
realkiller

intigrate window

2 posts in this topic

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:

#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

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