    VBʵֵMSNϢȺ           ҳ  ѧԺ       缼  ͼͼ  ϵͳ  ָ    칫  ý嶯  վӪ  ֤  ҳ    web    Ϸ  QQ      ǰλã   򿪷  VB  VBʵֵMSNϢȺ     VBʵֵMSNϢȺ ڣ200767 ߣ 鿴:[     С ]       Dim m_Group As MessengerAPI.IMessengerGroup 'MSN 

           Dim m_Contracts As MessengerAPI.IMessengerContacts 'MSNееĺѵϢ 

 
Dim m_Contract As MessengerAPI.IMessengerContact 'MSNÿѶ 

Private Sub Command1_Click() 

Dim i As Integer 

'Ҫ͵ϢǷϷ 

If Trim(Text1.Text) = "" Then 

MsgBox "͵ϢΪ!", vbInformation, "ʾ" 

Text1.SetFocus 

Exit Sub 
End If 

'жϢķͶȫѻĳĳԱ 

If Combo1.ListIndex = 0 Then 

Set m_Contracts = m_MSG.MyContacts 

Else 

Set m_Groups = m_MSG.MyGroups 

Set m_Group = m_Groups.Item(Combo1.ListIndex - 1) 

Set m_Contracts = m_Group.Contacts 

End If 

'Ҫ͵Ķ,Ϣ 

For i = 0 To m_Contracts.Count - 1 

Set m_Contract = m_Contracts.Item(i) 

If Check1.Value = 1 Then 

If m_Contract.Status = 2 Then 

m_MSG.InstantMessage m_Contract 'Ҫ͵ĺѴ 

DoEvents 

SendKeys Text1.Text 'дϢ 

DoEvents 

SendKeys "{enter}" 'ͳϢ 

DoEvents 

SendKeys "%{F4}" 'رպѴ 

End If 

Else 

m_MSG.InstantMessage m_Contract 

DoEvents 

SendKeys Text1.Text 

DoEvents 

SendKeys "{enter}" 

DoEvents 

SendKeys "%{F4}" 

End If 

Next i 
 һҳ   [1]   [2]   [3]   һҳ      Ʊҳַͱ⣬͸QQ/Msnĺһ 
 
   VBʵֵMSNϢȺ £   VBʵֵMSNϢȺ  VBʵֵMSNϢȺ   
һƪ: VB ʵú  
һƪ: VBʮֿһдɵļ  رվرֹתصר¿תأעԭʼ  .°Ȩԭʼ.ڱվתµĸ˺վǱʾл⡣վת  صаȨϵ༭Ա,ǾԸ. תעԴhttp://www.hackhome.com     ƷƼ  
 ȵTOP10    VB+Accessͼϵͳ    VBʱͱܵ    ؼС洰С仯仯    VBѧ±ܼӴ    VBʹDirectXļ̳    VBݿԴ60ʵ    VBʹEXCEL    180VBͼνԴʵ    API޸עģ    VB쳬Ի˵    ͨſؼMSCommʹ    WINDOWSϢ˵    16תʮ, 16תɶƵ    vsprintӡʵ    webbrowser 2ղأ    VB6DataGridʵͨõӱ    FindWindow    VB6.0ͼ    VB̳ ڶ£ؼѧϰ    VB֮·ý     رƼ    ǳVB.Net Windows Form    ׹Ʊ˰ʼ    VisualBasic 6еĺִ    Զȡû½ƣٽ֤    APIָĿ¼ļ    VBݿԴ60ʵ    VBIEԶ尴ť    VBMS OfficeCOM    Visual Basicװ    WebComputingADOܽᱨ    vsprintӡʵ    VBʵһ򵥵ESMTPͻ    webbrowser 2ղأ    SetForegroundWindow    API޸עģ    VB쳬Ի˵    WINDOWSϢ˵    ؼС洰С仯仯    VBʱͱܵ         | () | Ȩ |  | Ϣ   Copyright 2003-2007  All Rights Reserved.  ICP05018371       