Using Visual Basic to run a Dos Command with Txt input

Option Strict On
 
Imports System.Text.RegularExpressions
Imports System.Net
Imports System.Net.Sockets
Imports System.Runtime.InteropServices
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
#Region " Windows Form Designer generated code "
 
    Public Sub New()
        MyBase.New()
 
        'This call is required by the Windows Form Designer.
        InitializeComponent()
 
        'Add any initialization after the InitializeComponent() call
 
    End Sub
 
    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
 
    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer
 
    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.TextBox1 = New System.Windows.Forms.TextBox
        Me.Button1 = New System.Windows.Forms.Button
        Me.TextBox2 = New System.Windows.Forms.TextBox
        Me.SuspendLayout()
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(8, 8)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.TabIndex = 0
        Me.TextBox1.Text = "xxx.xxx.xxx.xxx"
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(112, 8)
        Me.Button1.Name = "Button1"
        Me.Button1.TabIndex = 1
        Me.Button1.Text = "Ping"
        '
        'TextBox2
        '
        Me.TextBox2.Location = New System.Drawing.Point(8, 40)
        Me.TextBox2.Multiline = True
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
        Me.TextBox2.Size = New System.Drawing.Size(272, 216)
        Me.TextBox2.TabIndex = 2
        Me.TextBox2.Text = ""
        '
        'Form1
        '
        Me.AcceptButton = Me.Button1
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(292, 266)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.TextBox1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)
 
    End Sub
 
