BG Development


  Reply to this topicStart new topicStart Poll

> Сложна задача, Сокет
SSPM
Публикувано на: 12-01-2023, 11:16
Quote Post



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

Мнения: 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"
PMEmail Poster
Top
ulaplatrib
Публикувано на: 12-01-2023, 17:59
Quote Post



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

Мнения: 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
PMEmail Poster
Top
SSPM
Публикувано на: 16-01-2023, 13:11
Quote Post



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

Мнения: 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
PMEmail Poster
Top
ici
Публикувано на: 16-01-2023, 14:24
Quote Post


Group Icon
Име: Ивайло Илчев
Група: VIP
Ранг: Почетен член

Мнения: 17982
Регистриран на: 06.06.04



Използвай SocketHandle от контрола и API за сетнеш тези неща


--------------------
Ние не сме в една лодка, ние сме в една буря. Лодките са различни.

Следващият път когато се почувстваш ненужен, грозен и недооценен, помни че освен това си и тъп.
PMEmail PosterUsers Website
Top
1 потребители преглеждат тази тема в момента (1 гости, 0 анонимни потребители)
Потребители, преглеждащи темата в момента:

Topic Options Reply to this topicStart new topicStart Poll

 


Copyright © 2003-2019 | BG Development | All Rights Reserved
RSS 2.0