Macros configurables

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