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

 

 


Tema destacado:


  Mostrar Mensajes
Páginas: 1 2 3 4 [5] 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 ... 47
41  Programación / Programación Visual Basic / Re: generar .exe con un clic en: 11 Enero 2009, 04:56 am
esto ya esta hablado, busca en el foro...
lo vas a encontrar en ejemplos donde hay un troyano q crea un server con determinada no-ip, etc
42  Programación / Programación Visual Basic / Re: [DUDA] Con que puedo reemplazar el IF? en: 10 Enero 2009, 05:26 am
Citar
Código
Option Explicit
 
Public a As Integer
 
Private Sub Command1_Click()
    a = 5
    If Not IsNumeric(a) Then MsgBox ("Debe ser Numerico"): Exit Sub
    Select Case a
        Case 0 To 9
            MsgBox ("El numero esta entre 0 y 9")
        Case 10 To 19
            MsgBox ("El numero esta entre 10 y 19")
        Case 20 To 29
            MsgBox ("El numero esta entre 20 y 29")
        Case Is >= 30
            MsgBox ("El numero es mayor o igual que 30")
        Case Else
            MsgBox ("Ingresaste un Numero Negativo?? xD")
    End Select
End Sub

tenes toda la razon.. es asi como se hace :P


esto q habian posteado.. esta mal hecho.. seria como usar el select case como un if.. donde el numero recorreria solo un case, y solo un if...:S
Citar
Select Case (a)

case 0 (a >= 0) And (a <= 9)
          sentencias

case 1 (a >= 10) And (a <= 19)
          sentencias

case 2 (a >= 20) And (a <= 29)
          sentencias
43  Programación / Programación Visual Basic / Re: auto modificar exe en: 7 Enero 2009, 18:05 pm
mira... yo hice programas q se autoleen, pero no lo podes modificar.. el error tiene q estar ahi, ya q el archivo esta en uso... osea no puedes modificar algo q estas usando...

xq no guardas los datos en un *.txt? o un archivo con otra extension como *.asdf o lo q quieras, tb lo puedes poner oculto..
44  Programación / Programación Visual Basic / Re: Generar clic en: 7 Enero 2009, 17:59 pm
bueno... mira te voy a dar casi todo ya hecho xD, solamente vas a tener q adaptarlo a lo q vos quieras..

Código
  1. Private Type POINTAPI
  2.    X As Long
  3.    Y As Long
  4. End Type
  5.  
  6. Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  7.  
  8. Dim Mouse As POINTAPI
  9.  
  10. Private Sub Form_Load()
  11.    Timer1.Interval = 100
  12.    Me.FontSize = 10
  13. End Sub
  14.  
  15. Private Sub Timer1_Timer()
  16.    Call GetCursorPos(Mouse)
  17.    Me.Cls
  18.    Me.Print "Posicion del cursor :"
  19.    Me.Print "X:" + Str$(Mouse.X) + vbCrLf + "Y:" + Str$(Mouse.Y)
  20. End Sub
  21.  

con eso sacas las coordenadas...


ahora esto es el resto, mover el cursor y hacer clicks..

Código
  1. Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
  2. Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
  3. Const MOUSEEVENTF_LEFTDOWN = &H2
  4. Const MOUSEEVENTF_LEFTUP = &H4
  5. Const MOUSEEVENTF_MIDDLEDOWN = &H20
  6. Const MOUSEEVENTF_MIDDLEUP = &H40
  7. Const MOUSEEVENTF_MOVE = &H1
  8. Const MOUSEEVENTF_ABSOLUTE = &H8000
  9. Const MOUSEEVENTF_RIGHTDOWN = &H8
  10. Const MOUSEEVENTF_RIGHTUP = &H10
  11.  
  12. 'aca para hacer los clicks... segun el evento q quieras.. la verdad no se como hacerlo con F10 asi q te los dejo sin evento...
  13.  
  14. 'asi moves el cursor
  15. SetCursorPos 722, 141
  16.  
  17. 'asi haces un click
  18. mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, cButt, dwEI
  19. mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
  20.  

45  Programación / Programación Visual Basic / Re: Generar clic en: 7 Enero 2009, 17:12 pm
te hago una pregunta... es para otro cheat de AO??? xD
46  Programación / Programación Visual Basic / Re: Macro para juego [ayuda] en: 7 Enero 2009, 01:45 am
una de dos...
o aprendes a jugar
o aprendes a programar...

pero no sabes ninguna xD

aparte lo preguntaste hace una semana... para q insistir tantoo
47  Programación / Programación Visual Basic / Re: Buscar una imagen dentro de otra en: 30 Diciembre 2008, 18:50 pm
mira hice este programa hace un tiempo con la idea de lograr capturas de pantalla de manera mas veloz para mi troyano. mi idea en ese entonces era tomar una captura de pantalla, enviarla al cliente y tb guardarla en el servidor, luego tomar una segunda y compararla ocn la primera y enviar solamente las partes q difieran...
bueno logre poder comparar 2 imagenes pequeñas, pero el problema es q para comparar los screen tienen q estar los dos cargaods en la pantalla... y obviamente en una pantalla no se peuden cargar 2 xD...

