土豆视频上传操作求助,在线等,谢谢
_IENavigate($oIE, 'http://www.tudou.com/my/program/publish.html')
Do
$flashUploader = _IEGetObjById($oIE, "flashUploader")
Local $iBrowserX = _IEPropertyGet($flashUploader, "browserx")
Local $iBrowserY = _IEPropertyGet($flashUploader, "browserY")
ControlClick('上传新视频', '', 'Internet Explorer_Server1', 'left', 1, $iBrowserX + 30, $iBrowserY + 5)
;~ ConsoleWrite($iBrowserX & ' , ' & $iBrowserY & @CRLF)
Sleep(500)
Until WinExists('选择要上载的文件，通过: js.tudouui.com')
While 1
ControlSetText('选择要上载的文件，通过: js.tudouui.com', '视频类型', 'Edit1', $file);设置路径
$TAA = ControlGetText('选择要上载的文件，通过: js.tudouui.com', '视频类型', 'Edit1')
Sleep(200)
If $TAA = $file Then ExitLoop
WEnd
Do
If StringInStr(ControlGetText('选择要上载的文件，通过: js.tudouui.com', '视频类型', 'Button2'), "打开") Then
ControlClick('选择要上载的文件，通过: js.tudouui.com', '视频类型', 'Button2') ;点击确定;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Else
ControlClick('选择要上载的文件，通过: js.tudouui.com', '视频类型', 'Button1') ;点击确定;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
EndIf
Sleep(100)
Until Not WinExists('选择要上载的文件，通过: js.tudouui.com', '视频类型')
在有的机器上能正常打开上传文件选择窗口,有的机器上就不行.有什么其他办法没有? 回复 1# 骗子
窗口标题在不同电脑上是不一样的，如果某一台电脑不行的话，检查下ie标题，弹出的开窗口标题是否一致。
这个一般都是用post上传的，可参考土豆网自己开发的上传工具。 记号。正在学习ie操作。等看。。 回复骗子
窗口标题在不同电脑上是不一样的，如果某一台电脑不行的话，检查下ie标题，弹出的开窗 ...
papapa314 发表于 2012-9-22 20:00 http://www.autoitx.com/images/common/back.gif
标题应该是一样的吧?因为IE代码中设置了
<title>上传新视频 - 土豆网 - 播客 个人多媒体</title> 回复 4# 骗子
那就用post上传吧，把土豆的上传工具抓下包大概就清楚怎么写post的代码了 post一窍不通啊
页:
[1]