Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: WIитX en 8 Septiembre 2012, 15:11 pm


Título: Como creo un multiplicador de clicks
Publicado por: WIитX en 8 Septiembre 2012, 15:11 pm
Si, lo busque en google u.ú

quiero algo como este vídeo

tNY5_ItHF5Y

Encontre estó, me lo explican?

Código:
Dim num As Integer
Dim a As Integer = 1

//clic en un boton
num = TextBox1.Text
a = a + 1
MsgBox(num * a)

//textbox1_textchanged // esto quiere decir que cuando ingreses otro numero la variable se . vuelva 1
a = 1

Título: Re: Como creo un multiplicador de clicks
Publicado por: Elemental Code en 9 Septiembre 2012, 22:07 pm
Basicamente ese video es una mentira.

El codigo fuente que tenes es para el programa que utiliza para "probar" su "multiplicador" de clics.
No es el codigo fuente del multiplicador y no creo que el mutliplicador funcione.

Paso a explicarte que hace ese codigo.

Código
  1. Dim num As Integer 'declara una variable
  2. Dim a As Integer = 1 'declara otra variable (MAL)
  3.  
  4. //clic en un boton 'se equivoca de comentario, ya que en VB se usa el apostrofe y no la doble barra
  5. num = TextBox1.Text ' Obtiene el numero de "clics" que queres obtener
  6. a = a + 1 ' Suma uno a un contador para "demostrar" que su programa funciona
  7. 'Hata aca todo bien, ahora es cuando hace trampa.
  8. MsgBox(num * a) ' MULTIPLICA el numero de clics reales por el numero de clics que a vos te gustaria que de verdad se hiciesen para MENTIRTE diciendote que se hicieron muchisimos clics.
  9.  

Título: Re: Como creo un multiplicador de clicks
Publicado por: WIитX en 10 Septiembre 2012, 10:39 am
Cita de: Elemental Code en  9 Septiembre 2012, 22:07 pm
Basicamente ese video es una mentira.

El codigo fuente que tenes es para el programa que utiliza para "probar" su "multiplicador" de clics.
No es el codigo fuente del multiplicador y no creo que el mutliplicador funcione.

Paso a explicarte que hace ese codigo.

Código
  1. Dim num As Integer 'declara una variable
  2. Dim a As Integer = 1 'declara otra variable (MAL)
  3.  
  4. //clic en un boton 'se equivoca de comentario, ya que en VB se usa el apostrofe y no la doble barra
  5. num = TextBox1.Text ' Obtiene el numero de "clics" que queres obtener
  6. a = a + 1 ' Suma uno a un contador para "demostrar" que su programa funciona
  7. 'Hata aca todo bien, ahora es cuando hace trampa.
  8. MsgBox(num * a) ' MULTIPLICA el numero de clics reales por el numero de clics que a vos te gustaria que de verdad se hiciesen para MENTIRTE diciendote que se hicieron muchisimos clics.
  9.  

Yo personalmente e provado ese programa y con un contador de clicks me clickea mucho más.

Título: Re: Como creo un multiplicador de clicks
Publicado por: 79137913 en 10 Septiembre 2012, 17:53 pm
HOLA!!!

3 Words:

ha ha ha


GRACIAS POR LEER!!!

Título: Re: Como creo un multiplicador de clicks
Publicado por: USLO en 11 Septiembre 2012, 09:20 am
umm^^
Va GENIAL menudo programa.
De entre los 10 mejores programas que he visto hasta ahroa.

 :P

Título: Re: Como creo un multiplicador de clicks
Publicado por: WIитX en 11 Septiembre 2012, 11:42 am
Cita de: Loic en 11 Septiembre 2012, 09:20 am
umm^^
Va GENIAL menudo programa.
De entre los 10 mejores programas que he visto hasta ahroa.

 :P

Porque comentan si no aportan nada? si yo quiero crear el programa mis motivos tendré.

