Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - s E t H

#101
Programación Visual Basic / Re: Trabajo con HTML
11 Septiembre 2008, 06:39 AM
lo podes hacer con winsock

conectas al 80 y le mandas

http://ad.yieldmanager.com/imp?Z=468x60&s=289177&_salt=1519531667&B=10&u=http%3A%2F%2Fforo.portalhacker.net%2Findex.php&r=0
Citar
GET / HTTP/1.0
Host: google.com
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; es-AR; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1
Accept: */*
Accept-Language: es-ar,es;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7


claro que poniendo los datos que necesites
entre linea y linea se usa vbcrlf y al final dos seguidos
te va a responder algo como

CitarHTTP/1.x 200 OK
Cache-Control: private, max-age=0
Date: Thu, 11 Sep 2008 04:37:42 GMT
Expires: -1
Content-Type: text/html; charset=UTF-8
Content-Encoding: gzip
Server: gws
Content-Length: 2579
<html>etc</html>
le scas la cabecera http y listo
#102
Cita de: s E t H en  5 Septiembre 2008, 20:29 PM
proba usando proccessmonitor para saber donde se guardan.. despues hay que averiguar el algoritmo (googleando, debugueando o analizando)

busca donde se guarda con el process monitor o similares  ;)
#103
Cita de: cΔssiΔnі en  9 Septiembre 2008, 21:57 PM
Citar
If Dir$("App.Path & " \ INIT \ cabezas.ind) <> "" Then

Concatenaste mal!



y ademas no leyó tu post xD


CitarPrivate Sub Timer1_Timer()
If Dir$("App.Path & " \ INIT \ cabezas.ind) <> "" Then
MsgBox ("El archivo existe")
Else
MsgBox ("El archivo no existe")
End If
End Sub

CitarPrivate Sub Timer1_Timer()
If Dir$(App.Path & "\INIT\cabezas.ind") <> "" Then
MsgBox ("El archivo existe")
Else
MsgBox ("El archivo no existe")
End If
End Sub

es asi xq app.path no es un string que pones cuando programas, si no que se define en ejecucion

#104
no te entiendo :S

queres que el progressbar vaya aumentando a medida que se carga tu programa o queres usar un gif? son cosas distintas, explicate bien asi te podemos ayudar
#105
Programación Visual Basic / Re: Cryptosy [SRC]
9 Septiembre 2008, 00:24 AM
fud= full undetectable = que los avs ni lo huelen
#106
Programación Visual Basic / Re: Cryptosy [SRC]
9 Septiembre 2008, 00:00 AM
esta copado, lastima que con tantas apis me consto un poco entenderlo  :-[
#107
si que queremois ayudar.. vos preguntaste si es aconsejable, te dijimos que no y te explicamos por que

vos decis que nos equivocamos, entonces danos mas info en lugar de hacerte el ofendido...
#108
ese  msn lo uso una vez x año  :rolleyes:

ahora no tengo el vb para probar pero creo que la prueba que hice funcionaba..

si el problema esta en pasar de string a byte se podria hacer byte por byte..


Código (vb) [Seleccionar]
Dim nFile As Integer
Dim Contenido As String
Dim ContenidoMedio() As String
Dim ContenidoFinal() As Byte
nFile = FreeFile
Open ruta For Binary As #nFile
        Contenido = Input(LOF(Free), #Free)
Close #nFile

ContenidoMedio = Split(Contenido, "SEPARADOR")

contenido= ContenidoMedio(1)
ReDim ContenidoFinal(Len(contenido))


dim i
for i=1 to len(contenido)
contenidofinal(i-1)=asc(mid(i,contenido,1)) 'aca no se si es asi o:   mid(contenido,i,1)
next i


repito: como no tengo el vb aca no se si funciona bien, pero deberia
#109
pero entonces te comviene leer los horarios una vez, guardarlos en variables y despues que el timer compare esas variables con la hora actual
#110
proba usando proccessmonitor para saber donde se guardan.. despues hay que averiguar el algoritmo (googleando, debugueando o analizando)