AllRoundPCManager v2.0

    • VB.NET

    Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von nikeee13.

      AllRoundPCManager v2.0

      Ich habe nun den AllRoundPCManager etwas weiterentwickelt. Alles läuft nun über TCP/IP.
      Hier der Server:

      VB.NET-Quellcode

      1. Option Strict On 'Damit das Programm schneller und besser läuft, siehe: http://vcware.de/option_strict.php
      3. Imports System.Net.Sockets
      4. Imports System.IO
      5. Imports System.Net
      7. Public Class Form1
      9. 'Code by VCJunk von VB-Paradise.de
      10. 'Homepage:http://www.VCJunk.de
      11. 'E-Mail:Admin@VCJunk.de
      12. 'Dieser Code ist ein ähnlicher Code wie http://www.vb-paradise.de/allgemeines/sourcecode-austausch/22162-simples-funktionierendes-beispiel-einer-tcp-ip-verbindung-zwischen-zwei-rechnern/
      13. 'doch er wurde als ein Empfänger für ein Interface angepasst.
      14. 'Dieser Code darf frei verwendet werden, ohne die Erlaubnis des Autors.
      15. 'Viel Spaß mit dem Code.
      18. Dim stream As NetworkStream 'Stream
      19. Dim streamw As StreamWriter 'Streamwriter
      20. Dim streamr As StreamReader 'Streamreader
      21. Dim server As TcpListener 'Server
      22. Dim client As New TcpClient 'Client
      23. Dim ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8000) 'TCP/IP Verbindung über Port 8000
      24. Dim t As New Threading.Thread(AddressOf Main)
      26. Sub Main()
      27. Try
      28. server = New TcpListener(ipendpoint)
      29. server.Start() 'Server starten
      30. client = server.AcceptTcpClient
      32. stream = client.GetStream
      33. streamr = New StreamReader(stream) 'Streamreader zuweisen
      34. streamw = New StreamWriter(stream) 'Streamwriter zuweisen
      36. While True
      37. If streamr.ReadLine = "Befehl1" = True Then 'Wenn empfangener Befehl = Befehl1 dann:
      38. 'Befehl1 ausführen
      39. ElseIf streamr.ReadLine = "Befehl2" = True Then 'Wenn empfangener Befehl = Befehl1 dann:
      40. 'Befehl2 ausführen
      41. End If
      42. End While
      43. Catch
      45. End Try
      46. End Sub
      48. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      49. t.Start() 'Wenn Programm startet, dann Server starten
      50. End Sub
      51. End Class

      Als Empfänger reicht er, natürlich kann man ihn noch ausbauen, z.B. dass er jeden Empfangenen Befehl in eine Datenbank einträgt.
      Und damit du aus dem Internet Befehle an das Programm senden kannst, ist hier der Code des Clienten:

      PHP-Quellcode

      1. <?php
      2. $errno = NULL;
      3. $error = NULL;
      5. if (!$handle = @fsockopen("127.0.0.1", "8000", $errno, $error, 10))
      6. {
      7. die("Fehler (".$errno."): ".$error);
      8. }
      10. fwrite($handle, "Befehl1\r\n");
      11. fclose($handle);
      12. echo 'Befehl gesendet!';
      13. ?>

      127.0.0.1 musst du durch deine IP ersetzen, damit dein Programm die Befehle empfangen kann.
      und bei

      PHP-Quellcode

      1. fwrite($handle, "Befehl1\r\n");

      Musst du Befehl1 durch den jeweiligen Befehl ersetzen. Das \r\n muss aber bestehen bleiben!

      Ich hoffe damit könnt ihr wieder einen neuen AllRoundPCManager erstellen, vielleicht sehe ich ja mal einen im Showroom.
      Ich wünsche euch damit noch viel spaß!

      Projektmappe ( VB 2008 ): Hier
      Passwort fürs Archiv:vb-paradise

      Load-soft.ch.vu schrieb:

      Hi,
      Hab da ne frage^^
      Ist es möglich diesen Code so umzubauen, dass sozusagen der PHP Script der Server ist? Dann müsste ich mir nicht immer ein VServer suchen.
      Mfg
      Loadsoft



      Hi,

      nein es ist nicht möglich. Wenn der PHP-Code abgearbeitet worden ist, ist er eigentlich verschwunden. Der Server muss aber immer online sein um Befehle zu empfangen und nicht nur online gehen wenn er spürt, dass Befehle geschickt werden.


      Grüsse,

      viperkill

      @VCJunk
      Hast du eventuell eine Source wie man den Befehl (der normal das php script senden) in einer WindowsFormsAnwendung machen kann ? (wolte es so machen das ich eine Textbox für die Ip mache und eine für den Befehl dann noch einen Button für das Senden ,nur weiß ich leider nicht wie ich dies machen soll ,bin auch recht neu in sache vb.net)
      user/5574-vcjunk/

      Hey. Super Sache kann ich nur sagen.
      Ich habe vor kurzem eine Anwendung mit ähnlicher Vorgangsweise gemacht. Desshalb empfehle ich noch folgendes.

      So mehr Codes man lernt und so mehr man programmieren kann, desto mehr Dinge fallen einem auch noch ein die man gerne steuern bzw auslesen möchte. Deswegen empfehle ich unbedingt ein unsichtbares Update damit dein Partner Programm immer auf dem neusten Stand ist! :thumbsup:

      LG