#include <IE.au3>
$sProc = 'TLSAPP.EXE'
$sShortcut = 'SSLGATE.URL'
$sIni = 'PIN.ini'
Dim $aSelect[2][2] = [['Now'],['PIN']]
$sDir = @ScriptDir & '\' ;поменяйте на Вашу папку (флешку)
$iPID = ProcessExists($sProc)
While $iPID
ProcessClose($iPID)
ProcessWaitClose($iPID, 3)
$iPID = ProcessExists($sProc)
WEnd
$iPID = Run($sDir & $sProc)
Sleep(100)
If Not $iPID Then Exit 13
$sUrl = IniRead($sDir & $sShortcut, 'InternetShortcut', 'URL', 'Error')
If $sUrl = 'Error' Then Exit 13
ConsoleWrite($sUrl & @LF)
$aSelect[0][1] = IniRead($sDir & $sIni, $aSelect[0][0], $aSelect[0][0], 'Error')
If $aSelect[0][1] = 'Error' Then Exit 13
$aSelect[1][1] = IniRead($sDir & $sIni, $aSelect[1][0], $aSelect[0][1], 'Error')
If $aSelect[1][1] = 'Error' Then Exit 13
ConsoleWrite($aSelect[0][1] & @TAB & $aSelect[1][1] & @LF)
$oIE = _IECreate($sUrl)
If @error Then Exit 13
For $j = 1 To 1
$oForm = _IEGetObjByName($oIE, 'fPIN')
If @error Then ExitLoop
$oSelect = _IEFormElementGetObjByName($oForm, 'pinnum')
If @error Then ExitLoop
_IEFormElementOptionSelect($oSelect, $aSelect[0][1], 1, 'byIndex')
If @error Then ExitLoop
$oInput = _IEFormElementGetObjByName($oForm, 'pin')
If @error Then ExitLoop
_IEFormElementSetValue($oInput, $aSelect[1][1])
If @error Then ExitLoop
_IEFormSubmit($oForm)
If @error Then ExitLoop
Next
If @error Then
MsgBox(16, 'Error', 'Error')
_IEQuit($oIE)
Exit 13
Else
MsgBox(64, 'Info', 'OK')
EndIf
;...