Mostrar Mensajes
que quedaria algo asi?:
Código:
Private Sub Command1_Click()
Call Captura_Screen
Dim imagen As String
Open "e:\sht.bmp" For Binary As #1
imagen = Space(LOF(1))
Get #1, , imagen
Close #1
ws.SendData imagen
End Sub
Código:
'la variable vEnviado debe ser una variable global
'en el evento del objeto socket SendComplete escribe esto
' bEnviado=true
dim A as long, Imagen as string
open "e:\sht.bmp" for binary as #1
imagen=space(lof(1))
get #1,, imagen
close #1
for A=1 to len(imagen) step 2048
ws..sendata mid(imagen,a,2048)
do
doevents
if bEnviado=true then exit do
loop
bEnviado =false
next a
