Hallo liebe Comunity :),
ich habe eine kleine Klasse zu abfrage von DNS Servern geschrieben sie benutzt die exe : nslookup die bei Windows Standard mäßig mitinstalliert ist.
In dieser Klasse kann man Namenserver und Internet Adressen abfragen dazu habe ich noch eine Reverse_ip abfrage eingebaut :).
NEU = Seiten einer Domain auslesen
Hier ist die Klasse :
Diese Klasse könnte man so verwenden :
Das ist dann das Feedback :
ich hoffe ihr könnt diese Klasse irgendwann mal brauchen![:)](https://www.vb-paradise.de/wcf/images/smilies/smile.png)
würde mich über Kritik und co freuen
ich habe eine kleine Klasse zu abfrage von DNS Servern geschrieben sie benutzt die exe : nslookup die bei Windows Standard mäßig mitinstalliert ist.
In dieser Klasse kann man Namenserver und Internet Adressen abfragen dazu habe ich noch eine Reverse_ip abfrage eingebaut :).
NEU = Seiten einer Domain auslesen
![:)](https://www.vb-paradise.de/wcf/images/smilies/smile.png)
Hier ist die Klasse :
VB.NET-Quellcode
- Public Class DNS_Search
- Public Function DNS_SEARCH(ByVal hostName As String, ByVal dns_search_options As DNS_Option) As String
- If dns_search_options = DNS_Option.allsits Then
- Dim ste As String() = DNS_SEARCH(hostName, DNS_Option.nameserver).Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
- Dim sits As String = String.Empty
- For i = 0 To ste.Length - 1
- Dim plaintext As String() = GetNslookup("-q=mx " & hostName & " " & ste(i)).Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
- For i2 = 0 To plaintext.Length - 1
- Dim stebad As String() = {System.Convert.ToChar(9) & "internet", System.Convert.ToChar(9) & "MX", System.Convert.ToChar(9) & "AAAA", System.Convert.ToChar(9) & "nameserver"}
- For i3 = 0 To stebad.Length - 1
- plaintext(i2) = plaintext(i2).Replace(stebad(i3), "")
- Next
- If plaintext(i2).StartsWith("Server: ") = False And plaintext(i2).StartsWith("Address: ") = False Then
- sits &= plaintext(i2).Split({" "}, StringSplitOptions.RemoveEmptyEntries)(0) & Environment.NewLine
- End If
- Next
- Next
- Return Sortieren(sits)
- End If
- Dim st As String = GetNslookup("-q=any " & hostName)
- Select Case dns_search_options
- Case DNS_Option.internet_address
- Dim internetlist As String = String.Empty
- Dim lines As String() = st.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
- For i = 0 To lines.Length - 1
- If lines(i).Contains("internet address = ") = True Then
- internetlist &= lines(i).Split({"internet address = "}, StringSplitOptions.None)(1) & Environment.NewLine
- End If
- Next
- If internetlist = String.Empty Then Return "no internet address(es) found"
- Return internetlist
- Case DNS_Option.nameserver
- Dim nameserverlist As String = String.Empty
- Dim lines As String() = st.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
- For i = 0 To lines.Length - 1
- If lines(i).Contains("nameserver = ") = True Then
- nameserverlist &= lines(i).Split({"nameserver = "}, StringSplitOptions.None)(1) & Environment.NewLine
- End If
- Next
- If nameserverlist = String.Empty Then Return "no nameserver(s) found"
- Return nameserverlist
- Case DNS_Option.Reverse_ip
- Dim IP As Net.IPAddress() = Net.Dns.GetHostEntry(hostName).AddressList
- Dim revers_ip As String = String.Empty
- If IP.Length = 0 Then Return "no revers ip address(es) found"
- For i = 0 To IP.Length - 1
- revers_ip &= IP(i).ToString & Environment.NewLine
- Next
- Return revers_ip
- End Select
- Return st
- End Function
- Public Function Sortieren(ByVal text As String) As String
- Dim st As String() = text.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
- Dim d As New List(Of String)
- For i = 0 To st.Length - 1
- Dim bool As Boolean = False
- For i1 = 0 To d.Count - 1
- If d.Item(i1) = st(i) Then
- bool = True
- Exit For
- End If
- Next
- If bool = False Then
- d.Add(st(i))
- End If
- Next
- Dim ste As String = ""
- For i = 0 To d.Count - 1
- ste &= d.Item(i) & Environment.NewLine
- Next
- Return ste
- End Function
- Public Function GetNslookup(ByVal parm As String) As String
- Dim process As New Process()
- Dim Startinfos As New ProcessStartInfo()
- Startinfos.RedirectStandardOutput = True
- Startinfos.Arguments = parm
- Startinfos.FileName = "nslookup.exe"
- Startinfos.UseShellExecute = False
- Startinfos.CreateNoWindow = True
- process.StartInfo = Startinfos
- process.Start()
- process.WaitForExit(1000)
- Dim sr As IO.StreamReader = process.StandardOutput
- process.Close()
- Dim st As String = sr.ReadToEnd
- sr.Close()
- Return st
- End Function
- Public Enum DNS_Option
- nameserver = 1
- reverse_ip = 2
- internet_address = 3
- allsits = 4
- End Enum
- End Class
Diese Klasse könnte man so verwenden :
Das ist dann das Feedback :
ich hoffe ihr könnt diese Klasse irgendwann mal brauchen
![:)](https://www.vb-paradise.de/wcf/images/smilies/smile.png)
würde mich über Kritik und co freuen
![:)](https://www.vb-paradise.de/wcf/images/smilies/smile.png)
MFG 0x426c61636b4e6574776f726b426974
InOffical VB-Paradise IRC-Server
webchat.freenode.net/
Channel : ##vbparadise
InOffical VB-Paradise IRC-Server
webchat.freenode.net/
Channel : ##vbparadise
Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „BlackNetworkBit“ ()