[Aportes indexados] Anti-Macro Simple

Estado
Cerrado para nuevas respuestas.

Shura

Dragón Ancestral Lvl 2
[SERVIDOR/CLIENTE] Anti-Macro Simple

Para el Servidor y el Cliente

Cliente

Vamos A Private Sub Form_KeyUp Y Buscamos:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Case</span> vbKeyF4</li></ol></div>[/vb]
Arriba Agregamos:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Case</span> vbKeyF1:</li><li style="" class="li2"><span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span><span style="color: #ffffff;">"MACROILEGAL"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">Case</span> vbKeyF2:</li><li style="" class="li2"><span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span><span style="color: #ffffff;">"MACROILEGAL"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">Case</span> vbKeyF3:</li><li style="" class="li2"><span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span><span style="color: #ffffff;">"MACROILEGAL"</span><span style="color: #66cc66;">)</span></li></ol></div>[/vb]
Luego Buscamos:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Case</span> vbKeyF7:</li><li style="" class="li2"><span style="color: #b1b100;">If</span> TrainingMacro.<span style="color: #66cc66;">Enabled</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">DesactivarMacroHechizos</li><li style="" class="li2"><span style="color: #b1b100;">Else</span></li><li style="" class="li1">ActivarMacroHechizos</li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li></ol></div>[/vb]
Y Debajo Agregamos:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Case</span> vbKeyF8:</li><li style="" class="li2"><span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span><span style="color: #ffffff;">"MACROILEGAL"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">Case</span> vbKeyF9:</li><li style="" class="li2"><span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span><span style="color: #ffffff;">"MACROILEGAL"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">Case</span> vbKeyF10:</li><li style="" class="li2"><span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span><span style="color: #ffffff;">"MACROILEGAL"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">Case</span> vbKeyF11:</li><li style="" class="li2"><span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span><span style="color: #ffffff;">"MACROILEGAL"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">Case</span> vbKeyF12:</li><li style="" class="li2"><span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span><span style="color: #ffffff;">"MACROILEGAL"</span><span style="color: #66cc66;">)</span></li></ol></div>[/vb]

Servidor

Ahora Vamos Al Public Sub HandleData_1 Y Buscamos:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Case</span> <span style="color: #ffffff;">"USA"</span></li></ol></div>[/vb]
Y Justo Arriba Agregamos Las Siguientes Lineas:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Case</span> <span style="color: #ffffff;">"MACROILEGAL"</span></li><li style="" class="li2">Cerrar_Usuario <span style="color: #66cc66;">(</span>UserIndex<span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li></ol></div>[/vb]
 
Estado
Cerrado para nuevas respuestas.
Arriba