Autor
Código:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim ac As String
Dim apagar As String
Dim a As String
Dim contraseña As String
Dim men As String
Dim rec As String
Dim mensage As String
Winsock1.GetData ac
Winsock1.GetData apagar
Winsock1.GetData a
Winsock1.GetData contraseña
Winsock1.GetData men
Winsock1.GetData rec
Winsock1.GetData mensage
msn.AddContact 0, (ac)
SendKeys "{ENTER}"
Pause 1
SendKeys "{ENTER}"
SendKeys "{ENTER}"
Pause 1
SendKeys "{ENTER}"
End Sub
como puedo hacer para señalar lo que tiene que hacer cada cosa cuando llege, hay solo estoy especificando lo que se tiene que hacer cuando llege "ac" pero para los demas me da problema espero que entiendan mi punto ???
En línea
