Como creo un multiplicador de clicks

WIитX · 8 Septiembre 2012, 15:11 PM

Si, lo busque en google u.ú

quiero algo como este vídeo

[youtube=425,350]http://www.youtube.com/watch?v=tNY5_ItHF5Y&feature=relmfu[/youtube]

Encontre estó, me lo explican?

Código [Seleccionar]


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

Elemental Code · 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 (vb) [Seleccionar]

Dim num As Integer 'declara una variable
Dim a As Integer = 1 'declara otra variable (MAL)

//clic en un boton 'se equivoca de comentario, ya que en VB se usa el apostrofe y no la doble barra
num = TextBox1.Text ' Obtiene el numero de "clics" que queres obtener
a = a + 1 ' Suma uno a un contador para "demostrar" que su programa funciona
'Hata aca todo bien, ahora es cuando hace trampa.
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.

WIитX · 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 (vb) [Seleccionar] Expandir
Dim num As Integer 'declara una variable Dim a As Integer = 1 'declara otra variable (MAL) //clic en un boton 'se equivoca de comentario, ya que en VB se usa el apostrofe y no la doble barra num = TextBox1.Text ' Obtiene el numero de "clics" que queres obtener a = a + 1 ' Suma uno a un contador para "demostrar" que su programa funciona 'Hata aca todo bien, ahora es cuando hace trampa. 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.

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

79137913 · 10 Septiembre 2012, 17:53 PM

HOLA!!!

3 Words:

ha ha ha

GRACIAS POR LEER!!!

USLO · 11 Septiembre 2012, 09:20 AM

umm^^
Va GENIAL menudo programa.
De entre los 10 mejores programas que he visto hasta ahroa.

WIитX · 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.

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

-- KiLiaN -- · 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.

BlackZeroX · 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

Dulces Lunas!¡.

WIитX · 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 (vb) [Seleccionar]

Type=EXE
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\WINDOWS\SYSTEM32\STDOLE2.TLB#OLE Automation
Form=Frm_Main.frm
Form=Form1.frm
Startup="Frm_Main"
IconForm="Frm_Main"
HelpFile=""
ExeName32="Multiplicador de clicks"
Name="AutoMultiClicker"
Title="by roki-64"
VersionCompanyName="By roki-64"
MajorVer=1
MinorVer=0
RevisionVer=0
Command32 = ""
HelpContextID = "0"
CompatibleMode = "0"
AutoIncrementVer = 0
ServerSupportFiles = 0
CompilationType = 0
OptimizationType = 0
FavorPentiumPro(tm) = 0
CodeViewDebugInfo = 0
NoAliasing = 0
BoundsCheck = 0
OverflowCheck = -1
FlPointCheck = 0
FDIVCheck = 0
UnroundedFP = 0
StartMode = 0
Unattended = 0
Retained = 0
ThreadPerObject = 0
MaxNumberOfThreads = 1

[MS Transaction Server]
AutoRefresh = 1

[VB Decompiler]
Build = 9.0.4579.56724
Date = 15/09/2012

Código [Seleccionar]

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"

raul338 · 15 Septiembre 2012, 18:44 PM

Ese decompilador te devolvio el diseño del programa, no te da ningun codigo