Mensajes

hola, tengo otro problema en esta linea

image1.picture = App.Path & "\" & A & ".exe"
La  "A" es un numero aleatorio que se genera en el mismo sub pero me da error que puedo hacer para que funcione

Tengo muchas imagenes en una carpeta y quisiera que mi programa escojiera una aleatoriamente y se ajustara al recuadro de "image"

estoy tratando de hacer un pequeño tipo de troyano pero tengo un problema con el data arrivla miren:

Código [Seleccionar] Expandir

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 ???

hola, voi a poner el codigo (para que vean lo nuevo que soy)     

Código [Seleccionar] Expandir

Private Sub Timer1_Timer()
nick = nicklabel.Caption


If Winsock1.State = sckConnected Then Winsock1.SendData nick
If Winsock1.State = sckConnected Then Winsock1.SendData List1
If Winsock1.State = sckConnected Then Winsock1.SendData List2
If Winsock1.State = sckConnected Then Winsock1.SendData List3
If Winsock1.State = sckConnected Then Winsock1.SendData List4

End Sub lo unico que se envia y se recepciona correctamente es el packete nick y los demas no.

hola, no se como exponer mi duda pero estoy haciendo un programa para el msn, una de las funciones es pasar la lista de contactos de computadora a computadora pero no se como mandar una lista por winsock
no creo que haya un fallo en lo demas porque si puedo intercambiar texto

no hay un programa para grabar el sonido saliende de mi computadora??? sin tener que usar el microfono?