Programm auf Computer steuern..

  • VB.NET

Es gibt 31 Antworten in diesem Thema. Der letzte Beitrag () ist von backtothetoast.

    Programm auf Computer steuern..

    Hey Leute,

    ich habe vor ein Programm, dass auf meinem zweiten Rechner ist, der immer läuft über ein 2. Programm das zb. auf meinem Handy oder Netbook ist zu steuern. Dieses Programm beinhaltet zb. einen Texteditor oder eine Funktion, womit ich irgendetwas wichties updaten muss. Mann könnte dies zwar über Skype machen, jedoch möchte ich soetwas gerne ohne Skype oder ähnliche Software machen. Habt ihr da ein paar Ideen oder sogar Codeschnipsel?

    lg.

    backtothetoast schrieb:

    Ich habe mir mal die Methode bzw. den ersten Thread angeschaut, da ich diesen eher verstanden habe. Nun eine Frage, sollte man einen Port freigeben müssen, und keine Rechte dazu hat.. kann man ab dort irgendwie tricksen?
    Doch kann man.
    Jedoch brauchst du einen gemeinsamen Nenner. Hierfür kann ich einen (auch kostenlose) Webserver empfehlen. Die Methode ist jedoch etwas schwieriger.

    Beide rufen ein PHP-Script auf und übertragen ihre IP per POST. Einer ist (logischerweise) schneller als der Andere. Der Schnellere hat nun das Pech, dass er das Script so lange aktualisieren muss, bis der andere auch soweit ist. Der Langsame bekommt dann die IP des Schnelleren und ruft das zweite PHP-Script auf. Nachdem die andere IP auch angekommen ist, geht er auch aufs zweite Script.
    Das zweite Script sucht (beim ersten Aufruf) sich ne Uhrzeit aus (ich würde 5-10s nach der aktuellen Uhrzeit empfehlen) und gibt bei allen weiteren Aufrufen die Anzahl der Sekunden an, die nötig sind um die ausgesuchte Uhrzeit zu erreichen.

    Man braucht das zweite Script nur ein (oder zweimal) aufrufen, den Rest kann mit einem Timer lösen.
    Sobald die Timer ihr Event feuern versuchen beide gleichzeitig eine Verbindung zueinander herzustellen (natürlich aufm gleichen Port) und somit ist die Firewall überwunden).
    Dieses gleichzeitige miteinander Verbinden wird als "Lochtrick" bezeichnet.

    In der Praxis habe ich es leider noch nie verwendet. Nur das "synchronisieren" über PHP habe ich schon mal für Leitstellenspiel gemacht - das Ganze funktioniert überraschend gut. Die Differenz beträgt etwa <0,5s (und dabei habe ich die Pings usw. nicht abgezogen).



    Mfg.
    SAR

    Moin,

    ich wollte Heute mich mit einem lokalen Server mit der TCP Methode über einen Client verbinden. Jedoch kam folgende Meldung:

    Was kann ich machen? Den Port habe ich nicht freigeschaltet, da ich dies auch nur Lokal probiere und dies auch nicht nötig sein wird.

    EDIT: Ich merke gerade, dass ich den entsprechenden Code vergessen habe:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    3. Module Module1
    4. Dim x As Object
    5. Dim stream As NetworkStream
    6. Dim streamw As StreamWriter
    7. Dim streamr As StreamReader
    8. Dim Client As New TcpClient
    9. Dim IP As String = "93.232.135.243"
    10. Dim Port As Integer = 4000
    12. Sub Main()
    13. Console.Title = "TCP Client"
    14. Console.Clear()
    15. s:
    16. x = Console.ReadLine()
    17. Select Case x
    18. Case "commands"
    19. Console.WriteLine("clear connect disconnect update")
    20. Console.WriteLine("shutdown restart logout rom")
    21. Console.WriteLine("ktw kint end exit")
    22. GoTo s
    23. Case "connect" 'connecting to server
    24. Connect()
    25. GoTo s
    26. Case "disconnect" 'disconnecting from server
    27. Disconnect()
    28. GoTo s
    29. Case "update" 'updating server
    30. Update()
    31. GoTo s
    32. Case "shutdown" 'shutdown computer
    33. Shutdown()
    34. GoTo s
    35. Case "restart" 'restart computer
    36. Restart()
    37. GoTo s
    38. Case "logout" 'logout computer
    39. Logout()
    40. GoTo s
    41. Case "clear"
    42. Console.Clear()
    43. GoTo s
    44. Case "exit"
    45. Exit Sub
    46. Case Else
    47. Console.WriteLine("no such command '" & x & "'")
    48. GoTo s
    49. End Select
    50. End Sub
    52. Sub Connect()
    53. Client.Connect(IP, Port) 'Client verbindet sich mit IP: 192.168.111.17 und Port 4000
    54. If Client.Connected Then
    55. stream = Client.GetStream ' Stream wird auf Client verwiesen
    56. streamw = New StreamWriter(stream) ' Stream zum Senden wird deklariert
    57. streamr = New StreamReader(stream) ' Stream zum Empfangen wird deklariert
    58. Login() ' Sub Login
    59. Else
    60. Console.WriteLine("connection failed")
    61. Main()
    62. End If
    63. End Sub
    65. Sub Disconnect()
    66. Client.Close()
    67. End Sub
    69. Sub Update()
    70. Send("update")
    71. End Sub
    73. Sub Shutdown()
    74. Send("shutdown")
    75. End Sub
    77. Sub Restart()
    78. Send("restart")
    79. End Sub
    81. Sub Logout()
    82. Send("logout")
    83. End Sub
    85. Sub Login()
    86. Try
    87. ClientSend("connect")
    89. If ClientRecieve() = "ok" Then 'Oder sonst irgend was. Ist nur ein Beispiel für einen Login
    90. Console.WriteLine("connected")
    91. Main()
    92. Else
    93. Exit Sub
    94. End If
    95. Catch
    96. Console.WriteLine("connection failed")
    97. End Try
    98. End Sub
    100. Sub ClientSend(ByVal text As String)
    101. streamw.WriteLine(text)
    102. streamw.Flush()
    103. End Sub
    105. Function ClientRecieve() As String
    106. ClientRecieve = streamr.ReadLine
    107. End Function
    109. Sub Send(ByVal text As String)
    110. ClientSend(text)
    111. If ClientRecieve() = "ok" Then
    112. Console.WriteLine(text & " succesfuly done.")
    113. End If
    114. End Sub
    115. End Module

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „backtothetoast“ ()

    Was ist eigentlich der Unterschied and UDP und TCP? Was wäre besser?
    EDIT: Bisher läuft mein Client ganz gut, jedoch gibt der Server folgende Fehlermeldung aus:

    Quellcode

    1. Normalerweise darf jede Socketadresse (Protokoll, Netzwerkadresse oder Anschluss) nur jeweils einmal verwendet werden.


    Als IP des Servers wird mir 0.0.0.0 ausgegeben. Code des Servers:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    3. Imports System.Net
    7. Public Class Form1
    8. Dim stream As NetworkStream
    9. Dim streamw As StreamWriter
    10. Dim streamr As StreamReader
    11. Dim Server As TcpListener
    12. Dim client As New TcpClient
    13. Dim ipendpoint As IPEndPoint
    15. Dim mainthread As Threading.Thread
    17. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    18. mainthread = New Threading.Thread(AddressOf mainserver)
    19. mainthread.Start()
    20. ipendpoint = New IPEndPoint(IPAddress.Any, 80)
    21. MsgBox(ipendpoint.Address.ToString)
    22. End Sub
    24. Sub mainserver()
    25. Try
    26. Server = New TcpListener(ipendpoint)
    27. Server.Start()
    29. client = Server.AcceptTcpClient
    31. stream = client.GetStream
    32. streamr = New StreamReader(stream)
    33. streamw = New StreamWriter(stream)
    34. While True
    35. Select Case streamr.ReadLine
    36. Case "connect" 'DO NOT FORGET THIS
    37. Send("ok")
    38. MsgBox("client tryed to connect. acceptet.")
    39. Case "rom"
    40. Send("ok")
    41. MsgBox("client tryed to rom. acceptet.")
    42. End Select
    43. End While
    44. Catch ex As Exception
    45. MsgBox(ex.Message)
    46. End Try
    48. End Sub
    50. Sub Send(ByVal text As String)
    51. streamw.WriteLine(text)
    52. streamw.Flush()
    53. End Sub
    55. Private Sub Form1_Closing(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosing
    56. Server.Stop()
    57. Try
    58. mainthread.Abort()
    59. Catch
    60. End Try
    61. End Sub
    62. End Class


    lg.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „backtothetoast“ ()

    etwas lustiges wäre es, es mit skype zu steuern :D
    [VB.NET] Computer über Skype "steuern" (Using Skype4Com.dll)

    wäre auch eine möglichkeit.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    verständlich
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    warum hat eigentlich bisher noch keiner in frage gestellt, warum er nicht einfach vnc o.ä. nutzt?

    bisher könnte das genausogut die vorlage für ein RAT sein. dafür spricht u.a. die tatsache, dass er auschließt das serverseitig ports geöffnet werden... (die würde jmd der mit dem RAT infiziert wurde logischerweise nicht an seinem router freischalten wollen.)

Facebook