Hi members,
I have this simple code which seems to work ok all the time until now
but trying on windows 8.1 can't conenect to the server (VB6 application)
I disabled firewall (ESET) and allow on windows firewall Portable Media Devices
but still nothing...
Any help appreciated!
mike
Sub btnConnect_Click
txtServerIp.Text="172.20.10.3"
port=5000
SelectCasebtnConnect.Text
Case"Connect"
Socket1.Initialize("Socket1")
Socket1.Connect(txtServerIp.text,port,15000)
Case"Disconnect"
Socket1.Close
ExitApplication
CaseElse
EndSelect
End Sub
Sub Socket1_Connected(Connected As Boolean) As Boolean
If Connected = True Then
ToastMessageShow("Connected",True)
btnConnect.Text = "Disconnect"
AStreams.Initialize(Socket1.InputStream,Socket1.OutputStream,"Astreams")
EndIf
End Sub
I have this simple code which seems to work ok all the time until now
but trying on windows 8.1 can't conenect to the server (VB6 application)
I disabled firewall (ESET) and allow on windows firewall Portable Media Devices
but still nothing...
Any help appreciated!
mike
Sub btnConnect_Click
txtServerIp.Text="172.20.10.3"
port=5000
SelectCasebtnConnect.Text
Case"Connect"
Socket1.Initialize("Socket1")
Socket1.Connect(txtServerIp.text,port,15000)
Case"Disconnect"
Socket1.Close
ExitApplication
CaseElse
EndSelect
End Sub
Sub Socket1_Connected(Connected As Boolean) As Boolean
If Connected = True Then
ToastMessageShow("Connected",True)
btnConnect.Text = "Disconnect"
AStreams.Initialize(Socket1.InputStream,Socket1.OutputStream,"Astreams")
EndIf
End Sub