Socket Issue[Resolved]

[CVMichael]

Regarding to the post you edited

sockaddr.sin_addr = 66
sockaddr.sin_addr = 66 ' this just overides the previous 66, therefore you end up with 66 in the end, not "66.66.66.66"...


I did not test it, but I think this is the API that converts from string address to a Long

Public Declare Function inet_addr Lib "ws2_32.dll" (ByVal cp As String) As Long

EDIT, Here's the MSDN help for it MSDN - inet_addr

You have to use it like:

Dim server As sockaddr
server.sin_addr = inet_addr("66.66.66.66")
 
If (Connect(MySocket, server, Len(server))) = SOCKET_ERROR Then
 
'... the rest of the code

[Tantrum3k]

Also, in regards to the comment you made about puting the winsock control on a form hidden in your dll. I just did that it works fine without errors but when I try calling it in a Module like:

Dim ip As String
ip = Form1.Winsock1.LocalIP
MsgBox ip

It just exits the DLL. Closes it immediately without reason.

So I take it it's not going to happen, eh?


EDIT:

Dim server As sockaddr
server.sin_addr = inet_addr("66.66.66.66")
 
If (Connect(MySocket, server, Len(server))) = SOCKET_ERROR Then

Do you know how I can somehow put a port in there too for it to connect to also?

[CVMichael]

Dim ip As String
ip = Form1.Winsock1.LocalIP
MsgBox ip

Try without displaying the ip in the message box... a DLL is not supposed to have an interface, than's why I told you to make the form.Visible = False

Do you know how I can somehow put a port in there too for it to connect to also?

Dim server As sockaddr
server.sin_port = 80 ' or some other port...