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
|