Todo sobre AO
 
ÍndiceFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse

Comparte | 
 

 Macros configurables

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
Agus
Admin


Mensajes : 69
Fecha de inscripción : 01/07/2008

MensajeTema: Macros configurables   Sáb Ago 23, 2008 1:42 am

TODO EN EL CLIENTE
Creamos un nuevo formulario llamado frmMacros.
En el form creamos 10 Textbox, 12 labels (los que no tienen mucho uso), y 1 Command Button

En la foto dice en la tecla F12 screen, en este code le puse los fps q venia xq es diferente al mio , osea ahi les queda los fps en el caption del frmMain como venia.
El form les quedaria asi:

bueno los labels les ponen asi
A los textbox le ponen estos nombres:
F1Macro,F2Macro,F3Macro,etc (Oviamente segun el label asignado), y al boton le ponen de nombre Guardar.
En el codigo de este formulario ponen:
Citación :

Private Sub Guardar_Click()
SaveSetting App.EXEName, "textos", "F1Macro", F1Macro.Text
SaveSetting App.EXEName, "textos", "F2Macro", F2Macro.Text
SaveSetting App.EXEName, "textos", "F3Macro", F3Macro.Text
SaveSetting App.EXEName, "textos", "F4Macro", F4Macro.Text
SaveSetting App.EXEName, "textos", "F5Macro", F5Macro.Text
SaveSetting App.EXEName, "textos", "F6Macro", F6Macro.Text
SaveSetting App.EXEName, "textos", "F7Macro", F7Macro.Text
SaveSetting App.EXEName, "textos", "F7Macro", F8Macro.Text
SaveSetting App.EXEName, "textos", "F7Macro", F9Macro.Text
SaveSetting App.EXEName, "textos", "F7Macro", F10Macro.Text

MsgBox "Macros Guardados."
Me.Hide
End Sub

Private Sub Form_Load()
F1Macro.Text = GetSetting(App.EXEName, "textos", "F1Macro", "")
F2Macro.Text = GetSetting(App.EXEName, "textos", "F2Macro", "")
F3Macro.Text = GetSetting(App.EXEName, "textos", "F3Macro", "")
F4Macro.Text = GetSetting(App.EXEName, "textos", "F4Macro", "")
F5Macro.Text = GetSetting(App.EXEName, "textos", "F5Macro", "")
F6Macro.Text = GetSetting(App.EXEName, "textos", "F6Macro", "")
F7Macro.Text = GetSetting(App.EXEName, "textos", "F7Macro", "")
F7Macro.Text = GetSetting(App.EXEName, "textos", "F8Macro", "")
F7Macro.Text = GetSetting(App.EXEName, "textos", "F9Macro", "")
F7Macro.Text = GetSetting(App.EXEName, "textos", "F10Macro", "")
End Sub
Listo ahi se termina de usar ese formulario.
Despues vamos al codigo del frmMain y Buscamos:
Citación :

Case vbKeyF4:
FPSFLAG = Not FPSFLAG
If Not FPSFLAG Then _
frmMain.Caption = "Argentum Online" & " v " & App.Major & "." & App.Minor & "." & App.Revision
Case vbKeyControl:
If (UserCanAttack = 1) And _
(Not UserDescansar) And _
(Not UserMeditar) Then
SendData "AT"
UserCanAttack = 0

'[ANIM ATAK]
' CharList(UserCharIndex).Arma.WeaponWalk(CharList(UserCharIndex).Heading).Started = 1
' CharList(UserCharIndex).Arma.WeaponAttack = GrhData(CharList(UserCharIndex).Arma.WeaponWalk(CharList(UserCharIndex).Heading).GrhIndex).NumFrames + 1

End If
Case vbKeyF5:
Call frmOpciones.Show(vbModeless, frmMain)
Case vbKeyF6:
If Not PuedeMacrear Then
AddtoRichTextBox frmMain.RecTxt, "No tan rápido..!", 255, 255, 255, False, False, False
Else
Dim k As String
k = "DIT"
Call SendData("/ME" & k & "AR")
PuedeMacrear = False
End If
Case vbKeyF7:
If TrainingMacro.Enabled Then
DesactivarMacroHechizos
Else
ActivarMacroHechizos
End If
Y reemplazamos todos eso por esto:
Citación :

'Standelf
Case vbKeyF1:
Call SendData("/" & frmMacros.F1Macro.Text)
Case vbKeyF2:
Call SendData("/" & frmMacros.F2Macro.Text)
Case vbKeyF3:
Call SendData("/" & frmMacros.F3Macro.Text)
Case vbKeyF4:
Call SendData("/" & frmMacros.F4Macro.Text)
Case vbKeyF5:
Call SendData("/" & frmMacros.F5Macro.Text)
Case vbKeyF6:
Call SendData("/" & frmMacros.F6Macro.Text)
Case vbKeyF7:
Call SendData("/" & frmMacros.F7Macro.Text)
Case vbKeyF8:
Call SendData("/" & frmMacros.F8Macro.Text)
Case vbKeyF9:
Call SendData("/" & frmMacros.F9Macro.Text)
Case vbKeyF10:
Call SendData("/" & frmMacros.F10Macro.Text)
Case vbKeyControl:
If (UserCanAttack = 1) And _
(Not UserDescansar) And _
(Not UserMeditar) Then
SendData "AT"
UserCanAttack = 0

'[ANIM ATAK]
' CharList(UserCharIndex).Arma.WeaponWalk(CharList(UserCharIndex).Heading).Started = 1
' CharList(UserCharIndex).Arma.WeaponAttack = GrhData(CharList(UserCharIndex).Arma.WeaponWalk(CharList(UserCharIndex).Heading).GrhIndex).NumFrames + 1

End If
Case vbKeyF11:
If TrainingMacro.Enabled Then
DesactivarMacroHechizos
Else
ActivarMacroHechizos
End If

Case vbKeyF12:
FPSFLAG = Not FPSFLAG
If Not FPSFLAG Then _
frmMain.Caption = "Argentum Online" & " v " & App.Major & "." & App.Minor & "." & App.Revision
Despues en el frmopciones crean otro Command button y en el code le ponen:
Citación :

Unload Me
frmMacros.Show
Y listo
Volver arriba Ir abajo
Ver perfil de usuario http://recompilacionao.forosactivos.com
 
Macros configurables
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» todo sobre las macros
» [Guía oficial] Macros y el uso del Hot Key Board
» Logitech Profiler
» Excel Ficha de Creación de Equipos.
» hacer macros

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: jijijijijiij-
Cambiar a: