Başlangıç > Kodlar > VB6 ile Ağ sürücüsü yapmak

VB6 ile Ağ sürücüsü yapmak


Ağ Sürücüsü
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ğı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


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: