Viernes de ocio

Hmmm, nunca han pensado que es lo que pueden hacer con fuego + encendedor + Nada que hacer?

He aqui unas ideas muy sencillas... (porfavor recuerde que esto es hecho por profecionales, no lo intente sin supervision)

Este es el cumple #22 del MAC... esta es una agradable historia sobre como se debe de festejar un buen cumple, y como es divertido para otros =)





HEhehe...

Bote... que piensas cuando te dicen bote de basura?... lo mas obvio es basura no?... pero que pasa si te dicen, BOTE, VACIO, LALO, CERRO, NADA QUE HACER... hehehe, este es el resultado... disfruten ... Lalo... animo... queremos paintball






Habia subido el video a Yutube, pero se puso muy simple con eso de las canciones, asi que hice un canal en tu.tv

Esto es una pantalla tactil hecha con un porta retratos, algo de imaginacion y un poco de ocio y tiempo encima... les presentamos la pantalla tactil Y al Ingeniero en Mecatronica MAC explicandoles su funcionamiento....

Teletransporter...un nuevo invento patrocinado por una marca de cerveza... pero... aqui esta el video, verlo por ustedes mismos...

Buscando un buen Host, gratis y que sea bueno, encontre esta maravilla

Ofrece;
1500Mb de espacio de Disco
100 GB / Mensuales de transferencia de datos
5 AD-ons dominios
5 subdominios
5 direcciones de Email... Ejemplo TuMail@tuPagina.com
2 Bases de datos MySQL
Control Panel
Constructor de pagina Web
1 cuenta FTP
Backup
Y un monton de cosas que ni se para que sirven... JAJAJA

Pero en caso de que quieras abrir un Host gratuios para cualquier tonteria... aqui esta... creo que tambien te dan la opcion de un Dominio gratis... solo tienes que registrarte con tu E-mail

Sale...

###SOURCE CODE###
ON VISUAL BASIC6
1) make a commandButton
2)go to toolbar> right click> components>select "Microsoft Internet controls"
3) Now add a WebBrowser
-------------------------------------------------------------------------------------------
1) Hacer un commandBoton
2) Ir a Barra de herramientas> click derecho> seleccionar "Microsoft Internet controls"
3) ahora agregar un WebBrowser





Private Sub Command1_Click()
WebBrowser1.SetFocus
sendkey "q", 100 'sendkey will give the order of press a Key...in this case q/ el sendkey simulara que presionas la q que es para buscar objetivo
sendkey "1", 800 ' then after 800 ms number 1... it means first key ring/ es el numero del anillo que usaras
sendkey "q", 100
sendkey "2", 800


'now I'll give you the most key used/ las letras mas usadas para los comanos....
'K= Knee/Stand Sentarse/pararse
'1,2,3,4,5,6,7,8= Rings/Anillos
'Spacebar= Self selection/Autoseleccion
'g= Follow objetive/seguir objetivo
'q=Select target/Seleccionar objetivo
'The rest is up to you... use your imagination/lo demas depende de tu imaginacion
'and of course... this bot won't be never unupdated/ y poruspuesto este bot no tendras que estarlo actualizando cada rato
'if you can make 50k in 5hrs, or 75k is up to you/ Depende de ti pero puedes hacer 50k en 5 horas 0 hasta 75k
'you can allways make your own magic.../siempre puedes usar tu propia magia
'N-joy


End Sub

Private Sub Command2_Click()
Form1.SetFocus
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.gaiaonline.com/launch/zomg"
End Sub

Public Sub sendkey(ByRef key As String, ByRef waitMS As Integer)
On Error GoTo errhandeler

Dim endtime As Single
waitMS = Abs(waitMS)
endtime = (Timer + (waitMS / 1000))
Do While Timer <= endtime
DoEvents
Loop

SendKeys key

Exit Sub

errhandeler:
End Sub





IF you can post your Source code so we all can see it and learn more!... SHARE!
Si puedes enviar tu codigo seria mucho que mejor asi podemos aprender...COMPARTE!!