Como creo un multiplicador de clicks

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

0 Miembros y 1 Visitante están viendo este tema.

WIитX

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?


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
"Es más divertido hacerse pirata que unirse a la marina." (Steve Jobs)

Elemental Code

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.

I CODE FOR $$$
Programo por $$$
Hago tareas, trabajos para la facultad, lo que sea en VB6.0

Mis programas

WIитX

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]
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.
"Es más divertido hacerse pirata que unirse a la marina." (Steve Jobs)

79137913

HOLA!!!

3 Words:

ha ha ha


GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

USLO

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

:P

WIитX

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é.
"Es más divertido hacerse pirata que unirse a la marina." (Steve Jobs)

-- KiLiaN --

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.
Entren al chat de elhacker.net
    
   

@kln13

BlackZeroX

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!¡.
The Dark Shadow is my passion.

WIитX

#8
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


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"


"Es más divertido hacerse pirata que unirse a la marina." (Steve Jobs)

raul338

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