Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » MSN Ne dinliyorum
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Listview 'a tüm tablo alanları ve değerlerini yazan Fonksiyon.

Yazar: sefa1
Listview nesnesi içerisine gönderilen SQL sonucu çıkan kayıtları Sütun isimleri dahil Listview nesnesi içerisine yazan fonksiyon..



Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 10415
Yayın Tar:18.06.2008
Yazar : gokhan.bg
Hit :2823

Bu Yazarın Yazıları Sadece bu yazarın makale göster
Bu Yazıyı Tavsiye Et

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Type COPYDATASTRUCT
dwData As Long
cbData As Long
lpData As Long
End Type
Private Const WM_COPYDATA = &H4A

Private Sub Command1_Click()
NeDinliyorum "vbasicmaster.com", "gokhan.bg", "AlbumNeDinliyorum?", "{1} - {0} [{2}]"
'{0} artisti ifade eder
'{1} title yani başlığı ifade eder
'{2} album
'Format fonksiyonuna benzer
'"{1} / {0}" veya "{0} / {1}" veya "{1} - {0}" veya "{0} - {1}" vb. şekillerde
'istediğiniz gibi formatlayın
End Sub

'NeDinliyorum "artist", "başlık", "albüm"
'NeDinliyorum "vbasicmaster.com", "gokhan.bg", "album", "{1} - {0}"

Private Sub NeDinliyorum(ByRef r_sArtist As String, ByRef r_sTitle As String, ByRef r_sAlbum As String, Optional ByRef r_sFormat As String = "{0} - {1}", Optional ByRef r_bShow As Boolean = True)
Dim udtData As COPYDATASTRUCT
Dim sBuffer As String
Dim hMSGRUI As Long
'Toplam uzunluk 256 karakteri geçmesin
'MSN kabul etmez
sBuffer = "\0Music\0" & Abs(r_bShow) & "\0" & r_sFormat & "\0" & r_sArtist & "\0" & r_sTitle & "\0" & r_sAlbum & "\0" & "\0" & vbNullChar
udtData.dwData = &H547
udtData.lpData = StrPtr(sBuffer)
udtData.cbData = LenB(sBuffer)
Do
hMSGRUI = FindWindowEx(0&, hMSGRUI, "MsnMsgrUIManager", vbNullString)
If (hMSGRUI > 0) Then
Call SendMessage(hMSGRUI, WM_COPYDATA, 0, VarPtr(udtData))
End If
Loop Until (hMSGRUI = 0)
End Sub




Yorumlar, eklemeler ve düşünceler
        Güzel bir şeye benziyor denemye değer teşekkürler.

   cakal57, 27.06.2008 07:35
   iyi güzel hoş. çalışıyor ama ben bu kodlardan hiç bişi anlamadım.
biraz açıklayabilir misin acaba? :D

   bymaster, 13.02.2009 22:34
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin