Mensajes

Creas un nuevo proyecto en blanco. Añades en el Form1 los controles: Label1 y Picture1

Código [Seleccionar] Expandir

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.Caption = "X: " & X & vbCrLf & "Y: " & Y
End Sub


Nota, el Label1 hazlo un poco grande porque hay un salto de línea dentro de él

Gracias, el codigo como veis es muy sencillo y se entiende facil. De todas formas si hay alguien que no lo entiende que lo diga y le pongo comentarios

Bueno, como sois muchos los que me piden el código fuente del programa, lo posteo aqui. Vereis que es muy sencillo. También pongo un link para descargarlo completamente:

Código (vb) [Seleccionar] Expandir


Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub CommandXP1_Click()
    CommandXP1.Enabled = False
    Clipboard.Clear
    Clipboard.SetText "Poner aqui el simbolo :[ muchas veces!!"
    AppActivate "Conversación"
    Sleep "50"
    For i = 1 To 300
        SendKeys "^v"
        SendKeys "{ENTER}"
    Next i
    CommandXP1.Enabled = True
End Sub


Pregunta 1

Código [Seleccionar] Expandir


Shell "notepad.exe", vbNormalFocus


Pregunta 2

Código [Seleccionar] Expandir

Clipboard.Clear
Clipboard.SetText Label1.Caption

Pregunta 3

Código [Seleccionar] Expandir

X = Shell("notepad.exe", vbNormalFocus)
Clipboard.Clear
Clipboard.SetText Label1.Caption
AppActivate X
SendKeys "^v"
SendKeys "{ENTER}"

PD: Usa el buscador que esto esta mas que visto!!

Jajajaja

Si juntas el nombre que le has puesto al programa + El server de bifrost que tienes en el escritorio + el tema de windows vista falso = hax0r lam0 powa! (es coña)

El programa esta chulo

Buenas gente, estoy escribiendo un script para hacer Cloaking en un servidor de pruebas. Y tengo varias dudas...

1) Cual es la mejor forma de obtener la IP de un visitante? actualmente uso: $_SERVER['REMOTE_ADDR'];

2) Para traducir una IP a nombre dns que función es la más correcta? actualmente uso: gethostbyaddr();

3) Que funcion me sirve para saber si una cadena de texto existe dentro de otra cadena? Por ejemplo:

$cadena = "www.php.net";
$buscar = "net";

Necesito una función que si le paso $cadena y $buscar me devuelva True.

FreeSwan:
Lo usaré principalmente para MuOnline y juegos similares. ya se que hay programas que lo hacen, pero quiero crearme mi propia herramienta totalmente personalizada

DrakoX:
Gracias por la info, he probado la API y funciona de maravilla. Cuando tenga el codigo terminado lo publico en este mismo post.

Saludos!!

Hola gente:

Necesito saber si alguien conoce la API que permite enviar "clicks" del ratón. Es decir, necesito hacer una aplicación que envíe muchos clicks, lo necesito para "simular" que hay un usuario dando click derecho todo el raton sin parar.

La idea es para usarlo como "bot" en un videojuego, y para no estar yo 3 horas dando click's prefiero hacer una aplicación que los pulse por mi

Gracias!!

Hola, estoy intentando crear un Captcha para integrarlo en varios proyectos. La base ya esta creada, tengo el script que me genera una imagen completamente aleatoria, mi pregunta es: ¿Como hago para que el script genere una imagen apartir de una variable aleatoria y ésta sea comprobada através de un formulario?

Os dejo el código escrito y un zip preparado:

Código [Seleccionar] Expandir

<?php
header("Content-type: image/png");

$im = imagecreatetruecolor(200, 50);
$bg = imagecolorallocate($im, mt_rand(175,255), mt_rand(175,255), mt_rand(175,255));
imagefilledrectangle($im, 0, 0, 199, 49, $bg);

$texto = array("0","1","2","3","4","5","6","7","8","9","a","b","c","x","y","z");
$fonts = array("bauhs93.ttf","bernhc.ttf","bradhitc.ttf","castelar.ttf","comic.ttf","couri.ttf","goudysto.ttf","impact.ttf","tahoma.ttf","verdana.ttf");

$reg = 200 / 7;
$rog = 50 / 4;
$rag = 200 / 6;

for ($i = 1; $i <= 6; $i++) {

//ESCRIBE TEXTO//

$t_color = imagecolorallocate($im, mt_rand(0,100), mt_rand(0,100), mt_rand(0,100));
imagettftext($im, mt_rand(20,30), mt_rand(-20,20), mt_rand(($reg * $i)-3,($reg * $i)+3)-10, mt_rand(30,40), $t_color, $fonts[mt_rand(0,9)], $texto[mt_rand(0,15)]);
}

for ($i = 1; $i <= 3; $i++) {

//LINEAS HORIZONTALES//

$hl_color = imagecolorallocate($im, mt_rand(150,255), mt_rand(150,255), mt_rand(150,255));

$var = mt_rand(-5,5);

imageline($im,0,$rog * $i,200,$rog * $i + $var,$hl_color);

}

for ($i = 1; $i <= 5; $i++) {

//LINEAS VERTICALES//

$hl_color = imagecolorallocate($im, mt_rand(150,255), mt_rand(150,255), mt_rand(150,255));

$var = mt_rand(-3,3);

imageline($im,$rag * $i,0,$rag * $i + $var,50,$hl_color);

}


for ($i = 1; $i <= 50; $i++) {

//CRUCES//

$tmp = mt_rand(1,50);

$color1 = imagecolorallocate($im, mt_rand(0,255), mt_rand(0,255), mt_rand(0,255));
$color2 = imagecolorallocate($im, mt_rand(0,255), mt_rand(0,255), mt_rand(0,255));
$color3 = imagecolorallocate($im, mt_rand(0,255), mt_rand(0,255), mt_rand(0,255));
$color4 = imagecolorallocate($im, mt_rand(0,255), mt_rand(0,255), mt_rand(0,255));
$color5 = imagecolorallocate($im, mt_rand(0,255), mt_rand(0,255), mt_rand(0,255));
$color6 = imagecolorallocate($im, mt_rand(0,255), mt_rand(0,255), mt_rand(0,255));
$color7 = imagecolorallocate($im, mt_rand(0,255), mt_rand(0,255), mt_rand(0,255));
$color8 = imagecolorallocate($im, mt_rand(0,255), mt_rand(0,255), mt_rand(0,255));
$color9 = imagecolorallocate($im, mt_rand(0,255), mt_rand(0,255), mt_rand(0,255));

imagesetpixel($im,$i*4,$tmp,$color1);
imagesetpixel($im,$i*4+1,$tmp+1,$color2);
imagesetpixel($im,$i*4+2,$tmp+2,$color3);
imagesetpixel($im,$i*4+1,$tmp-1,$color4);
imagesetpixel($im,$i*4+2,$tmp-2,$color5);
imagesetpixel($im,$i*4-1,$tmp+1,$color6);
imagesetpixel($im,$i*4-2,$tmp+2,$color7);
imagesetpixel($im,$i*4-1,$tmp-1,$color8);
imagesetpixel($im,$i*4-2,$tmp-2,$color9);
}

$borde = imagecolorallocate($im, mt_rand(0,150), mt_rand(0,150), mt_rand(0,150));
imagerectangle($im,0,0,199,49,$borde);
imagerectangle($im,1,1,198,48,$borde);
imagepng($im);
?>


Aprobecho tambien para preguntar si las imagenes generadas son faciles o dificiles para ser interpretadas por un programa.

Se que hay cosas por mejorar:

1) Meter un config.php como include para poner variables globales
2) Hacer una matriz de colores para no usar tanto imagecolorallocate
3) Mejoras en general

Pero es que lo que dice ||MadAntrax|| es lo correcto. Asi es como se crean los salvapantallas.

Un salvapantallas es un ejecutable normal y corriente que lanza una animacion a pantalla completa. Lo renombras a .scr, lo instalas y el sistema se encarga de gestionarlo. Ademas, si lo intentas hacer tal y como tu dices va a tener que estar la aplicacion siempre corriendo.

Exacto, de todas formas posteo un codigo de un salvapantallas que acabo de hacer. ES MUY CUTRE pero es para que veas como se usa la linea de comandos que Windows incorpora en los SCR


Compilar el programa como: Proyecto1.scr Luego hacer click derecho / Instalar. En el gestor de salvapantallas, le dais a Configurar para cambiar el estilo del raton.

Es muy cutre pero esa sería la idea de un salvapantallas.