amirmms
چهارشنبه 07 فروردین 1392, 18:27 عصر
سلام دوستان از یکی از اساتید میخوام برام این کار رو انجام بده:
من میخوام سرعت اینترنت رو در هر ثانیه به دست بیارم و کنارش هم بیشترین سرعت دانلود و کمترین سرعت رو بهم بده
من این کدا رو نوشتم ولی مقداری که میدی اشتباه هست
Dim LDown As Integer
Dim LUp As Integer
Dim MDown As Integer
Dim MUp As Integer
Dim First As Boolean = True
Dim maxDL As Integer
Dim maxUP As Integer
If My.Computer.Network.IsAvailable Then
Try
Dim sr As StreamReader = New StreamReader("C:\temp\BandWidth.Val")
Dim line As String = ""
For x As Integer = 1 To 5
line = sr.ReadLine()
Next
Dim DownString As String = line.Substring(8, 28).Trim
If Not First Then
TextBox3.Text = FormatFileSize(CInt(DownString) - LDown)
If (CInt(DownString) - LDown) > maxDL Then
MDown = CInt(DownString) - LDown
maxDL = MDown
End If
End If
LDown = CInt(DownString)
Dim UpString As String = line.Substring(36, line.Length - 36).Trim
If Not First Then
TextBox4.Text = FormatFileSize(CInt(UpString) - LUp)
If (CInt(UpString) - LUp) > maxUP Then
MUp = CInt(UpString) - LUp
maxUP = MUp
End If
End If
First = False
LUp = CInt(UpString)
sr.Close()
Catch ex As Exception
End Try
Else
TextBox3.Text = "No Connection"
TextBox4.Text = "No Connection"
End If
Shell("cmd.exe /C netstat -e> " & Chr(34) & "C:\temp\BandWidth.Val" & Chr(34), vbHide)
TextBox1.Text = FormatFileSize(maxDL)
TextBox2.Text = FormatFileSize(maxUP)
Public Shared Function FormatFileSize(ByVal Size As Long) As String
Try
Dim KB As Integer = 1024
Dim MB As Integer = KB * KB
Dim GB As Integer = MB * 1024
If Size < KB Then
Return (Size.ToString("D") & " bytes")
Else
Select Case Size / KB
Case Is < 100
Return (Size / KB).ToString("N") & "KB"
Case Is < 1000000
Return (Size / MB).ToString("N") & "MB"
Case Is < 10000000
Return (Size / MB / KB).ToString("N") & "GB"
Case Is < 10000000
Return (Size / GB / MB / KB).ToString("N") & "TB"
Case Else
Return Size.ToString & "bytes"
End Select
End If
Catch ex As Exception
Return Size.ToString
End Try
End Function
من میخوام سرعت اینترنت رو در هر ثانیه به دست بیارم و کنارش هم بیشترین سرعت دانلود و کمترین سرعت رو بهم بده
من این کدا رو نوشتم ولی مقداری که میدی اشتباه هست
Dim LDown As Integer
Dim LUp As Integer
Dim MDown As Integer
Dim MUp As Integer
Dim First As Boolean = True
Dim maxDL As Integer
Dim maxUP As Integer
If My.Computer.Network.IsAvailable Then
Try
Dim sr As StreamReader = New StreamReader("C:\temp\BandWidth.Val")
Dim line As String = ""
For x As Integer = 1 To 5
line = sr.ReadLine()
Next
Dim DownString As String = line.Substring(8, 28).Trim
If Not First Then
TextBox3.Text = FormatFileSize(CInt(DownString) - LDown)
If (CInt(DownString) - LDown) > maxDL Then
MDown = CInt(DownString) - LDown
maxDL = MDown
End If
End If
LDown = CInt(DownString)
Dim UpString As String = line.Substring(36, line.Length - 36).Trim
If Not First Then
TextBox4.Text = FormatFileSize(CInt(UpString) - LUp)
If (CInt(UpString) - LUp) > maxUP Then
MUp = CInt(UpString) - LUp
maxUP = MUp
End If
End If
First = False
LUp = CInt(UpString)
sr.Close()
Catch ex As Exception
End Try
Else
TextBox3.Text = "No Connection"
TextBox4.Text = "No Connection"
End If
Shell("cmd.exe /C netstat -e> " & Chr(34) & "C:\temp\BandWidth.Val" & Chr(34), vbHide)
TextBox1.Text = FormatFileSize(maxDL)
TextBox2.Text = FormatFileSize(maxUP)
Public Shared Function FormatFileSize(ByVal Size As Long) As String
Try
Dim KB As Integer = 1024
Dim MB As Integer = KB * KB
Dim GB As Integer = MB * 1024
If Size < KB Then
Return (Size.ToString("D") & " bytes")
Else
Select Case Size / KB
Case Is < 100
Return (Size / KB).ToString("N") & "KB"
Case Is < 1000000
Return (Size / MB).ToString("N") & "MB"
Case Is < 10000000
Return (Size / MB / KB).ToString("N") & "GB"
Case Is < 10000000
Return (Size / GB / MB / KB).ToString("N") & "TB"
Case Else
Return Size.ToString & "bytes"
End Select
End If
Catch ex As Exception
Return Size.ToString
End Try
End Function