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, 4141 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 ..
Neuester Wissensbeitrag
Microsoft

Lizenzwiederverkauf und seine Tücken

(5)

Erfahrungsbericht von DerWoWusste zum Thema Microsoft ...

Ähnliche Inhalte
Datenbanken
gelöst SQL-Abfrage - DISTINCT - letztes Datum (3)

Frage von emeriks zum Thema Datenbanken ...

Windows Server
gelöst NTP Server auf einem Windows Server 2008 R2 DC standardmäßig schon drauf? (11)

Frage von M.Marz zum Thema Windows Server ...

Datenbanken
gelöst Row Number bei einer Abfrage sinnvoll einsetzen (1)

Frage von Aximand zum Thema Datenbanken ...

Heiß diskutierte Inhalte
Windows Netzwerk
Windows 10 RDP geht nicht (16)

Frage von Fiasko zum Thema Windows Netzwerk ...

Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

Microsoft Office
Keine Updates für Office 2016 (13)

Frage von Motte990 zum Thema Microsoft Office ...