Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 4171 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
Linux
gelöst Php redis an Socket binden? (2)

Frage von FA-jka zum Thema Linux ...

Linux
Owncloud redis Memory Caching nicht über socket?

Frage von FA-jka zum Thema Linux ...

Visual Studio
gelöst VB: Batchprogramm: Resultat zurückgeben an VB Form (Textfeld) (7)

Frage von PixL86 zum Thema Visual Studio ...

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

Frage von freshman2017 zum Thema VB for Applications ...

Neue Wissensbeiträge
Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(14)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

RedHat, CentOS, Fedora

Fedora 27 ist verfügbar

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

Heiß diskutierte Inhalte
Server
Bilder aus dem Web mit CSV runterladen (30)

Frage von Yannosch zum Thema Server ...

LAN, WAN, Wireless
Gebäudeverkabelung 10Gigabit LWL (27)

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

Windows Update
Novemberpatches und Nadeldrucker bereiten Kopfschmerzen (14)

Tipp von MettGurke zum Thema Windows Update ...