Form über Remote anzeigen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Creepx.

    Form über Remote anzeigen

    Hallo!

    Ich sitze zurzeit an einem Tool mit dem es möglich ist Nachrichten über "Remote" zu verschicken. Das klappt alles ganz wunderbar, nur ich möchte jetzt ein kleines Extra einbauen, bei dem ich nicht wirklich weiterkomme.

    Ich möchte das wenn man eine neue Nachricht erhält, diese in einer neuen Form angezeigt wird. Deswegen wollte ich es so programmieren, dass über Remotebefehle, die Form 2 geöffnet wird. Nur da komm ich leider nicht weiter.

    Konkrete Frage:

    Wie schicke ich einen Befehl per Remote, der Form 2 anzeigt?

    Lg

    Hallo @Creepx,Wenn ich dich richtig verstehe bekommt deine Form1 ja schon mal den Text den du sendest?!
    Wenn ja prüf doch einfach ob zb. der Text "Form2 anzeigen" oder so ähnlich gesendet wurde und lass dann form2 öffnen

    Um ein Beispiel zu zeigen müsstest du aber deinen verwendeten Code posten, das macht die Sache leichter

    LG Ruerte
    Unfortunately, this Signature is not available in Germany because it may contain music for which GEMA
    has not granted the respective music rights. Sorry about that.

    Problem gelöst, aber jetzt habe ich ein anderes Problem:

    Ich habe in Form1 einen Button. Wenn ich den drücke wird eine Nachricht per Remote geschickt.

    Ich möchte jetzt in Form2 einen Button machen und wenn ich den drücke wird der Button in Form1 versteckt gedrückt bzw, ausgeführt. Ist das möglich?

    LG

    @Creepx,
    Wenn ich dich richtig verstehe möchtest das hier?
    Dialoge: Instanziierung von Forms und Aufruf von Dialogen

    @OMA er will nicht den Button "Verstecken" sondern diesen drücken

    Creepx schrieb:

    versteckt gedrückt bzw, ausgeführt.

    LG Ruerte
    Unfortunately, this Signature is not available in Germany because it may contain music for which GEMA
    has not granted the respective music rights. Sorry about that.

    Weiters Problem. Ich habe nun zwei Ports auf meinem Mini Messenger laufen. Der eine klappt einwandfrei, der andere wird gesperrt. Gibt es ne Möglichkeit das zu umgehen? Ich weiß mein Code ist nicht wirklich sauber.

    Code:

    VB.NET-Quellcode

    1. #Region "Imports"
    2. Imports System.Net.Sockets
    3. Imports System.Threading
    4. Imports System.IO
    5. #End Region
    7. Public Class Form1
    9. #Region "Variablen"
    10. Dim listener As New TcpListener(40674)
    11. Dim listenerip As New TcpListener(40122)
    12. Dim client As TcpClient
    13. Dim client2 As TcpClient
    14. Dim nachricht As String = ""
    15. Dim ipnachricht As String = ""
    16. Dim ipaddresse = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName).AddressList.GetValue(0).ToString
    17. Dim listthread As New Thread(New ThreadStart(AddressOf listening))
    18. Dim listthread2 As New Thread(New ThreadStart(AddressOf listeningip))
    19. #End Region
    21. #Region "openfiledialog"
    22. Private Sub ofd()
    23. OpenFileDialog1.Filter = "Profilbild|*.png"
    24. OpenFileDialog1.Title = "Wähle dein Profilbild"
    25. End Sub
    26. #End Region
    28. #Region "Form_Closing"
    29. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    30. listener.Stop()
    31. listenerip.Stop()
    32. End Sub
    33. #End Region
    35. #Region "Form_Load"
    36. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    37. ipaddressetxt.Text = ipaddresse
    38. listthread.Start()
    39. listthread2.Start()
    40. status_dropdown.SelectedItem = "Online"
    41. 'ipaddressetxt.Hide()
    43. yourtexttxt.Hide()
    44. texttxt.Hide()
    46. End Sub
    47. #End Region
    49. #Region "Listening"
    50. Public Sub listening()
    51. listener.Start()
    53. End Sub
    55. Public Sub listeningip()
    56. listenerip.Start()
    57. End Sub
    58. #End Region
    60. #Region "Timer"
    61. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    62. If Not suche_txt.Text = "" Then
    63. Label1.Hide()
    64. Else
    65. Label1.Show()
    66. End If
    67. If status_dropdown.SelectedItem = "Online" Then
    69. ElseIf status_dropdown.SelectedItem = "Abwesend" Then
    71. ElseIf status_dropdown.SelectedItem = "Beschäftigt" Then
    73. ElseIf status_dropdown.SelectedItem = "Im Meeting" Then
    75. ElseIf status_dropdown.SelectedItem = "Telefonieren" Then
    77. End If
    78. End Sub
    80. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    81. If listener.Pending = True Then
    82. nachricht = ""
    84. client = listener.AcceptTcpClient
    85. Dim reader As New StreamReader(client.GetStream())
    86. While reader.Peek > -1
    87. nachricht = nachricht + Convert.ToChar(reader.Read()).ToString
    88. End While
    89. texttxt.Text = texttxt.Text & nachricht & vbCrLf
    90. ipaddressetxt.Text = partneriptxt.Text & nachricht & vbCrLf
    91. Else
    92. End If
    93. If listenerip.Pending = True Then
    94. ipnachricht = ""
    95. client2 = listenerip.AcceptTcpClient
    96. Dim reader2 As New StreamReader(client2.GetStream())
    97. While reader2.Peek > 1
    98. ipnachricht = ipnachricht + Convert.ToChar(reader2.Read()).ToString
    99. End While
    100. partneriptxt.Text = partneriptxt.Text & ipnachricht & vbCrLf
    102. End If
    103. If Not texttxt.Text = "" Then
    105. Form2.texttxt.Text = texttxt.Text
    106. Else
    108. End If
    109. If Not texttxt.Text = "" Then
    110. Form2.Show()
    111. Else
    113. End If
    114. End Sub
    115. #End Region
    117. #Region " PictureBox"
    118. Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
    119. OpenFileDialog1.ShowDialog()
    120. End Sub
    121. #End Region
    123. #Region "button"
    124. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    125. client = New TcpClient(ip_txt.Text, 40674)
    126. client2 = New TcpClient(ip_txt.Text, 40112)
    127. Dim writer As New StreamWriter(client.GetStream())
    128. writer.Write(vbCrLf & "User: " & yourtexttxt.Text)
    129. writer.Write(ipaddressetxt.Text)
    130. writer.Flush()
    132. End Sub
    134. #End Region
    136. Private Sub ButtonBlue1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonBlue1.Click
    137. Form2.Show()
    138. End Sub
    140. End Class


    Error:



    Der Fehler kommt wenn der Port nicht gelisted wird, doch eigentliche Liste ich ihn doch oder nicht?

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Creepx“ ()

    Ist evtl ne schlechte Methode, aber ich wollte, dass wenn man jemandem schreibt, die IP mit übermittelt wird. Diese soll sich in eine versteckte Textbox schreiben. Nur das Problem ist das es sich immer in die Textbox schreibt, wo nur der Chat reinkommen soll und nicht die IP.

    Gibt es andere Möglichkeiten?

    Lg

Facebook
Telefonspende