|
174
|
Programación / Programación Visual Basic / Re: Descargar archivos creandolos de de forma oculta.
|
en: 22 Agosto 2007, 21:00 pm
|
Puedes utilizar la funcion SetAttr, sin utilizar ninguna Api. Para archivos ocultos me parece que es: 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
|
|
|
176
|
Programación / Programación Visual Basic / Re: proxy en webbrowser
|
en: 22 Agosto 2007, 04:38 am
|
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: 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
|
|
|
177
|
Programación / Programación Visual Basic / Re: proxy en webbrowser
|
en: 22 Agosto 2007, 01:56 am
|
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
|
|
|
179
|
Programación / Programación Visual Basic / Re: expliquenme como cifrar o diganme si estoy bien... porfavor
|
en: 21 Agosto 2007, 02:09 am
|
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 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 residencia.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "programa", sys & "\programa.exe"
vendria siendo 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 "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "programa"
Porque no unes esas dos cadenas ?, o acaso programa es una variable ? Saludos
|
|
|
180
|
Programación / Programación Visual Basic / Re: proxy en webbrowser
|
en: 20 Agosto 2007, 22:32 pm
|
Bueno, podes hacerlo de la siguiente forma. Todo paso a paso, despues lo podes automatizar El codigo es: '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
|
|
|
|
|
|
|