破帽遮颜 发表于 2009-10-11 17:20:53

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

本帖最后由 破帽遮颜 于 2009-10-12 18:25 编辑

:face (31):

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

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

:face (23):

破帽遮颜 发表于 2009-10-11 21:41:05

:face (36):

大侠过来顺手帮帮忙撒~~~~~~~~~~~

sxd 发表于 2009-10-11 21:59:20

为安全起见，file-upload 元素不允许 HTML 作者或 JavaScript 程序员指定一个默认的文件名。HTML value 属性被忽略，并且对于此类元素来说，value 属性是只读的，这意味着只有用户可以输入一个文件名。
用模拟方式吧

maker 发表于 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

sxd 发表于 2009-10-11 23:37:21

嗯 这功夫费大了 自己写个js post出去啊

破帽遮颜 发表于 2009-10-12 12:12:15

唉~au3都那么菜了~哪还会js啊~
要不sxd帮帮忙?

sxd 发表于 2009-10-12 12:43:50

我是说老刀的方法我也是个菜鸟 js只会看 不会写 哈哈

老刀的方法行么?

破帽遮颜 发表于 2009-10-12 13:45:19

暂时还没成功~只能传送文本类的文件!
其他rar,exe不成功!好郁闷
页: [1]
查看完整版本: 这样的file表单应该如何填写啊?