سرعت و نوع اینترنت [بایگانی]

PawnPawn

سه شنبه 14 اسفند 1386, 16:30 عصر

من می خوام سرعت اینترنت رو بدست بیارم
یعنی بفهمم حجم مشخصی از اطلاعات رو در چه زمانی می تونم ارسال کنم
مثلا
نوع اینترنت : dial up
سرعت انتقال فایل : 4 کیلوبایت در ثانیه

سرعت واقعی ارسال اطلاعات برام مهمه

Mbt925

سه شنبه 14 اسفند 1386, 17:25 عصر

راه مستقیمی برای بدست آوردن سرعت واقعی وجود نداره.

شما باید بصورت دستی اطلاعات دریافت شده یا ارسال شده رو در یه بازه ی زمانی بدست بیارید و اختلافش رو بدست بیارید.

نمونه برای بدست آوردن Send & Recieve توی سایت هست.

PawnPawn

سه شنبه 14 اسفند 1386, 19:35 عصر

شاید راه مستقیمی برای بدست آوردن سرعت وجود نداشته باشه ولی
*** نوع اینترنت رو میشه بدست آورد ***
اگه میشه کمک کنید
یه سوال دیگه !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
*************************************************
یک تابع API هست که میشه با اون متوجه شد به اینترنت وصل هستیم یا نه
یادم نمیاد چی بود. کسی می تونه کمک کنه ؟
*************************************************

__siavash__

سه شنبه 14 اسفند 1386, 21:29 عصر

کد چک کردن کانکت بودن یا نبودن به اینترنت (http://barnamenevis.org/forum/showthread.php?t=60413)

Mbt925

چهارشنبه 15 اسفند 1386, 10:12 صبح

دوست عزیز بهترین روش برای بدست آوردن اطلاعات بیشتر در مورد کار با اینترنت، حتی بیشتر از اونی که نیاز دارین اینه که ، توی سایت جستجو کنید.

stealer2007

چهارشنبه 15 اسفند 1386, 10:19 صبح

آقا سرعت رو نمیشه دقیق اندازگیری کرد.

ولی برای گرفتن نوع اینترنت یعنی از چه طیرقی به اینترنت وصل شده میتونید از توابع API استفاده کنید.

البته این api هارو من توی API Viewer خود VB ندیدم ولی تو API Viewer 2007 هست

Mbt925

چهارشنبه 15 اسفند 1386, 11:22 صبح

سرعت رو میشه بدست اورد ، روشش هم همونیه که بالا گفتم.

روش تشخیص نوع تماس:
البته این روش اتصال یا عدم اتصال رو هم تشخیص میده که توی کد مشخصه.

Private Declare Function InternetGetConnectedState Lib _
"wininet.dll" (ByRef lpSFlags As Int32, _
ByVal dwReserved As Int32) As Boolean

Public Enum InetConnState
modem = &H1
lan = &H2
proxy = &H4
ras = &H10
offline = &H20
configured = &H40
End Enum

Function CheckInetConnection() As String

Dim lngFlags As Long

If InternetGetConnectedState(lngFlags, 0) Then
' Connected

If lngFlags And InetConnState.lan Then
CheckInetConnection = "LAN."

ElseIf lngFlags And InetConnState.modem Then
CheckInetConnection = "Modem."

ElseIf lngFlags And InetConnState.configured Then
CheckInetConnection = "Configured."

ElseIf lngFlags And InetConnState.proxy Then
CheckInetConnection = "Proxy"

ElseIf lngFlags And InetConnState.ras Then
CheckInetConnection = "RAS."

ElseIf lngFlags And InetConnState.offline Then
CheckInetConnection = "Offline."

End If
Else
' Not Connected

CheckInetConnection = "Not Connected."

End If

End Function

PawnPawn

چهارشنبه 15 اسفند 1386, 12:52 عصر

جواب سوالم اینجا هست !

http://barnamenevis.org/forum/showthread.php?t=60413