xumeng 发表于 2008-10-29 21:10:02

高手们帮忙看一下,多谢!

在6房间批量上传视频的时候,老是要填标题,描述,标签,有什么办法让他们自动根据文件名自动复制吗?分类也批定一个类别,感觉好烦,请高手们出下招,多谢!
www.6.cn

[ 本帖最后由 xumeng 于 2008-10-30 10:38 编辑 ]

liongodmien 发表于 2008-10-29 22:19:43

用ＩＥ手动打开上传页面，然后把要上传的文件设置好，再按‘Ｆ7’，就可按已经填入的文件名自动填表，分类全为视频！


#include <ie.au3>

HotKeySet('{F7}', 'INPUTTHEVALUE')
Do
        Sleep(90)
Until 0
Func INPUTTHEVALUE()
$oIE = _IEAttach('最大1GB(1000MB)，最长300分钟', 'Text', 1)
$oFORM = _IEFormGetObjByName($oIE, 'upload')
$oINPUT = _IEFormElementGetObjByName($oFORM, 'userfile')
$Name = _IEFormElementGetValue($oINPUT)
$Name = StringRegExp($Name, '[^\\]+$', 1, 1)
$oINPUT = _IEFormElementGetObjByName($oFORM, 'title')
_IEFormElementSetValue($oINPUT, $Name, 1)
$oINPUT = _IEFormElementGetObjByName($oFORM, 'memo')
_IEFormElementSetValue($oINPUT, $Name, 1)
$oINPUT = _IEFormElementGetObjByName($oFORM, 'tags_0')
_IEFormElementSetValue($oINPUT, $Name, 1)
_IEFormElementRadioSelect($oFORM, 2, 'cid[]', 1, "byValue", 1)
EndFunc

[ 本帖最后由 liongodmien 于 2008-10-29 23:19 编辑 ]

xumeng 发表于 2008-10-30 09:28:54

多谢楼上大侠帮助!单个上传没问题,批量上传我再看看
页: [1]
查看完整版本: 高手们帮忙看一下,多谢!