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
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
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
würde mich über Kritik und co freuen
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“ ()