ForumTayfa  

Go Back   ForumTayfa > Güvenlik & Bilgisayar & İnternet & Webmaster & Programlama Bölümü > Güvenlik & Bilgisayar & İnternet & Webmaster & Programlama > Programlama

Programlama Programlama hakkında herşeyi paylaştığımız, soru ve sorunlarımızı tartıştığımız bölüm...

Yeni Konu aç  Cevapla
 
LinkBack Seçenekler Stil
Alt 27.12.06, 10:49   #1 (permalink)
Deneyimli Tayfa
 
silentwolf - ait Kullanıcı Resmi (Avatar)
 
Üyelik Tarihi: Dec 2006
Nereden: burada
Mesaj Sayısı: 3.964
Konu Sayısı: 157
Takım: Fenerbahçe
Rep Gücü: 196650
Rep Puanı: 19663395
Rep Derecesi : silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000
Ruh Hali:

Standart Messenger'a Hükmedin...




--BÖLÜM 1--

Bu kodlar ile messenger a hükmedebilirsiniz

ilk olarak projemize messenger ı eklememiz gerek. " Projects > Preferences... "
menüsünden aşağıdakileri ekleyelim...

Messenger Type Library (C:\Program Files\Messenger\msmsgs.exe)
Messenger API Type Library (C:\Program Files\Messenger\msmsgs.exe\3)
Messenger AddIns Type Library (C:\Program Files\Messenger\msmsgs.exe\4)
Messenger Private Type Library (C:\Program Files\Messenger\msmsgs.exe\2)

daha sonra formumuzun genaral - decleration kısmına

Private MSN As New MsgrObject
Private MSNAPI As New MessengerAPI.Messenger

kodlarımızı ekliyelim...artık kod yazarak messenger hesabımızdan online olmaya hazırız.

MESSENGER HESABIMIZDAN OTURUM AÇMA

İlk olarak formumuza 2 adet text box ve 2 adet command nesnesi ekliyelim.
///
text1 : Mail adresimiz için ([email protected])
text2 : şifremiz için
command1 : Oturum açmak için
command2 : Oturum kapamak için
\\\

command1 (Oturum açma) butonunun click olayına şu kodları yazıyoruz :
On Error Resume Next
MSN.Logon Text1.Text, Text2.Text, MSN.Services.PrimaryService

command2 (Oturum kapama) butonunun click olayına şu kodları yazıyoruz :
On Error Resume Next
MSN.Logoff

2.bir msn iniz varsa programda kullandığınız mail hesabını listenize ekleyerek oturumun açılmış olduğunu görebilirsiniz



--BÖLÜM 2--

Bu kodlar ile messenger a hükmedebilirsiniz

[Nickimizi değiştirme / Durumumuzu Değiştirme / Listemizdeki Kullanıcıları ListBox a ekleme / Listemizdeki Kullanıcılara Mesaj Gönderme]

Messenger ı kullanabilmek için ilk olarak messenger apilerini projemize ekliyelim (Nasıl yapacağınız ilk makalemizde yazıyor...)

MSN deki Nickimizi Değiştirelim
Formumuza;
1 adet Label (name : lblNewNickName)
1 adet TextBox (name : txtNewNickName)
1 adet CommandButton (name: cmdChangeNickName)
ekliyelim ve aşağıdaki kodları yazalım :
---------------------------------------------
Private MSN As New MsgrObject

Private Sub cmdChangeNickName_Click()
If MSN.LocalState = MSTATE_OFFLINE Then
MsgBox "You are not Signed In"
Else
MSN.Services.PrimaryService.FriendlyName = txtNewNickName.Text
txtNewNickName.Text = ""
End If
End Sub
---------------------------------------------
(Bu kodun detaylı açıklamasını ilk makeleden öğrenebilirsiniz...)

MSN deki Durumumuzu Değiştirelim
Formumuza;
7 adet OptionButton (Name özellikleri : optOnline, optBusy, optBeRightBack, optAway, optOnThePhone, optOutToLunch ve optAppearOffline olarak ayarlıyalım).
ve aşağıdaki kodları yazalım :
---------------------------------------------
Private MSN As New MsgrObject

