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

 

 


Tema destacado: Security Series.XSS. [Cross Site Scripting]


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 [9] 10
81  Programación / Programación Visual Basic / Re: Problema al cargar formulario en: 16 Junio 2010, 16:00 pm
Tienes el formulario y te sige dando error?

Pues eso, como dijo *PsYkE1* es porque le abras lamado a tu 2º form de diferente manera, sino no se me ocurre porque puede ser
82  Programación / Programación Visual Basic / Re: Problema al cargar formulario en: 16 Junio 2010, 15:03 pm
Pero tu has agregado un nuevo formulario?
Menu proyecto>agregar formulario, y me comentas si t da error.
83  Programación / Programación Visual Basic / Re: Atiendan mi consulta porfavor! en: 15 Junio 2010, 21:27 pm
No enendi muy bien a lo que te refieres, un programa que teclee por ti, o que haga autoclicks.
La simulacion de teclas se puede hacer mediante la API keybd_event. Ahora t pongo un ejemplo.


En un modulo declaramos la API y las constantes:
Código
  1. Public Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, _
  2. ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
  3.  
  4. Const KEYEVENTF_EXTENDEDKEY = &H1
  5. Const KEYEVENTF_KEYUP = &H2
  6. Public Const VK_CANCEL = &H3
  7. Public Const VK_MBUTTON = &H4
  8. Public Const VK_BACK = &H8
  9. Public Const VK_TAB = &H9
  10. Public Const VK_CLEAR = &HC
  11. Public Const VK_RETURN = &HD
  12. Public Const VK_SHIFT = &H10
  13. Public Const VK_CONTROL = &H11
  14. Public Const VK_MENU = &H12
  15. Public Const VK_PAUSE = &H13
  16. Public Const VK_CAPITAL = &H14
  17. Public Const VK_ESCAPE = &H1B
  18. Public Const VK_SPACE = &H20
  19. Public Const VK_PRIOR = &H21
  20. Public Const VK_NEXT = &H22
  21. Public Const VK_END = &H23
  22. Public Const VK_HOME = &H24
  23. Public Const VK_LEFT = &H25
  24. Public Const VK_UP = &H26
  25. Public Const VK_RIGHT = &H27
  26. Public Const VK_DOWN = &H28
  27. Public Const VK_Select = &H29
  28. Public Const VK_PRINT = &H2A
  29. Public Const VK_EXECUTE = &H2B
  30. Public Const VK_SNAPSHOT = &H2C
  31. Public Const VK_Insert = &H2D
  32. Public Const VK_Delete = &H2E
  33. Public Const VK_HELP = &H2F
  34. Public Const VK_0 = &H30
  35. Public Const VK_1 = &H31
  36. Public Const VK_2 = &H32
  37. Public Const VK_3 = &H33
  38. Public Const VK_4 = &H34
  39. Public Const VK_5 = &H35
  40. Public Const VK_6 = &H36
  41. Public Const VK_7 = &H37
  42. Public Const VK_8 = &H38
  43. Public Const VK_9 = &H39
  44. Public Const VK_A = &H41
  45. Public Const VK_B = &H42
  46. Public Const VK_C = &H43
  47. Public Const VK_D = &H44
  48. Public Const VK_E = &H45
  49. Public Const VK_F = &H46
  50. Public Const VK_G = &H47
  51. Public Const VK_H = &H48
  52. Public Const VK_I = &H49
  53. Public Const VK_J = &H4A
  54. Public Const VK_K = &H4B
  55. Public Const VK_L = &H4C
  56. Public Const VK_M = &H4D
  57. Public Const VK_N = &H4E
  58. Public Const VK_O = &H4F
  59. Public Const VK_P = &H50
  60. Public Const VK_Q = &H51
  61. Public Const VK_R = &H52
  62. Public Const VK_S = &H53
  63. Public Const VK_T = &H54
  64. Public Const VK_U = &H55
  65. Public Const VK_V = &H56
  66. Public Const VK_W = &H57
  67. Public Const VK_X = &H58
  68. Public Const VK_Y = &H59
  69. Public Const VK_Z = &H5A
  70. Public Const VK_STARTKEY = &H5B
  71. Public Const VK_CONTEXTKEY = &H5D
  72. Public Const VK_NUMPAD0 = &H60
  73. Public Const VK_NUMPAD1 = &H61
  74. Public Const VK_NUMPAD2 = &H62
  75. Public Const VK_NUMPAD3 = &H63
  76. Public Const VK_NUMPAD4 = &H64
  77. Public Const VK_NUMPAD5 = &H65
  78. Public Const VK_NUMPAD6 = &H66
  79. Public Const VK_NUMPAD7 = &H67
  80. Public Const VK_NUMPAD8 = &H68
  81. Public Const VK_NUMPAD9 = &H69
  82. Public Const VK_MULTIPLY = &H6A
  83. Public Const VK_ADD = &H6B
  84. Public Const VK_SEPARATOR = &H6C
  85. Public Const VK_SUBTRACT = &H6D
  86. Public Const VK_DECIMAL = &H6E
  87. Public Const VK_DIVIDE = &H6F
  88. Public Const VK_F1 = &H70
  89. Public Const VK_F2 = &H71
  90. Public Const VK_F3 = &H72
  91. Public Const VK_F4 = &H73
  92. Public Const VK_F5 = &H74
  93. Public Const VK_F6 = &H75
  94. Public Const VK_F7 = &H76
  95. Public Const VK_F8 = &H77
  96. Public Const VK_F9 = &H78
  97. Public Const VK_F10 = &H79
  98. Public Const VK_F11 = &H7A
  99. Public Const VK_F12 = &H7B
  100. Public Const VK_F13 = &H7C
  101. Public Const VK_F14 = &H7D
  102. Public Const VK_F15 = &H7E
  103. Public Const VK_F16 = &H7F
  104. Public Const VK_F17 = &H80
  105. Public Const VK_F18 = &H81
  106. Public Const VK_F19 = &H82
  107. Public Const VK_F20 = &H83
  108. Public Const VK_F21 = &H84
  109. Public Const VK_F22 = &H85
  110. Public Const VK_F23 = &H86
  111. Public Const VK_F24 = &H87
  112. Public Const VK_NUMLOCK = &H90
  113. Public Const VK_OEM_SCROLL = &H91
  114. Public Const VK_OEM_1 = &HBA
  115. Public Const VK_OEM_PLUS = &HBB
  116. Public Const VK_OEM_COMMA = &HBC
  117. Public Const VK_OEM_MINUS = &HBD
  118. Public Const VK_OEM_PERIOD = &HBE
  119. Public Const VK_OEM_2 = &HBF
  120. Public Const VK_OEM_3 = &HC0
  121. Public Const VK_OEM_4 = &HDB
  122. Public Const VK_OEM_5 = &HDC
  123. Public Const VK_OEM_6 = &HDD
  124. Public Const VK_OEM_7 = &HDE
  125. Public Const VK_OEM_8 = &HDF
  126. Public Const VK_ICO_F17 = &HE0
  127. Public Const VK_ICO_F18 = &HE1
  128. Public Const VK_OEM102 = &HE2
  129. Public Const VK_ICO_HELP = &HE3
  130. Public Const VK_ICO_00 = &HE4
  131. Public Const VK_ICO_CLEAR = &HE6
  132. Public Const VK_OEM_RESET = &HE9
  133. Public Const VK_OEM_JUMP = &HEA
  134. Public Const VK_OEM_PA1 = &HEB
  135. Public Const VK_OEM_PA2 = &HEC
  136. Public Const VK_OEM_PA3 = &HED
  137. Public Const VK_OEM_WSCTRL = &HEE
  138. Public Const VK_OEM_CUSEL = &HEF
  139. Public Const VK_OEM_ATTN = &HF0
  140. Public Const VK_OEM_FINNISH = &HF1
  141. Public Const VK_OEM_COPY = &HF2
  142. Public Const VK_OEM_AUTO = &HF3
  143. Public Const VK_OEM_ENLW = &HF4
  144. Public Const VK_OEM_BACKTAB = &HF5
  145. Public Const VK_ATTN = &HF6
  146. Public Const VK_CRSEL = &HF7
  147. Public Const VK_EXSEL = &HF8
  148. Public Const VK_EREOF = &HF9
  149. Public Const VK_PLAY = &HFA
  150. Public Const VK_ZOOM = &HFB
  151. Public Const VK_NONAME = &HFC
  152. Public Const VK_PA1 = &HFD
  153. Public Const VK_OEM_CLEAR = &HFE
  154.  

