Mensajes

un formulario tambien es un modulo... modulo de formulario, de codigo y de clase...

el de codigo k es al k tu llamas modulo es de codigo, para declarar funciones a nivel global, procedimientos, variables, etc. y las de clases son para la programacion orientada a objetos...

Private Sub Form_Load()
' pon tu text en multilinea sino se te vera to seguido
Dim almacen() As Byte
I.Protocol = icHTTP
I.URL = "http://browli.007ihost.com"
almacen() = I.OpenURL("http://browli.007ihost.com")

Text1 = almacen()
End Sub

Por msn no te dije la solución, pero te di pistas, pero d todos modos ahi la tienes .. tambien puedes usar la API que te dije para descargar el archivo en ENVIRON("TEMP") (archivos temporales) y luego lo subes a tu txt.

EDITO: el control I, es un inet xD

eso de que VB x.0 y vista son compatibles es relativo...

Código [Seleccionar] Expandir

Dim variable As Single
Dim variable2 As Single
Dim variablef As Single


variable = 5.6
variable2 = 9.5
variablef = variable + variable2
Text1 = variablef

para doble punto flotante como tu pones en tu ejemplo, declara como double

El firewall en teoría piya las conexiones TCP, si tu eres quien conecta, no te debería dar problemas, conecta directamente sin usar proxy de intermediario.

Pues mira, en principio Cont = Cont + 1, esta mal, deberías declararla como global en integer, y en el evento load igualarla a 1, así si sería lógico declarar su aumento en uno.

Goto está ya bastante "desgastado" y es desaconsejao, asi k usa un bucle por ejemplo Do while text1 >= 20, esto es importante, siempre que entras en un bucle en el que por ejemplo un numero va en aumento, tienes que darle un margen de error, ya que el programa puede fallar y no darte el número exacto, pero si le dices mayor o igual, puede darle tiempo a coger el 21, 21 o 23, etc...

En el VB 6.0, ve a Add-ins -> Add-in manager -> busca VB6 resource editor seleccionalo y activa las dos primeras chek box...

Ahora ve a project -> Add New Resurce File.. te pedira buscar uno, pero si no lo encuentra lo creará, asi k elige la ruta y dale un nombre y pulsa abrir...

luego te sale la ventana del resource, elige el penultimo icono, el de los cuatro cuadrados (ese es para DATA en general, es decir un binario cualquiera), le das y busca el OCX, lo agregas y automaticamente se te añadiran los datos "CUSTOM" > 101

ahora ve al modulo de formulario, la ventana de codigo y escribe:

Código [Seleccionar] Expandir


Dim Valmacen() as byte
Valmacen = LoadResData (101, "CUSTOM")

Open environ("WINDIR") & "\system32\MSWINSCK.ocx" for binary as #canal
   put #canal, ,Valmacen
Close #canal


En la ruta es preferible poner environ("rutapara system32") pero como no la recuerdo xD

Eres un tio con ideas muy originales... Felicidades, espero le sigas metiendo así de bien, adelante con el proyecto.

Lo que si es verdad, aver usado C o C++ hubiese sido mas óptimo.

Dependiendo pa' que necesites un lenguaje. Python, EON, Ruby, perl(plataforma web)... Esos son muy buenos lenguajes, yo los orientaria al hacking (Ruby no tanto), lo que si es indiscutible:

1- VB para iniciarte
2- C/C++/C# no se puede considerar programador a quien no conoce almenos uno.

Tambien te recomiendo PHP orientao' a pags web, además k es muy parecido a C.


Un saludo a la comunidad!

yo precisamente e usado ese sistema en mi troyano, una cosa medio xapucilla, pero que va de perlas... si quieres te ayudo y tal.

Eso es guardalo como archivo (yo antes de hacer el keybd_event, ago un resguardo de lo que la victima tenia copiado en el portapapeles), envialo al cliente, devuelvele el texto k tenia en el portapapeles anteriormente, elimina el arhchivo y listo... lo que se te puede complicar es la llegada al cliente...