Off: SUPER MEGA REVIVIDO XD XD XD XD
esto [vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> txtPassword_Change<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">txtPassword.<span style="color: #66cc66;">Locked</span> = <span style="color: #b1b100;">True</span></li><li style="" class="li2"><span style="color: #b1b100;">Dim</span> LoopC <span style="color: #b1b100;">As</span> Byte, i <span style="color: #b1b100;">As</span> Byte</li><li style="" class="li1">LoopC = RandomNumber<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">3</span>, <span style="color: #cc66cc;">254</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">i = <span style="color: #cc66cc;">0</span></li><li style="" class="li2"><span style="color: #b1b100;">Do</span> <span style="color: #b1b100;">While</span> LoopC > i</li><li style="" class="li1"> <span style="color: #b1b100;">Call</span> keybd_event<span style="color: #66cc66;">(</span>VkKeyScan<span style="color: #66cc66;">(</span>RandomNumber<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">32</span>, <span style="color: #cc66cc;">126</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span>, <span style="color: #cc66cc;">0</span>, <span style="color: #cc66cc;">0</span>, <span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> i = i + <span style="color: #cc66cc;">1</span></li><li style="" class="li2"><span style="color: #b1b100;">Loop</span></li><li style="" class="li1"><span style="color: #b1b100;">DoEvents</span> <span style="color: #808080;">' IMPORTANTE: No quitar este DoEvents!</span></li><li style="" class="li1">txtPassword.<span style="color: #66cc66;">Locked</span> = <span style="color: #b1b100;">False</span></li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li></ol></div>[/vb]
en el frmconnect..
y esto [vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Function</span> VkKeyScan Lib <span style="color: #ffffff;">"user32"</span> Alias <span style="color: #ffffff;">"VkKeyScanA"</span> <span style="color: #66cc66;">(</span>ByVal cChar <span style="color: #b1b100;">As</span> Byte<span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Sub</span> keybd_event Lib <span style="color: #ffffff;">"user32"</span> <span style="color: #66cc66;">(</span>ByVal bVk <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span>, ByVal bScan <span style="color: #b1b100;">As</span> Byte, ByVal dwFlags <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, ByVal dwExtraInfo <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Function</span> RandomNumber<span style="color: #66cc66;">(</span>ByVal LowerBound <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Single</span>, ByVal UpperBound <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Single</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Single</span></li><li style="" class="li1"><span style="color: #b1b100;">Randomize</span> <span style="color: #b1b100;">Timer</span></li><li style="" class="li2">RandomNumber = <span style="color: #66cc66;">(</span>UpperBound - LowerBound<span style="color: #66cc66;">)</span> * <span style="color: #b1b100;">Rnd</span> + LowerBound</li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span> </li></ol></div>[/vb]
en el frmconnect.. , arriba de todo