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, 4151 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
VB for Applications
VB.net Combobox databinding langsam (3)

Frage von ForgottenRealm zum Thema VB for Applications ...

Windows Server
Win Server 2008 R2: slow RDP download (2)

Frage von JoergZ zum Thema Windows Server ...

Exchange Server
gelöst Exchange 2007 (SBS 2008) - Eingetragene Termine von Outlook Clients verschwinden (4)

Frage von fr4nkd zum Thema Exchange Server ...

Neue Wissensbeiträge
Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(8)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(6)

Anleitung von BassFishFox zum Thema Windows 10 ...

Heiß diskutierte Inhalte