a3221134 发表于 2010-5-25 23:40:43

做个免回车，，请教了！！ 验证码自动填写



想做个验证码框 内 输入 6个字符，，，之后马上激活 回车键   或者 激活 注册按钮（$Button2）

While 1
$nMsg = GUIGetMsg()
Switch $nMsg       
       
Case $Button3                                                                                        ;刷新验证码                                 
   GUISetState(@SW_DISABLE)
              _IELinkClickByText($oIE,"换一张")
   Sleep(500);如果不能同步网页中的图片这个延迟要大点，可能跟网速有关系吧
   _get_key()
       GUISetState(@SW_ENABLE)
       
Case $GUI_EVENT_CLOSE                                                                         ;关闭
   _IEAction($oIE ,"quit")         ;关闭浏览器
                Exit                        
       
Case $Button1                                                                                           ;刷新帐号信息填写GUI
        GUISetState(@SW_DISABLE)
          _sc()
      _sc1()
        GUISetState(@SW_ENABLE)
       
Case $Button2                                                                                       ;填表注册
   _sc2()
GUISetState(@SW_DISABLE)
GUISetState(@SW_ENABLE)       
EndSwitch
WEnd



另外谁做过这种验证码的自动填写吗 ？？比较BT

a3221134 发表于 2010-5-26 00:08:04

及解决免回车问题。。。 验证码还是请教高人啊

a3221134 发表于 2010-5-26 00:08:41

解决免回车问题

大脑误区。。字都打错

netegg 发表于 2010-5-26 06:41:10

实时获取字符串长度，使用$EN_CHANGE 消息试试看

dajun 发表于 2010-5-27 22:42:55

send('{tab}')

dajun 发表于 2010-5-29 09:00:41

AdlibRegister("MyAdlib")
Func MyAdlib()
        If _IsPressed('0D') Then
                Send("{Tab}")
        EndIf
EndFunc   ;==>MyAdlib

sanmoking 发表于 2010-5-31 10:17:00

楼主搜素一下呗，貌似我都写过这个例子。
页: [1]
查看完整版本: 做个免回车，，请教了！！ 验证码自动填写