VB.Net Tutorial/Windows/Network connection dialog

Материал из VB Эксперт
Версия от 15:56, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Network connection dialog

<source lang="vbnet">Imports System.Environment Imports System.Net

Public Class Tester

   Declare Function WNetDisconnectDialog Lib "mpr.dll" (ByVal hwnd As Integer, ByVal dwType As Integer) As Integer
   Declare Function WNetConnectionDialog Lib "mpr.dll" (ByVal hwnd As Integer, ByVal dwType As Integer) As Integer
   Public Shared Sub Main
      Dim RESOURCETYPE_DISK As Short = 1
      Dim RESOURCETYPE_PRINTER As Short = 2
  
      WNetConnectionDialog(1, RESOURCETYPE_DISK)
      WNetDisconnectDialog(1, RESOURCETYPE_DISK)
   End Sub

End Class</source>