| Dim a As String
Private Sub Command1_Click()
ww.RemotePort = 808
ww.RemoteHost = Text1
ww.Connect
End Sub
Private Sub Command2_Click()
With ww
.LocalPort = 808
.Listen
End With
End Sub
Private Sub Command3_Click()
ww.SendData Text2
Label2 = "gönderildi"
End Sub
P
Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir. |