;Script Options
$SO=SETOPTION("Explicit", "ON")
$SO=SETOPTION("NoMacrosInStrings", "ON")
$SO=SETOPTION("NoVarsInStrings", "ON")
$SO=SETOPTION("WrapAtEOL", "ON")
BREAK ON
Dim $SO, $FH, $Device[], $Input[], $R, $, $I
	     
CLS
$FH=FreeFileHandle()

If Open($FH, @ScriptDir+"\devicelist.txt",2)= 0
	     $R = Readline($fh)
	     $SO = 0
	     While @Error = 0
	     	     Redim Preserve $Device[$SO]
	     	     $Device[$SO] = $R
	     	     $SO = $SO + 1
	     	     $R = Readline($fh)
	     Loop 
	     Close($FH)
Else 
	     ? @Serror
EndIF

If Open($FH, @ScriptDir+"\input.txt",2)=0	     
	     $R = Readline($fh)
	     $SO = 0
	     While @Error = 0
	     	     Redim Preserve $Input[$SO]
	     	     $Input[$SO] = $R
	     	     $SO = $SO + 1
	     	     $R = Readline($fh)
	     Loop 
	     Close($FH)
Else 
	     ? @Serror	     
EndIF

For each $SO in $Device
	     CLS
	     ? "Please connect to: " + $SO
	     ? "Press -C- once connected and in Exec mode"
	     Press()
	     Select 
	     	     Case SetFocus("Untitled - Notepad") = 0
	     	     	     $I = "Untitled - Notepad"
	     	     Case Setfocus("Telnet "+$SO) = 0
	     	     	     $I = "Telnet "+$SO
	     	     Case Setfocus($SO+" - PuTTY") = 0
	     	     	     $I = $SO + " - PuTTY"
	     	     Case Setfocus($SO+" - SecureCRT") = 0
	     	     	     $I = $SO + " - SecureCRT"
	     	     Case ? "Unable to find Window"
	     	     	     $I = 0
	     EndSelect
If $I <> 0
	     Send($Input,$I)
EndIf

Next


Function Press()
Dim $

While $ <> "C"
	     Get $
Loop

EndFunction

Function Send($Input,$I)
Dim $, $Checkstring
SetFocus($I)
Sendkeys("config t {enter}")
	     For each $ in $Input
	     	     CheckString($)
	     	     SetFocus($I)
	     	     SendKeys($checkstring+"{Enter}")
	     Next
EndFunction


Function CheckString ($letters)
Dim $a, $i, $s
$a = ""
For $i= 1 to Len($letters)
$a = Substr($letters, $i, 1)
	     Select
	     	     Case $a = "+"
	     	     $a = "{+}"
	     	     Case $a = "^"
	     	     $a = "{^}"
	     	     Case $a = "~"
	     	     $a = "{~}"
	     	     Case $a = "("
	     	     $a = "{(}"
	     	     Case $a = ")"
	     	     $a = "{)}"
	     	     Case $a = "{"
	     	     $a = "{{}"
	     	     Case $a = "}"
	     	     $a = "{}}"
	     EndSelect
$s = $s+$a
Next
$checkstring = $s
EndFunction

Run("Notepad.exe")
Sleep(1)
SetFocus("Untitled – Notepad")

$ReturnCode = SendKeys("{{}test{}}")

Function Send($Input,$I)
Dim $, $Checkstring
SetFocus($I)
Sendkeys("config t {enter}")
	     For each $ in $Input
	     	     CheckString($)
	     	     SetFocus($I)
	     	     SendKeys($checkstring)
	     	     SendKeys("{Enter}")
	     Next
EndFunction

banner motd ~c
********************************Warning Notice*********************************
|                                                                             |
| This system is restricted solely to AHCCCS authorized users for legitimate  |
| purposes only. The State of Arizona strictly prohibits the actual or        |
| attempted unauthorized access, use or modification of this system.          |
| Unauthorized usage and/or users are subject to disciplinary proceedings     |
| and/or criminal and civil penalties under State and Federal law. The use of |
| this system may be monitored and recorded for administrative and security   |
| reasons. Anyone accessing this system expressly consents to such monitoring |
| and is advised that if monitoring reveals possible evidence of criminal     |
| activity, the State of Arizona may provide the evidence of such activity to |
| law enforcement officials. All authorized users who have access to AHCCCS   |
| computer systems and data are bound by applicable laws, rules and AHCCCS    |
| directives, including but not limited to, AHCCCS Administrative Policies    |
| and Procedures, AHCCCS Privacy and Security Policies, ARS 41-770, and       |
| ARS 38-448.                                                                 |
-------------------------------------------------------------------------------
*****Unauthorized access may be subject to prosecution under ARS 13-2316.******
~c

Break On Cls

Run("Notepad.exe")
Sleep(1)
$dum = SetFocus("Untitled – Notepad")

$text = "asdf","asdfa","asdfasdf","adfasfd"
$scr = "Untitled – Notepad"

$dum = Send($text, $scr)

Function Send($Input,$I)
Dim $, $Checkstring
$dum = SetFocus($I)
;Sendkeys("config t {enter}")
	     For each $ in $Input
	     	     ;$test = CheckString($)
	     	     $dum = SetFocus($I)
	     	     $dum = SendKeys($+"{ENTER}")
	     Next
EndFunction

Function CheckString ($letters)
Dim $a, $i, $s
$a = ""
For $i= 1 to Len($letters)
$a = Substr($letters, $i, 1)
	     Select
	     	     Case $a = "+"
	     	     $a = "{+}"
	     	     Case $a = "^"
	     	     $a = "{^}"
	     	     Case $a = "~"
	     	     $a = "{~}"
	     	     Case $a = "("
	     	     $a = "{(}"
	     	     Case $a = ")"
	     	     $a = "{)}"
	     	     Case $a = "{"
	     	     $a = "{{}"
	     	     Case $a = "}"
	     	     $a = "{}}"
	     EndSelect
$s = $s+$a
Next
$checkstring = $s
EndFunction

asdf
asdfa
asdfasdf
adfasfd

asdfEasdfaEasdfasdfEadfasfdE

Quote:

---

sendkeys(checkstring($))

---