Başlangıç > Kodlar > Visual Basic 6 ile Shell32.dll nimetleri

Visual Basic 6 ile Shell32.dll nimetleri

Tesadüfen keşfettiğim bir konuyu paylaşayım dedim.. Şimdi bir çoğumuz klasöre gözat pencereleri vardırya hatta yeni klasör butonu olanından:) bu pencereyi yapmak için veya word,Excel v.s dosyalarını açmak, web sayfası açmak, mail göndermek için modül, birden fazla satırlı apiler felan biliyoruz.. eğer sizde böyle yapıyorsanız, o zaman şaşıracaksınız… sadece bu değil apilerle v.s yapılan birçok win işlemini tek satırda yapabiliriz.. Aklınıza gelen her türlü dosyayı açmak içinde birebir.. deneyin ve görün..

İlk önce Project-References den shell32.dll dosyasını ekleyin.. bilmeyene Windows\system32 dedir..

‘declare kısmına
Dim opt As New Shell
Dim klasor As Folder

Private Sub Command1_Click()
On Error Resume Next
Set klasor = opt.BrowseForFolder(hWnd, "İşte klasöre gözat penceresi, yeni klasör butonlusundan :)", 1)

‘eğer sadece istediğiniz bir dizinten itibarenki klasörleri göstermek istiyorsanız
‘Set klasor = opt.BrowseForFolder(hWnd, "İşte klasöre gözat penceresi, yeni klasör butonlusundan :)", 1,”C:\Deneme\”)

With klasor.Items.Item
Text1.Text = .Path
Text2.Text = "İsim: " & .Name & vbCrLf & _
"Klasör Türü: " & .Type & vbCrLf & _
"Konum: " & .Parent & vbCrLf & _
"Son Değişiklik: " & .ModifyDate & vbCrLf
End With
End Sub

Private Sub Command2_Click()
opt.ControlPanelItem "inetcpl.cpl" ‘internet seçeneklerini açar
'desk.cpl 'masaüstü özellikleri
'sysdm.cpl 'sistem özellikleri
'appwiz.cpl 'program ekle kaldır
'daha fazlası için windows\system32 de *.cpl diye aratın
End Sub

Private Sub Command9_Click()
Opt.open “c:\rifocan.doc” ‘ahada word dosyası açıyo :D)
‘Opt.open “c:\rifocan.xls”
‘Opt.open “c:\rifocan.reg” v.s
End Sub

Private Sub Command3_Click()
opt.FindFiles ‘dosya arama
End Sub

Private Sub Command4_Click()
opt.FileRun ‘çalıştır penceresi
End Sub

Private Sub Command5_Click()
opt.Open “-”
‘opt.Open "-"
‘opt.open app.path
End Sub

Private Sub Command6Click()
opt.SetTime
End Sub

Private Sub Command7_Click()
opt.MinimizeAll ‘yelkenler fora 😉
End Sub

Private Sub Command8_Click()
If MsgBox("Windows u kapatacak mısınız?", 32 + 4) = vbNo Then Exit Sub
opt.ShutdownWindows ‘ahada walla windows kapat :D)
End Sub

Kolay gelsin…


TD Software


Reklamlar
  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. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: