Ağ Sürücüsü

Aug 10,2008 00:00 by RubeNiS
Bu program network üzerindeki diğer makineler tarafından paylaştırılmış olan dizin veya sürücüleri kendi makinamıza ağ sürücüsü olarak tanımmamıza imkan vermektedir. Aynı zamanda ağ sürücüsü olarak tanımlanmış olan sürücüler ile olan ilikiyide koparmaktadır. Bunun için mpr.dll dosyası içinde tanımlanan API'leri kullanacağız.
İlk önce yeni bir proje oluşturun ve form üzerine iki tane buton yerleştiriniz. Birinci butonun caption özelliğini Bağlan ikinci butonun caption özelliğini ise Kes olarak veriniz. Daha sonra aşağıdaki kod satırlarını general declations kısmına giriniz.

Private Declare Function WNetConnectionDialog Lib "mpr.dll" (ByVal hwnd As Long, ByVal dwType
As Long) As Long
Private Declare Function WNetDisconnectDialog Lib "mpr.dll" (ByVal hwnd As Long, ByVal dwType
As Long) As Long
Private Const RESOURCETYPE_DISK = &H1, RESOURCETYPE_PRINT = 0
Dim x As Long

Daha sonra ise Bağlan isimli butonun kod kısmına aşağıdaki kod satırını giriniz.

Private Sub Command1_Click()
x = WNetConnectionDialog(Me.hwnd, RESOURCETYPE_DISK)
End Sub

Kes isimli butonun kod kısmına aşağıdaki kod satırını giriniz.

Private Sub Command2_Click()
x = WNetDisconnectDialog(Me.hwnd, RESOURCETYPE_DISK)
End Sub