Autor
Tema: Como creo un multiplicador de clicks (Leído 11,699 veces)
WIитX
Desconectado
Mensajes: 1.026
WINTX
Si, lo busque en google u.ú
quiero algo como este vídeo
VIDEO 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
En línea
"Es más divertido hacerse pirata que unirse a la marina." (Steve Jobs)
Elemental Code
Desconectado
Mensajes: 622
Im beyond the system
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.
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.
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
Mensajes: 1.026
WINTX
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.
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.
En línea
"Es más divertido hacerse pirata que unirse a la marina." (Steve Jobs)
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
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
Mensajes: 175
Programador(C#,Vb.net,Asp.Net,JavaAndroid)
umm^^
Va GENIAL menudo programa.
De entre los 10 mejores programas que he visto hasta ahroa.
En línea
WIитX
Desconectado
Mensajes: 1.026
WINTX
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é.
En línea
"Es más divertido hacerse pirata que unirse a la marina." (Steve Jobs)
-- KiLiaN --
Desconectado
Mensajes: 1.163
Ju Já!!
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
Mensajes: 3.158
I'Love...!¡.
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
Mensajes: 1.026
WINTX
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.
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"
« Ú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
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
Ese decompilador te devolvio el diseño del programa, no te da ningun codigo
En línea