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

 

 


Tema destacado: Introducción a Git (Primera Parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Como creo un multiplicador de clicks
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: Como creo un multiplicador de clicks  (Leído 11,731 veces)
WIитX


Desconectado Desconectado

Mensajes: 1.026


WINTX


Ver Perfil WWW
Como creo un multiplicador de clicks
« en: 8 Septiembre 2012, 15:11 pm »

Si, lo busque en google u.ú

quiero algo como este vídeo



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


En línea

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


Desconectado Desconectado

Mensajes: 622


Im beyond the system


Ver Perfil
Re: Como creo un multiplicador de clicks
« Respuesta #1 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.  


En línea

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

Mis programas
WIитX


Desconectado Desconectado

Mensajes: 1.026


WINTX


Ver Perfil WWW
Re: Como creo un multiplicador de clicks
« Respuesta #2 en: 10 Septiembre 2012, 10:39 am »

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.
En línea

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


Desconectado Desconectado

Mensajes: 1.169


4 Esquinas


Ver Perfil WWW
Re: Como creo un multiplicador de clicks
« Respuesta #3 en: 10 Septiembre 2012, 17:53 pm »

HOLA!!!

3 Words:

ha ha ha


GRACIAS POR LEER!!!
En línea

"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

Desconectado Desconectado

Mensajes: 175

Programador(C#,Vb.net,Asp.Net,JavaAndroid)


Ver Perfil
Re: Como creo un multiplicador de clicks
« Respuesta #4 en: 11 Septiembre 2012, 09:20 am »

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

 :P
En línea

WIитX


Desconectado Desconectado

Mensajes: 1.026


WINTX


Ver Perfil WWW
Re: Como creo un multiplicador de clicks
« Respuesta #5 en: 11 Septiembre 2012, 11:42 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é.
En línea

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


Desconectado Desconectado

Mensajes: 1.163


Ju Já!!


Ver Perfil
Re: Como creo un multiplicador de clicks
« Respuesta #6 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.
En línea

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: Como creo un multiplicador de clicks
« Respuesta #7 en: 11 Septiembre 2012, 12:36 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...


Si, lo busque en google u.ú


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

[Src] MultiClic In OneClic

Dulces Lunas!¡.
En línea

The Dark Shadow is my passion.
WIитX


Desconectado Desconectado

Mensajes: 1.026


WINTX


Ver Perfil WWW
Re: Como creo un multiplicador de clicks
« Respuesta #8 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"


« Última modificación: 15 Septiembre 2012, 18:36 pm por raul338 » En línea

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


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Como creo un multiplicador de clicks
« Respuesta #9 en: 15 Septiembre 2012, 18:44 pm »

Ese decompilador te devolvio el diseño del programa, no te da ningun codigo
En línea

Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[MOD] ¿Cómo hago esto? osea como creo un video como este.
Multimedia
MicroAttackeR 2 4,301 Último mensaje 27 Octubre 2008, 21:26 pm
por MicroAttackeR
Esquema de un multiplicador digital de 8 bits
Electrónica
Shrick 2 10,940 Último mensaje 8 Marzo 2009, 20:15 pm
por Shrick
Problema con multiplicador
Hardware
franjavitu 2 3,132 Último mensaje 13 Diciembre 2011, 09:46 am
por franjavitu
¿Como detectar clicks en c++ con intervalo de tiempo?
Programación C/C++
tupapa007 2 3,018 Último mensaje 4 Febrero 2014, 09:19 am
por eferion
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines