Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

VB 2008 IF ABFRAGE SOCKET

Frage Entwicklung VB for Applications

Mitglied: haufeft

haufeft (Level 1) - Jetzt verbinden

16.07.2008, aktualisiert 17.07.2008, 4153 Aufrufe, 1 Kommentar

hy und hilfe

ich habe einen server
01.
Imports System.Net.Sockets 
02.
Imports System.Text 
03.
 
04.
Public Class Form1 
05.
 
06.
    Private SimpleServer As TcpListener 
07.
    Private Client As New TcpClient 
08.
    Private Stream As NetworkStream 
09.
    Dim bytes() As Byte 
10.
    Dim Bytes2() As Byte 
11.
 
12.
 
13.
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
14.
 
15.
        SimpleServer = New TcpListener(System.Net.IPAddress.Parse(0), 12345) 
16.
 
17.
        SimpleServer.Start() 
18.
 
19.
        SimpleServer.BeginAcceptTcpClient(AddressOf OnConnect, New Object) 
20.
 
21.
    End Sub 
22.
 
23.
    Private Sub OnConnect(ByVal ar As System.IAsyncResult) 
24.
        Client = SimpleServer.EndAcceptTcpClient(ar) 
25.
        Stream = Client.GetStream 
26.
 
27.
        ReDim bytes(Client.ReceiveBufferSize) 
28.
        Stream.BeginRead(bytes, 0, CInt(Client.ReceiveBufferSize), AddressOf onGetData, New Object) 
29.
    End Sub 
30.
 
31.
    Private Sub onGetData(ByVal ar As System.IAsyncResult) 
32.
 
33.
 
34.
        Dim s As String = "shutdown" 
35.
        Dim clientdata As String = Encoding.ASCII.GetString(bytes) 
36.
        If clientdata = s Then 
37.
            MsgBox("rechner abschalten") 
38.
        End If 
39.
 
40.
 
41.
    End Sub 
42.
 
43.
End Class
darin habe ich eine if abfrage
01.
if clientdata = s Then
also sollte clientdata den gleichen string wie s haben mache.....

wenn ich mit dem client :
01.
Imports System.Net.Sockets 
02.
Imports System.Text 
03.
 
04.
Public Class Form1 
05.
 
06.
    Private SimpleClient As New TcpClient 
07.
    Private Stream As NetworkStream 
08.
 
09.
 
10.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
11.
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(textbox1.text) 
12.
        Stream.Write(sendBytes, 0, sendBytes.Length) 
13.
    End Sub 
14.
 
15.
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
16.
        SimpleClient.Connect("192.168.25.32", 12345) 
17.
        Stream = SimpleClient.GetStream 
18.
        TextBox2.Text = Stream.ToString 
19.
    End Sub 
20.
End Class
z.b shutdown sende passiert nix
und ich kann immer nur 1x was an den server senden,danach muss ich ihn neu starten.

danke für die hilfe
Mitglied: Nailara
17.07.2008 um 08:02 Uhr
Hi,

ergänze mal an der Zeichenkette am Ende ein vbCRLF und sende eben ein Enter mit. Dann schau mal, ob sich beim Datenstrom die Puffergröße auf 0 setzen lässt oder ob die Möglichkeit besteht, den Puffer explizit mit einen flush() oder sowas zu leeren.

Grüße Mathias
Bitte warten ..
Ähnliche Inhalte
Festplatten, SSD, Raid
gelöst Windows Server 2008 R2 Platte spiegeln - unterschiedliche Platten? (2)

Frage von imacer zum Thema Festplatten, SSD, Raid ...

Datenbanken
SQL Server 2008 R2 iso (3)

Frage von Doktore77 zum Thema Datenbanken ...

VB for Applications
gelöst VB Skript für mehrere Batch Befehle (19)

Frage von freshman2017 zum Thema VB for Applications ...

Batch & Shell
Batchjob Ping Abfrage fehlerhaft (2)

Frage von LukiDensi zum Thema Batch & Shell ...

Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(1)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Router & Routing

PfSense auf Supermicro Intel Xeon D-15x8 SoC Bare Bone

Tipp von Dobby zum Thema Router & Routing ...

Heiß diskutierte Inhalte
Windows 10
Windows für Privatanwender "nicht mehr handhabbar" (25)

Frage von FA-jka zum Thema Windows 10 ...

LAN, WAN, Wireless
Brauche Hilfe: Mit (schnellem) WLAN Strecke überbrücken (22)

Frage von pierrehansen zum Thema LAN, WAN, Wireless ...

Basic
Programmierung von Windows Programmen (10)

Frage von Ghost108 zum Thema Basic ...