realkiller Posted December 13, 2006 Share Posted December 13, 2006 i got a script but sometimes the programmes hangs with a command. is there a way if a command isnt responding 30sec that it must go back to the gui sow i cant continu selecting other buttons expandcollapse popup;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< login 24 Help tool >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Local $Password = "timmy" 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 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;================================================================================================ =================>_ChangeScreenRes=============================== #include-once Func _ChangeScreenRes($i_Width = @DesktopWidth, $i_Height = @DesktopHeight, $i_BitsPP = @DesktopDepth, $i_RefreshRate = @DesktopRefresh) Local Const $DM_PELSWIDTH = 0x00080000 Local Const $DM_PELSHEIGHT = 0x00100000 Local Const $DM_BITSPERPEL = 0x00040000 Local Const $DM_DISPLAYFREQUENCY = 0x00400000 Local Const $CDS_TEST = 0x00000002 Local Const $CDS_UPDATEREGISTRY = 0x00000001 Local Const $DISP_CHANGE_RESTART = 1 Local Const $DISP_CHANGE_SUCCESSFUL = 0 Local Const $HWND_BROADCAST = 0xffff Local Const $WM_DISPLAYCHANGE = 0x007E If $i_Width = "" Or $i_Width = -1 Then $i_Width = @DesktopWidth If $i_Height = "" Or $i_Height = -1 Then $i_Height = @DesktopHeight If $i_BitsPP = "" Or $i_BitsPP = -1 Then $i_BitsPP = @DesktopDepth If $i_RefreshRate = "" Or $i_RefreshRate = -1 Then $i_RefreshRate = @DesktopRefresh Local $DEVMODE = DllStructCreate("byte[32];int[10];byte[32];int[6]") Local $B = DllCall("user32.dll", "int", "EnumDisplaySettings", "ptr", 0, "long", 0, "ptr", DllStructGetPtr($DEVMODE)) If @error Then $B = 0 SetError(1) Return $B Else $B = $B[0] EndIf If $B <> 0 Then DllStructSetData($DEVMODE, 2, BitOR($DM_PELSWIDTH, $DM_PELSHEIGHT, $DM_BITSPERPEL, $DM_DISPLAYFREQUENCY), 5) DllStructSetData($DEVMODE, 4, $i_Width, 2) DllStructSetData($DEVMODE, 4, $i_Height, 3) DllStructSetData($DEVMODE, 4, $i_BitsPP, 1) DllStructSetData($DEVMODE, 4, $i_RefreshRate, 5) $B = DllCall("user32.dll", "int", "ChangeDisplaySettings", "ptr", DllStructGetPtr($DEVMODE), "int", $CDS_TEST) If @error Then $B = -1 Else $B = $B[0] EndIf Select Case $B = $DISP_CHANGE_RESTART $DEVMODE = "" Return 2 Case $B = $DISP_CHANGE_SUCCESSFUL DllCall("user32.dll", "int", "ChangeDisplaySettings", "ptr", DllStructGetPtr($DEVMODE), "int", $CDS_UPDATEREGISTRY) DllCall("user32.dll", "int", "SendMessage", "hwnd", $HWND_BROADCAST, "int", $WM_DISPLAYCHANGE, _ "int", $i_BitsPP, "int", $i_Height * 2 ^ 16 + $i_Width) $DEVMODE = "" Return 1 Case Else $DEVMODE = "" SetError(1) Return $B EndSelect EndIf EndFunc ;================================================================================================ =================>_ChangeScreenRes size $iWidth = 1280 $iHeight = 1024 $iBitsPP = 32 $iRefreshRate = 75 ;================================================================================================ =================>_ChangeScreenRes size $vRes = _ChangeScreenRes($iWidth, $iHeight, $iBitsPP, $iRefreshRate) If @error Then MsgBox(262160, "ERROR", "Unable to change screen - check parameters") EndIf ;================================================================================================ =================>_ChangeScreenRes=============================== ;_----------------------------------------------------------------------------- $Password = "password.txt" $ISISusername = FileReadLine($Password, 2) $ISISPassword = FileReadLine($Password, 4) $Rollercoasterusername = FileReadLine($Password, 8) $RollercoasterPassword = FileReadLine($Password, 10) $SupportCenterusername = FileReadLine($Password, 14) $SupportCenterPassword = FileReadLine($Password, 16) $CSpireusername = FileReadLine($Password, 20) $CSpirePassword = FileReadLine($Password, 22) $Avayausername = FileReadLine($Password, 26) $AvayaPassword = FileReadLine($Password, 28) $Clairifyusername = FileReadLine($Password, 32) $ClairifyPassword = FileReadLine($Password, 34) $LotusPassword = FileReadLine($Password, 38) $Citrixusername = FileReadLine($Password, 42) $CitrixPassword = FileReadLine($Password, 44) $Aspectuname = FileReadLine($Password, 47) $AspectWW = FileReadLine($Password, 49) #include <GUIConstants.au3> #include <IE.au3> Opt("WinTitleMatchMode", 2) Opt("SendKeyDelay",0) Opt("SendKeyDownDelay",0) GUICreate("24 Help V2.0 Final", 1063, 35, 0,0, $WS_POPUPWINDOW, $WS_EX_TOPMOST) GUICtrlCreatePic("background.jpg", 0,0,1063, 35, "",$WS_EX_TOPMOST) GUICtrlSetState(-1,$GUI_DISABLE) GUISetHelp("notepad") $ISIS = GUICtrlCreateButton("ISIS", 22, 5, 85, 25, 0) $SupportCenter = GUICtrlCreateButton("SupportCenter", 244, 5, 95, 25, 0) $Rollercoaster = GUICtrlCreateButton("Rollercoaster",128, 5, 95, 25, 0) $CSpire = GUICtrlCreateButton("C-Spire", 361, 5, 85, 25, 0) GUICtrlCreateDate(@YEAR & "/" & @MON & "/" & @MDAY, 449, 5, 185) $Avaya = GUICtrlCreateButton("Avaya", 658, 5, 85, 25, 0) $Clairify = GUICtrlCreateButton("Clairify", 765, 5, 85, 25, 0) $Lotus = GUICtrlCreateButton("Lotus", 871, 5, 85, 25, 0) $Aspect = GUICtrlCreateButton("Aspect", 978, 5, 85, 25, 0) $Pic1 = GUICtrlCreatePic(@ScriptDir & "\Grijs.gif", 0, 0, 21, 35) $Pic2 = GUICtrlCreatePic(@ScriptDir & "\Grijs.gif", 107, 0, 21, 35) $Pic3 = GUICtrlCreatePic(@ScriptDir & "\Grijs.gif", 223, 0, 21, 35) $Pic4 = GUICtrlCreatePic(@ScriptDir & "\Grijs.gif", 339, 0, 21, 35) $Pic5 = GUICtrlCreatePic(@ScriptDir & "\Grijs.gif", 636, 0, 21, 35) $Pic6 = GUICtrlCreatePic(@ScriptDir & "\Grijs.gif", 744, 0, 21, 35) $Pic7 = GUICtrlCreatePic(@ScriptDir & "\Grijs.gif", 850, 0, 21, 35) $Pic8 = GUICtrlCreatePic(@ScriptDir & "\Grijs.gif", 957, 0, 21, 35) GUISetState(@SW_SHOW) While 1 If WinExists("Abandon") Then WinActivate("Abandon") Send("{TAB}") send("{DOWN}") Send("{TAB 2}") send("{ENTER}") EndIf If WinExists("MetaFrame Presentation Server Logged Off") Then WinClose("MetaFrame Presentation Server Logged Off") EndIf If WinExists("Login", "http://goe-aspectns-01.corp.twenty4help.com/EAMWeb/EWFM/ENU/Common/servlet/login.xml?ReturnUrl=%2fEAMWeb%2fEWFM%2fENU%2fAPI%2fservlet%2fAdminGetUserProfile.ewfm") Then WinActivate("Login", "http://goe-aspectns-01.corp.twenty4help.com/EAMWeb/EWFM/ENU/Common/servlet/login.xml?ReturnUrl=%2fEAMWeb%2fEWFM%2fENU%2fAPI%2fservlet%2fAdminGetUserProfile.ewfm") $222x = StatusbarGetText("Login") While Not StringInStr ($222x, "Done") Sleep (100) $222x = StatusbarGetText("Login") WEnd send($Aspectuname) send("{TAB}") send($AspectWW) Send("{ENTER}") $22233x = StatusbarGetText("Aspect Applications") While Not StringInStr ($22233x, "Done") Sleep (100) $22233x = StatusbarGetText("Aspect Applications") WEnd WinMove("Aspect Applications", "", 0, 36, 956, 829) GUICtrlSetImage($Pic8,@ScriptDir & "\Blauw.gif") EndIf If WinExists("Support Center login") Then WinActivate("Support Center login") send($SupportCenterusername) Send("{TAB}") Send($SupportCenterPassword) Send("{ENTER}") sleep("2000") WinMove("SupportSoft Support Center Web", "", 0, 36, 956, 829) GUICtrlSetImage($Pic3,@ScriptDir & "\Blauw.gif") EndIf $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $ISIS If WinExists("ISIS") Then WinMove("ISIS - Interregionaal Storingen Informatie Systeem", "", 0, 36, 956, 829) WinActivate("ISIS") GUICtrlSetImage($Pic1,@ScriptDir & "\Blauw.gif") Else Run("C:\Program Files\Internet Explorer\IEXPLORE.EXE http://isis.yi.org/") WinWaitActive("Connect to isis.yi.org") ControlSend("", "", "Edit2", $ISISusername) ControlSend("", "", "Edit3", $ISISPassword) ControlClick("", "", "Button2") WinWaitActive("ISIS - Interregionaal Storingen Informatie Systeem") WinMove("ISIS - Interregionaal Storingen Informatie Systeem", "", 0, 36, 956, 829) GUICtrlSetImage($Pic1,@ScriptDir & "\Blauw.gif") EndIF Case $Rollercoaster If WinExists("Rollercoaster") Then GUICtrlSetImage($Pic2,@ScriptDir & "\Blauw.gif") WinActivate("Rollercoaster") WinMove("Rollercoaster", "", 0, 36, 956, 829) Else Run("C:\Program Files\Internet Explorer\IEXPLORE.EXE http://sddportal.yi.org/tools/rollercoaster/main.html") WinWaitActive("Connect to sddportal.yi.org") WinMove ( "Connect to sddportal.yi.org", "", 9999, 9999) ControlSend("", "", "Edit2", $Rollercoasterusername) ControlSend("", "", "Edit3", $RollercoasterPassword) ControlClick("", "", "Button2") WinwaitActive("Rollercoaster") WinMove("Rollercoaster", "", 0, 36, 956, 829) GUICtrlSetImage($Pic2,@ScriptDir & "\Blauw.gif") EndIf Case $SupportCenter If WinExists("SupportSoft Support Center Web") Then WinMove("SupportSoft Support Center Web", "", 0, 36, 956, 829) WinActivate("SupportSoft Support Center Web") GUICtrlSetImage($Pic3,@ScriptDir & "\Blauw.gif") Else Run("C:\Program Files\Internet Explorer\IEXPLORE.EXE http://scaprd.upc.biz/sdchealtop") $x = StatusbarGetText("Support Center login") While Not StringInStr($x, "Done") Sleep(100) $x = StatusbarGetText("Support Center login") WEnd send($SupportCenterusername) Send("{TAB}") Send($SupportCenterPassword) Send("{ENTER}") $x = StatusbarGetText("SupportSoft Support Center Web") While Not StringInStr($x, "Done") Sleep(100) $x = StatusbarGetText("SupportSoft Support Center Web") WEnd WinMove("SupportSoft Support Center Web", "", 0, 36, 956, 829) GUICtrlSetImage($Pic3,@ScriptDir & "\Blauw.gif") EndIf Case $CSpire If WinExists("Login") Then WinActivate("Login") Send($CSpireusername) send("{TAB}") Send($CSpirePassword) send("{ENTER}") EndIf If WinExists("BBP") Then WinMove("BBP", "", 0, 36, 956, 829) WinActivate("BBP") GUICtrlSetImage($Pic4,@ScriptDir & "\Blauw.gif") Else WinSetState("Clarify - ClearCallCenter", "",@SW_RESTORE) WinActivate("Clarify") WinMove("Clarify", "", 0, 36, 956, 829) WinWaitActive("Clarify") MouseClick("left", 1006, 702, 1, 1) WinWaitActive("Knowledgebase v2.0") WinActivate("Knowledgebase v2.0") Send("{TAB 3}") send("http://ghd.upc.nl/bb/login.jsp") Send("{ENTER}") WinWaitActive("Login") Send($CSpireusername) Send("{TAB}") Send($CSpirePassword) Send("{ENTER}") WinWaitActive("BBP") WinMove("BBP", "", 0, 36, 956, 829) GUICtrlSetImage($Pic4,@ScriptDir & "\Blauw.gif") EndIf Case $Avaya WinSetTitle("Right_Frame", "", "Avaya Agent") If WinExists("UPC Web Access - Welcome") Then WinClose("UPC Web Access - Welcome") EndIf If WinExists("MetaFrame Presentation Server Logged Off") Then WinClose("MetaFrame Presentation Server Logged Off") EndIf If WinExists("Avaya Agent") Then $avv1 = WinSetState("Avaya Agent", "", @SW_RESTORE) $avv2 = WinActivate("Avaya Agent", "") ConsoleWrite($avv1 & @LF & $avv2) WinActivate("Avaya Agent") GUICtrlSetImage($Pic5,@ScriptDir & "\Blauw.gif") Else $drapkop = _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($Citrixusername) send("{TAB}") Send($CitrixPassword) Send("{TAB}") Send("{DOWN}") Send("{TAB 2}") Send("{ENTER}") $x = StatusbarGetText("UPC Web Access - Welcome") While Not StringInStr($x, "Done") Sleep(100) $x = StatusbarGetText("UPC Web Access - Welcome") WEnd Sleep("1000") _IENavigate($drapkop, "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.") Send("{ENTER}") WinWaitActive("Avaya Agent Login") Send($Avayausername) Send("{TAB}") Send($AvayaPassword) Send("{ENTER}") _IENavigate($drapkop, "https://iapp.upc.biz/Citrix/UPCApplications/site/logout.aspx") GUICtrlSetImage($Pic5,@ScriptDir & "\Blauw.gif") EndIF Case $Clairify If WinExists("UPC Web Access - Welcome") Then WinClose("UPC Web Access - Welcome") EndIf If WinExists("MetaFrame Presentation Server Logged Off") Then WinClose("MetaFrame Presentation Server Logged Off") EndIf If WinExists("Clarify - ClearCallCenter", "") Then $ret1 = WinSetState("Clarify - ClearCallCenter", "", @SW_RESTORE) $ret2 = WinActivate("Clarify - ClearCallCenter", "") ConsoleWrite($ret1 & @LF & $ret2) WinMove("Clarify", "", 0, 36, 956, 829) GUICtrlSetImage($Pic6,@ScriptDir & "\Blauw.gif") Else $inet = _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($Citrixusername) send("{TAB}") Send($CitrixPassword) Send("{TAB}") Send("{DOWN}") Send("{TAB 2}") Send("{ENTER}") $x = StatusbarGetText("UPC Web Access - Welcome") While Not StringInStr($x, "Done") Sleep(100) $x = StatusbarGetText("UPC Web Access - Welcome") WEnd Sleep("1000") _IENavigate($inet, "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") WinWaitActive("Code of conduct,E-Mail usage and Internet policy.") Send("{ENTER}") WinWaitActive("Clarify Login") Send($ClairifyPassword) Send("{TAB 5}") Send($Clairifyusername) Send("{ENTER}") _IENavigate($inet, "https://iapp.upc.biz/Citrix/UPCApplications/site/logout.aspx") GUICtrlSetImage($Pic6,@ScriptDir & "\Blauw.gif") EndIf Case $Lotus If WinExists("Logout Screen") Then WinActivate("Logout Screen") sleep("1000") Send("{ENTER}") sleep("1000") send($LotusPassword&"{ENTER}") AutoItSetOption("WinTitleMatchMode", 2) winWaitActive("IBM Lotus Notes") WinMove("IBM Lotus Notes", "", 0, 36, 956, 829) GUICtrlSetImage($Pic7,@ScriptDir & "\Blauw.gif") EndIf If ProcessExists("nlnotes.exe") Then AutoItSetOption("WinTitleMatchMode", 2) WinActivate("IBM Lotus Notes") WinMove("IBM Lotus Notes", "", 0, 36, 956, 829) GUICtrlSetImage($Pic7,@ScriptDir & "\Blauw.gif") Else run("C:\lotus\notes\notes.exe =N:\notes.ini") WinWaitActive("Lotus Notes") sleep("1000") send($LotusPassword&"{ENTER}") AutoItSetOption("WinTitleMatchMode", 2) WinWaitActive("IBM Lotus Notes") WinMove("IBM Lotus Notes", "", 0, 36, 956, 829) EndIf GUICtrlSetImage($Pic7,@ScriptDir & "\Blauw.gif") Case $Aspect If WinExists("Aspect Applications") Then WinMove("Aspect Applications", "", 0, 36, 956, 829) WinActivate("Aspect Applications") GUICtrlSetImage($Pic8,@ScriptDir & "\Blauw.gif") Else Run("C:\Program Files\Internet Explorer\IEXPLORE.EXE http://goe-aspectns-01.corp.twenty4help.com/EAMWeb") EndIF EndSwitch If Not WinExists("ISIS") Then GUICtrlSetImage($Pic1,@ScriptDir & "\Grijs.gif") If Not WinExists("Rollercoaster") Then GUICtrlSetImage($Pic2,@ScriptDir & "\Grijs.gif") If Not WinExists("SupportSoft Support Center Web") Then GUICtrlSetImage($Pic3,@ScriptDir & "\Grijs.gif") If Not WinExists("BBP") Then GUICtrlSetImage($Pic4,@ScriptDir & "\Grijs.gif") If Not WinExists("Avaya Agent") Then GUICtrlSetImage($Pic5,@ScriptDir & "\Grijs.gif") If Not WinExists("Clarify") Then GUICtrlSetImage($Pic6,@ScriptDir & "\Grijs.gif") If Not ProcessExists("nlnotes.exe") Then GUICtrlSetImage($Pic7,@ScriptDir & "\Grijs.gif") If Not WinExists("Aspect Applications") Then GUICtrlSetImage($Pic8,@ScriptDir & "\Grijs.gif") WEnd Remote 3.1 BetaRemote Media Player ControlUSB Security 1.2 Link to comment Share on other sites More sharing options...
Moderators big_daddy Posted December 14, 2006 Moderators Share Posted December 14, 2006 Here are a few pointer for getting help on this forum.Give a short but descriptive title to your topic ("helllp me" doesn't meet that criteria).Give a good description of your problem and what your are trying to accomplish.Provide as minimal code as possible that can be used to reproduce the problem. 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