Private Sub Form_Load()
Select Case MSN.LocalState
Case MSTATE_ONLINE
optOnline.Value = True
Case MSTATE_BUSY
optBusy.Value = True
Case MSTATE_BE_RIGHT_BACK
optBeRightBack.Value = True
Case MSTATE_AWAY
optAway.Value = True
Case MSTATE_ON_THE_PHONE
optOnThePhone.Value = True
Case MSTATE_OUT_TO_LUNCH
optOutToLunch.Value = True
Case MSTATE_INVISIBLE
optAppearOffline.Value = True
End Select
End Sub

Private Sub optAppearOffline_Click()
MSN.LocalState = MSTATE_INVISIBLE
End Sub

Private Sub optAway_Click()
MSN.LocalState = MSTATE_AWAY
End Sub

Private Sub optBeRightBack_Click()
MSN.LocalState = MSTATE_BE_RIGHT_BACK
End Sub

Private Sub optBusy_Click()
MSN.LocalState = MSTATE_BUSY
End Sub

Private Sub optOnline_Click()
MSN.LocalState = MSTATE_ONLINE
End Sub

Private Sub optOnThePhone_Click()
MSN.LocalState = MSTATE_ON_THE_PHONE
End Sub

Private Sub optOutToLunch_Click()
MSN.LocalState = MSTATE_OUT_TO_LUNCH
End Sub
---------------------------------------------
Açıklama : MSN.LocalState bizim msn imizin durumunun gösterildiği bi kod parçasıdır.Burda bulunan değerler ;
MSTATE_AWAY
MSTATE_BE_RIGHT_BACK
MSTATE_BUSY
MSTATE_IDLE
MSTATE_INVISIBLE
MSTATE_LOCAL_CONNECTING_TO_SERVER
MSTATE_LOCAL_DISCONNECTING_FROM_SERVER
MSTATE_LOCAL_FINDING_SERVER
MSTATE_LOCAL_SYNCHRONIZING_WITH_SERVER
MSTATE_OFFLINE
MSTATE_ON_THE_PHONE
MSTATE_ONLINE
MSTATE_OUT_TO_LUNCH
MSTATE_UNKNOWN 'dır.

