Mega Code Archive

 

Categories / VB.Net Tutorial / Windows

 

Network connection dialog

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