[morgan1991]

amel27, спасибо помогло.
Дальше сделал так:

Код:

$ExtraPuTTY = EnvGet("ExtraPuTTY") ; путь к программе
$thConn = DllStructCreate("ulong") ; структура описателя соединения
If $ExtraPuTTY == "" Then MsgBox(16, "Script Error!", "Переменная окружения ExtraPuTTY не задана!")
; Открываем DLL
$hDll = DllOpen($ExtraPuTTY & "\ExtraPuTTY.dll")
If $hDll=-1 Then MsgBox(16, "Script Error!", "Файл ExtraPuTTY.DLL не найден!")
; Подключаемся...
$aRet = DllCall($hDll, "int", "Connexion", _
    "str", "94.100.177.6", _           ; TargetName (TargetName or PuttySession Name )
    "ptr", DllStructGetPtr($thConn), _ ; ConnexionId (Connexion Handle)
    "str", "", _                       ; Login
    "str", "", _                       ; Password
    "int", 0, _                        ; ShowPuTTY (TRUE: Putty Terminal is display, FALSE: not display)
    "int", 0, _                        ; Protocol (0:Telnet,1:SSH,2:Rlogin,3:Raw,4:LoadPutty Session)
    "int", 110, _                      ; PortNumber (If the parameter is set to 0, the value of the default settings of putty is used)
    "int", 0, _                        ; GenerateReport (1:extraputty report activate,0:Not activate)
    "ptr", 0 )                         ; CallBackRcvData
; Анализируем результат
If @error Then MsgBox(16, "DllCall Error!", @error &":"& @extended)
$hConn = DllStructGetData($thConn, 1) ; Получаем описатель соединения
ConsoleWrite("Результат выполнения ф-ции Connexion = "& $aRet[0] &@CRLF)

$aRet2 = DllCall($hDll, "int", "SendRcvData", _
    "ptr", DllStructGetPtr($thConn), _
    "str", "USER ЛОГИН", _
    "int", 1, _
    "str", "com", _
    "int", 1000, _
    "int", 1, _
    "int", 2048, _
    "int", 0)
ConsoleWrite("Результат выполнения ф-ции SendRcvData = "& $aRet2[0] &@CRLF)

; Закрываем соединение
If $hConn <> 0 Then
    DllCall($hDll, "int", "CloseConnexion", "ulong", $hConn)
EndIf

А в ответ:

Результат выполнения ф-ции Connexion = 0 Результат выполнения ф-ции SendRcvData = 1

Что опять не так?