Bueno miren siempre me olvidava de preguntar esto en el codigo del cliente que barrin libero , en la carpeta "\Codigo\Backup" esta este modulo nose si sirve y si sirve diganme si es bueno
Gracias
antiSh.bas
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Option</span> <span style="color: #b1b100;">Explicit</span></li><li style="" class="li1"><span style="color: #808080;">'NIST SERVERS</span></li><li style="" class="li2"><span style="color: #808080;">'128.138.140.44 utcnist.colorado.edu University of CO, Boulder</span></li><li style="" class="li1"><span style="color: #808080;">'129.6.15.28 time-a.nist.gov NIST, Gaithersburg, MD</span></li><li style="" class="li1"><span style="color: #808080;">'129.6.15.29 time-b.nist.gov NIST, Gaithersburg, MD</span></li><li style="" class="li2"><span style="color: #808080;">'131.107.1.10 time-nw.nist.gov Microsoft, Redmond, WA</span></li><li style="" class="li1"><span style="color: #808080;">'132.163.4.101 time-a.timefreq.bldrdoc.gov NIST, Boulder, Colorado</span></li><li style="" class="li1"><span style="color: #808080;">'132.163.4.102 time-b.timefreq.bldrdoc.gov NIST, Boulder, Colorado</span></li><li style="" class="li2"><span style="color: #808080;">'132.163.4.103 time-c.timefreq.bldrdoc.gov NIST, Boulder, Colorado</span></li><li style="" class="li1"><span style="color: #808080;">'192.43.244.18 time.nist.gov NCAR, Boulder, Colorado</span></li><li style="" class="li1"><span style="color: #808080;">'205.188.185.33 nist1.aol-va.truetime.com AOL TrueTime, Virginia</span></li><li style="" class="li2"><span style="color: #808080;">'207.126.98.204 nist1-sj.glassey.com Abovenet, San Jose, CA</span></li><li style="" class="li1"><span style="color: #808080;">'207.200.81.113 nist1.aol-ca.truetime.com AOL TT, Sunnyvale, CA</span></li><li style="" class="li1"><span style="color: #808080;">'208.184.49.9 nist1-ny.glassey.com Abovenet, New York City</span></li><li style="" class="li2"><span style="color: #808080;">'216.200.93.8 nist1-dc.glassey.com Abovenet, Virginia</span></li><li style="" class="li1"><span style="color: #808080;">'66.243.43.21 nist1.datum.com Datum, San Jose, CA</span></li><li style="" class="li1"><span style="color: #808080;">'132.163.4.102 anda bien</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Const</span> MAXIMADIFERENCIA = <span style="color: #cc66cc;">5000</span> <span style="color: #808080;">'diferencia máxima tolerable atribuída al tráfico en la red en ms</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Function</span> GetTickCount Lib <span style="color: #ffffff;">"kernel32"</span> <span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">Private</span> ZERO <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li2"><span style="color: #b1b100;">Private</span> ULTIMO <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #808080;">'Funciones del cliente</span></li><li style="" class="li2"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Sub</span> GetNistTime<span style="color: #66cc66;">(</span>Optional ip <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span> = <span style="color: #ffffff;">"132.163.4.102"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">With</span> frmMain</li><li style="" class="li1"> <span style="color: #b1b100;">If</span> .<span style="color: #66cc66;">WSAntiSH</span>.<span style="color: #66cc66;">State</span> <> sckClosed <span style="color: #b1b100;">Then</span></li><li style="" class="li2"> .<span style="color: #66cc66;">WSAntiSH</span>.<span style="color: #b1b100;">Close</span></li><li style="" class="li1"> <span style="color: #b1b100;">DoEvents</span></li><li style="" class="li1"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2"> .<span style="color: #66cc66;">WSAntiSH</span>.<span style="color: #66cc66;">RemoteHost</span> = ip</li><li style="" class="li1"> .<span style="color: #66cc66;">WSAntiSH</span>.<span style="color: #66cc66;">RemotePort</span> = <span style="color: #cc66cc;">13</span></li><li style="" class="li1"> .<span style="color: #66cc66;">WSAntiSH</span>.<span style="color: #66cc66;">protocol</span> = sckTCPProtocol</li><li style="" class="li2"> .<span style="color: #66cc66;">WSAntiSH</span>.<span style="color: #66cc66;">Connect</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">With</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li2"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Sub</span> AddTime<span style="color: #66cc66;">(</span>tiempo <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">If</span> ZERO = <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> ZERO = tiempo - GetTickCount</li><li style="" class="li2"><span style="color: #b1b100;">Else</span></li><li style="" class="li1"> ULTIMO = tiempo - GetTickCount</li><li style="" class="li1"> SendANTISH</li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> SendANTISH<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #66cc66;">(</span>ULTIMO - ZERO<span style="color: #66cc66;">)</span> > MAXIMADIFERENCIA <span style="color: #b1b100;">Or</span> <span style="color: #66cc66;">(</span>ULTIMO - ZERO<span style="color: #66cc66;">)</span> < <span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span> - MAXIMADIFERENCIA<span style="color: #66cc66;">)</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> <span style="color: #808080;">'frmCliente.List2.AddItem "SH+" & ULTIMO - ZERO</span></li><li style="" class="li2"> Debug.<span style="color: #b1b100;">Print</span> <span style="color: #ffffff;">"SH+"</span> & ULTIMO - ZERO</li><li style="" class="li1"><span style="color: #b1b100;">Else</span></li><li style="" class="li1"> <span style="color: #808080;">'frmCliente.List2.AddItem "SH-" & ULTIMO - ZERO</span></li><li style="" class="li2"> Debug.<span style="color: #b1b100;">Print</span> <span style="color: #ffffff;">"SH-"</span> & ULTIMO - ZERO</li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li2"> </li></ol></div>[/vb]
Me Parece que no sirve pero we
Gracias
antiSh.bas
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Option</span> <span style="color: #b1b100;">Explicit</span></li><li style="" class="li1"><span style="color: #808080;">'NIST SERVERS</span></li><li style="" class="li2"><span style="color: #808080;">'128.138.140.44 utcnist.colorado.edu University of CO, Boulder</span></li><li style="" class="li1"><span style="color: #808080;">'129.6.15.28 time-a.nist.gov NIST, Gaithersburg, MD</span></li><li style="" class="li1"><span style="color: #808080;">'129.6.15.29 time-b.nist.gov NIST, Gaithersburg, MD</span></li><li style="" class="li2"><span style="color: #808080;">'131.107.1.10 time-nw.nist.gov Microsoft, Redmond, WA</span></li><li style="" class="li1"><span style="color: #808080;">'132.163.4.101 time-a.timefreq.bldrdoc.gov NIST, Boulder, Colorado</span></li><li style="" class="li1"><span style="color: #808080;">'132.163.4.102 time-b.timefreq.bldrdoc.gov NIST, Boulder, Colorado</span></li><li style="" class="li2"><span style="color: #808080;">'132.163.4.103 time-c.timefreq.bldrdoc.gov NIST, Boulder, Colorado</span></li><li style="" class="li1"><span style="color: #808080;">'192.43.244.18 time.nist.gov NCAR, Boulder, Colorado</span></li><li style="" class="li1"><span style="color: #808080;">'205.188.185.33 nist1.aol-va.truetime.com AOL TrueTime, Virginia</span></li><li style="" class="li2"><span style="color: #808080;">'207.126.98.204 nist1-sj.glassey.com Abovenet, San Jose, CA</span></li><li style="" class="li1"><span style="color: #808080;">'207.200.81.113 nist1.aol-ca.truetime.com AOL TT, Sunnyvale, CA</span></li><li style="" class="li1"><span style="color: #808080;">'208.184.49.9 nist1-ny.glassey.com Abovenet, New York City</span></li><li style="" class="li2"><span style="color: #808080;">'216.200.93.8 nist1-dc.glassey.com Abovenet, Virginia</span></li><li style="" class="li1"><span style="color: #808080;">'66.243.43.21 nist1.datum.com Datum, San Jose, CA</span></li><li style="" class="li1"><span style="color: #808080;">'132.163.4.102 anda bien</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Const</span> MAXIMADIFERENCIA = <span style="color: #cc66cc;">5000</span> <span style="color: #808080;">'diferencia máxima tolerable atribuída al tráfico en la red en ms</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Function</span> GetTickCount Lib <span style="color: #ffffff;">"kernel32"</span> <span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">Private</span> ZERO <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li2"><span style="color: #b1b100;">Private</span> ULTIMO <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #808080;">'Funciones del cliente</span></li><li style="" class="li2"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Sub</span> GetNistTime<span style="color: #66cc66;">(</span>Optional ip <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span> = <span style="color: #ffffff;">"132.163.4.102"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">With</span> frmMain</li><li style="" class="li1"> <span style="color: #b1b100;">If</span> .<span style="color: #66cc66;">WSAntiSH</span>.<span style="color: #66cc66;">State</span> <> sckClosed <span style="color: #b1b100;">Then</span></li><li style="" class="li2"> .<span style="color: #66cc66;">WSAntiSH</span>.<span style="color: #b1b100;">Close</span></li><li style="" class="li1"> <span style="color: #b1b100;">DoEvents</span></li><li style="" class="li1"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2"> .<span style="color: #66cc66;">WSAntiSH</span>.<span style="color: #66cc66;">RemoteHost</span> = ip</li><li style="" class="li1"> .<span style="color: #66cc66;">WSAntiSH</span>.<span style="color: #66cc66;">RemotePort</span> = <span style="color: #cc66cc;">13</span></li><li style="" class="li1"> .<span style="color: #66cc66;">WSAntiSH</span>.<span style="color: #66cc66;">protocol</span> = sckTCPProtocol</li><li style="" class="li2"> .<span style="color: #66cc66;">WSAntiSH</span>.<span style="color: #66cc66;">Connect</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">With</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li2"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Sub</span> AddTime<span style="color: #66cc66;">(</span>tiempo <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">If</span> ZERO = <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> ZERO = tiempo - GetTickCount</li><li style="" class="li2"><span style="color: #b1b100;">Else</span></li><li style="" class="li1"> ULTIMO = tiempo - GetTickCount</li><li style="" class="li1"> SendANTISH</li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> SendANTISH<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #66cc66;">(</span>ULTIMO - ZERO<span style="color: #66cc66;">)</span> > MAXIMADIFERENCIA <span style="color: #b1b100;">Or</span> <span style="color: #66cc66;">(</span>ULTIMO - ZERO<span style="color: #66cc66;">)</span> < <span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span> - MAXIMADIFERENCIA<span style="color: #66cc66;">)</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"> <span style="color: #808080;">'frmCliente.List2.AddItem "SH+" & ULTIMO - ZERO</span></li><li style="" class="li2"> Debug.<span style="color: #b1b100;">Print</span> <span style="color: #ffffff;">"SH+"</span> & ULTIMO - ZERO</li><li style="" class="li1"><span style="color: #b1b100;">Else</span></li><li style="" class="li1"> <span style="color: #808080;">'frmCliente.List2.AddItem "SH-" & ULTIMO - ZERO</span></li><li style="" class="li2"> Debug.<span style="color: #b1b100;">Print</span> <span style="color: #ffffff;">"SH-"</span> & ULTIMO - ZERO</li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li2"> </li></ol></div>[/vb]
Me Parece que no sirve pero we