#End Region
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strPattern As String = "^([1-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])(\.([0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])){3}$"
        Dim regCheck As New Regex(strPattern)
 
        If TextBox1.Text = "" Then
 
            MessageBox.Show("You must enter an ip to search for!")
            Exit Sub
 
        Else
 
            If regCheck.IsMatch(TextBox1.Text, 0) = False Then
 
                MessageBox.Show("Invalid IP address." & vbCrLf & "Address must be ###.###.###.###")
                Exit Sub
 
            End If
 
        End If
 
        TextBox2.Text &= "Pinging " & TextBox1.Text & " with 32 bytes of data:" & vbCrLf
        TextBox2.Update()
 
        Dim result As ICMPClass.ICMPReplyStructure()
        ReDim result(3)
        Dim intLost As Integer = 0
        Dim intReceived As Integer = 0
        Dim intMin As Integer = Integer.MaxValue
        Dim intMax As Integer = Integer.MinValue
        Dim decAverage As Decimal = 0
 
        Dim i As Integer
        For i = 0 To 3
 
            Dim icmp As New ICMPClass
            result(i) = icmp.Ping(TextBox1.Text)
 
            If result(i).Status <> ICMPClass.ICMPStatusEnum.Success Then
 
                TextBox2.Text &= result(i).Message & vbCrLf
                intLost += 1
 
            Else
 
                intReceived += 1
                TextBox2.Text &= "Reply from: " & result(i).ReplyFrom.ToString() & " bytes=32 time=" & result(i).RoundTripTime & "ms TTL=" & result(i).TTL & vbCrLf
 
                If intMin > result(i).RoundTripTime Then
                    intMin = result(i).RoundTripTime
                End If
 
                If intMax < result(i).RoundTripTime Then
                    intMax = result(i).RoundTripTime
                End If
 
            End If
 
            TextBox2.Update()
 
        Next
 
        For j As Integer = 0 To 3
            If result(j).Status = ICMPClass.ICMPStatusEnum.Success Then
                decAverage += result(j).RoundTripTime
            End If
        Next
 
        decAverage /= intReceived
 
        TextBox2.Text &= vbCrLf & "Ping statistics for " & TextBox1.Text & ":" & vbCrLf & vbTab & "Packets: Sent=" & i & ", Received = " & intReceived & ", Lost = " & intLost & " (" & intReceived / i & "% loss)," & vbCrLf & "Approximate round trip times in milli-seconds:" & vbCrLf & vbTab & "Minimum = " & intMin & "ms, Maximum = " & intMax & "ms, Average = " & CInt(decAverage) & "ms" & vbCrLf & vbCrLf
 
    End Sub
 
    ' Taken from: http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=3194&lngWId=10
    '//**************************************
    '//     
    '// Name: A ping class in VB.Net
    '// Description:This class allows the use
    '//     r to ping a remote host. This example us
    '//     es API calls to ICMP.dll, so compiled so
    '//     urces do not need administrative rights 
    '//     to run.
    '// By: Alan Toews
    '//
    '// Inputs:The main function in this clas
    '//     s (Ping) has two overloads, declared as 
    '//     follows:
    'Public Function Ping(ByVal Host As String, Optional ByVal Timeout As Integer = 2000, Optional ByVal TTL As Byte = 32, Optional ByVal DataSize As Long = 32) As ICMPReplyStructure
    'and
    'Public Function Ping(ByVal IP As IPAddress, ByVal opt As ICMPOptions) As ICMPReplyStructure
    '//
    '// Returns:The structure declared below 
    '//     is returned 
    '//
    '// Assumes:To use this code, add a modul
    '//     e to your project and insert the code be
    '//     low in its entirety. Examples of how it 
    '//     is used can be found in the comments wit
    '//     hin the code.
    '//
    '// Side Effects:While the code works wel
    '//     l for me, it is only an example. You wil
    '//     l likely find unhandled errors, bugs, et
    '//     c..
    '//
    '//This code is copyrighted and has    // limited warranties.Please see http://
    '//     www.Planet-Source-Code.com/vb/scripts/Sh
    '//     owCode.asp?txtCodeId=3194&lngWId=10    //for details.    //**************************************
    '//     
 
    Public Class ICMPClass
        'Enumerated list of icmp echo reply response codes
        Public Enum ICMPStatusEnum
            Success = 0
            BufferTooSmall = 11001 'Buffer Too Small 
            DestinationNetUnreachable = 11002 'Destination Net Unreachable 
            DestinationHostUnreachable = 11003 'Destination Host Unreachable 
            DestinationProtocolUnreachable = 11004 'Destination Protocol Unreachable 
            DestinationPortUnreachable = 11005 'Destination Port Unreachable 
            NoResource = 11006 'No Resources 
            BadOption = 11007 'Bad Option 
            HardwareError = 11008 'Hardware Error 
            LargePacket = 11009 'Packet Too Big 
            RequestTimedOUT = 11010 'Request Timed Out 
            BadRequest = 11011 'Bad Request 
            BadROUTE = 11012 'Bad Route 
            TtlExpiredInTransit = 11013 'TimeToLive Expired Transit 
            TtlExpiredInReassembly = 11014 'TimeToLive Expired Reassembly 
            Parameter = 11015 'Parameter Problem 
            SourceQuench = 11016 'Source Quench 
            OptionTooBig = 11017 'Option Too Big 
            BadDestination = 11018 'Bad Destination 
            NegotiatingIPSEC = 11032 'Negotiating IPSEC 
            GeneralFailure = 11050 'General Failure 
        End Enum
        'User Friendly ping command that accepts a host as either an ip address 
        'or a resolvable name. 
        'Usage:
        'ex 1: console.WriteLine Ping("192.168.0.1").RoundTripTime
        'ex 2: dim reply as ICMPReplyStructure
        ' reply = Ping("192.168.0.1", 1000,16)
        ' console.WriteLine reply.ReplyFrom.ToString & " replied in " & reply.RoundTripTime & _
        '"ms. status:" & reply.status & ":" & reply.message & ". TTL=" & reply.TTL
        Public Function Ping(ByVal Host As String, Optional ByVal Timeout As Integer = 2000, Optional ByVal TTL As Byte = 32, Optional ByVal DataSize As Long = 32) As ICMPReplyStructure
            Dim IP As IPAddress
            Dim opt As ICMPOptions
            Try
                IP = Dns.GetHostByName(Host).AddressList(0)
            Catch ex As Exception
                Dim r As ICMPReplyStructure
                'create a mock reply 
                r.Message = ex.ToString
                r.ReplyFrom = New IPAddress(0)
                r.Status = ICMPStatusEnum.GeneralFailure
                r.TTL = 255
                'return the error message as a ICMP general error
                Return r
                Exit Function
            End Try
            opt.Timeout = Timeout
            opt.TimeToLive = TTL
            opt.DatSize = DataSize
            Return Ping(IP, opt)
        End Function
 
        'Code friendly Ping that actually does the work
        Public Function Ping(ByVal IP As IPAddress, ByVal opt As ICMPOptions) As ICMPReplyStructure
            Dim ICMPHandle As IntPtr
            Dim iIP As Int32
            Dim sData As String
            Dim oICMPOptions As New ICMPClass.ICMP_OPTIONS
            Dim ICMPReply As ICMP_ECHO_REPLY
            Dim iReplies As Int32
            ICMPHandle = IcmpCreateFile
            iIP = System.BitConverter.ToInt32(IP.GetAddressBytes, 0)
            sData = "X"
            oICMPOptions.Ttl = opt.TimeToLive
            iReplies = IcmpSendEcho(ICMPHandle, iIP, sData, sData.Length, oICMPOptions, ICMPReply, Marshal.SizeOf(ICMPReply), opt.Timeout)
            Dim reply As ICMPReplyStructure
            reply = FillReplyStructure(ICMPReply)
            Return reply
        End Function
 
        'return a people friendly message from the status code
        Public Function GetMessage(ByVal status As ICMPStatusEnum) As String
            Select Case status
                Case ICMPStatusEnum.Success
                    Return "Success"
                Case ICMPStatusEnum.BufferTooSmall
                    Return "Buffer Too Small"
                Case ICMPStatusEnum.DestinationNetUnreachable
                    Return "Destination Net Unreachable"
                Case ICMPStatusEnum.DestinationHostUnreachable
                    Return " Destination Host Unreachable"
                Case ICMPStatusEnum.DestinationProtocolUnreachable
                    Return "Destination Protocol Unreachable"
                Case ICMPStatusEnum.DestinationPortUnreachable
                    Return "Destination Port Unreachable"
                Case ICMPStatusEnum.NoResource
                    Return "No Resources"
                Case ICMPStatusEnum.BadOption
                    Return "Bad Option"
                Case ICMPStatusEnum.HardwareError
                    Return "Hardware Error"
                Case ICMPStatusEnum.LargePacket
                    Return "Packet Too Big"
                Case ICMPStatusEnum.RequestTimedOUT
                    Return "Request Timed Out"
                Case ICMPStatusEnum.BadRequest
                    Return "Bad Request"
                Case ICMPStatusEnum.BadROUTE
                    Return "Bad Route"
                Case ICMPStatusEnum.TtlExpiredInTransit
                    Return "TimeToLive Expired Transit"
                Case ICMPStatusEnum.TtlExpiredInReassembly
                    Return "TimeToLive Expired Reassembly"
                Case ICMPStatusEnum.Parameter
                    Return "Parameter Problem"
                Case ICMPStatusEnum.SourceQuench
                    Return "Source Quench"
                Case ICMPStatusEnum.OptionTooBig
                    Return "Option Too Big"
                Case ICMPStatusEnum.BadDestination
                    Return "Bad Destination"
                Case ICMPStatusEnum.NegotiatingIPSEC
                    Return "Negotiating IPSEC"
                Case ICMPStatusEnum.GeneralFailure
                    Return "General Failure"
            End Select
        End Function
 
        'fill the reply structure which will be passed abck to the user with data
        'from the ICMP_ECHO_REPLY structure.
        Private Function FillReplyStructure(ByVal IER As ICMP_ECHO_REPLY) As ICMPReplyStructure
            Dim irs As ICMPReplyStructure
            irs.RoundTripTime = IER.RoundTripTime
            irs.Message = GetMessage(IER.Status)
            irs.ReplyFrom = New IPAddress(IER.Address)
            irs.Data = IER.Data
            irs.Status = IER.Status
            irs.TTL = IER.Options.Ttl
            Return irs
        End Function
 
        'API functions contained in ICMP.DLL these functions perform the actual pinging
        Private Declare Auto Function IcmpCreateFile Lib "ICMP.DLL" () As IntPtr
        Private Declare Auto Function IcmpSendEcho Lib "ICMP.DLL" _
        (ByVal IcmpHandle As IntPtr, ByVal DestinationAddress As Integer, _
        ByVal RequestData As String, ByVal RequestSize As Integer, _
        ByRef RequestOptions As ICMP_OPTIONS, ByRef ReplyBuffer As ICMP_ECHO_REPLY, _
        ByVal ReplySize As Integer, ByVal Timeout As Integer) As Integer
        <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
        Public Structure ICMP_OPTIONS
            Public Ttl As Byte
            Public Tos As Byte
            Public Flags As Byte
            Public OptionsSize As Byte
            Public OptionsData As IntPtr
        End Structure
        <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
        Public Structure ICMP_ECHO_REPLY
            Public Address As Integer
            Public Status As ICMPStatusEnum
            Public RoundTripTime As Integer
            Public DataSize As Short
            Public Reserved As Short
            Public DataPtr As IntPtr
            Public Options As ICMP_OPTIONS
            <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=250)> _
            Public Data As String
        End Structure
        Public Structure ICMPReplyStructure
            Public ReplyFrom As IPAddress
            Public RoundTripTime As Integer
            Public Data As String
            Public Status As ICMPStatusEnum
            Public Message As String
            Public TTL As Byte
        End Structure
 
        Public Structure ICMPOptions
            Public Timeout As Integer
            Public TimeToLive As Byte
            Public DatSize As Long
        End Structure
 
    End Class
 
End Class
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376: