Imprimir Página - Esta va para mad o para otro

Título: Esta va para mad o para otro
Publicado por: crauss en 31 Diciembre 2007, 00:50 am

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

Título: Re: Esta va para mad o para otro
Publicado por: demoniox12 en 31 Diciembre 2007, 02:00 am

Clipboard.SetText Text1.Text

salu2!

Título: Re: Esta va para mad o para otro
Publicado por: Mad Antrax en 31 Diciembre 2007, 08:28 am

Sería lo mismo, sustituyendo el carácter :[ por el valor del texto:

Citar

Clipboard.SetText Text1.Text

EDIT: Ah! coño, ya lo contesto correctamente demoniox12 :xD

Título: Re: Esta va para mad o para otro
Publicado por: [Zero] en 31 Diciembre 2007, 11:13 am

Código:

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

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: crauss en 31 Diciembre 2007, 00:50 am