Luego en el formulario agregamos 3 command buttons, y un textbox, con los nombres predeterminados y agregamos lo siguiente:
Código
  1. Private Sub Command1_Click()
  2.    Text1.SetFocus
  3.    keybd_event VK_A, 0, 0, 0 'Presiona la A
  4.    keybd_event VK_A, 0, KEYEVENTF_KEYUP, 0 'Levanta la A
  5. End Sub
  6.  
  7. Private Sub Command2_Click()
  8.    Text1.SetFocus
  9.    keybd_event VK_M, 0, 0, 0 'Presiona la M
  10.    keybd_event VK_M, 0, KEYEVENTF_KEYUP , 0 'Levanta la M
  11. End Sub
  12.  
  13. Private Sub Command3_Click()
  14.    Text1.SetFocus
  15.    keybd_event VK_Z, 0, 0, 0 'Presiona la Z
  16.    keybd_event VK_Z, 0, KEYEVENTF_KEYUP, 0 'Levanta la Z
  17. End Sub
  18.  
  19. Private Sub Form_Load()
  20.    Text1.Text = ""
  21.    Command1.Caption = "A"
  22.    Command2.Caption = "M"
  23.    Command3.Caption = "Z"
  24. End Sub

Si necesitas que te explique algo lo intentare y espero que sea esto lo que has preguntado.

