80 lines
2.8 KiB
VB.net
80 lines
2.8 KiB
VB.net
|
|
|||
|
|
|
|||
|
|
Imports System.Net
|
|||
|
|
Imports System.Net.Sockets
|
|||
|
|
Imports System.Threading
|
|||
|
|
Imports ARSoft.Tools.Net
|
|||
|
|
Imports ARSoft.Tools.Net.Dns
|
|||
|
|
Imports AutoFixture
|
|||
|
|
Imports DnsClient
|
|||
|
|
|
|||
|
|
Public Class CxDnsServer
|
|||
|
|
Public QUERY_TIMEOUT As Integer = 1000
|
|||
|
|
Public dnsAddr As String
|
|||
|
|
Public domain As String
|
|||
|
|
Public G_DnsThread As Thread
|
|||
|
|
Public Sub New()
|
|||
|
|
' Dim dnsServer As DnsServer = New DnsServer
|
|||
|
|
'G_DnsThread = New Thread(New ThreadStart(AddressOf runingDnsClient))
|
|||
|
|
'G_DnsThread.Start()
|
|||
|
|
End Sub
|
|||
|
|
Public Sub runingDnsClient()
|
|||
|
|
If String.IsNullOrEmpty(domain) Then
|
|||
|
|
MsgBox("待解析的域名不可为空")
|
|||
|
|
Return
|
|||
|
|
End If
|
|||
|
|
If String.IsNullOrEmpty(dnsAddr) Then
|
|||
|
|
MessageBox.Show("DNS地址不可为空")
|
|||
|
|
End If
|
|||
|
|
Dim isDomainName As ARSoft.Tools.Net.DomainName = ARSoft.Tools.Net.DomainName.Parse（domain）
|
|||
|
|
Dim isdnsClient As ARSoft.Tools.Net.Dns.DnsClient = New ARSoft.Tools.Net.Dns.DnsClient(IPAddress.Parse(dnsAddr), QUERY_TIMEOUT)
|
|||
|
|
Dim isDnsMessage As DnsMessage = isdnsClient.Resolve(isDomainName, RecordType.A)
|
|||
|
|
If IsNothing(isDnsMessage) OrElse （isDnsMessage.ReturnCode <> ReturnCode.NoError And isDnsMessage.ReturnCode <> ReturnCode.NxDomain） Then
|
|||
|
|
MsgBox("没有解析成功")
|
|||
|
|
Else
|
|||
|
|
For Each tdnsRecord In isDnsMessage.AnswerRecords
|
|||
|
|
Dim taRecord As ARecord = TryCast(tdnsRecord, ARecord)
|
|||
|
|
If IsNothing(taRecord) Then
|
|||
|
|
MsgBox($"解析成功{taRecord.Address.ToString }{vbCrLf }")
|
|||
|
|
Else
|
|||
|
|
Continue For
|
|||
|
|
End If
|
|||
|
|
Next
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public dnsServer As DnsServer
|
|||
|
|
Public Sub runingDnsServer(ipadd As IPAddress)
|
|||
|
|
If Not IsNothing(dnsServer) Then
|
|||
|
|
dnsServer.Stop()
|
|||
|
|
End If
|
|||
|
|
dnsServer = New DnsServer(ipadd, 50, 50)
|
|||
|
|
dnsServer.Start()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
Private Function ProcessQuery(ByVal message As DnsMessageBase, ByVal clientAddress As IPAddress, ByVal protocol As ProtocolType) As DnsMessageBase
|
|||
|
|
message.IsQuery = False
|
|||
|
|
Dim query As DnsMessage = TryCast(message, DnsMessage)
|
|||
|
|
|
|||
|
|
If query Is Nothing OrElse query.Questions.Count <= 0 Then
|
|||
|
|
message.ReturnCode = ReturnCode.ServerFailure
|
|||
|
|
Else
|
|||
|
|
|
|||
|
|
If query.Questions(0).RecordType = RecordType.A Then
|
|||
|
|
|
|||
|
|
For Each dnsQuestion As ARSoft.Tools.Net.Dns.DnsQuestion In query.Questions
|
|||
|
|
'Dim resolvedIp As String = Resolve(clientAddress.ToString(), dnsQuestion.Name)
|
|||
|
|
'Dim aRecord As ARecord = New ARecord(query.Questions(0).Name, 36000, IPAddress)
|
|||
|
|
'query.AnswerRecords.Add(aRecord)
|
|||
|
|
Next
|
|||
|
|
Else
|
|||
|
|
|
|||
|
|
End If
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Return message
|
|||
|
|
End Function
|
|||
|
|
End Class
|