Ausnahme des Typ "System.Net.Sockets.SocketException"

DerTuner · 10. November 2018, 16:43

Guten Abend,
Ich habe eine Ausnahme,
weis aber nicht was diese Bedeutet

[Das Programm soll alle Pakete aufliste]

Ausnahme;

Spoiler anzeigen

Code;

VB.NET-Quellcode

Dim socketz As New Socket(AddressFamily.InterNetwork, SocketType.Raw, ProtocolType.IP)

Danke im Voraus

RodFromGermany · 10. November 2018, 16:55

@DerTuner Starte Dein Programm als Administrator:
Autostart Programm als Admin starten

slice · 10. November 2018, 16:56

Naja die Fehlermeldung sagt doch schon alles, nicht ausreichende Berechtigungen.
Wahrscheinlich versuchst du auf einem "privilegierten Port" zu arbeiten (alles unter 1024?), dafür brauchst du bzw. deine Anwendung "admin" Rechte.

DerTuner · 10. November 2018, 19:01

Jo es läuft

Wie kann man das auch ohne Admin. aus führen? (soll ein Tool auch für nicht Admins Sein)

ErfinderDesRades · 10. November 2018, 19:17

bisher hast du nix gezeigt, was du ausführst.
Wie soll man nu sinnvoll auf deine Frage antworten?
oder ist das wirklich diese Zeile:

VB.NET-Quellcode

Dim socketz As New Socket(AddressFamily.InterNetwork, SocketType.Raw, ProtocolType.IP)

die als normal-user failt und als admin funzt?
weil ein bestimmter port ( < 1024) spielt da ja keine Rolle.

DerTuner · 10. November 2018, 19:41

Ein Problem von mir, sorry... :rolleyes:

Diese Anwendung zeigt in deiner DataGrindView alle Pakete an die gesendet / empfangen werden.
Das Programm soll man als Admin und auch als Nicht Admin ausgeführt werden

xChRoNiKx · 10. November 2018, 19:54

Code.... Deine Erklärungen bringen nichts wenn wir nicht sehen wie dein Code aussieht.

DerTuner · 11. November 2018, 12:28

Hier ist der Code;

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Net
Imports System.Net.Sockets
Public Class Form1
Dim socketz As New Socket(AddressFamily.InterNetwork, SocketType.Raw, ProtocolType.IP)
Dim bytedata(4096) As Byte
Dim myip As IPAddress
Dim started As Boolean = True
Dim sizediff As Size
Dim formloaded As Boolean = False
Dim FilterIPAddress As New IPAddress(0)
Dim FilterIP As Boolean
Dim mycomputerconnections() As Net.NetworkInformation.NetworkInterface
'DGV Update stuff
Dim stringz As String = ""
Dim Typez As String = ""
Dim ipfrom As IPAddress
Dim ipto As IPAddress
Dim destinationport As UInteger
Dim sourceport As UInteger
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sizediff.Height = Me.Height - DGV.Height
sizediff.Width = Me.Width - DGV.Width
formloaded = True
mycomputerconnections = Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces
For i = 0 To mycomputerconnections.Length - 1
ComboBox1.Items.Add(mycomputerconnections(i).Name)
Next
End Sub
Private Sub OnReceive(ByVal asyncresult As IAsyncResult)
If started = True Then
'Get Length of packet (including header)
Dim readlength As UInteger = BitConverter.ToUInt16(Byteswap(bytedata, 2), 0)
sourceport = BitConverter.ToUInt16(Byteswap(bytedata, 22), 0)
destinationport = BitConverter.ToUInt16(Byteswap(bytedata, 24), 0)
'Get Protocol Type
If bytedata(9) = 6 Then
Typez = "TCP"
ElseIf bytedata(9) = 17 Then
Typez = "UDP"
Else
Typez = "???"
End If
'Get IP from and to
ipfrom = New IPAddress(BitConverter.ToUInt32(bytedata, 12))
ipto = New IPAddress(BitConverter.ToUInt32(bytedata, 16))
'If this is a packet to/from me and not from myself then...
If (ipfrom.Equals(myip) = True Or ipto.Equals(myip) = True) And ipto.Equals(ipfrom) = False Then
If FilterIP = False Or (FilterIP = True And (FilterIPAddress.Equals(ipfrom) Or FilterIPAddress.Equals(ipto))) Then
'Fix data
stringz = ""
For i = 26 To readlength - 1
If Char.IsLetterOrDigit(Chr(bytedata(i))) = True Then
stringz = stringz & Chr(bytedata(i))
Else
stringz = stringz & "."
End If
Next
'Put data to DataGridView, since it's on a different thread now, invoke it
DGV.Invoke(New MethodInvoker(AddressOf DGVUpdate))
End If
End If
End If
'Restart the Receiving
socketz.BeginReceive(bytedata, 0, bytedata.Length, SocketFlags.None, New AsyncCallback(AddressOf OnReceive), Nothing)
End Sub
Private Sub DGVUpdate()
'Remove rows if there are too many
If DGV.Rows.Count > 50 Then
DGV.Rows.RemoveAt(0)
End If
DGV.Rows.Add()
DGV.Rows(DGV.Rows.Count - 1).Cells(0).Value = ipfrom.ToString & ":" & sourceport 'From Column, size at 125
DGV.Rows(DGV.Rows.Count - 1).Cells(1).Value = ipto.ToString & ":" & destinationport 'To Column, size at 125
DGV.Rows(DGV.Rows.Count - 1).Cells(2).Value = Typez 'Type Column, size at 50
DGV.Rows(DGV.Rows.Count - 1).Cells(3).Value = stringz 'Data column, size mode set to fill
End Sub
Private Function Byteswap(ByVal bytez() As Byte, ByVal index As UInteger)
Dim result(1) As Byte
result(0) = bytez(index + 1)
result(1) = bytez(index)
Return result
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If started = True Then
Button1.Text = "Start"
started = False
Else
Button1.Text = "Stop"
started = True
End If
End Sub
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
If formloaded = True Then
DGV.Size = Me.Size - sizediff
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Try
If TextBox1.Text <> "" And TextBox1.Text IsNot Nothing Then
FilterIPAddress = IPAddress.Parse(TextBox1.Text)
FilterIP = True
TextBox1.BackColor = Color.LimeGreen
Else
FilterIP = False
TextBox1.BackColor = Color.White
End If
Catch ex As Exception
FilterIP = False
TextBox1.BackColor = Color.White
End Try
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
For i = 0 To mycomputerconnections(ComboBox1.SelectedIndex).GetIPProperties.UnicastAddresses.Count - 1
If mycomputerconnections(ComboBox1.SelectedIndex).GetIPProperties.UnicastAddresses(i).Address.AddressFamily = Net.Sockets.AddressFamily.InterNetwork Then
myip = mycomputerconnections(ComboBox1.SelectedIndex).GetIPProperties.UnicastAddresses(i).Address
BindSocket()
End If
Next
End Sub
Private Sub BindSocket()
Try
socketz.Bind(New IPEndPoint(myip, 0))
socketz.SetSocketOption(SocketOptionLevel.IP, SocketOptionName.HeaderIncluded, True)
Dim bytrue() As Byte = {1, 0, 0, 0}
Dim byout() As Byte = {1, 0, 0, 0}
socketz.IOControl(IOControlCode.ReceiveAll, bytrue, byout)
socketz.Blocking = False
ReDim bytedata(socketz.ReceiveBufferSize)
socketz.BeginReceive(bytedata, 0, bytedata.Length, SocketFlags.None, New AsyncCallback(AddressOf OnReceive), Nothing)
ComboBox1.Enabled = False
Catch ex As Exception
ComboBox1.BackColor = Color.Red
End Try
End Sub
End Class

xChRoNiKx · 11. November 2018, 13:31

Interessant. Du nutzt also den kompletten Code von hier: SocketType.Raw zugriff verweigert , alternative ?
Dort war ja schon eine Lösung. Desweiteren ist bitte bitte bitte schmeiß die ganzen komischen Try-Catch sachen raus oder behandle es richtig. So wie du es machst
(wurde dir schon öfter gesagt) ist es halt "scheiße" wenn man das so sagen darf.

SocketType.Raw braucht halt Admin-Rechte mit Windows 2000 und höher: docs.microsoft.com/de-de/windo…Sock/tcp-ip-raw-sockets-2
Und dafür hat dir der RFG ja schon in Post #2 die Lösung gepostet.

ErfinderDesRades · 11. November 2018, 17:35

xChRoNiKx schrieb:

Desweiteren ist bitte bitte bitte schmeiß die ganzen komischen Try-Catch sachen raus oder behandle es richtig

Jou.
Bzw. lass das mit dem Behandeln - bring überhaupt erstmal was ans laufen.
Fehler behandeln kann man erst, wenn der eigentliche Code ordentlich funktioniert. Mit verfrühten TryCatches schiesst man sich nur pausenlos selbst ins Knie.

Ausnahme des Typ "System.Net.Sockets.SocketException"

Ausnahme des Typ "System.Net.Sockets.SocketException"

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

xChRoNiKx schrieb:

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben