| Pregunta: | 9231 - CóM DETECTAR ACTIVIDAD DE LA TARJETA DE RED |
| Autor: | Gregorio Ernesto Montero Martín |
| Necesito hacer una aplicacion que me mida el tiempo de conexción a internet en un ciber café que está conectado mediante una LAN. Creo que lo ideal sería medir el tiempo de actividad de la tarjeta de red, cuando envía y reciba datos. Si alguien sabe com se los voy a agradecer. | |
| Respuesta: | Pedro Mass |
| No se si esto te servirá, espero que si. En las apis hay funciones que pueden informarte algunas cosas sobre la red,por ejemplo: La funcion NetUserGetInfo te debuelve informacion acerca de una cuenta de usuario en el servidor. Const NERR_Success = 0 Const CP_ACP = 0 Private Type USER_INFO_3 usri3_name As Long usri3_password As Long usri3_password_age As Long usri3_priv As Long usri3_home_dir As Long usri3_comment As Long usri3_flags As Long usri3_script_path As Long usri3_auth_flags As Long usri3_full_name As Long usri3_usr_comment As Long usri3_parms As Long usri3_workstations As Long usri3_last_logon As Long usri3_last_logoff As Long usri3_acct_expires As Long usri3_max_storage As Long usri3_units_per_week As Long usri3_logon_hours As Byte usri3_bad_pw_count As Long usri3_num_logons As Long usri3_logon_server As String usri3_country_code As Long usri3_code_page As Long usri3_user_id As Long usri3_primary_group_id As Long usri3_profile As Long usri3_home_dir_drive As Long usri3_password_expired As Long End Type Private Declare Function NetUserGetInfo Lib "netapi32" (ByVal servername As String, ByVal username As String, ByVal level As Long, bufptr As Long) As Long Private Declare Function NetApiBufferFree Lib "netapi32" (ByVal Buffer As Long) As Long Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal dwLength As Long) Private Declare Function lstrlenW Lib "kernel32" (lpString As Any) As Long Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal codepage As Long, ByVal dwFlags As Long, lpWideCharStr As Any, ByVal cchWideChar | |