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]


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

Desconectado Desconectado

Mensajes: 9


Ver Perfil
Consulta sobre este formulario
« en: 18 Mayo 2013, 20:51 pm »

Bueno toy tratando de hacer funcionar este fomulario pero me falta algo para
que funcione en teoria este deberia ser para funcione un auto potion
de un juego online pero a la ahora de activarlo no funciona quisas me
falte complementar algo mas o quisas alguien conosca otra forma de
hacer un autopotion vb o otro lenguaje que me puede orientar

Duda para autopotion se saca :andress, pointer o value.... ?
 y donde se pondria como se seria su funcion


Código
  1. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  2.  
  3. Private Sub Form_Load()
  4. With TVida
  5. .Enabled = False
  6. .Interval = 200
  7. End With
  8. With TMana
  9. .Enabled = False
  10. .Interval = 200
  11. End With
  12. End Sub
  13. Private Sub HP()
  14.    If TVida.Enabled = False Then
  15.        TVida.Interval = CInt(Val(Text1.Text))
  16.        TVida.Enabled = True
  17.        Command1.Caption = "Parar"
  18.    Else
  19.       TVida.Enabled = False
  20.       Command1.Caption = "Empezar"
  21.    End If
  22. End Sub
  23.  
  24. Private Sub MP()
  25.    If TMana.Enabled = False Then
  26.        TMana.Interval = CInt(Val(Text2.Text))
  27.        TMana.Enabled = True
  28.        Command2.Caption = "Parar"
  29.    Else
  30.       TMana.Enabled = False
  31.       Command2.Caption = "Empezar"
  32.    End If
  33. End Sub
  34. Private Sub Command1_Click()
  35. Call HP
  36. End Sub
  37. Private Sub Command2_Click()
  38. Call MP
  39. End Sub
  40. Private Sub TVida_Timer()
  41. SendKeys (vbKeyF7)
  42. End Sub
  43. Private Sub TMana_Timer()
  44. SendKeys (vbKeyF8)
  45. End Sub
  46. Private Function GetKeyState(Key As Integer) As Boolean
  47.    GetKeyState = CBool(GetAsyncKeyState(Key))
  48. End Function
  49. Private Sub HotKeys_Timer()
  50. If GetKeyState(vbKey1) = True Then
  51. Call Command1_Click
  52. ElseIf GetKeyState(vbKey2) = True Then
  53. Call Command2_Click
  54. End If
  55. End Sub




En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[Consulta-php] Variables de formulario en array
PHP
hernanlp83 5 5,432 Último mensaje 29 Septiembre 2008, 23:12 pm
por cassiani
Hacer consulta y mostrar en formulario ¿es posible ?
PHP
teudiss 4 7,687 Último mensaje 22 Marzo 2010, 12:09 pm
por haxple
Ayuda con consulta SQL en formulario PHP
PHP
oscarj24 7 3,984 Último mensaje 25 Junio 2010, 04:55 am
por juancho77
[?][php][mysql]Enviar consulta en un formulario « 1 2 »
Desarrollo Web
Jaes 12 6,309 Último mensaje 10 Enero 2013, 12:09 pm
por 01munrra
Una pequeña consulta sobre este PC
Hardware
Wickown 1 1,712 Último mensaje 21 Marzo 2014, 22:31 pm
por crazykenny
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines