使用IE Automation技术制作的投票机器人

好处就是没有任何兼容性问题,除非网站不支持用IE浏览:)

.Constant { color: rgb(255, 0, 255); }.PreProc { color: rgb(160, 32, 240); }.Statement { color: rgb(128, 64, 64); font-weight: bold; }pre { color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); }body { color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); }.Comment { color: rgb(0, 0, 255); }

 

#  -*- coding: mbcs -*- # 说明: 使用了cPAMIE模块, # 连续投10000次票 poll_num = 10000 import  random import  time import  cPAMIE # 处理javascript弹出窗口 import  cModalPopUp ie  =  cPAMIE.PAMIE() for  j  in  range(poll_num):   user = " g " + str(random.randint( 1 , 1000000000000 ))    # 注册新用户   ie.navigate( " http://somewhere/Registry.aspx " )   ie.textBoxSet( " tbUsername " ,user);   ie.textBoxSet( " tbPassword " ,user);   ie.textBoxSet( " tbPwdConfirm " ,user);   ie.textBoxSet( " tbEmail " ,user + " @hotmail.com " );    # 提交   ie.buttonClick( " btnOK "  )    # 提交成功    if (ie.locationURL() == " http://somewhere/RegistryFinish.aspx " ):      # 登陆     ie.navigate( " http://somewhere/default.aspx " )     ie.radioButtonSet( " login " , " rbtnInnoble " , 1 )     ie.textBoxSet( " tbUsername " ,user);     ie.textBoxSet( " tbPassword " ,user);     ie.buttonClick( " btnLogin " )      assert (ie.locationURL() == " http://somewhere/Vote.aspx " )      # 投5次票      for  i  in  range( 5 ):        if (ie.locationURL() != " http://somewhere/ShowUser.aspx?UserID=