Платные хостинги     Раскрутка сайта     Книги по программированию

интернет и Vb, Как определить есть ли подкл. к инету?

- 'Этот код в модуль:Public Const ERROR_SUCCESS = 0&Public Const APINULL = 0&Public Const HKEY_LOCAL_MACHINE = &H80000002Public ReturnCode As LongDeclare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As LongDeclare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey _As Long, ByVal lpSubKey As String, phkResult As Long) As LongDeclare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" _(ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, _lpType As Long, lpData As Any, lpcbData As Long) As Long' Этот код в формуPublic Function ActiveConnection() As BooleanDim hKey As LongDim lpSubKey As StringDim phkResult As LongDim lpValueName As StringDim lpReserved As LongDim lpType As LongDim lpData As LongDim lpcbData As LongActiveConnection = FalselpSubKey = "System\CurrentControlSet\Services\RemoteAccess"ReturnCode = RegOpenKey(HKEY_LOCAL_MACHINE, lpSubKey, phkResult)If ReturnCode = ERROR_SUCCESS ThenhKey = phkResultlpValueName = "Remote Connection"lpReserved = APINULLlpType = APINULLlpData = APINULLlpcbData = APINULLReturnCode = RegQueryValueEx(hKey, lpValueName, _lpReserved, lpType, ByVal lpData, lpcbData)lpcbData = Len(lpData)ReturnCode = RegQueryValueEx(hKey, lpValueName, _lpReserved, lpType, lpData, lpcbData)If ReturnCode = ERROR_SUCCESS Then If lpData = 0 Then ActiveConnection = False Else ActiveConnection = True End IfEnd IfRegCloseKey (hKey)End IfEnd FunctionPrivate Sub Form_Load()If ActiveConnection = True ThenCall MsgBox("В интернете")ElseCall MsgBox("Не в интернете")End IfEnd Sub

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD