Отправляет email-рассылки с помощью сервиса Sendsay

Русский_Проект: Изучение Visual Basic

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 3.885 RSS
←   Октябрь 2007   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
30.10.2007
15:32:47
20:48:47
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusproject.narod.ru/
Открыта: 06-01-2001

Автор
Русский_Проект

Статистика

3.885 подписчиков
0 за неделю
←   Все выпуски   →

Русский_Проект: Изучение Visual Basic


Здравствуйте! Медленно, но верно год подходит к концу. Чем нас порадует грядущий год?

Справочник по функциям Windows API для Visual Basic 6.0

Сегодня я вас познакомлю с функцией NetRemoteTOD. Данная функция возвращает дату и время удаленного компьютера.

Declare Function NetRemoteTOD Lib "Netapi32.dll" ( _
    tServer As Any, pBuffer As Long) As Long

Параметры

tServer
Указатель на строку, определяющую DNS или NetBIOS-имя удаленного сервера, на котором нужно получить время. Строка должна начинаться с \\. Если параметр равен 0, то используется локальный компьютер.
pBuffer
Указатель на адрес, который получает информацию из структуры TIME_OF_DAY_INFO. Буфер следует освобождать функцией NetApiBufferFree.

Пример

Public Function getRemoteTOD(ByVal strServer As String) As Date
    Dim result As Date
    Dim lRet As Long
    Dim tod As TIME_OF_DAY_INFO
    Dim lpbuff As Long
    Dim tServer() As Byte

    tServer = strServer & vbNullChar
    lRet = NetRemoteTOD(tServer(0), lpbuff)

    If lRet = 0 Then
        CopyMemory tod, ByVal lpbuff, Len(tod)
        NetApiBufferFree lpbuff
        result = DateSerial(tod.tod_year, tod.tod_month, tod.tod_day) + _
        TimeSerial(tod.tod_hours, tod.tod_mins - tod.tod_timezone, tod.tod_secs)
        getRemoteTOD = result
    Else
        Err.Raise Number:=vbObjectError + 1001, _
        Description:="cannot get remote TOD"
    End If

End Function

Private Sub Command1_Click()
    Dim d As Date

    d = getRemoteTOD("\\skynet")
    MsgBox d
End Sub

Также будет добавлено описание этой функции и в справочник для .NET Framework. Кстати, на данный момент справочник по функциям Windows API имеет более 600 описаний функций. Пора задуматься об обновлении демо-версии справочника, который уже устарел. Последний раз он обновлялся в 2005 году и имеет 73 функции. Если вы хотите, чтобы в обновленную версию справочника вошло больше функций, то воспользуйтесь SMS-копилкой, чтобы поддержать проект. В зависимости от вашей активности и будет зависеть окончательный вариант демо-версии.

Справочник по .NET Framework

Продолжаем знакомиться с новинками .NET Framework 2.0. Сегодня речь пойдет о свойстве AvailableFreeSpace.

Свойство AvailableFreeSpace

Свойство AvailableFreeSpace

Пример

Полный вариант статьи и пример на C# будет доступен зарегистрированным пользователям.

Справочник по Windows API для .NET Framework

Познакомимся с функцией Windows API IsNetworkAlive.

Функция IsNetworkAlive

[C#]
[DllImport("sensapi.dll")]
private extern static bool IsNetworkAlive(ref int flags);

Функция IsNetworkAlive определяет, подключена ли локальная система к сети и тип соединения (LAN, WAN).

Возвращаемое значение

Если локальная система имеет связь, то функция возвращает True. В противном случае возвращается False (используйте GetLastError для определения кода ошибки). Данная функция работает только с TCP/IP-соединениями.

Параметры
lpdwFlags
Флаг, определяющий тип соединения, если возвращается TRUE:
static int NETWORK_ALIVE_LAN = 0x00000001;Компьютер имеет одну или несколько активных LAN-карт
static int NETWORK_ALIVE_WAN = 0x00000002;Компьютер имеет одно или несколько активных RAS-соединений
Пример
[C#]
public static bool IsLanAlive()
{
    return IsNetworkAlive(ref NETWORK_ALIVE_LAN);
}
public static bool IsWanAlive()
{
    return IsNetworkAlive(ref NETWORK_ALIVE_WAN);
}

private void button1_Click(object sender, EventArgs e)
{
    this.Text = IsLanAlive().ToString();
}

private void button2_Click(object sender, EventArgs e)
{
    this.Text = IsWanAlive().ToString();
}

Не забывайте также посещать и сайт netsources.narod.ru

Удачного вам программирования!

©2007 А.Климов
Русский_Проект
В избранное