[madmasles]

rustsss,
У меня так получилось

порт 27016

Код:

#include <WinAPIEx.au3>
#include <Misc.au3>

Opt("TrayMenuMode", 1)
TraySetState(4)
$port = "27016"
If _Singleton(@ScriptName, 1) = 0 Then
    TrayTip("Подключение порт " & $port, "Уже работаем!", 0, 1)
    Sleep(3000)
    Exit
EndIf

If _WinAPI_IsNetworkAlive() = 0 Then
    TrayTip("Подключение порт " & $port, "Отсутствует подключение к интернету", 0, 1)
    Sleep(3000)
    Exit
EndIf

If Not FileExists(@ScriptDir & "\Launcher_CSS.exe") Then
    TrayTip("Подключение порт " & $port, "В этой папке отсутствует файл Launcher_CSS.exe", 0, 1)
    Sleep(3000)
    Exit
EndIf
TCPStartup()
$IP = TCPNameToIP("316774-local.dyn.ufanet.ru")
RunWait(@ComSpec & " /c start Launcher_CSS.exe -console +connect " & $IP & ":" & $port, "", @SW_HIDE)
$socket = TCPConnect($IP, $port)
If $socket <> -1 Then
    TrayTip("Подключение порт " & $port, "Подключение установлено.", 0, 1)
    Sleep(3000)
    Exit
Else
    TrayTip("Подключение порт " & $port, "Произошла ошибка подключения. Попробуйте еще раз.", 0, 1)
    Sleep(3000)
    Exit
EndIf

порт 1800

Код:

#include <WinAPIEx.au3>
#include <Misc.au3>

Opt("TrayMenuMode", 1)
TraySetState(4)
$port = "1800"
If _Singleton(@ScriptName, 1) = 0 Then
    TrayTip("Подключение порт " & $port, "Уже работаем!", 0, 1)
    Sleep(3000)
    Exit
EndIf

If _WinAPI_IsNetworkAlive() = 0 Then
    TrayTip("Подключение порт " & $port, "Отсутствует подключение к интернету", 0, 1)
    Sleep(3000)
    Exit
EndIf

If Not FileExists(@ScriptDir & "\Launcher_CSS.exe") Then
    TrayTip("Подключение порт " & $port, "В этой папке отсутствует файл Launcher_CSS.exe", 0, 1)
    Sleep(3000)
    Exit
EndIf
TCPStartup()
$IP = TCPNameToIP("316774-local.dyn.ufanet.ru")
RunWait(@ComSpec & " /c start Launcher_CSS.exe -console +connect " & $IP & ":" & $port, "", @SW_HIDE)
$socket = TCPConnect($IP, $port)
If $socket <> -1 Then
    TrayTip("Подключение порт " & $port, "Подключение установлено.", 0, 1)
    Sleep(3000)
    Exit
Else
    TrayTip("Подключение порт " & $port, "Произошла ошибка подключения. Попробуйте еще раз.", 0, 1)
    Sleep(3000)
    Exit
EndIf

В прикрепленном архиве скомпилированные скрипты. Их надо положить в ту папку, в которой лежит Launcher_CSS.exe.

PS
По идее надо как-то проверку соединения организовать, но так как у меня всего этого нет, то не знаю как.

PPS
Может быть проверить вот так?

Код:

$socket = TCPConnect($IP, $port)
If $socket <> -1 Then
    TrayTip("Подключение", "Подключение установлено.", 0, 1)
    Sleep(3000)
    Exit
Else
    TrayTip("Подключение", "Произошла ошибка подключения. Попробуйте еще раз.", 0, 1)
    Sleep(3000)
    Exit
EndIf