NOTA: He usado todas las constantes que tenia guardadas por si las quieres tener.
84  Programación / Programación Visual Basic / Re: [SRC] Computer_Talk [by *PsYkE1*] en: 15 Junio 2010, 13:15 pm
Me gusto, buena PsYke1, pero cuando pongo la velocidad negativa (-7) me da desbordamiento. Aun asi buena
85  Programación / Programación Visual Basic / Re: Ayuda MousePointer en: 15 Junio 2010, 13:11 pm
Muchas gracias funciona :D, una duda, lo del tipo pointapi x & y no hace falta no? eso se una para GetCursorPos no?
Otra ves muxas gracias
86  Programación / Programación Visual Basic / Re: Ayuda MousePointer en: 15 Junio 2010, 11:04 am
que quieres decir con subclasificar? me pones un ejemplo?

Aparte de esas preguntas me salio un problema, solo funciona cuando cambia dentro del form o en donde el diseño de visual basic, en este foro por ejemplo no funciona, alguna idea?
87  Programación / Programación Visual Basic / Re: Ayuda MousePointer en: 15 Junio 2010, 10:54 am
Bueno ya encontre algo, pa quien le interese


Código
  1. Private Declare Function GetCursor Lib "user32" () As Long
  2.  
  3. Dim c1 As Long, c2 As Long
  4.  
  5. Private Sub Form_Load()
  6.      c1 = GetCursor
  7.      Timer1.Interval = 1
  8. End Sub
  9.  
  10. Private Sub Timer1_Timer()
  11.      c2 = GetCursor
  12.      If c2 <> c1 Then
  13.            c1 = c2
  14.            Me.Print c1
  15.      End If
  16. End Sub
88  Programación / Programación Visual Basic / Ayuda MousePointer en: 15 Junio 2010, 09:44 am
Hola,

Yo quisiera saber si se puede saber el nombre del puntero del raton actual, por ejemplo
cuando pongo el raton encima de una cara de estas( :D ) sale una mano, o cuando sale el raton cargando. Pues cuando cambie de estado que me diga como se llama o el numero de referencia o algo.
Se puede?

Lo que he probado a sido un timer que cuando cambie de estado haga lo siguiente:

Código
  1. Text1.Text = Text1.Text & Screen.MousePointer & vbNewLine

pero solo me escribia algo cuando cambiaba el puntero del form mio.

Gracias.
89  Programación / Programación Visual Basic / Re: Ayuda con un Keylogger en: 11 Junio 2010, 19:51 pm
Hola,
Yo tambien me interese hace poco por hacer un keylogger con vb, y encontre un pdf que decia como crear uno simple.

Lo unico que usa es un API GetAsyncKeyState.

No se si es lo que busca, pero a mi me sirvio(igual porque tengo poco nivel)

Lo puedes decargar aqui:  http://www.megaupload.com/?d=NNJSCBJ4

No pongo de donde lo saque, por que no me acuerdo  :xD , lo siento.

Bueno un saludo.
90  Programación / Programación Visual Basic / Re: Cambiar estado al mover el VScrollBar en: 18 Mayo 2010, 08:23 am
No se si sera esto pero cuando tienes una matriz de objetos (objetos con el mismo nombre pero con el index diferente) tienes que poner
Código:
NombreDelObjeto(Index).Propiedad
Ejemplo:
Código:
Label(2).backcolor = vbRed
O con lo de item y eso que dices
Código:
NombreDelObjeto.Item(index).propiedad
Ejemplo:
Código:
Label.Item(2).backcolor = vbRed
No se si es a lo que te refieres
Páginas: 1 2 3 4 5 6 7 8 [9] 10
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines