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

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  ScreenShot duda...
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: ScreenShot duda...  (Leído 898 veces)
vivachapas


Desconectado Desconectado

Mensajes: 612



Ver Perfil
ScreenShot duda...
« en: 25 Octubre 2008, 18:39 pm »

mmm bueno esto surgio anoche.. estaba usando la asistencia remota del msn y me dio una idea.. no se si utds la han usado pero donde se ve la pantalla se actualiza solo la parte q cambie... y bue me pase la noche tratando de hacer eso para mi troyano, para asi lograr mayor velocidad cuando se actualiza la img

hice este sencillo code...
se necesita: 2 commandbutton
                  2 picutre box
                  1 combobox

los nombres son los q vienen x defecto...

Código
  1. Dim Presionado As Boolean
  2. Dim Color As ColorConstants
  3.  
  4. Private Sub Combo1_Click()
  5. Select Case Combo1.Text
  6.    Case "Rojo"
  7.    Color = vbRed
  8.    Case "Azul"
  9.    Color = vbBlue
  10.    Case "Verde"
  11.    Color = vbGreen
  12. End Select
  13. End Sub
  14.  
  15. Private Sub Command1_Click()
  16. Dim Cont As Integer
  17. Dim Ancho As Integer
  18. Dim Alto As Integer
  19. Dim PixX As Integer
  20. Dim PixY As Integer
  21. Dim PixColor As Double
  22. Dim oPixColor As Double
  23. Cont = 0
  24. Alto = Picture1.Height
  25. Ancho = Picture1.Width
  26. Picture1.DrawWidth = 1
  27. Picture2.DrawWidth = 1
  28. For PixX = 1 To Ancho Step 10
  29.    For PixY = 1 To Alto Step 10
  30.    PixColor = Picture1.Point(PixX, PixY)
  31.    oPixColor = Picture2.Point(PixX, PixY)
  32.    If Not PixColor = oPixColor Then
  33.    Color = Picture1.Point(PixX, PixY)
  34.    Picture2.PSet (PixX, PixY), Color
  35.    Cont = Cont + 1
  36.    End If
  37.    Next PixY
  38. Next PixX
  39. Picture1.DrawWidth = 3
  40. Picture2.DrawWidth = 3
  41. MsgBox Cont
  42. End Sub
  43.  
  44. Private Sub Command2_Click()
  45. Picture1.Cls
  46. Picture2.Cls
  47. End Sub
  48.  
  49. Private Sub Form_Load()
  50. Picture1.Height = 1500
  51. Picture2.Height = 1500
  52. Picture1.Width = 1500
  53. Picture2.Width = 1500
  54. Picture1.DrawWidth = 3
  55. Picture2.DrawWidth = 3
  56. Picture1.BackColor = vbWhite
  57. Picture2.BackColor = vbWhite
  58. With Combo1
  59.    .AddItem "Rojo"
  60.    .AddItem "Verde"
  61.    .AddItem "Azul"
  62. End With
  63. End Sub
  64.  
  65.  
  66. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  67. Presionado = True
  68. Picture1.CurrentX = X
  69. Picture1.CurrentY = Y
  70. End Sub
  71.  
  72. Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  73. If Presionado = False Then Exit Sub
  74. Picture1.Line -(X, Y), Color
  75. End Sub
  76.  
  77. Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  78. Presionado = False
  79. End Sub
  80.  
  81. Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  82. Presionado = True
  83. Picture2.CurrentX = X
  84. Picture2.CurrentY = Y
  85. End Sub
  86.  
  87. Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  88. If Presionado = False Then Exit Sub
  89. Picture2.Line -(X, Y), Color
  90. End Sub
  91.  
  92. Private Sub Picture2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  93. Presionado = False
  94. End Sub
  95.  
  96.  

bueno el problema es el siguiente... a ese codigo ya lo probe con los screencapture pero el problema es q si se tapa un picture x otra ventana de otra aplicacion es como si se modificara el picture... no se si me entienden
osea si no se ven las 2 img enteras en la pantalla, los pixeles q no se ve, los toma como distintos... :S

bueno quisiera saber eso como hacer a q no importe si el picture este o no en la pantalla pero q lo compare
o si conocen algun otra forma de hacer esto :S

SALUDOS


En línea

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.148


I'Love...!¡.


Ver Perfil WWW
Re: ScreenShot duda...
« Respuesta #1 en: 25 Octubre 2008, 23:44 pm »

a si ya recuerdo jaja

mira usa el buscador de este foro hay tema con relacion a este tema esta muy bueno ja pero se quedo en el planteamiento ya no lo terminaron no se si por weeeeba que luego pega duro o por weeeeeba que Re-Pega  -Re-Duro, ja no se buscalo creo que era algo de video en vb6


En línea

The Dark Shadow is my passion.
vivachapas


Desconectado Desconectado

Mensajes: 612



Ver Perfil
Re: ScreenShot duda...
« Respuesta #2 en: 26 Octubre 2008, 01:09 am »

mmmm la verdad q no encontre nada.. ahora hice una busqueda mas profunda en el foro pero nada..
(encontre un muy lindo programa para grabar video xD... y vi un post tuyo de juegos hechos en VB muy muy buenos... jaa)

pero nada de lo q busco :S nadie tiene alguna idea ?
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Consulta ScreenShot de una ventana web
Java
Pablo Videla 1 2,079 Último mensaje 9 Noviembre 2011, 22:27 pm
por Pablo Videla
Take screenshot of byte help?
Programación Visual Basic
Harmmy 5 1,765 Último mensaje 22 Diciembre 2012, 00:08 am
por Harmmy
Duda en python screenshot con diferentes imágenes
Scripting
e 4 1,460 Último mensaje 13 Marzo 2018, 20:34 pm
por e
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines