Balasan: [Programmer-VB] Sending Data Pake Winsock ...................Toolong.............Dong

Tue, 29 Aug 2006 09:34:20 -0700

Coba code ini
 
Option Explicit
 
Private Sub cmdClose_Click()
Winsock1.Close
End Sub
Private Sub cmdConnect_Click()
    Winsock1.RemoteHost = "192.168.0.1" 'ganti dengan ip host anda
    Winsock1.RemotePort = 1007
    Winsock1.Connect
    txtTest.SetFocus
End Sub
Private Sub cmdSend_Click()
    If Winsock1.State = sckConnected Then
        Winsock1.SendData txtTest.Text
        Label3.Caption = "Proses Kirim Data"
    Else
        Label3.Caption = "Nggak connect"
    End If
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim sData As String
    Winsock1.GetData sData, vbString
    txtTestTujuan.Text = sData
    Label3.Caption = "Data Diterima"
End Sub
Private Sub Winsock1_SendComplete()
Label3.Caption = "Data telah terkirim"
End Sub
 
Semoga membantu...
Regards,
Ade Aan Wirama
J-DEVELOPMENT (as partner of Yayasan Jaring Kemanusiaan Nusantara)
Coding for Humanity
** to join, send email to [EMAIL PROTECTED]

firman syah <[EMAIL PROTECTED]> menulis:
hi para programmer indonesia....

    saya mohon bantuan untuk minta sample sending data pake object winsock.
Jadi klo PC 1 di ketik pada text maka PC 2 akan tampil pada text tanpa object button.

Tolong yaaa........
terimkasih.
Talk is cheap. Use Yahoo! Messenger to make PC-to-Phone calls. Great rates starting at 1ยข/min.

Apakah Anda Yahoo!?
Kunjungi halaman depan Yahoo! Indonesia yang baru! __._,_.___

Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer




SPONSORED LINKS
Indonesia phone card Programmer Indonesia tour
Indonesia travel Indonesia flower

YAHOO! GROUPS LINKS



__,_._,___

Kirim email ke