en fin el proyecto donde "experimente" quedo asi...
(decime si te sirve)

necesita: un combobox 2 picturebox 2 commandbutton:   (1 caption compara y el 2º limpiar)

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 Ancho As Integer
  17. Dim Alto As Integer
  18. Dim PixX As Integer
  19. Dim PixY As Integer
  20. Dim PixColor As Double
  21. Dim oPixColor As Double
  22. Alto = Picture1.Height
  23. Ancho = Picture1.Width
  24. Picture1.DrawWidth = 1
  25. Picture2.DrawWidth = 1
  26. For PixX = 1 To Ancho Step 10
  27.    For PixY = 1 To Alto Step 10
  28.    PixColor = Picture1.Point(PixX, PixY)
  29.    oPixColor = Picture2.Point(PixX, PixY)
  30.    If Not PixColor = oPixColor Then
  31.    Color = Picture1.Point(PixX, PixY)
  32.    Picture2.PSet (PixX, PixY), Color
  33.    End If
  34.    Next PixY
  35. Next PixX
  36. Picture1.DrawWidth = 3
  37. Picture2.DrawWidth = 3
  38. End Sub
  39.  
  40. Private Sub Command2_Click()
  41. Picture1.Cls
  42. Picture2.Cls
  43. End Sub
  44.  
  45. Private Sub Form_Load()
  46. Picture1.Height = 1500
  47. Picture2.Height = 1500
  48. Picture1.Width = 1500
  49. Picture2.Width = 1500
  50. Picture1.DrawWidth = 3
  51. Picture2.DrawWidth = 3
  52. Picture1.BackColor = vbWhite
  53. Picture2.BackColor = vbWhite
  54. With Combo1
  55.    .AddItem "Rojo"
  56.    .AddItem "Verde"
  57.    .AddItem "Azul"
  58. End With
  59. End Sub
  60.  
  61.  
  62. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  63. Presionado = True
  64. Picture1.CurrentX = X
  65. Picture1.CurrentY = Y
  66. End Sub
  67.  
  68. Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  69. If Presionado = False Then Exit Sub
  70. Picture1.Line -(X, Y), Color
  71. End Sub
  72.  
  73. Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  74. Presionado = False
  75. End Sub
  76.  
  77. Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  78. Presionado = True
  79. Picture2.CurrentX = X
  80. Picture2.CurrentY = Y
  81. End Sub
  82.  
  83. Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  84. If Presionado = False Then Exit Sub
  85. Picture2.Line -(X, Y), Color
  86. End Sub
  87.  
  88. Private Sub Picture2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  89. Presionado = False
  90. End Sub

desp tendrias q modificarlo para q x ejemplo busque los pixeles del picture1 en el picture 2

espero q sirva

SALUDOS
48  Programación / Programación Visual Basic / Re: Ayuda con listbox en: 30 Diciembre 2008, 18:42 pm
si es cierto.. sino cuando uno mueve el scroll de una, no coincidirian los datos =P
49  Programación / Programación Visual Basic / Re: Ayuda con listbox en: 30 Diciembre 2008, 17:04 pm
no entendi muy bien el problema pero creo q es algo asi...
x ejemplo en el list tenes

al darle un click
art 1
art 2
art 3

al darle el seg para agregar un 4º item

art 1
art 2
art 3
art 1
art 2
art 3
art 4

en ese caso pone en el evento del command_click al principio
Código
  1. List1.Clear

si no es eso ni idea xD no te entendi muy bien
50  Programación / Programación Visual Basic / Re: como cargar 100 KBs en una variable; problema con InStr en: 30 Diciembre 2008, 03:53 am
mira una vez necesitaba tb hacer busqueda de texto en un string... y no conocia la funcion instr... asi q esto fue lo q hice

Código
  1. Dim TamTexto As Integer
  2. Dim Texto As String
  3. Dim Caracteres As Byte
  4. Dim Busca As String
  5.  
  6. Private Sub Command1_Click()
  7. Texto = Text1.Text
  8. TamTexto = Len(Texto)
  9. Busca = Text2.Text
  10. Caracteres = Len(Busca)
  11.  
  12. Dim i As Integer
  13. For i = 1 To TamTexto
  14.    If Busca = Mid(Texto, i, Caracteres) Then
  15.    Text1.SetFocus
  16.    Text1.SelStart = i - 1
  17.    Text1.SelLength = Caracteres
  18.    End If
  19. Next
  20.  
  21. End Sub
  22.  

fijate si te sirve... xq ahi trabajas con una string, y en esta si se pueden cargar esa cantidad de datos :P
Páginas: 1 2 3 4 [5] 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 ... 47
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines