elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


  Mostrar Temas
Páginas: [1] 2 3 4 5 6 7
1  Programación / Programación Visual Basic / error al capturar pantalla (mucho tiempo sin encontrar solucion) en: 29 Octubre 2011, 15:26 pm
Aqui esta el source

Código:

Option Explicit
   
 'Api para generar un evento de tecla, en este caso Print Screen
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Declare Sub keybd_event _
    Lib "user32" ( _
        ByVal bVk As Byte, _
        ByVal bScan As Byte, _
        ByVal dwFlags As Long, _
        ByVal dwExtraInfo As Long)
   
'recibe la ruta donde crear el BMP
''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Capturar_Guardar(Path As String)
       
    ' borra el portapapeles
    Clipboard.Clear
       
    ' Manda la pulsación de teclas para capturar la imagen de la pantalla
    Call keybd_event(44, 2, 0, 0)
       
    DoEvents
    ' Si el formato del clipboard es un bitmap
    If Clipboard.GetFormat(vbCFBitmap) Then
       
        'Guardamos la imagen en disco
        SavePicture Clipboard.GetData(vbCFBitmap), Path
        MsgBox " Captura generada en: " & Path, vbInformation
        Picture1.Picture = Clipboard.GetData(vbCFBitmap)
    Else
        MsgBox " Error ", vbCritical
    End If
   
End Sub
   
Private Sub Form_Load()
    Command1.Caption = " Capturar pantalla "
End Sub

Private Sub Timer1_Timer()
 Call Capturar_Guardar("c:\pantalla.bmp")
End Sub



 He puesto capturar pantalla cada 5 seg, el problema esque tengo que tener el programa como principal , osea si por ejemplo lo ejecuto, lo dejo abierto y empiezo abrir otro programa como principal da error.

 ejemplo: abro el exe
 abro el navegador antes de los 5 seg, me da error porque el exe tiene que estar como ventana principal

2  Foros Generales / Foro Libre / Habr quien gana mas puntos (juego divertdio) en: 27 Octubre 2011, 16:16 pm
http://www.minijuegos.com/Bob-Esponja-Ghoul-Getter/11396

xd lo max que he echo son 4o
3  Programación / Programación Visual Basic / Habilitar picture y deshabilitar? TRUE FALSE? en: 24 Octubre 2011, 14:27 pm

Cn un button se hace
Command1.Enabled = False
Command1.Enabled = True


¿pero con un picture?
4  Programación / Programación Visual Basic / Detectar elemento y rellenar en página web html? en: 8 Octubre 2011, 12:36 pm

Yo relleno un input text de la siguiente manera:
Código:
WebBrowser1.Navigate ("www.hotelanzara.com/clientes.html")
Me.WebBrowser1.Document.All("telefono-de-contacto").Value = numero.Text
WebBrowser1.Document.getElementByid("send-number").Click

Pero me gustaría saber como rellenar, un "textarea id=""> sin nombre y hacer click en link (sin name)

por si no ha quedado claro,
Tipo de formulario que relleno: <input type="text" name="telefono-de-contacto"><input type="submit" name="send-number">

Tipo de formulario que me gustaría utilizar:  <textarea id="send-number"> <a href="http://example.com/">Send number</a>

Gracias, de antemano :P
5  Programación / PHP / Banear ip error PHP en: 11 Septiembre 2011, 22:42 pm
Código
  1. <?php
  2. if (isset( $_SERVER [ 'HTTP_X_FORWARDED_FOR' ])) {  
  3. $ip = $_SERVER [ 'HTTP_X_FORWARDED_FOR' ];  
  4.    }  
  5.    elseif (isset( $_SERVER [ 'HTTP_VIA' ])) {  
  6. $ip = $_SERVER [ 'HTTP_VIA' ];  
  7.    }  
  8.    elseif (isset( $_SERVER [ 'REMOTE_ADDR' ])) {  
  9. $ip = $_SERVER [ 'REMOTE_ADDR' ];  
  10.    }  
  11.    else {  
  12. $ip = "Anonima" ;  
  13.    }    
  14.  
  15. $baneados = file ( "baneados.txt" , "r+" );
  16. $nbaneados = count ( $baneados );
  17. function banear ( $ip , $baneados , $nbaneados ){
  18. for ( $i = 0 ; $i < $nbaneados ; $i ++){
  19. if ( $ip == $baneados [ $i ]){
  20. echo "<br><br><br><br><center> Estas Baneadp de la Web y no Puedes Entrar<br> Envia Un Email al Webmaster para Hablar con el</center>" ;
  21. die();
  22. }
  23. }
  24. }
  25. banear ( $ip , $baneados , $nbaneados );
  26. ?>


Warning: file() expects parameter 2 to be long, string given in /home/l0l.php on line 15
6  Seguridad Informática / Análisis y Diseño de Malware / Como funciona el formgrabber de un malware? en: 14 Agosto 2011, 18:59 pm
Como funciona exactamente? ¿detecta la web en la que está y captura las teclas?
7  Foros Generales / Sugerencias y dudas sobre el Foro / Concurso en: 13 Agosto 2011, 14:12 pm
Se me ha ocurrido una idea, que personalmente me parece buena y divertida.

¿Podríamos organizar un concurso que trate de encontrar cosas raras en google earth o maps de una determinada zona?
por ejemplo, españa, buscamos la cosa mas rara, ejemplo cultivos de maria...parques secretos nose..algo tipo así.

Hacer una votación de las 10 mejores, y luego de la mejor?
8  Programación / .NET (C#, VB.NET, ASP) / ¿Borrar linea 1 de textbox multilinea y que la 2ª, suba a la primera? en: 4 Agosto 2011, 13:30 pm
¿Cómo se hace?

Borrar linea 1 de textbox multilinea y que la linea 2, suba a la primera, la tercera a la segunda y así con todas....
9  Programación / Programación Visual Basic / extraer titulo de link html en: 31 Julio 2011, 10:24 am
se que el code es este: WebBrowser1.Document.links.Item(i).Title

pero como se aplica :s?

text1.text = WebBrowser1.Document.links.Item(i).Title

de esta forma no me funciona
10  Programación / Programación Visual Basic / Capturar pantalla error :s en: 26 Julio 2011, 13:51 pm
 Este código capura la imagen al hacer click izquierdo y funciona bien, pero cuando estoy en otra aplicación mientras que está abierta, no lo capura bien, me da error.

También lo dejo el proyecto:

http://anyhub.net/file/3GZy-proyecto.rar

¿Me pueden me ayuda a solucionarlo? please :p
Código
  1. Option Explicit
  2. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  3. ''''''''''''''''''''''''''''''''''''''''''''''''''''''
  4. Private Declare Sub keybd_event _
  5.    Lib "user32" ( _
  6.        ByVal bVk As Byte, _
  7.        ByVal bScan As Byte, _
  8.        ByVal dwFlags As Long, _
  9.        ByVal dwExtraInfo As Long)
  10.  
  11.  
  12.  
  13. Private Sub Form_Load()
  14.    Timer1.Interval = 50
  15. End Sub
  16.  
  17. Private Sub Capturar_Guardar(Path As String)
  18.    ' borra el portapapeles
  19.    Clipboard.Clear
  20.  
  21.    ' Manda la pulsaci&#243;n de teclas para capturar la imagen de la pantalla
  22.    Call keybd_event(44, 2, 0, 0)
  23.  
  24.    DoEvents
  25.    ' Si el formato del clipboard es un bitmap
  26.    If Clipboard.GetFormat(vbCFBitmap) Then
  27.  
  28.        'Guardamos la imagen en disco
  29.        SavePicture Clipboard.GetData(vbCFBitmap), Path
  30.        MsgBox " Captura generada en: " & Path, vbInformation
  31.        Picture1.Picture = Clipboard.GetData(vbCFBitmap)
  32.    Else
  33.        MsgBox " Error ", vbCritical
  34.    End If
  35.  
  36. End Sub
  37.  
  38. Private Sub Timer1_Timer()
  39.  If GetAsyncKeyState(1) = -32767 Then
  40.     Call Capturar_Guardar("c:\windows\pantalla.bmp")
  41.  End If
  42. End Sub
  43.  
Páginas: [1] 2 3 4 5 6 7
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines