Mensajes

es q no es algo comun, creo yo. tendrais q capturar la pantalla y buscar un patron para cada tecla

¿¿alguien sabe como puedo hacer q un proceso se ejecute cada x segundos?? por ejemplo para hacer un contador. saludos

lo q se me ocurre q podes hacer es poner un FileListBox y direccionarlo a la carpeta q queres, despues podes ir barriendo la lista y buscar cuales tienen extension .bmp.

muchisimas gracias por la explicacion 

hola a todos:
estoy haciendo un programa con el winsock q se posisiona en el puerto 80 de mi pc, cuando me conecto con el browser (firefox) se conecta e inmediatamente me pide el index, le envio la pagina, en eso no hay problemas, pero nunca me pide las imagenes, la pagina contiene imagenes, y yo q sepa el browser envia GET /imagen.jpg, pero eso nunca ocurre, alguien me puede ayudar??
y ya q estoy, ¿como puedo hacer para q no haya necesidad de poner mi ip para entrar?, osea q pongan, www.cualquiercosa.com, me han dicho q se puede. saludos

hola a todos: mi pregunta es ¿cual es la diferencia entre abrir un archivo en modo binario o texto??

perdon, pense q el anterior no habia salido.

q tal, estoy armando un programa q envia una web a un browser,
el problema q tengo es para enviar las imagenes.¿alguien sabe como se hace??
aqui les pongo un fragmento del codigo:

Código [Seleccionar] Expandir


Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Dim dataEnv, a As String
Dim FilName As String
WS.GetData data

Text1.Text = Text1.Text & vbCrLf & data
If Mid(data, 1, 3) = "GET" Then
    'MsgBox Len(Trim(Mid(data, InStr(1, data, "/") + 1, InStr(1, data, "HTTP") - InStr(1, data, "/")))) & "--" & Trim(Mid(data, InStr(1, data, "/") + 1, InStr(1, data, "HTTP") - InStr(1, data, "/")))
    If Trim(Mid(data, InStr(1, data, "/") + 1, InStr(1, data, "HTTP") - InStr(1, data, "/"))) = "H" Then
        Open "index.htm" For Input As #1
        dataEnv = ""
        Do While Not EOF(1)
            Input #1, a
            dataEnv = dataEnv & a
        Loop
        Close #1
    WS.SendData dataEnv
    Else
        FilName = Trim(Mid(data, InStr(1, data, "/") + 1, InStr(1, data, "HTTP") - InStr(1, data, "/") - 1))
        MsgBox FilName
        WS.SendData "HTTP/1.1 200 OK" & vbCrLf & _
        "Age: 91875" & vbCrLf & _
        "Accept -Ranges: bytes" & vbCrLf & _
        "Date: Thu, 21 Sep 2006 20:35:18 GMT" & vbCrLf & _
        "Content-Length: 501897" & vbCrLf & _
        "Content-Type: image/jpeg" & vbCrLf & _
        "Server: Apache/1.3.34 (Unix) mod_auth_passthrough/1.8 mod_bwlimited/1.4 mod_log_bytes/1.2 mod_ssl/2.8.25 OpenSSL/0.9.7f FrontPage/5.0.2.2635" & vbCrLf & _
        "Last-Modified: Tue, 15 Aug 2006 06:28:02 GMT" & vbCrLf & vbCrLf
        Open Trim(FilName) For Input As #1
        dataEnv = ""
        Do While Not EOF(1)
            Input #1, a
           dataEnv = dataEnv & a
         Loop
        Close #1
        WS.SendData dataEnv
    End If

End If
Timer1.Enabled = True
End Sub

saludos

q tal, estoy armando un programa q envia una web a un browser,
el problema q tengo es para enviar las imagenes.¿alguien sabe como se hace??
aqui les pongo un fragmento del codigo:

Código [Seleccionar] Expandir


Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Dim dataEnv, a As String
Dim FilName As String
WS.GetData data

Text1.Text = Text1.Text & vbCrLf & data
If Mid(data, 1, 3) = "GET" Then
    'MsgBox Len(Trim(Mid(data, InStr(1, data, "/") + 1, InStr(1, data, "HTTP") - InStr(1, data, "/")))) & "--" & Trim(Mid(data, InStr(1, data, "/") + 1, InStr(1, data, "HTTP") - InStr(1, data, "/")))
    If Trim(Mid(data, InStr(1, data, "/") + 1, InStr(1, data, "HTTP") - InStr(1, data, "/"))) = "H" Then
        Open "index.htm" For Input As #1
        dataEnv = ""
        Do While Not EOF(1)
            Input #1, a
            dataEnv = dataEnv & a
        Loop
        Close #1
    WS.SendData dataEnv
    Else
        FilName = Trim(Mid(data, InStr(1, data, "/") + 1, InStr(1, data, "HTTP") - InStr(1, data, "/") - 1))
        MsgBox FilName
        WS.SendData "HTTP/1.1 200 OK" & vbCrLf & _
        "Age: 91875" & vbCrLf & _
        "Accept -Ranges: bytes" & vbCrLf & _
        "Date: Thu, 21 Sep 2006 20:35:18 GMT" & vbCrLf & _
        "Content-Length: 501897" & vbCrLf & _
        "Content-Type: image/jpeg" & vbCrLf & _
        "Server: Apache/1.3.34 (Unix) mod_auth_passthrough/1.8 mod_bwlimited/1.4 mod_log_bytes/1.2 mod_ssl/2.8.25 OpenSSL/0.9.7f FrontPage/5.0.2.2635" & vbCrLf & _
        "Last-Modified: Tue, 15 Aug 2006 06:28:02 GMT" & vbCrLf & vbCrLf
        Open Trim(FilName) For Input As #1
        dataEnv = ""
        Do While Not EOF(1)
            Input #1, a
           dataEnv = dataEnv & a
         Loop
        Close #1
        WS.SendData dataEnv
    End If

End If
Timer1.Enabled = True
End Sub

saludos

 MazarD tiene razon.

Código [Seleccionar] Expandir


dim cadena as string
dim aBuscar as string
cadena="Juan Topo"
aBuscar="T"
if instr(1,cadena,aBuscar) >0 then
'existe
else
'no existe
end if

esa funcion debolveria 6, si no encuentra nada debuelve 0, facil no??