Tengo una pregunta nose si te acuerdas que desvelastes los comandos del kick now
CommandXP1.Enabled = False
Clipboard.Clear
Clipboard.SetText "el signo muchas veces"
AppActivate "Conversación"
Sleep "50"
For i = 1 To 900
SendKeys "^v"
SendKeys "{ENTER}"
Next i
CommandXP1.Enabled = True
pero si en vez de poner un signo puesto en ese programa que lo ponga el usuario quiero deci un simple Text1.Text
CommandXP1.Enabled = False
Clipboard.Clear
Clipboard.SetText:pero entonces aqui como seria
AppActivate "Conversación"
Sleep "50"
For i = 1 To 900
SendKeys "^v"
SendKeys "{ENTER}"
Next i
CommandXP1.Enabled = True
como sera en la parte Clipboard.SetText que tendria que poner para que coja el texto que hay en el text1.Text y lo envie 600 o el numero determinado de veces
gracias por la antencion porfavor contestadme
Clipboard.SetText Text1.Text
salu2!
Sería lo mismo, sustituyendo el carácter :[ por el valor del texto:
CitarClipboard.SetText Text1.Text
EDIT: Ah! coño, ya lo contesto correctamente demoniox12 :xD
Dim contacto As IMessengerContact
For Each contacto In messengerapi.Messenger.MyContacts
If contacto.Status <> MISTATUS_OFFLINE Then
contactos.AddItem contacto.SigninName
End If
Next
'***********DESCONECTAR***********
Private Sub cmddesconectar_click()
Dim i As Integer
Dim x As IMessengerContact
x = txtcontacto.Text
For i = 1 To 300
messengerapi.Messenger.InstantMessage txtcontacto.Text
Clipboard.Clear
Clipboard.SetText textoaenviar.text
SendKeys "^v"
SendKeys "{ENTER}"
If x.Status = MISTATUS_OFFLINE Then
i = "300"
End If
Next i
DoEvents
End Sub
Si lo haces con la API no da error al no tener la ventana del msn abierta ;)
Salu2