Macros STYLO TPAO

Bueno , vengo a aportar esto , Es corto Smile Son Macros Configurables , style TPAO .

Buscan :

Código:
Call SendData("/MEDITAR")


Abajo :

Código:
Case vbKey1:
If frmMain.SendTxt.Visible = True Then Exit Sub
If Macros.Text1.Text = "" Then
AddtoRichTextBox frmMain.RecTxt, "Comando no reconocido.", 255, 0, 0
Else
Call SendData("/" & Macros.Text1.Text)
End If
Case vbKey2:
If frmMain.SendTxt.Visible = True Then Exit Sub
If Macros.Text2.Text = "" Then
AddtoRichTextBox frmMain.RecTxt, "Comando no reconocido.", 255, 0, 0
ElseIf frmMain.SendTxt.Visible = True Then
Else
Call SendData("/" & Macros.Text2.Text)
End If
Case vbKey3:
If frmMain.SendTxt.Visible = True Then Exit Sub
If Macros.Text3.Text = "" Then
AddtoRichTextBox frmMain.RecTxt, "Comando no reconocido.", 255, 0, 0
Else
Call SendData("/" & Macros.Text3.Text)
End If
Case vbKey4:
If frmMain.SendTxt.Visible = True Then Exit Sub
If Macros.Text4.Text = "" Then
AddtoRichTextBox frmMain.RecTxt, "Comando no reconocido.", 255, 0, 0
Else
Call SendData("/" & Macros.Text4.Text)
End If
Case vbKey5:
If frmMain.SendTxt.Visible = True Then Exit Sub
If Macros.Text5.Text = "" Then
AddtoRichTextBox frmMain.RecTxt, "Comando no reconocido.", 255, 0, 0
Else
Call SendData("/" & Macros.Text5.Text)
End If
Case vbKey6:
If frmMain.SendTxt.Visible = True Then Exit Sub
If Macros.Text6.Text = "" Then
AddtoRichTextBox frmMain.RecTxt, "Comando no reconocido.", 255, 0, 0
Else
Call SendData("/" & Macros.Text6.Text)
End If
Case vbKey7:
If frmMain.SendTxt.Visible = True Then Exit Sub
If Macros.Text7.Text = "" Then
AddtoRichTextBox frmMain.RecTxt, "Comando no reconocido.", 255, 0, 0
Else
Call SendData("/" & Macros.Text7.Text)
End If
Case vbKey8:
If frmMain.SendTxt.Visible = True Then Exit Sub
If Macros.Text8.Text = "" Then
AddtoRichTextBox frmMain.RecTxt, "Comando no reconocido.", 255, 0, 0
Else
Call SendData("/" & Macros.Text8.Text)
End If
Case vbKey9:
If frmMain.SendTxt.Visible = True Then Exit Sub
If Macros.Text9.Text = "" Then
AddtoRichTextBox frmMain.RecTxt, "Comando no reconocido.", 255, 0, 0
Else
Call SendData("/" & Macros.Text9.Text)
End If
Case vbKey0:
If frmMain.SendTxt.Visible = True Then Exit Sub
If Macros.Text10.Text = "" Then
AddtoRichTextBox frmMain.RecTxt, "Comando no reconocido.", 255, 0, 0
Else
Call SendData("/" & Macros.Text10.Text)
End If


Ahora , descargan esto : http://www.mediafire.com/?s3ya4dl9450ikir . y lo agregan al cliente , y listo Wink Funcional !

FUENTE : GS-ZONE.

Mismo post... Media pila, si vas a hacer Copy Paste, hacelo bien si?