| |
|
62
|
Programación / PHP / timer en php
|
en: 4 Octubre 2006, 04:50 am
|
|
¿¿alguien sabe como puedo hacer q un proceso se ejecute cada x segundos?? por ejemplo para hacer un contador. saludos
|
|
|
|
|
65
|
Programación / Programación Visual Basic / el browser no me pide las imagenes
|
en: 27 Septiembre 2006, 07:05 am
|
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 |
|
|
|
|
68
|
Programación / Programación Visual Basic / problemas al enviar imagenes al browser
|
en: 23 Septiembre 2006, 09:27 am
|
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: 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 |
|
|
|
|
69
|
Programación / Programación Visual Basic / enviar web al browser
|
en: 23 Septiembre 2006, 09:18 am
|
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: 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 |
|
|
|
|
70
|
Programación / Programación Visual Basic / Re: Textbox
|
en: 21 Septiembre 2006, 21:01 pm
|
MazarD tiene razon. 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?? |
|
|
|
|
|
| |
|
Mostrar Mensajes
