Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Eleкtro

#8561
@Maurice_Lupin

Gracias, ya no recordaba que hice esta pregunta xD

Al final ya lo conseguí, conseguí usar la API para capturar si la rueda que se mueve es la de arriba o la de abajo, lo que no conseguí era una vez capturado, reproducir ese movimiento del ratón fuera de la APP, es decir mover la rueda del ratón, así que lo dejé a medias.

Bueno,
un saludo!
#8562
Hoy pensé en añadir la funcionalidad de seleccionar todo el texto haciendo triple click sobre un textbox... y he dado con este snippet: http://www.codeproject.com/Articles/23498/A-Simple-Method-for-Handling-Multiple-Clicking-on

Es un contador de clicks, así que se puede utilizar como Triple-Click, o Cuadruple-Click o lo que quieran... xD

Código (vbnet) [Seleccionar]
Public Class Form1

#Region " Mouse-Click Count "

   ''' <summary>
   ''' The Click-Timer area bounds.
   ''' </summary>
   ''' <remarks></remarks>
   Private ClickArea As Rectangle

   ''' <summary>
   ''' The mouse button clicked.
   ''' </summary>
   ''' <remarks></remarks>
   Private ClickButton As MouseButtons

   ''' <summary>
   ''' Accumulate clicks for the Click-Timer.
   ''' </summary>
   ''' <remarks></remarks>
   Private ClickCount As Int32

   ''' <summary>
   ''' Save the Click-Timer double-click delay time (ms).
   ''' </summary>
   ''' <remarks></remarks>
   Private ClickDelay As Int32 = SystemInformation.DoubleClickTime

   ''' <summary>
   ''' String description of the appropriate owner of the Click-Timer expiry event.
   ''' </summary>
   ''' <remarks></remarks>
   Private ClickOwner As String = ""

   ''' <summary>
   ''' Save the Click-Timer double-click area bounds.
   ''' </summary>
   ''' <remarks></remarks>
   Private ClickSize As Size = SystemInformation.DoubleClickSize

   ''' <summary>
   ''' Create a new Click-Timer with events.
   ''' </summary>
   ''' <remarks></remarks>
   Private WithEvents ClickTimer As New Timer

   ''' <summary>
   ''' Click-Timer "Tick" event handler.
   ''' </summary>
   ''' <param name="sender">Event object owner.</param>
   ''' <param name="e">Event arguments.</param>
   ''' <remarks></remarks>
   Private Sub ClickTimer_TickHandler(ByVal sender As Object, ByVal e As EventArgs) Handles ClickTimer.Tick
       Me.ClickTimer.Stop()
       Me.ClickCount = 0
   End Sub

   ''' <summary>
   ''' Initialise the Click-Timer with Owner and valid double-click area.
   ''' </summary>
   ''' <param name="aOwnerControl">Click-Timer owner control (string).</param>
   ''' <param name="aMouseButton">Mouse button clicked.</param>
   ''' <param name="aClickPoint">Click point for definition of the valid double-click area.</param>
   ''' <remarks></remarks>
   Private Sub ClickTimer_Initialise(ByVal aOwnerControl As String, _
                                     ByVal aMouseButton As MouseButtons, _
                                     ByVal aClickPoint As Point)

       ' Stop the Click-Timer.
       Me.ClickTimer.Stop()
       ' Save the owner control text.
       Me.ClickOwner = aOwnerControl
       ' Save the mouse button.
       Me.ClickButton = aMouseButton
       ' This is the first click.
       Me.ClickCount = 1
       ' Define the valid double-click area for any multi-clicking.
       Me.ClickArea = New Rectangle _
             (aClickPoint.X - Me.ClickSize.Width \ 2 _
             , aClickPoint.Y - Me.ClickSize.Height \ 2 _
             , Me.ClickSize.Width, Me.ClickSize.Height)
       ' Set the system default double-click delay.
       Me.ClickTimer.Interval = Me.ClickDelay
       ' Start the Click-Timer.
       Me.ClickTimer.Start()

   End Sub

   ''' <summary>
   ''' Register a mouse click (or double click) event.
   ''' </summary>
   ''' <param name="aOwnerControl">Click-Timer owner control (string).</param>
   ''' <param name="aMouseButton">Mouse button clicked.</param>
   ''' <param name="aClickPoint">Click point for definition of the valid double-click area.</param>
   ''' <remarks></remarks>
   Private Sub ClickTimer_Click(ByVal aOwnerControl As String, _
                                ByVal aMouseButton As MouseButtons, _
                                ByVal aClickPoint As Point)

       ' Handle this click event.
       If Me.ClickTimer.Enabled Then
           ' The Click-Timer is going, stop it and check we haven't changed controls.
           Me.ClickTimer.Stop()
           If Me.ClickOwner = aOwnerControl _
           AndAlso Me.ClickButton = aMouseButton _
           AndAlso Me.ClickArea.Contains(aClickPoint) Then
               ' Working with the same control, same button within a valid double-click area so bump the count.
               Me.ClickCount += 1
               ' Set the system default double-click delay.
               Me.ClickTimer.Interval = Me.ClickDelay
               ' Start the Click-Timer.
               Me.ClickTimer.Start()
           Else
               ' Not working with the same control. Initialise the Click-Timer.
               Me.ClickTimer_Initialise(aOwnerControl, aMouseButton, aClickPoint)
           End If
       Else
           ' The timer is not enabled. Initialise the Click-Timer.
           Me.ClickTimer_Initialise(aOwnerControl, aMouseButton, aClickPoint)
       End If

   End Sub

