找回密码
 加入
搜索
查看: 2177|回复: 7

这样的file表单应该如何填写啊?

[复制链接]
发表于 2009-10-11 17:20:53 | 显示全部楼层 |阅读模式
本帖最后由 破帽遮颜 于 2009-10-12 18:25 编辑



http://www.maxxp.com.cn/sound.htm

这个(type="file")类型的表单应该如何填写?
找不到解决的办法,对IE操作太菜了,高手帮忙

 楼主| 发表于 2009-10-11 21:41:05 | 显示全部楼层


大侠过来顺手帮帮忙撒~~~~~~~~~~~
发表于 2009-10-11 21:59:20 | 显示全部楼层
为安全起见,file-upload 元素不允许 HTML 作者或 JavaScript 程序员指定一个默认的文件名。HTML value 属性被忽略,并且对于此类元素来说,value 属性是只读的,这意味着只有用户可以输入一个文件名。
用模拟方式吧
发表于 2009-10-11 23:08:39 | 显示全部楼层
本帖最后由 maker 于 2009-10-12 00:57 编辑

试试下面的,没有测试,你自己测试一下,和你的思路不一样不是取表单
不好意思,刚才有个地方没设置好,也是关键的收尾没做好
关键说明:“---------------------------7d92133aec068e”是传送数据开头标志,结尾则是“-----------------------------7d82711db0bfc--”,注意多2个-,我忘了加了,当然,里面的标志字符你可以自己更改,但是文件头别忘了统一
Global $nRegCreatePng
RegCreatePng()

$file = FileOpen("log.txt", 0)
$chars = '---------------------------7d92133aec068e' & @CRLF
$chars &= 'Content-Disposition: form-data; name="Tempupload"; filename="log.txt"' & @CRLF
$chars &= 'Content-Type: audio/mpeg' & @CRLF

If $file = -1 Then
        MsgBox(0, "Error", "Unable to open file.")
        Exit
EndIf
While 1
        $chars &= FileReadLine($file) & @CRLF
        If @error = -1 Then ExitLoop

WEnd
FileClose($file)
$chars &= '-----------------------------7d82711db0bfc--' & @CRLF
;$chars = StringToBinary($chars)

$oHTTP = ObjCreate("Msxml2.xmlhttp")
$oHTTP.Open("Post", "http://www.maxxp.com.cn/sound.asp?ProgressID=" & $nRegCreatePng, False)
$oHTTP.setRequestHeader("Cache-Control", "no-cache")
$oHTTP.setRequestHeader("Content-Type", "multipart/form-data; boundary=-------------------------7d92133aec068e")
$oHTTP.setRequestHeader("Referer", "http://www.maxxp.com.cn/sound.htm")
$oHTTP.Send($chars)
MsgBox(0, $oHTTP.status, $oHTTP.responseText)
;以下是使用JavScript代码调用
Func RegCreatePng()
        Local $code
        $code &= 'function regcreatepng()' & @CRLF
        $code &= '{' & @CRLF
        $code &= 'var now = new Date()' & @CRLF
        $code &= 'var nvalue = now.getTime()%1000000000' & @CRLF
        $code &= 'return nvalue' & @CRLF
        $code &= '}' & @CRLF
        $nJS = ObjCreate("ScriptControl")
        $nJS.language = "JavaScript"
        $nJS.addcode($code)
        $nRegCreatePng = $nJS.Run("regcreatepng")
        Return $nRegCreatePng
EndFunc   ;==>RegCreatePng

评分

参与人数 1金钱 +20 贡献 +15 收起 理由
破帽遮颜 + 20 + 15 谢谢老刀这么热心肠

查看全部评分

发表于 2009-10-11 23:37:21 | 显示全部楼层
嗯 这功夫费大了 自己写个js post出去啊
 楼主| 发表于 2009-10-12 12:12:15 | 显示全部楼层
唉~au3都那么菜了~哪还会js啊~
要不sxd帮帮忙?
发表于 2009-10-12 12:43:50 | 显示全部楼层
我是说老刀的方法  我也是个菜鸟 js只会看 不会写 哈哈

老刀的方法行么?
 楼主| 发表于 2009-10-12 13:45:19 | 显示全部楼层
暂时还没成功~只能传送文本类的文件!
其他rar,exe不成功!好郁闷
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-5-5 03:38 , Processed in 0.074088 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表