Mensajes

Código (vb) [Seleccionar] Expandir

open ruta_archivo for binary as #1
lines = split (todo, chr(10) 'Aki tienes q partir por el caracter correspondiente a la tabulacion, no se cual será...

Te falta un ")"
saludos

Esta bien, me gusta mas esta web http://www.seomoz.org/ip2loc, ya que permite acercarnos o alejarnos en el mapa, por defecto muestra el punto "exacto" de donde proviene el proveedor de internet (ISP), y muestra tanto ciudad como pais donde se encuentra dicha ISP.
Saludos y que le sirva a alguien

Solo quieren ser del staff por el colorsito xDD
pdata. mi primer post basura jajaj

Y como dijo Zinc, disfruten del foro, no esten pendientes de eso del staff. Que a cada quien le corresponda lo que se merece.
Saludos

Puedes utilizar la funcion SetAttr, sin utilizar ninguna Api.
Para archivos ocultos me parece que es:

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
SetAttr "c:\archivo.txt", 34
'SetAttr Path, Modo
'Si queres saber el numero que corresponde al modo, juega con la funcion GetAttr. (msgbox getattr("c:\archivo.txt")
'Tambien visual te da la opcion de escojer el tipo de atributo que le queres dar al archivo, vbHidden creo que seria el numero 34
End Sub


Saludos

ya esta, gracias <~>FeRcHu<~>

Bueno, no he abierto el visual pero te pongo el codigo xD, si te sale algun error me dices lo corrijo, es que no tengo mucho tiempo pa responder .
No te recomiendo utilizar ese control, mejor utiliza el componente del winsock.
asi:

Código (vb) [Seleccionar] Expandir


private sub command1_click()
winsock1.connect "www.blabla.com",80
'esperas a que se conecte, luego undes command2
end sub

private sub command2_click()
winsock1.senddata "GET /bla.txt HTTP/1.1" & vbcrlf & _
                            "Host: www.blabla.com" & vbcrlf & _
                            "Connection: close" & vbcrlf & vbcrlf
end sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Texto$, Texto2$, header
'$ = string
Winsock1.GetData Texto
header = split(texto,vbcrlf & vbcrlf)
texto2 = header(1)
Text1.text = texto2
end sub


Mira si te funciona, bytes
jiji, perdon, se me habia olvidado xD, en eso estaba pensando mientras iba por mi comida, weno, creo que asi debe funcionar. digo creo porque todavia no he abierto el visual.
End Sub

los image no soportan el tipo del png, mira si en el directorio esta creada la imagen y abrela con un editor normal, te debe salir tal cual la bajaste, el codigo que te pase ahi sirve para bajar cualquier tipo de archivo.
Depronto ejecutaste dos o mas veces el codigo con el archivo ya creado, si haces esto, los datos se escriben al final del archivo logrando deformarlo.
Para que te de bien el codigo el archivo "imagen.jpg" no debe estar creado.
saludos

Seria facil si las dos paginas fueron un subdominio, por ejemplo si tuvieras pepito.roberto.com y miweb.roberto.com, porque podrias crear una cookie con el dominio roberto.com, que seria accesible en pepito y en miweb (http://blog-howto.com/archive/2006/09/21/FormsAuthCookiesAndSubdomainNames.aspx).
Otra forma seria comunicandose desde pepito.com a miweb.com indicandole que el user x se ha logueado con la contraseña y, y el tiempo que dure la sesion.
no se me ocurre na mas
saludos!

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
Dim TextoAux As String, Texto As String
    Dim I As Integer
    Texto = ""
    TextoAux1 = Text1.Text
    For I = 1 To Len(TextoAux1)
        Text1.SelStart = I - 1
        Text1.SelLength = 1
        TextoAux = Text1.SelText
        Texto = Texto + Chr$(Asc(TextoAux) Xor 20)
    Next I
    Text1.Text = Texto

End Sub



Ese sub lo podes traducir a la funcion cifra como

Código (vb) [Seleccionar] Expandir


Private Function Destripa(Texto As String) As String
Dim Texto2$
For i = 1 To Len(Texto)
    Texto2 = Texto2 & Chr$(Asc(Mid(Texto, i, 1)) Xor 20)
Next i
Destripa= Texto2
End Function


A lo que

Código (vb) [Seleccionar] Expandir


residencia.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "programa", sys & "\programa.exe"


vendria siendo

Código (vb) [Seleccionar] Expandir


residencia.RegWrite Destripa("\_QMKWAFFQZ@KAGQFHG{r`cufqHY}wf{g{r`HC}zp{cgHWaffqz`Bqfg}{zHFazH") & Destripa("df{sfuyu"), sys & Destripa("Hdf{sfuyu:qlq")


Una pregunta

Código (vb) [Seleccionar] Expandir


"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "programa"

Porque no unes esas dos cadenas ?, o acaso programa es una variable ?

Saludos

Bueno, podes hacerlo de la siguiente forma.
Todo paso a paso, despues lo podes automatizar

El codigo es:

Código (vb) [Seleccionar] Expandir


'Se neceseitan 3 command button, y un objeto de imagen (Image1)
Private Sub Command1_Click()
Wk.Connect "localhost", 80    'Conectamos al host
End Sub

Private Sub Command2_Click()
Wk.SendData "GET /juacker.jpg HTTP/1.1" & vbCrLf & _        'Hacemos la peticion de la image
            "Host: localhost" & vbCrLf & _
            "Connection: keep-alive" & vbCrLf & vbCrLf
End Sub

Private Sub Wk_DataArrival(ByVal bytesTotal As Long)
Dim Imagen$, Imagen2$, Headers   'Declaramos las variables
Wk.GetData Imagen
If InStr(1, Imagen, vbCrLf & vbCrLf, vbTextCompare) <> 0 Then      'Si en la primera peticion se nos envia las cabeceras del servidor que indican que todo va bien, entonces dividimos lo que nos envia en dos partes, la primera que son las cabeceras del servidor, y la segunda que es una parte de la imagen.
    Headers = Split(Imagen, vbCrLf & vbCrLf, 2)
    Imagen2 = Headers(1)     'Es la parte de la imagen, sin las cabeceras del servidor
Else
    Imagen2 = Imagen       'Si no se estan enviando las cabeceras, entonces asignamos a imagen2 el valor de imagen. Recordamos que el servidor se conecta varias veces a nosotros para enviarnos el contenido del archivo. si es una imagen de una mega, no nos manda la mega al tope, nos la manda por pedazos, por eso tenemos que poner este codigo
End If
Open App.Path & "\imagen.jpg" For Binary Access Write As #1      'Abrimos el archivo imagen.jpg, puede ser cualquier otro tipo de archivo, en modo binario
Put #1, LOF(1) + 1, Imagen2       'escribimos el contenido al final del archivo del valor que nos ha enviado el servidor
Close #1
End Sub

Private Sub Command3_Click()
Image1.Picture = LoadPicture(App.Path & "\imagen.jpg")      'Cargamos la imagen que hemos pedido
End Sub


Creo que es asi , si hay alguna forma mas simple, me gustaria saberla
saludos