#End Region

   Private Sub TextBox1_Clicked(ByVal sender As Object, ByVal e As MouseEventArgs) _
   Handles TextBox1.MouseClick, TextBox1.MouseDoubleClick

       Me.ClickTimer_Click(sender.name, e.Button, e.Location)

       If ClickCount = 3 Then ' Triple Click to select all text.
           sender.SelectAll()
       End If

   End Sub

End Class


Saludos.
#8563
Cita de: Darkgus en 27 Junio 2013, 16:13 PM¿Quién sabe si en unos 50 años crearán a Terminator (Lol)?

Cada 12 o 14 meses se duplica el potencial de la tecnología, pero no nos engañemos... la humanidad solo creará robots para esto:

     

:D
#8564
Scripting / Re: %%n
27 Junio 2013, 15:12 PM
@Pirat3net
Ya tienes una buena cantidad de mensajes para saber como va el foro.

Aparte de no incrustar los códigos en su tag correspondiente, y de hacer doble post en 2 minutos, ¿te parece que "%%n" es un título decente y lo bastante descriptivo?

Tema cerrado, porfavor sigue las normas cuando inicies un nuevo post.

CitarEste tablón está sujeto a las normas generales del foro y a las normas de los tablones de programación.

Saludos!
#8565
Cita de: MineHitex en 25 Junio 2013, 18:28 PM
Lo que os quiero preguntar es si es posible programar un programa que piense por si mismo, osea, un programa que pueda recopilar informarción de internet y asi ir adquiriendo conocimientos humanos y poder pensar como lo hace una persona normal

@MineHitex

Claro que es posible, lee sobre Skynet ...y Terminator.

Saludos!  :silbar:
#8566
CitarTamaño del archivo                       : 1 005MB
Duración                                 : 1h 14min.
Tasa de bits                             : 1 695Kbps
Ancho                                    : 720pixeles
Alto                                     : 576pixeles

No es nada excesivo, el video dura 74 minutos y pesa menos de 1 GB, la verdad es que viendo los datos es "lo típico" para las series AVI, es una calidad bastante pobre, si lo reconviertes para que pese todavía menos tamaño (dándole aún menos bitrate)... pues te va a quedar un video mucho más pobre.

Saludos!
#8567
Ikillnukes gracias pero la verdad odio ese tipo de aplicaciones,
el IDM tampoco me gusta nada, pero este tiene una extensión para firefox que básicamente es un mini-botón que se queda arriba del video de Youtube, y no molesta la experiencia de navegación en absoluto xD.

Saludos
#8568
Cita de: krizalidk en 26 Junio 2013, 17:46 PM
no menciona que los argumentos de la linea de comandos no son validos no se puede continuar existe alguna herramienta que me pueda ayudar a instalarlo de forma desatendida que no tenga interaccion con el usuario

Aquí tienes toda la información: http://theether.net/kb/100165   &    http://msdn.microsoft.com/en-us/library/Aa263457

Básicamente según las instrucciones primero debes editar el archivo "setup.lst" para especificar el directorio de instalación... y luego debes llamar al instalador obligatoriamente especificando un archivo de log de esta manera:
setup.exe /sc:\setup.log

Saludos.
#8569
JDownloader: No reconoce los streams.

atube catcher: Reconoce los streams (se muestra una lista de ellos en la aplicación) pero a la hora de intentar descargar sale error 403 y nunca se descarga.

DownloadHelper (Extensión para firefox): Reconoce los streams pero al intentar descargarlo se crea un archivo de 0 bytes.

IDM desde Firefox: Lo he vuelto a instalar y funciona perféctamente, aunque ayer no me iba cuando lo intenté ...no se porqué.

IDM desde Chrome: IDM me dice que se ha instalado en Chrome, pero a mi no me sale el botón de descargar en ninguna parte (si, he reiniciado el navegador), y como tampoco uso Chrome para nada pues no me he molestado en perder más tiempo indagando en el problema.

IDM desde IExplorer: Funciona perféctamente, como en Firefox.






Siendo un programa tán reconocido y con su reputación, no creo que el chollo de IDM dure demasiado, imagino que en pocos días habrá algún Ramoncín o algún Alejandro Sanz que reportará a Google el ""problema"" ...y Google le dara un ultimatum a IDM...

...Espero equivocarme, pero hay que aprovechar por si acaso.

Gracias por vuestras opiniones.

Saludos!
#8570
Quizás existan formas más simples, además ...no manejo javascript, pero una solución eficaz sería enviar un "sendkeys ENTER": http://msdn.microsoft.com/en-us/library/8c6yea83%28v=vs.85%29.aspx

Saludos