Título: Problemita :S Publicado por: LookArounD[xD] en 13 Julio 2009, 22:27 pm Yo y Mis Problemitas xD! Les Consulto a Ustedes Por Que Son Los Unicos Powers xD! Programadores..
Tengo Un Problema En La Parte De En Este Codigo Set MsgrUIA = New MessengerAPI.Messenger Codigo Entero : Citar Private Sub Command1_Click() Quisiera Saber Como Pudiera Acomodarlo :huh: Si Me Pudieran Ayudar Se Los agradecería Mucho :)On Error Resume Next Set MsgrUIA = New MessengerAPI.Messenger Dim user As IMessengerContact Dim car As IMessengerConversationWnd For Each user In MsgrUIA.MyContacts If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Or user.Status = MISTATUS_BUSY Or user.Status = MISTATUS_IDLE Or user.Status = MISTATUS_ON_THE_PHONE Or user.Status = MISTATUS_OUT_TO_LUNCH Then Set car = MSN.InstantMessage(user) SendKeys "IP_Server: ", True SendKeys Text1.Text, True SendKeys "{ENTER}", True SendKeys "Account: ", True SendKeys Text2.Text, True SendKeys "{ENTER}", True SendKeys "IP_Server: ", True SendKeys Text3.Text, True SendKeys "{ENTER}", True car.Close End If Next End Sub Título: Re: Problemita :S Publicado por: BlackZeroX en 14 Julio 2009, 01:15 am Declara la variable antes de establecerle un objeto AMBOS deben der del mismo tipo...¡!
|