批量写网易微博代码

xyold1

自已写的一段代码，可以自动复制记事本里的内容到网易微博上的代码，很简单，网页控件获取方式和帮助文档里的不同（参考某大神的）

#include <IE.au3>
$oIE = _IECreate ("http://t.163.com/#home")
_IELoadWait($oIE)

$oText = _IEGetObjByID($oIE, "sendinfo");通过工具查询到得输入框ID值

$OK = _IEGetObjByID($oIE, "sendinfoBtn");通过工具查询到得按钮ID值

$file = FileOpen("t.txt", 0)

; 检查打开的文件是否可读
If $file = -1 Then
    MsgBox(0, "错误", "不能打开文件.")
    Exit
EndIf

; 每次读取一行文本,直到文件结束.
While 1
    $line = FileReadLine($file)
 
 If StringLen($line)>12 And StringLen($line)<164 Then
  Sleep(1100)
 $oText.value =$line 
 $OK.click 
 _IELoadWait($oIE)
 
EndIf

    If @error = -1 Then ExitLoop
Wend

FileClose($file)

 

lxd510213

很不错啊,加油