Mensajes

Código (vbnet) [Seleccionar] Expandir

       RichTextBox1.Text = "Hola que tal"
       RichTextBox1.SelectionStart = RichTextBox1.Text.Length - 1

Saludos.

[iMacros]

Asdexiva, se te han recomendado infinidad de utilidades en otro post, de entre ellas te hemos ayudado a destacar especialmente dos, ¿y tu te pones a usar iMacros?.

iMacros es para crear búcles de taréas, no para usarlo como bruteforce (aunque lo hayas visto donde séa).

Desventajas:

- No puedes usar bots, es decir que a los primeros intentos fallidos van a banear tu conexión o no vas a poder seguir intentándolo (por la restricción de intentos).
- Hay que esperar a que la página cargue complétamente
- No puedes resolver captchas.
- No puedes guardar los logins acertados (a menos que te comas la cabeza de alguna forma para saber cuando has acertado y guardar el pass grabando la taréa...).
- Si ocurre un login acertado, la tarea se sigue repitiendo porque no se va a detener.

Tu sabrás... pero ya se te dijo lo que hay que usar.

Saludos!

Eso es lo que pasa por querer hacer las cosas con un Copy/Paste de códigos antiguos de Windows XP o de VB6 xD.

El error es que estás usando el tipo Long, modifica todos los Long por Integer, y listo, funciona.

Saludos!

Entonces el Sentry como te han comentado arriba.
O el AccessDiver, por ese orden.

Saludos

¿Quien te ha dicho eso?

Hombre, todos los servicios limitan la velocidad hasta X punto dependiendo de la velocidad que puedan ofrecer en general, pero un servicio como youtube el límite está muy por encima de lo que tu comentario sugiere...
A mi siempre me ha descargado y me sigue descargando de youtube usando toda mi banda ancha (1,8 mb /s), ya séa usando extensiones del navegador, JDownloader o Youtube-DL.
No sé si es que tu puedes tener una super conexión e intentas descargar videos a 100 mb /s... pero dudo mucho que tampoco se pueda descargar a esa velocidad en algo como Youtube (y a más velocidad también).

Quizás deberías exponer el problema que tienes respecto a la velocidad de descarga en X página (en el subforo adecuado), porque lo que comentas de la velocidad en youtube no me parece normal xD, de ahí mi comentario anterior.

Saludos

[¿Porque bloquear el mouse?]

Esta es una aplicación que bloquea el puntero del mouse restringiéndolo a la posición del centro de la pantalla (primária) mientras X aplicación se está ejecutando.

Tiene opciones para ajustar:
-El tiempo de retardo para iniciar el bloqueo (Por defecto 3 segundos)
-El tiempo de intervalo para volver a bloquear el puntero (Por defecto 10 ms)
-Definir una tecla global especial para Activar/desactivar el bloqueo (por defecto NINGUNA)

La utilidad principal de esta aplicación es para usarla en los juegos que no disponen de dicha funcionalidad (Por si no lo saben, los juegos bien desarrollados bloquean el mouse al centro de la pantalla, un ejemplo es el "Resident Evil 6"), Un ejemplo de dichos juegos que no bloquean el mouse es el nuevo "TombRaider 2013", aunque mayormente suelen ser juegos antiguos.

-¿Porque bloquear el mouse?
Para que el mouse no interfiera en programas de terceros mientras estamos jugando, por ejemplo en programas que se activan al pasar el puntero del ratón por los bordes o los corners de la pantalla.

Aunque seguro que alguien le encontrará otro uso aparte de ese, espero que os guste.

Sintaxis:


Y esto es un ejemplo de como usarlo en un Bat que puede estar dentro por ejemplo de un AutoExtraible de WinRAR (Un juego portable):

Código (dos) [Seleccionar] Expandir

@Echo OFF

REM Lanzamos el juego, importante ejecutarlo en segundo plano con el parámetro "/B" para no detener el script.
Start /B """" "MiJuego.exe"

REM Lanzamos MouseLock
Start /W MouseLock.exe MiJuego.exe -K CTRL+C
:: Al apretar Control+C dentro del juego, se desactivará el bloqueo hasta que volvamos a presionar dicha combinación de teclas...

REM PD : Para terminar la ejecución de MouseLock hay que cerrar el juego o cerrar la consola.
REM PD2: También se pueden usar comillas dobles para encerrar cualquier argumento del programa.


Descarga:
http://elektrostudios.tk/MouseLock.rar
Enlace actualizado (12/07/2014): http://www.mediafire.com/download/blcg8rarfc0b58w/MouseLock_CLI.rar

Un saludo!

Ya lo he solucionado, aunque sigo sin entender el motivo... ¿Parece que los Timers los módulos los trata como subprocesos (Threads)?, parece como si la aplicación finalizaba antes de dejarle al timer hacer su trabajo.

Así que he tenido que usar un:

Código [Seleccionar] Expandir

While Running : Application.DoEvents() : End While

Justo después de iniciar los timers, para que la aplicación no finalize.

Código (vbnet) [Seleccionar] Expandir

   Private Sub Lock()
       If Process_Is_Running(Executable_Name) Then
           AddHandler Lock_Timer.Elapsed, AddressOf Locker
           AddHandler Executable_Timer.Elapsed, AddressOf Executable_Tick
           Lock_Timer.Interval = Lock_Interval
           Lock_Timer.Start()
           Executable_Timer.Start()
           Running = True
           While Running : Application.DoEvents() : End While
       Else
           Terminate()
       End If
   End Sub

Por esta razón me funcionaba el timer en una class de un WF y no en un module, porque el module no espera a que el timer tickee...
¿Alguien me aclara esto?

Un saludo!

Pero no es estríctamente necesario un módulo, debes cambiar el tipo de función a compartida (SHARED) y hacerla pública (PUBLIC), metes la función donde quieras (no estríctamente en un módulo) y la podrás llamar desde donde quieras.

Ejemplo:

form1.vb:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       MsgBox(Class1.GetHalfNumber(100))
   End Sub
End Class

class1.vb

Código (vbnet) [Seleccionar] Expandir

Public Class Class1
   Public Shared Function GetHalfNumber(ByVal Number As Int64) As Int64
       Return Number \ 2
   End Function
End Class

Saludos

[-p"pass%word"]

¿esta bien hecho?

El fallo más grave es el de la contraseña de ejemplo que has puesto, usas el caracter de procentaje % y no te lo va a reconocer, debes cerrar el string con comillas doblres: -p"pass%word"
De echo deberías cerrar todos los demás argumentos que usas en tu ejemplo.

En el primer comando deberías ordenarle a winrar que debe hacer si encuentra un archivo que al descomprimirlo se llame igual (preguntar o reemplazar archivos al extraer):

Código [Seleccionar] Expandir

y             Assume Yes on all queries

Código [Seleccionar] Expandir

@Echo OFF
Rar.exe x -r -y -p"aesT322odSXj0Y@#j4ePWL7zVxDyM40W_JUue%LjJTSY$EAAdJ1-ti2m9" "c:\*.*" "c:\"

Yo no lo he entendido muy bien, la verdad, porque en el segundo comando quieres descomprimir en la carpeta original, pero al final indicas que se descompriman todos en "C:\"(destino).

Saludos

Si el texto completo no contiene más tags podrías usar esto: http://foro.elhacker.net/empty-t372497.0.html para eliminar la última línea, y luego añadir el tag.

Ejemplo:

Código [Seleccionar] Expandir

@Echo OFF

Call :TEXTMAN L- 1 "archivo.txt"
Echo %Variable% >> "Archivo.txt"
Echo [/FORMAT] >> "Archivo.txt"

Pause&Exit

:TEXTMAN
(SET /A "A=0", "LINE=0", "TOTAL_LINES=0")  &  (CALL :%~1 %* || (ECHO Parametro incorrecto & Exit /B 1)) & (GOTO:EOF)
:L-
(FOR /F %%X IN ('TYPE "%~3"') DO (CALL SET /A "TOTAL_LINES+=1")) & (CALL SET /A "TOTAL_LINES-=%~2-1") & (For /F "usebackq tokens=*" %%@ in ("%~3") DO (Call Set /A "LINE+=1" & Call echo "%%LINE%%"|@FIND "%%TOTAL_LINES%%" >NUL) && (CALL :RENAMER "%~3" && GOTO:EOF) || (Echo %%@ >> "%~3.NEW"))
:RENAMER
(REN "%~1" "%~nx1.BAK") & (MOVE /Y "%~1.BAK" "%TEMP%\" >NUL) & (REN "%~1.NEW" "%~nx1") & (GOTO:EOF)

De lo contrario, puedes usar un FOR /F para encontrar la cadena "[/FORMAT]" y reemplazarla por la variable y la cadena de nuevo.

PD: Con ese script también puedes reemplazar palabras.

Saludos