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
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.
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.
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.
HOLA!!!
3 Words:
ha ha ha
GRACIAS POR LEER!!!
umm^^
Va GENIAL menudo programa.
De entre los 10 mejores programas que he visto hasta ahroa.
:P
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é.
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.
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!¡.
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"
Ese decompilador te devolvio el diseño del programa, no te da ningun codigo
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?
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)
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
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?
Que rara firma para esta persona que se complica la vida...
Si alguien lo hizo tu también puedes...
Dulces Lunas!¡.
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.