|
本帖最后由 tuojian110 于 2012-8-21 08:24 编辑
做了一个IE自动点击在程序自动运行时候没有问题但是一编译就出来一下东西求救
源码
Local $spfile = FileOpen("帖子.txt", 0)
While 1
$spline = FileReadLine($spfile)
if @error = -1 Then ExitLoop
$we1=_IECreate($spline)
Sleep(4000)
$we2=_IEAttach($spline,"url")
_IELoadWait($we2)
_IELinkClickByText($we2,"转发到微群")
Sleep(4000)
$Ele = _IEQuery($we2,"SPAN",'class="group_name"')
$Ele1 = _IETagNameGetCollection($we2,"TEXTAREA",2)
;文本框文件
$yan=_IEPropertyGet($Ele1,"innertext")
$file = FileOpen("微博名称.txt", 0)
;MsgBox(4096,"dd",$spline)
While 1
$line = FileReadLine($file)
If @error=-1 Then ExitLoop
_IELinkClickByText($Ele,$line)
_IEPropertySet($Ele1,"innertext",$yan&"[泪流满面]"&Round(Random(1,400),2))
Sleep(5000)
_IELinkClickByText($Ele,"发送")
Sleep(20000)
WEnd
FileClose($file)
_IEQuit($we2)
_IEQuit($we1)
WEnd
FileClose($spfile) |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?加入
×
|