PDA

View Full Version : حرفه ای: محاسبه ی سرعت اینترنت



amirmms
چهارشنبه 07 فروردین 1392, 17: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

amirmms
چهارشنبه 07 فروردین 1392, 17:51 عصر
آقا یکی نیست کمک کنه فوریهههه

amirmms
دوشنبه 12 فروردین 1392, 09:30 صبح
کسی از اساتید نمیدونه ؟؟؟؟؟ !!!
خیلی مهمه
الان تفاوتی که داره حدودا 50 کیلوبایت هست با نرم افزارای دیگه :|

amirsajjadi
دوشنبه 12 فروردین 1392, 15:39 عصر
شما برای این کار باید یک هاست داشته باشی (یک صفحه سایت یا یک وب سرویس) که یک فایل یک کیلوبایتی رو برای اون بفرستی و دریافت کنی و از این طریق سرعت دقیق اینترنت رو بدست بیاری. (برای این کار از کلاس WebClient میتونی استفاده کنی.)

amirmms
دوشنبه 12 فروردین 1392, 19:23 عصر
نه عزیزم شما اشتباه متوجه شدید.
من می خوام ببینم الان کسی از اینترنت استفاده می کنه یا نه ؟

amirsajjadi
سه شنبه 13 فروردین 1392, 09:38 صبح
نه عزیزم شما اشتباه متوجه شدید.
من می خوام ببینم الان کسی از اینترنت استفاده می کنه یا نه ؟

شما تویه عنوان پست نوشتید محاسبه سرعت اینترنت !!!!!
اگه اینطوریه که شما با استفاده از کلاس webclient و متد DownloadString همین کلاس میتونی یک سایتی رو مثل گوگل باز کنی و از این طریق میتونی ببینی که کاربر وصله اینترنته یا نه! کاری که هر کاربر ایرانی توی چک کردن اتصال به اینترنت خودشون انجام میدن :لبخند:

amirmms
سه شنبه 13 فروردین 1392, 11:43 صبح
شما تویه عنوان پست نوشتید محاسبه سرعت اینترنت !!!!!
اگه اینطوریه که شما با استفاده از کلاس webclient و متد DownloadString همین کلاس میتونی یک سایتی رو مثل گوگل باز کنی و از این طریق میتونی ببینی که کاربر وصله اینترنته یا نه! کاری که هر کاربر ایرانی توی چک کردن اتصال به اینترنت خودشون انجام میدن :لبخند:
نه عزیزم شما استباه دوباره متوجه شدید.
شما کد منو کپی کیند ببینید چه اتفاقی می افته.
شما تا حالا با نرم افزارای دانلود کار کرده اید ؟؟؟ دیدی که سرعت را می نویسند یا با نرم افزار های کنترل پهنای باند که که صفحه جدا می نویسه که الان از طریق اینترنت چیزی ارسال میشه یا نه و به صورت نموداری نشون میده یا مثل نرم افزار BW Meter .