Hi,
kann mir vllt. jemand sagen oder mir einen Tipp geben, was an diesem Code falsch ist? Bekomme in VBA nur Fehlermeldungen. Danke schon einmal im voraus.
kann mir vllt. jemand sagen oder mir einen Tipp geben, was an diesem Code falsch ist? Bekomme in VBA nur Fehlermeldungen. Danke schon einmal im voraus.
Visual Basic-Quellcode
- Imports System.ComponentModel
- Imports System.Net.Sockets
- Imports System.Text
- Option Compare Database
- Private Sub Detailbereich_Click()
- Dim client As New tcpClient
- client.Connect("fritz.box", 1012)
- Me.Refresh()
- Dim stream As NetworkStream = client.GetStream
- Dim bytes As Byte() = New Byte() {}
- Me.Refresh()
- stream.Write(bytes, 0, bytes.Length)
- bytes = New Byte(1024) {}
- Dim str As String = String.Empty
- Me.Refresh()
- Dim count As Integer = stream.Read(bytes, 0, bytes.Length)
- str = Encoding.ASCII.GetString(bytes, 0, count)
- RichTextBox1.Text = vbNewLine & str
- stream.Close()
- client.Close()
- End Sub