土豆视频上传操作求助,在线等,谢谢

骗子

        _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', '视频类型')

在有的机器上能正常打开上传文件选择窗口,有的机器上就不行.有什么其他办法没有?

papapa314

回复 1# 骗子


    窗口标题在不同电脑上是不一样的，如果某一台电脑不行的话，检查下ie标题，弹出的开窗口标题是否一致。

这个一般都是用post上传的，可参考土豆网自己开发的上传工具。

lenlydia

记号。正在学习ie操作。等看。。

骗子

回复  骗子


    窗口标题在不同电脑上是不一样的，如果某一台电脑不行的话，检查下ie标题，弹出的开窗 ...
papapa314 发表于 2012-9-22 20:00

标题应该是一样的吧?因为IE代码中设置了
<title>上传新视频 - 土豆网 - 播客 个人多媒体</title>

papapa314

回复 4# 骗子


    那就用post上传吧，把土豆的上传工具抓下包大概就清楚怎么写post的代码了

骗子

post一窍不通啊