Visual basic ile ilgili

[i.ari]

Merhaba arkadaşlar,
kendim media player ekliyerek visual basicte player yaptım.
Ama ne dinliyorum özelligi msn de açılmıyor ne yapabilirim acaba?

[i.ari]

Yardım edecek yokmu?

[i.ari]

Arkadaşlar aşagıdakini buldum.
http://msdn.microsoft.com/en-us/library/ms973230.aspx

[Gifted.ib]

Sorun visual basic eklenen media player sürümünün çok eski olmasındandır.Hatırladığım kadarıyla default olarak media player eklediyseniz baya eski bir olması gerekli,eğer eklenti olarak yeni sürümü bulup, visual basic'e eklerseniz ne dinliyorum özelliği siz birşey yapamdan çalışacaktır.

Yukarıdaki kodları fazla incelemedim ama sanırım o sıfırdan ne dinliyorum özelliği çalıştırmayı anlatıyor.Sizin amerikayı yeniden keşfetmeye ihtiyacınız yok.Yeni sürümü bulup ekleyin.Olay bitsin

[i.ari]

xp kullanıyorum windows media player 11 kullanıyorum. component olarak ekledigimde windows media player 11 simgesi cıkıyor.

msn de durumu degiştirebiliyorum. Ama bir tek şu ne dinliyorum özelligini degiştiremedim

[kaziklivoyvoda]

i.ari´isimli üyeden Alıntı

xp kullanıyorum windows media player 11 kullanıyorum. component olarak ekledigimde windows media player 11 simgesi cıkıyor.

msn de durumu degiştirebiliyorum. Ama bir tek şu ne dinliyorum özelligini degiştiremedim

Eğer güncel componenti kullanıyorsan ve bu çalışmıyorsa; ne dinliyorum özelliği componentle ilişkili olmayabilir.

Verdiğin linkte anlatmış. Anladığım kadarıyla MSN Messenger bu bilgiyi Registry'den çekiyor. Verdiğin MSDN linkinde nereye neyi yazmak gerektiği ayrıntılı olarak açıklanmış, gördüğüm kadarıyla. Hatta Sub'ını da vermiş. Registry'de Software\Microsoft\MediaPlayer\CurrentMetadata adresinde tutuluyor demek ki bu bilgiler.

CurrentMetadata = _
RegObj.RegKeyFromHKey( _
RegObj.HKEY_CURRENT_USER)
CurrentMetadata = _
CurrentMetadata.ParseKeyName( _
"Software\Microsoft\MediaPlayer\CurrentMetadat a")

If CurrentMetadata.Values.Count = 0 Then
newMetadataAvailable = False
Else
newMetadataAvailable = True
With CurrentMetadata
newAlbum = CStr(.Values("Album").Value)
newAuthor = CStr(.Values("Author").Value)
newDuration = CStr(.Values("durationString").Value)
newTitle = CStr(.Values("Title").Value)
End With
End If

Burası bu bilgiyi "almayı" anlatıyor sanırım. Registry'den mevcut veriyi okuyor. Tek yapman gereken okumak değil de yazmak. CurrentMetadata.Values("Album").Value=Yazmak_Isted igin_Album_Adi gibi değerleri doldurmalısın sanıyorum.

[i.ari]

beceremedim.
Çok fazla vb bilmiyorum. Çok eski bilgilerle yaptım radyo playeri