用AutoIT删除新浪微博关注博主

来源：互联网发布：淘宝纸抽编辑：程序博客网时间：2024/04/29 06:06

前几天，不知为何，我新浪微博忽然多关注了几百个莫名其妙的博主。猜到可能是被盗号，赶紧更改密码，然后开始删除无用的关注。这简直是我这辈子最痛苦的工作。删了一百来个后，我浑身发抖，实在受不了了，就在网上搜索有没有工具。倒是找到了一个，可一天居然只能用一次，否则要收钱！好歹我也总自夸还是一个程序员，我决定自己写段代码解决。

工具我决定用AutoIT，看过很多Demo，没真正用过。向同事请教了5分钟，利用两天中的碎片时间，边学边查，共化时间2小时左右，搞定。代码如下：

#include <IE.au3>

$oIE = _IECreate("http://www.weibo.com/xxxxxxxxxxx/follow?leftnav=1&wvr=4", 0, 1, 1,0) ;请改为自己的微博关注地址。
WinSetState("[CLASS:IEFrame]","",@SW_MAXIMIZE)

Sleep(10000)

Local $oLinks = _IELinkGetCollection($oIE)
$sSearchString = "取消关注"
For $oLink in $oLinks
   Local $sLinkText = _IEPropertyGet($oLink, "innerText")
   If StringInStr($sLinkText, $sSearchString) Then
   _IEAction($oLink, "click")
   Sleep(1000)
   $oAllLinks = _IELinkGetCollection($oIE)
   $sConfirmString="确定"
   For $oConfirmButton in $oAllLinks
   Local $sConfirm = _IEPropertyGet($oConfirmButton, "innerText")
   If StringInStr($sConfirm, $sConfirmString) Then
   _IEAction($oConfirmButton, "click")
   EndIf
   next
   EndIf
Next

使用方法：下载AutoIT，在可以自动登录情况下使用，一次删除一页关注博主。上面代码需要改变成自己的博客关注地址。