Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory
Private Sub winsock1_Click()
winsock1.close
winsock1.remotehost="talk.google.com"
winsock1.remoteport="5222"
winsock1.conection
winsock1.localhost="127.0.0.1"
winsock1.localport="5222"
end sub
Private Sub Form_Load()
If winsock1 = 1 Then
ShellExecute Me.hwnd, "open", "http://www.codeproject.com/", "", "", vbNormalFocus
label1.Caption = "Connected"
Else
label1.Caption = "Not Connected"
End If
end sub
hii all why my program cannot run help me error
if conection open ie http://www.codeproject.com
canot open target web
for access conetion game online
because port standard 8080 slow loading
:confused::confused::confused: