Visual Basic:使用HTTP上载文件

时间:2016-04-19 15:38:18

标签: http file-upload vbscript

我是一名PHP / Javascript开发人员,他必须构建一个简单的"将在Windows桌面上运行的脚本,将扫描图像传输到服务器。通过使用.vbs脚本,除了将文件发送到服务器之外,我已经能够做我需要做的一切。我花了最近两天谷歌搜索和尝试的例子,但似乎没有任何作用。以下是我目前正在与之抗争的代码。

Dim objShell,UserPath,sourcePath,strURL,stream, file, fileString, HTTPSevice, body
Set objshell = CreateObject("WScript.shell")
UserPath = objShell.ExpandEnvironmentStrings("%UserProfile%")

strURL = "www.notWebsite.com/uploader.php"
sourcePath = UserPath & "\Desktop\Scanned\scanned.jpg"

set stream = CreateObject( "Scripting.FileSystemObject" )
set file = stream.getfile(sourcePath)
set fileString = file.openAsTextstream
body = fileString.readAll
fileString.close

set xmlHttp = createobject("MSXML2.XMLHTTP.4.0")
xmlhttp.open "POST",strURL,false
xmlhttp.setRequestHeader "Content-Type", "multipart/form-data"
xmlhttp.send body

msgbox xmlhttp.responseText

代码不会抛出错误,它只是向服务器发送一个空请求。

就像我之前说过的那样,我没有开发for / on / near windows的经验,所以如果一个可视化的基本脚本不是正确的选项,请告诉我并指出正确的方向。我愿意学习如何使这项工作,但我只是坚持如何前进。

先谢谢你的帮助。

1 个答案:

答案 0 :(得分:0)

使用PowerShell是我的用例的100%。即使我在今天早上之前从未听说过,我已经准备好了脚本并准备好进行测试。