Listemizdeki Kullanıcıları Görelim (Kullanıcıları ListBox'a Ekleme)
Formumuza;
2 adet Label (name : lblOnlineContacts ve lblOfflineContacts)
2 adet ListBox (name : lstOnlineContacts ve lstOfflineContacts)
1 adet CommandButton (name: cmdRefreshList)
ekliyelim ve aşağıdaki kodları yazalım :
---------------------------------------------
Private MSN As New MsgrObject

Private Sub RefreshList()
lstOfflineContacts.Visible = False
lstOnlineContacts.Visible = False

Dim User As IMsgrUser

lstOnlineContacts.Clear

lstOfflineContacts.Clear

For Each User In MSN.List(MLIST_CONTACT)
If User.State = MSTATE_OFFLINE Then
lstOfflineContacts.AddItem (User.EmailAddress)
Else
lstOnlineContacts.AddItem (User.EmailAddress)
End If
Next

lstOfflineContacts.Visible = True
lstOnlineContacts.Visible = True
End Sub

Private Sub cmdRefreshList_Click()
If MSN.LocalState <> MSTATE_OFFLINE Then RefreshList
End Sub

Private Sub Form_Load()
cmdRefreshList_Click
End Sub
---------------------------------------------
Açıklama : Formumuz yüklenirken msn listemizdeki kullanıcıları listbox nesnesine eklicek...(Mail adresleri şeklinde.Siz isterseniz bunu kullanıcıların nickleri olarak değiştirebilirsiniz...)

Listemdeki Kullanıcılar!Ben Burdayım! (Mesaj gönderme)
Formumuza;
1 adet Label (name : lblOnlineContacts)
1 adet ListBox (name : lstOnlineContacts)
2 adet CommandButton (name: cmdRefreshList ve cmdSendIM)
ekliyelim ve aşağıdaki kodları yazalım :
---------------------------------------------
Private MSN As New MsgrObject

Private Sub RefreshList()
lstOnlineContacts.Visible = False

Dim User As IMsgrUser

lstOnlineContacts.Clear

For Each User In MSN.List(MLIST_CONTACT)
If User.State <> MSTATE_OFFLINE Then lstOnlineContacts.AddItem (User.EmailAddress)
Next

lstOnlineContacts.Visible = True
End Sub

Private Sub cmdRefreshList_Click()
If MSN.LocalState <> MSTATE_OFFLINE Then RefreshList
End Sub

Private Sub cmdSendIM_Click()
Dim User As IMsgrUser
Dim bstrMsgHeader As String
Dim bstrMsgText As String

If MSN.LocalState = MSTATE_OFFLINE Then
MsgBox "Oturumunuz Açık Değil!"
Else
If MSN.LocalState = MSTATE_INVISIBLE Then
MsgBox "Durumunuzu Değiştirmeniz Gerekiyor!"
Else
Set User = MSN.CreateUser(lstOnlineContacts.Text, MSN.Services.PrimaryService)
bstrMsgText = InputBox("Lütfen Mesajınızı Giriniz : ?", "Mesaj Girişi", "Merhaba ", Me.Left, Me.Top)
User.SendText bstrMsgHeader, bstrMsgText, MMSGTYPE_NO_RESULT
MsgBox "Mesajınız " & User.EmailAddress & " 'a " & bstrMsgText & " olarak iletildi."
End If
End If
End Sub

Private Sub Form_Load()
cmdRefreshList_Click
End Sub

----------------------------------------------
Not: Alıntıdır.

-------------------------------


__________________
bir silahım olsaydı...




hiç bir farklılık ayrımcılığa neden olamaz.
Hürriyet Hürriyettir.

silentwolf isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 07.01.07, 19:17   #2 (permalink)
Yeni Tayfa
 
G.A.F - ait Kullanıcı Resmi (Avatar)
 
Üyelik Tarihi: Jan 2007
Mesaj Sayısı: 23
Konu Sayısı: 4
Rep Gücü: 0
Rep Puanı: 10
Rep Derecesi : G.A.F 0-250000
Standart Cevap: Messenger'a Hükmedin...




çok saol teşekkürler


G.A.F isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Cevapla


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 06:29.


Powered by vBulletin® Version 3.8.0
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Search Engine Optimization by vBSEO 3.6.0
User Alert System provided by Advanced User Tagging v3.0.6 (Lite) - vBulletin Mods & Addons Copyright © 2020 DragonByte Technologies Ltd.
ForumTayfa

Arşiv: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 16 22 23 24 25 26 27 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 95 96 97 98 99 100 102 103 104 105 106 155 156 157 158 159 160 161 162 163 164 167 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271


ForumTayfa - Link Değişimi
Telinka İletişim | Voip Ürünleri | Link Değişimine Katılın |

Sitemiz bir forum sitesi olduğundan dolayı, kullanıcılar her türlü görüşlerini önceden onay olmadan anında siteye yazabilmektedir. ForumTayfa Yöneticileri mesajları itina ile kontrol etse de, bu yazılardan dolayı doğabilecek her türlü sorumluluk yazan kullanıcılara aittir. Yine de sitemizde yasalara aykırı unsurlar bulursanız [email protected] email adresine bildirebilirsiniz, şikayetiniz incelendikten sonra en kısa sürede gereken yapılacaktır.

Any member of our web site has the right of adding comments instantly without getting permisson due to the forum structure of our site basis. Althought, our site modarators check comments with care, all the responsibilities sourced from these comments directly belong to the members. If you still find any illegal content in our site ( A.buse, H.arassment, S.camming, H.acking, W.arez, C.rack, D.ivx, Mp.3 or any Illegal Activity ), please report us via [email protected] .Your reports will be evaluated as soon as the arrival of your e-mail.