Function

[smita 1]

Opt("WinWaitDelay",100)

Opt("WinTitleMatchMode",4)

Opt("WinDetectHiddenText",1)

Opt("MouseCoordMode",0)

WinWait("Pelco - Login - Microsoft Internet Explorer","Google")

If Not WinActive("Pelco - Login - Microsoft Internet Explorer","Google") Then

WinActivate("Pelco - Login - Microsoft Internet Explorer","Google")

Send("admin") //username - admin

Send("{TAB}")

Send("admin") //password - admin

Send("{TAB}{ENTER}") //Enter the login button

I have recorded this script , now i want to add function for username & password, I don't know how to use function.

[searchresult 0]

Opt("WinWaitDelay",100)

Opt("WinTitleMatchMode",4)

Opt("WinDetectHiddenText",1)

Opt("MouseCoordMode",0)

WinWait("Pelco - Login - Microsoft Internet Explorer","Google")

If Not WinActive("Pelco - Login - Microsoft Internet Explorer","Google") Then

WinActivate("Pelco - Login - Microsoft Internet Explorer","Google")

Send("admin") //username - admin

Send("{TAB}")

Send("admin") //password - admin

Send("{TAB}{ENTER}") //Enter the login button

I have recorded this script , now i want to add function for username & password, I don't know how to use function.

look in help file under func.

from help file:

Func functioname ( [Const] [byRef] $param1, ..., [Const] [byRef] $paramN, $optionalpar1 = value, ...)

...

[Return [value]]

EndFunc

; Sample script with three user-defined functions
; Notice the use of variables, ByRef, and Return

$foo = 2
$bar = 5
msgBox(0,"Today is " & today(), "$foo equals " & $foo)
swap($foo, $bar)
msgBox(0,"After swapping $foo and $bar", "$foo now contains " & $foo)
msgBox(0,"Finally", "The larger of 3 and 4 is " & max(3,4))
Exit

Func swap(ByRef $a, ByRef $b) ;swap the contents of two variables
    Local $t
    $t = $a
    $a = $b
    $b = $t
EndFunc

Func today() ;Return the current date in mm/dd/yyyy form
    return (@MON & "/" & @MDAY & "/" & @YEAR)
EndFunc

Func max($x, $y) ;Return the larger of two numbers
    If $x > $y Then
        return $x
    Else
        return $y
    EndIf
EndFunc

;End of sample script

[Valuater 130]

Another ex...

expandcollapse popup

#include <GuiConstants.au3>

Opt("WinWaitDelay", 100)
Opt("WinTitleMatchMode", 4)
Opt("WinDetectHiddenText", 1)
Opt("MouseCoordMode", 0)

HotKeySet("{ESC}", "Terminate")
HotKeySet("{F9}", "ShowMe")

First()
Second()

While 1
    If GUIGetMsg() = -3 Then Exit
WEnd

Func First()
    WinWait("Pelco - Login - Microsoft Internet Explorer", "Google")
    If Not WinActive("Pelco - Login - Microsoft Internet Explorer", "Google") Then
        WinActivate("Pelco - Login - Microsoft Internet Explorer", "Google")
    EndIf
EndFunc   ;==>First

Func Second()
    $User = InputBox("Title", "Please Type in your User Name")
    Send($User, 1) ;//username - admin
    Send("{TAB}")
    $Pass = InputBox("Title", "Please Type in your Password")
    Send($Pass, 1) ;//password - admin
    Send("{TAB}{ENTER}") ;//Enter the login button
EndFunc   ;==>Second

Func Terminate()
    Exit 0
EndFunc   ;==>Terminate

Func ShowMe()
    MsgBox(4096, "Thanks", "    ... Valuater!    ", 2)
EndFunc   ;==>ShowMe

8)

Edited November 13, 2007 by Valuater