как зная открытый порт и IP послать текст на этот порт

[Deisel]

как зная открытый порт и IP послать текст на этот порт

[Tarik]

Можно так: положить на форму Winsock и написать такой код:

Код: Выделить всё

winsock1.connect {нужный IP}, {нужный порт}
doevents
winsock1.senddata {Нужная строка}
doevents


[v-adix]

только перед отправкой надо дождаться соединения.
нужен один таймер (Name=t), и Winsock (Name=w)

Код: Выделить всё

Private Sub Form_Load()
w.Connect IP_ÀÄÐÅÑ, ÏÎÐÒ
If WaitForWinsockToConnect(10000) = True Then
    w.SendData ×ÒÎ_ÍÀÄÎ_ÏÎÑËÀÒÜ
Else
    MsgBox "Íå óäàëîñü ñîåäåíèòüñÿ ñ ñåðâåðîì!"
End If
End Sub

Public Function WaitForWinsockToConnect(howlongtowait As Integer) As Boolean
t.Interval = howlongtowait
t.Enabled = True
Do While w.State <> sckConnected
    If t.Enabled = False Then
        Exit Do
    End If
    DoEvents
Loop
t.Enabled = False
If w.State = sckConnected Then
    WaitForWinsockToConnect = True
Else
    WaitForWinsockToConnect = False
End If
End Function

Private Sub t_Timer()
t.Enabled = False
End Sub

[Tarik]

А так

Код: Выделить всё

w.connect
do while not w.state=sckconnected
doevents
loop
w.senddata


разве не прокатит? Просто я раньше не сталкивался со случаем, где сразу после соединения нужно посылать данные.

[v-adix]

нет не прокатит
а что если такого ip адреса нет? он вечно doevents делать бкдет? а так как я написал, он после 10 секунд ожидания просто скажет что сервер не отвечает.

[Tarik]

нет не прокатит
а что если такого ip адреса нет? он вечно doevents делать бкдет? а так как я написал, он после 10 секунд ожидания просто скажет что сервер не отвечает.

Надо же, а я и не подумал Ладно, буду знать.