Título: Re: Como creo un multiplicador de clicks
Publicado por: -- KiLiaN -- en 11 Septiembre 2012, 12:05 pm
Ya te han explicado el funcionamiento del source que has puesto, si quieres crear el programa aprende a programar y punto, deja de ir pidiendo las cosas y hazlas tu.

Título: Re: Como creo un multiplicador de clicks
Publicado por: BlackZeroX en 11 Septiembre 2012, 12:36 pm
Cita de: -- KiLiaN -- en 11 Septiembre 2012, 12:05 pm
Ya te han explicado el funcionamiento del source que has puesto, si quieres crear el programa aprende a programar y punto, deja de ir pidiendo las cosas y hazlas tu.

Programar es una cosa, saber como hacerlo es otra...

Cita de: NienSueños en  8 Septiembre 2012, 15:11 pm

Si, lo busque en google u.ú


No se nota... hay demasiados códigos en vb6 que hacen esto.

 [Src] MultiClic In OneClic  (http://foro.elhacker.net/programacion_visual_basic/src_multiclic_in_oneclic-t299892.0.html;msg1782890)

Dulces Lunas!¡.

Título: Re: Como creo un multiplicador de clicks
Publicado por: WIитX en 15 Septiembre 2012, 14:58 pm
No me entra el link

me refiero a un multiplicador de clic según la posición de la flecha del mouse, y esto si existe.

Decompile el programa que baje que es un multiplicador de clicks y esto me dio, nose si servira de algo.

Código
  1. Type=EXE
  2. Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\WINDOWS\SYSTEM32\STDOLE2.TLB#OLE Automation
  3. Form=Frm_Main.frm
  4. Form=Form1.frm
  5. Startup="Frm_Main"
  6. IconForm="Frm_Main"
  7. HelpFile=""
  8. ExeName32="Multiplicador de clicks"
  9. Name="AutoMultiClicker"
  10. Title="by roki-64"
  11. VersionCompanyName="By roki-64"
  12. MajorVer=1
  13. MinorVer=0
  14. RevisionVer=0
  15. Command32 = ""
  16. HelpContextID = "0"
  17. CompatibleMode = "0"
  18. AutoIncrementVer = 0
  19. ServerSupportFiles = 0
  20. CompilationType = 0
  21. OptimizationType = 0
  22. FavorPentiumPro(tm) = 0
  23. CodeViewDebugInfo = 0
  24. NoAliasing = 0
  25. BoundsCheck = 0
  26. OverflowCheck = -1
  27. FlPointCheck = 0
  28. FDIVCheck = 0
  29. UnroundedFP = 0
  30. StartMode = 0
  31. Unattended = 0
  32. Retained = 0
  33. ThreadPerObject = 0
  34. MaxNumberOfThreads = 1
  35.  
  36. [MS Transaction Server]
  37. AutoRefresh = 1
  38.  
  39. [VB Decompiler]
  40. Build = 9.0.4579.56724
  41. Date = 15/09/2012

Código:
VERSION 5.00
Begin VB.Form Frm_Main
  Caption = "Multiplicador de clicks By roki-64"
  ScaleMode = 1
  AutoRedraw = False
  FontTransparent = True
  BorderStyle = 3 'Fixed Dialog
  Icon = "Frm_Main.frx":0
  LinkTopic = "Form1"
  MaxButton = 0   'False
  MinButton = 0   'False
  ClientLeft = 45
  ClientTop = 435
  ClientWidth = 5205
  ClientHeight = 1290
  ShowInTaskbar = 0   'False
  StartUpPosition = 3 'Windows Default
  Begin Frame Frame5
    Caption = "Controles"
    Left = 3480
    Top = 120
    Width = 1695
    Height = 1095
    TabIndex = 34
    Begin CommandButton Command3
      Caption = "Start and stop F1"
      Left = 120
      Top = 720
      Width = 1455
      Height = 315
      TabIndex = 36
    End
    Begin CommandButton Command2
      Caption = "SetPoint F12"
      Left = 120
      Top = 240
      Width = 1455
      Height = 375
      TabIndex = 35
    End
  End
  Begin Frame Frame4
    Left = 120
    Top = 120
    Width = 1695
    Height = 1095
    TabIndex = 31
    Begin CommandButton Command1
      Caption = "Inicializar"
      Left = 240
      Top = 480
      Width = 1215
      Height = 375
      Enabled = 0   'False
      TabIndex = 32
    End
    Begin Label Label8
      Caption = "Estado"
      Left = 600
      Top = 240
      Width = 855
      Height = 255
      TabIndex = 33
    End
  End
  Begin Frame Frame3
    Caption = "Clicks"
    Left = 1920
    Top = 120
    Width = 1455
    Height = 1095
    TabIndex = 28
    Begin OptionButton Option5
      Caption = "X3"
      Left = 240
      Top = 480
      Width = 735
      Height = 195
      TabIndex = 38
    End
    Begin CommandButton Command4
      Caption = "?"
      Left = 960
      Top = 360
      Width = 375
      Height = 615
      TabIndex = 37
    End
    Begin OptionButton Option4
      Caption = "X4"
      Left = 240
      Top = 720
      Width = 1095
      Height = 255
      TabIndex = 30
    End
    Begin OptionButton Option3
      Caption = "X2"
      Left = 240
      Top = 240
      Width = 975
      Height = 195
      TabIndex = 29
      Value = 255
    End
  End
  Begin Timer Timer6
    Interval = 100
    Left = 6855
    Top = 375
  End
  Begin ComboBox definirrapido
    Left = 7140
    Top = 4725
    Width = 1410
    Height = 315
    Visible = 0   'False
    Text = "F12"
    TabIndex = 26
    List = "Frm_Main.frx":205FA
    ItemData = "Frm_Main.frx":2072B
  End
  Begin Timer Timer5
    Left = 6450
    Top = 375
  End
  Begin Timer Timer3
    Interval = 10
    Left = 6045
    Top = 375
  End
  Begin Timer Timer2
    Enabled = 0   'False
    Left = 5685
    Top = 375
  End
  Begin Timer Timer1
    Interval = 100
    Left = 5325
    Top = 375
  End
  Begin PictureBox Picture1
    BackColor = &H80000004&
    Picture = "Frm_Main.frx":20790
    ForeColor = &H80000008&
    Left = 6330
    Top = 360
    Width = 5040
    Height = 1665
    Visible = 0   'False
    TabIndex = 24
    ScaleMode = 1
    AutoRedraw = True
    FontTransparent = True
    BorderStyle = 0 'None
    Appearance = 0 'Flat
  End
  Begin TextBox Text6
    Left = 5280
    Top = 5430
    Width = 7335
    Height = 285
    Enabled = 0   'False
    Visible = 0   'False
    Text = "Text6"
    TabIndex = 23
    Appearance = 0 'Flat
  End
  Begin CheckBox Check1
    Caption = "Definir Ventana"
    Left = 9000
    Top = 4920
    Width = 1695
    Height = 255
    Visible = 0   'False
    TabIndex = 21
    Style = 1
  End
  Begin ComboBox iniciorapido
    Left = 7140
    Top = 5085
    Width = 1410
    Height = 315
    Visible = 0   'False
    Text = "F1"
    TabIndex = 17
    List = "Frm_Main.frx":2B2B3
    ItemData = "Frm_Main.frx":2B3E4
  End
  Begin CommandButton definir
    Caption = "Definir Ventana"
    Left = 9000
    Top = 4920
    Width = 1695
    Height = 255
    Visible = 0   'False
    TabIndex = 16
  End
  Begin Frame Frame2
    Caption = "Configuracion de Clicks"
    Left = 5400
    Top = 3255
    Width = 7095
    Height = 1410
    Visible = 0   'False
    TabIndex = 5
    Begin CheckBox usasetpoint
      Caption = "utilizar setpoint"
      Left = 3255
      Top = 1050
      Width = 1395
      Height = 240
      Visible = 0   'False
      TabIndex = 25
      Value = 1
    End
    Begin OptionButton Option2
      Caption = "Modo MultiClick"
      Left = 1725
      Top = 1050
      Width = 1500
      Height = 225
      TabIndex = 20
      Value = 255
    End
    Begin OptionButton Option1
      Caption = "Modo AutoClick"
      Left = 225
      Top = 1080
      Width = 1560
      Height = 180
      TabIndex = 19
    End
    Begin VScrollBar VScroll2
      Left = 5550
      Top = 660
      Width = 255
      Height = 255
      Enabled = 0   'False
      TabIndex = 15
    End
    Begin VScrollBar VScroll1
      Left = 5550
      Top = 300
      Width = 255
      Height = 255
      Enabled = 0   'False
      TabIndex = 14
    End
    Begin TextBox Text5
      Left = 5190
      Top = 660
      Width = 375
      Height = 285
      Enabled = 0   'False
      Text = "20"
      TabIndex = 11
      Alignment = 2 'Center
    End
    Begin TextBox Text4
      Left = 5190
      Top = 300
      Width = 375
      Height = 285
      Enabled = 0   'False
      Text = "20"
      TabIndex = 10
      Alignment = 2 'Center
    End
    Begin TextBox txt_NClicks
      Left = 2190
      Top = 300
      Width = 735
      Height = 285
      Text = "2"
      TabIndex = 7
    End
    Begin TextBox txt_NInterval
      Left = 2190
      Top = 660
      Width = 735
      Height = 285
      Text = "0"
      TabIndex = 6
    End
    Begin Label Label4
      Caption = "Margen de Pixeles para Y"
      Left = 3270
      Top = 660
      Width = 1860
      Height = 210
      TabIndex = 13
      AutoSize = -1  'True
      BeginProperty Font
        Name = "Arial"
        Size = 8,25
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin Label Label2
      Caption = "Margen de Pixeles para X"
      Left = 3270
      Top = 300
      Width = 1980
      Height = 225
      TabIndex = 12
      BeginProperty Font
        Name = "Arial"
        Size = 8,25
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin Label lbl_Cantclicks
      Caption = "Cantidad de Autoclicks"
      Left = 270
      Top = 300
      Width = 1815
      Height = 255
      TabIndex = 9
      BackStyle = 0 'Transparent
      BeginProperty Font
        Name = "Arial"
        Size = 8,25
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin Label lbl_interval
      Caption = "Intervalo entre click (ms)"
      Left = 270
      Top = 660
      Width = 1815
      Height = 255
      TabIndex = 8
      BackStyle = 0 'Transparent
      BeginProperty Font
        Name = "Arial"
        Size = 8,25
        Charset = 0
        Weight = 400
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
  End
  Begin Frame Frame1
    Caption = "Definir Ventana para Clicks"
    Left = 5400
    Top = 2040
    Width = 7095
    Height = 1125
    Visible = 0   'False
    TabIndex = 0
    Begin Timer Timer4
      Enabled = 0   'False
      Interval = 400
      Left = 6630
      Top = 105
    End
    Begin TextBox Text1
      Left = 2220
      Top = 330
      Width = 4620
      Height = 285
      Enabled = 0   'False
      TabIndex = 2
    End
    Begin TextBox Text2
      Left = 2220
      Top = 660
      Width = 2160
      Height = 300
      Enabled = 0   'False
      TabIndex = 1
    End
    Begin Label Label6
      Caption = "Esperando Posición de Ratón"
      Left = 4485
      Top = 735
      Width = 2520
      Height = 195
      Visible = 0   'False
      TabIndex = 22
      AutoSize = -1  'True
      BeginProperty Font
        Name = "MS Sans Serif"
        Size = 8,25
        Charset = 0
        Weight = 700
        Underline = 0 'False
        Italic = 0 'False
        Strikethrough = 0 'False
      EndProperty
    End
    Begin Label Label1
      Caption = "Ventana donde hacer click"
      Left = 225
      Top = 345
      Width = 1920
      Height = 195
      TabIndex = 4
      AutoSize = -1  'True
    End
    Begin Label Label3
      Caption = "Posición en la ventana"
      Left = 255
      Top = 705
      Width = 1935
      Height = 270
      TabIndex = 3
    End
  End
  Begin Label Label7
    Caption = "Definir Ventana Rapida"
    Left = 5460
    Top = 4755
    Width = 1650
    Height = 195
    Visible = 0   'False
    TabIndex = 27
    AutoSize = -1  'True
  End
  Begin Label Label5
    Caption = "Inicio/Parada Rapida"
    Left = 5460
    Top = 5115
    Width = 1515
    Height = 195
    Visible = 0   'False
    TabIndex = 18
    AutoSize = -1  'True
  End
End

Attribute VB_Name = "Frm_Main"



Título: Re: Como creo un multiplicador de clicks
Publicado por: raul338 en 15 Septiembre 2012, 18:44 pm
Ese decompilador te devolvio el diseño del programa, no te da ningun codigo

Título: Re: Como creo un multiplicador de clicks
Publicado por: WIитX en 15 Septiembre 2012, 20:05 pm
Cita de: raul338 en 15 Septiembre 2012, 18:44 pm
Ese decompilador te devolvio el diseño del programa, no te da ningun codigo

Ya, pero hay gente que decia que no existia y que no se puede hacer eso es una prueba de que se puede hacer. Pueden ayudarme?

Título: Re: Como creo un multiplicador de clicks
Publicado por: raul338 en 15 Septiembre 2012, 20:56 pm
Si existen muchos, y no es imposible. Y el codigo que posteaste no aporta nada ya que la primera parte es el archivo "de proyecto" (a simple vista, no lo vi en profundidad). Lo segundo que pusiste es el diseño de los formularios, eso sin el codigo , no sirve de nada

Tienes que aprender a buscar, hay varios por la red.
Una forma simple de crearlos, es usando esta API: Mouse Event - MSDN (http://msdn.microsoft.com/en-us/library/windows/desktop/ms646260%28v=vs.85%29.aspx)

Título: Re: Como creo un multiplicador de clicks
Publicado por: WIитX en 15 Septiembre 2012, 20:58 pm
Cita de: raul338 en 15 Septiembre 2012, 20:56 pm
Si existen muchos, y no es imposible. Y el codigo que posteaste no aporta nada ya que la primera parte es el archivo "de proyecto" (a simple vista, no lo vi en profundidad). Lo segundo que pusiste es el diseño de los formularios, eso sin el codigo , no sirve de nada

Tienes que aprender a buscar, hay varios por la red.
Una forma simple de crearlos, es usando esta API: Mouse Event - MSDN (http://msdn.microsoft.com/en-us/library/windows/desktop/ms646260%28v=vs.85%29.aspx)

Busque por google códigos y todo eso hasta vi un video pero en el video eliminaron los codigos de la descarga

Título: Re: Como creo un multiplicador de clicks
Publicado por: raul338 en 15 Septiembre 2012, 21:26 pm
Cita de: NienSueños en 15 Septiembre 2012, 20:58 pm
Busque por google códigos y todo eso hasta vi un video pero en el video eliminaron los codigos de la descarga
APRENDE!

Y además, arriba ya te pusieron un link... que más te falta?

Título: Re: Como creo un multiplicador de clicks
Publicado por: BlackZeroX en 17 Septiembre 2012, 05:10 am
Que rara firma para esta persona que se complica la vida...

Si alguien lo hizo tu también puedes...

Dulces Lunas!¡.

Título: Re: Como creo un multiplicador de clicks
Publicado por: USLO en 17 Septiembre 2012, 09:19 am
NienSueños!
Lo que no puedes hacer es meter el codigo fuente de u proyecto entero y esperar que te hagamos el resto!Me da que queires ir demasiado rapido.

Haz preguntas referentes a trozos de codigo , no nos mandes esta salvajada de codigo, para que te hagamos el resto.

Lo que quieres hacer; con un par de funcciones lo tienes hecho.
Saludos.


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines