| |
|
891
|
Programación / Programación Visual Basic / Re: Posicion dentro de un Picturebox..
|
en: 26 Diciembre 2006, 21:20 pm
|
Creas un nuevo proyecto en blanco. Añades en el Form1 los controles: Label1 y Picture1 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  |
|
|
|
|
893
|
Programación / Programación Visual Basic / [+] MSN Kick - Codigo Fuente
|
en: 26 Diciembre 2006, 19:57 pm
|
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: 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
|
|
|
|
|
894
|
Programación / Programación Visual Basic / Re: cmo abrir el notepad
|
en: 24 Diciembre 2006, 19:58 pm
|
Pregunta 1 Shell "notepad.exe", vbNormalFocus
Pregunta 2 Clipboard.Clear
Clipboard.SetText Label1.Caption Pregunta 3 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!! |
|
|
|
|
896
|
Programación / PHP / Google Cloaking
|
en: 13 Diciembre 2006, 10:20 am
|
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. |
|
|
|
|
897
|
Programación / Programación Visual Basic / Re: Crear un "Clicker"
|
en: 27 Noviembre 2006, 07:46 am
|
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!! |
|
|
|
|
898
|
Programación / Programación Visual Basic / Crear un "Clicker"
|
en: 27 Noviembre 2006, 00:43 am
|
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!! |
|
|
|
|
899
|
Programación / PHP / Creación de un Captcha desde 0
|
en: 20 Noviembre 2006, 07:20 am
|
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: <?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 |
|
|
|
|
900
|
Programación / Programación Visual Basic / Re: Tiempo de inactividad
|
en: 12 Noviembre 2006, 22:50 pm
|
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. |
|
|
|
|
|
| |
|
Mostrar Mensajes
