BG Development Форуми -> Сложна задача

BG Development · За реклама · За контакти

Помощ

Търсене

Потребители

Календар

Правила

Здравей! ( Включване | Регистриране )

BG Development Форуми -> Програмиране -> Visual Basic

Сложна задача, Сокет

Абонирай се за темата | Изпрати адреса на темата на приятел | Принтирай темата

SSPM	Публикувано на: 12-01-2023, 11:16
Име: Димитър Група: Потребител Ранг: Новопостъпил Мнения: 38 Регистриран на: 18.10.11	Опрях до сложна за мене задача. Някой може ли да даде акъл как да свърща слендата задача с VB6. "When the EXT DEVICE receives this subevent, it must open socket to <ADDRESS>:<PORT> with <TIMEOUT> and if it is using APN SIM card, it needs to use the APN, Username and Password"

ulaplatrib

Публикувано на: 12-01-2023, 17:59

Име: Живко
Група: Потребител
Ранг: Новопостъпил

Мнения: 1
Регистриран на: 11.10.22

CODE

'Declare variables for address, port, timeout, APN, username, and password
Dim address As String
Dim port As Integer
Dim timeout As Integer
Dim APN As String
Dim username As String
Dim password As String

'Assign values to variables
address = "192.168.0.1"
port = 80
timeout = 5000
APN = "internet"
username = "user1"
password = "password1"

'Open socket to specified address and port with specified timeout
'If using APN SIM card, use the specified APN, username, and password
Dim socket As Winsock
Set socket = New Winsock
socket.RemoteHost = address
socket.RemotePort = port
socket.Timeout = timeout
If socket.Protocol = sckTCPIP Then
socket.Option(Winsock.SO_APN) = APN
socket.Option(Winsock.SO_USERNAME) = username
socket.Option(Winsock.SO_PASSWORD) = password
End If
socket.Connect

'Check if connection was successful
If socket.State <> sckConnected Then
MsgBox "Error connecting to socket"
Exit Sub
End If

'Perform other actions with the open socket
'...

'Close the socket when finished
socket.Close

Това мнение е било редактирано от ulaplatrib на 12-01-2023, 18:00

SSPM	Публикувано на: 16-01-2023, 13:11
Име: Димитър Група: Потребител Ранг: Новопостъпил Мнения: 38 Регистриран на: 18.10.11	Това не става. Имам контрол Winsock и него го използвам да си приказват различните модули. Проблема е, че при него няма .Timeout и .Option. Контрола е Mswinsck.ocx Ver 6.0.89.88 Дата 12/6/00 2:00:00 AM. Сега въпроса е дали версията му е стара или има нещо друго което не знам. Това мнение е било редактирано от SSPM на 16-01-2023, 13:11

ici	Публикувано на: 16-01-2023, 14:24
Име: Ивайло Илчев Група: VIP Ранг: Почетен член Мнения: 19077 Регистриран на: 06.06.04	Използвай SocketHandle от контрола и API за сетнеш тези неща -------------------- Facebook is a bit like checking your underwear after a fart. Most likely there's nothing new and if there is it's probably shit.

0 потребители преглеждат тази тема в момента (0 гости, 0 анонимни потребители)

Потребители, преглеждащи темата в момента:

« Предишна тема | Visual Basic | Следваща тема »

BG Development Форуми -> Програмиране -> Visual Basic