coba seperti ini, declare dulu intMax as integer

  Private Sub winsocksrv_ConnectionRequest(Index As Integer, ByVal requestID As 
Long)
     If Index = 0 Then
        intMax = intMax + 1
        Load tcpserver(intMax)
        winsocksrv(intMax).LocalPort = 0
        winsocksrv(intMax).Accept requestID
      End If
  End Sub


  ----- Original Message ----- 
  From: caringinblk 
  To: [email protected] 
  Sent: Friday, February 10, 2006 7:47 PM
  Subject: [indoprog-vb] winsock error


  kebetulan saya newbies di vb jd kurang begitu paham ttg winsock...Tapi
  saya coba menngunakannya ternyata error tuh,..saya coba program
  sederhana sbb:

  client = local port:13480 ; remote host :10.21.1.56; remote port:13480
  server = local port:13480
  nilai2 local port& remote port adalah nilai contoh pdbuku yg saya
  baca...(untuk port yg sebenarnya dari pc-pc, saya tdk tahu (gimana
  caranya mengetahui nilai port ya?))


  client:
  sub command1_click()
  winsockcl.connect
  end sub

  server:
  sub winsocksrv_conectionrequest(byval requestid as long)
  winsocksrv(intMax).LocalPort = 0
  winsocksrv.accept requestid
  end sub

  ternyata pada sisi server muncul error 40020 bahwa koneksi salah pada
  perintah accept reqid...
  pemecahannya gima ya.....






  Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]

  Ikuti juga forum diskusi VB.net dengan 
  mengirim email kosong ke [EMAIL PROTECTED]





  SPONSORED LINKS Computer internet security  Computer internet business  
Computer internet access  
        Computer internet privacy securities  Computer internet help  Computer 
internet connection  


------------------------------------------------------------------------------
  YAHOO! GROUPS LINKS 

    a..  Visit your group "indoprog-vb" on the web.
      
    b..  To unsubscribe from this group, send an email to:
     [EMAIL PROTECTED]
      
    c..  Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service. 


------------------------------------------------------------------------------




[Non-text portions of this message have been removed]



Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]

Ikuti juga forum diskusi VB.net dengan 
mengirim email kosong ke [EMAIL PROTECTED]
 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/indoprog-vb/

<*> To unsubscribe from this group, send an email to:
    [EMAIL PROTECTED]

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/
 



Kirim email ke