Mensajes

con ese codigo solo enviarias un trozo del archivo

que quedaria algo asi?:

Código [Seleccionar] Expandir

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 [Seleccionar] Expandir


'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



eso lo puedes hacer utilizando un proxi

cualquier programa qe sse concecta a interner primero

debe pasar por tu programa

saludos

Código [Seleccionar] Expandir



xd = "nick=" & Text5.Text & Text4.Text & "&email=pepe" & Text4.Text & "ip=127.0.01&contraseña=holas&contrasena2=holas&nombre=elwe&sexo=0&pais=uknown&n_dia=1&n_mes=1&n_ano=2005&boletin=si&registro=Registrar"


muchisimas gracias xXnewbieXx
tu ejemplo me ha ayudado muchisimo

saludos

hola
quiero hacer un cronometro  pero en cuenta regresiva
o sea yo introduzco 2:59:59 horas y empieze a contar hasta
llegar a cero

como puedo hacerlo , no se me ocurre nada 

saludos

POR QUE NO USAS EL FILELISTBOX???

Código [Seleccionar] Expandir


webbrowser.document.forms(0).submit


tienes que usar el evento statechanged del control inet

para leer el texto de una página web utiliza esta propiedad

Código [Seleccionar] Expandir


webbrowser.document.body.outerText


con la función instr buscas el texto "el login es incorrecto"


saludos

holas

Código [Seleccionar] Expandir


webbrowser.document.forms("frmlogin").submit