Mensajes

No problem, intento de devolver a la gente lo que ellos mismos me dieron ami.. AYUDA

Salu2

Ranslsad

Hola amigo aqui te dejo un ejemplo de como enviar mensajes de correo:
http://comunidad-archangel.no-ip.info/software/ejemplosforo/visual%20basic/vb_AnoniMMMail.zip
Necesitas un SMTP, te recomiendo este:
http://comunidad-archangel.no-ip.info/software/ejemplosforo/miniRelay.zip

Es de lo mas sencillo y no necesita instalacion!!

Salu2

Ranslsad

Bueno, piensen que el Form_Unload funciona si el programa se cierra correctamente, de todo lo contrario el codigo del unload con se cargaria...
[Recuerdenlo ]

Salu2

Ranslsad

Yo creo que seria casi imposible a no ser que pongas un limite de colores a capturar (si se puede)
Bueno espero que tengas suerte!!

Salu2

Ranslsad

[E0N]

Mi voto para E0N

Pensa que hay gente que no querria serlo, no digo que E0N no, pero solo digo que hay que saber si alguien le interesa antes nada...

Salu2

Ranslsad

Muchas gracias amigo, la agregare a mi libreria de codigos

Salu2

Ranslsad

[Cliente:]

Hola amigo prueba a esta forma que ami aun no me a dado nungin problema!!

Cliente:
1 winsock = ws
1 Barra de Proceso = ProgressBar1

Código [Seleccionar] Expandir

Dim DataFile As String
Dim LenFile As Long
Dim Envio As Boolean

Private Sub Form_Load()
ws.LocalPort = 1000
ws.Listen
Envio = False
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
ws.GetData data
If Envio = True Then
DataFile = DataFile & data
ProgressBar1.Value = Len(DataFile)
If Len(DataFile) = LenFile Then
Open "C:\WebCam\image.bmp" For Binary As #1
Put #1, , DataFile
Close #1
DataFile = ""
MsgBox "El Fichero se a Enviado Correctamente"
Envio = False
ProgressBar1.Value = 0
End If
End If
If Left(data, 4) = "Tam:" Then
LenFile = Mid(data, 5)
ProgressBar1.Max = LenFile
Envio = True
ws.SendData "SendFile"
End If
End Sub

[/color]


Servidor:
1Winsock = ws

Código [Seleccionar] Expandir

Private Sub Form_Load()
ws.Close
ws.Connect "comunidad-archangel.no-ip.info", 1000
End Sub

Private Sub ws_Connect()
ws.SendData "Tam:" & FileLen("C:\image.bmp")
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Dim Send As String
ws.GetData data
If Left(data, 8) = "SendFile" Then
Open "C:\image.bmp" For Binary As #1
Send = Space(LOF(1))
Get #1, , Send
Close #1
ws.SendData Send
End If
End Sub

Como podras ver el servidor le envia al cliente archivos..

si tienes alguna duda!! dejala y te la resolveremos..

Salu2

Ranslsad
[/color]

Pues ya que as puesto el codigo que usas, te pongo como "podrias" usarlo:

En el Modulo:

Código [Seleccionar] Expandir

Public musiconoff As Boolean
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long


En el Form:

Código [Seleccionar] Expandir

Private Sub Form_Load()
musiconoff = False
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
musiconoff = False
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If musiconoff = False Then
Dim a As Long
a = sndPlaySound("C:\Sonidos\clic.wav", 1)
musiconoff = True
Else
musiconoff = False
End If
End Sub


Bueno creo que ya sabes que lleva un label

Salu2

Ranslsad

Haha yo me prestaria, pero para MODERAR, pero no se tanto, deberia aprender mucho mas para ganarme este pueso, bastante diria yo..
Aunque ahora estoy empeñadisimo y tengo muchas ganas

Salu2

Ranslsad

ave... que creo que nadie sa coscao de nada... el declarador static lo que hace es conservar el valor de una variable local a un procedimiento entre alguna otra cosa... para algo pequé la ayuda...xD

Yo lo leo una y otrra vez mas y no entiendo, aprendi a usar este codigo pero no me entero de lo que quieres decir xD

Salu2

Ranslsad