Sign in to follow this  
Followers 0
realkiller

internet window

3 posts in this topic

i know i forgot something i cant open a internet window using the buntons

#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 ,28) 
$isisP = FileReadLine ($password ,29) 

;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Passwords >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< login >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
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 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
GUICreate("24 Help Made By Robert Hertzer", "878", "25", "", "",$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("=Tijd=",562,5,43) 
$lastsec = @SEC 
GUISetState () 
While 1 
    $msg = GUIGetMsg() 
    Select 
        Case $msg = $GUI_EVENT_CLOSE 
            ExitLoop 
    EndSelect 
    updateTime() 
WEnd 
Func updateTime() 
    $cursec = @SEC 
    if $cursec <> $lastsec Then 
        $lastsec = $cursec 
        GUICtrlSetData($lblTime,_NowTime()) 
    EndIf 
EndFunc 
GUISetState () 
While 1 
$msg = GUIGetMsg() 
Select 
Case $msg = $GUI_EVENT_CLOSE 
ExitLoop 
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Clairify Begin >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
Case $msg = $Button_1 
$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.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($ClairifyP) 
Send("{TAB 4}") 
Send($ClairifyU)
Send("{ENTER}") 
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Clairify Einde >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Rollercoaster Start >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
Case $msg = $Button_2 
If WinExists("Rollercoaster") Then 
WinActivate("Rollercoaster") 
WinMove("Rollercoaster", "", 0, 26, 1024) 
ELse 
$oIE = _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) 
Sleep("500") 
Send("{TAB}") 
ControlSend("Connect to sddportal.yi.org", "", "Edit3", $RollercoasterP) 
Sleep("500") 
Send("{ENTER}") 
WinWaitActive("Rollercoaster") 
WinMove("Rollercoaster", "", 0, 26, 1024) 
EndIf 
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Rollercoaster Einde >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Support Center Start >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
Case $msg = $Button_3 
If WinExists("SupportSoft Support Center Web") Then 
WinActivate("SupportSoft Support Center Web") 
WinWaitActive("SupportSoft Support Center Web") 
WinMove("SupportSoft Support Center Web", "", 0, 26, 1024) 
ELse 
$oIE = _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) 
Sleep("500") 
Send("{TAB}") 
Send($supportcenterP) 
Sleep("500") 
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 
$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 
$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 
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 
If WinExists("ISIS") Then 
WinActivate("ISIS") 
Else 
$oIE = _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

Share this post


Link to post
Share on other sites



Hi,

you are looping in your first while to update the clock.

Try this:

#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, 28)
$isisP = FileReadLine($Password, 29)

;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Passwords >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< login >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
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 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
GUICreate("24 Help Made By Robert Hertzer", "878", "25", "", "", $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("=Tijd=", 562, 5, 43)
$lastsec = @SEC
GUISetState()

GUISetState()
While 1
    $msg = GUIGetMsg()
        updateTime()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
            ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Clairify Begin >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        Case $msg = $Button_1
            $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.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($ClairifyP)
            Send("{TAB 4}")
            Send($ClairifyU)
            Send("{ENTER}")
            ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Clairify Einde >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
            ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Rollercoaster Start >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        Case $msg = $Button_2
            If WinExists("Rollercoaster") Then
                WinActivate("Rollercoaster")
                WinMove("Rollercoaster", "", 0, 26, 1024)
            Else
                $oIE = _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)
                Sleep("500")
                Send("{TAB}")
                ControlSend("Connect to sddportal.yi.org", "", "Edit3", $RollercoasterP)
                Sleep("500")
                Send("{ENTER}")
                WinWaitActive("Rollercoaster")
                WinMove("Rollercoaster", "", 0, 26, 1024)
            EndIf
            ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Rollercoaster Einde >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
            ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Support Center Start >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        Case $msg = $Button_3
            If WinExists("SupportSoft Support Center Web") Then
                WinActivate("SupportSoft Support Center Web")
                WinWaitActive("SupportSoft Support Center Web")
                WinMove("SupportSoft Support Center Web", "", 0, 26, 1024)
            Else
                $oIE = _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)
                Sleep("500")
                Send("{TAB}")
                Send($supportcenterP)
                Sleep("500")
                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
            $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
            $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
            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
            If WinExists("ISIS") Then
                WinActivate("ISIS")
            Else
                $oIE = _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   ;==>updateTime

So long,

Mega


Scripts & functions Organize Includes Let Scite organize the include files

Yahtzee The game "Yahtzee" (Kniffel, DiceLion)

LoginWrapper Secure scripts by adding a query (authentication)

_RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...)

Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc.

MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times

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