HOLA!!!


SI:

Private Sub Form1_Load()
Call Command1_Click()
End Sub
 

GRACIAS POR LEER!!!

GRACIAS!!!

Nada mas habia que poner el nro entre comillas !!! QUE BUENO!!!

DE VUELTA GRACIAS!!!

HOLA!!!


JAJAJAJAJAJA, gracias, pero me referia a como llamo a los chr() con un cero delante, el VB me borra el cero delante del 160 automaticamente

entonces escribo chr(0160) y me lo corrige --> chr(160)

Se entendio? XD


GRACIAS POR LEER!!!

HOLA!!!

Mira, yo hice un programa que hacia eso, pero como siempre me complique y lo hice por mi cuenta.

El programa funcionaba asi:

Primero agarraba el codigo de fuente en html de la pagina y lo volcaba en una variable.

Segundo buscaba las etiquetas (por ej. <a href=" y ">) y guardaba lo que estaba dentro de ellas en un vector.

Tercero me daba una lista con todos los links que tenia la pagina en un listview.

y cuarto, al hacer click en un elemento del List view hacia "webbrowser1.navigate listview1.selecteditem"

Esa era mi manera, poco practica pero efectiva. XD


GRACIAS POR LEER!!!

HOLA!!!

Hablando de los Chr()

Tienen idea que diferencia hay entre ALT + 160 "á"        Y       ALT + 0160 " "   (por si no sale es un espaciador diferente al de la barra espaciadora)

Esa es mi pequeña duda XD.


GRACIAS POR LEER!!!

HOLA!!!

Creo que tu problema es que tenes que instalar las dependecias (los dll y ocx) de tu exe en el otro PC

los pones en system32 y los registras

Listo!

GRACIAS POR LEER!!!

HOLA!!!

Hola como andan, según lo que tengo visto, se puede compilar código OnTheFly desde vb6 sin un editor Hex, cuando estaba viendo el troyano de MFucker(IbArrA*) tenia la función de enviar un VBscript a la PC infectada, compilarlo, ejecutarlo, y te devolvía una variable.

Corrijanme si me equivoco.

Aca esta el codigo del compilador:

Function Script(ByVal code As String) As String
FrmServer.Respuesta = ""
Dim o_Script As ScriptControl
Set o_Script = New ScriptControl
o_Script.Language = "VBScript"
o_Script.AddObject "FrmServer", FrmServer
On Error GoTo ErrSub:
o_Script.AddCode code
If FrmServer.Respuesta = "" Then
    Script = "Code executed without return of data..."
Else
    Script = FrmServer.Respuesta
End If
Exit Function
ErrSub:
Script = Err.Description
Err.Clear
End Function
 

GRACIAS POR LEER!!!

COPIA EL CODIGO DEL MODULE1, FRMPRINCIPAL Y FRMMENSAJES Y TE DIGO

P.D: ESTOY HASTA DENTRO DE MEDIA HORA SINO ESPERA QUE SEGURO TE RESPONDEN.

HOLA!!!


Hola como andan, esta vez les quiero preguntar sobre que es mejor para ustedes y que me recomiendan.

Yo tengo armados 2 puntos de venta, uno con bases de datos en ACCESS y otro con TEXTO_PLANO.

Yo personalmente prefiero el texto plano, me manejo asi: Hago por cada tabla un archivo de texto, por ejemplo "tabla.791", despues levanto los archivos directo del programa apenas los necesito y los guardo en vectores. Y hago todas las cosas que quiero directo desde el codigo sin necesitar el access.

Y en el otro punto de venta me manejo parecido: Uso la sentencia "SELECT * FROM *" y listo, despues los recorro a mano.

Quisiera saber su opinion

P.D:  Los datos en los textos planos estan siempre en string osea "string1","string2",... y asi.( los formateo por codigo en el programa)
Y en el access ya estan formateados.

GRACIAS!!!

HOLA, Disculpen, no quiero interrumpir, pero esto es mas una lucha de EGOS que una discusión seria. Todos, por el simple hecho de estar acá, creo que ya nos podemos quitar el adjetivo "tonto".

Pero en fin, esto se convirtió en "A ver con que lenguaje puedo hacer mas cosas", en vez de, "¿en VB6 hay que usar la inteligencia?".

Después habría que ver si se usa mas (la inteligencia) en VB6 que en otros lenguajes o vise-versa.

[OFFTOPIC]
P.D: Tontos no creo que seamos, pero igual un señor con pipa que estudio la gravedad, un tal Alberto Einstein decia que "Las unicas dos cosas que son infinitas son el universo y la estupidez humana, pero de la primera no estoy seguro". Este tipo segun tengo entendido no programaba ni en C ni en BASIC ni nada (disculpen si el señor programaba en algo, si es asi lo ignoraba) y en fin era un genio, no tenia nada de tonto.
[/OFFTOPIC]

JAJAJA al final me  colgue hablando de Einstein Cualquiera.

Suerte!!!


Gracias por leer.