之前在Csdn WEB大版常常有人问我如何直接给input File控件发文件
第一种技术方案:
在笔者回答这个的问题的时候 ie还有漏洞,所以当时通常的方法是使用Wscript.Shell 通过SendKeys给File控件赋值
代码如下
<script language=javascript>
function window.onload()
{
document.form1.T1.focus();
var WshShell = new ActiveXObject("WScript.Shell");
WshShell.sendKeys("c://test.txt"); //此处代码即为向文本框里直接写入文件路径
}
</script>
此方法在03年的时候,就被微软在浏览器端封杀了,不过如果还有玩hta的朋友还可以试试此类黑科技。
第二种技术方案:
除了上述方式还有一些网友其实的问题实质是不显示File控件,但点击后依然需要能选择文件。
其实这类方法就比较简单了,现在插件把包容file控件的容器透明化,悬浮在给用户看到的上传按钮上,这样不需要显示出上传控件也可以实现上传功能
<div style="position:absolute;top:11px;left:-71px;width:150;filter:alpha(opacity=0)" >
<input name="file" type="file" size=33 onpropertychange="a.value=this.value">
</div>
第三种技术方案:
采用组件技术,做成IE浏览器插件,通过Ftp形式把数据进行上传
Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
(ByVal sAgent As String, ByVal LAccessType As Long, ByVal sProxyName As String, _
ByVal SProxyBypass As String, ByVal lFlags As Long) As Long
Public Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _
(ByVal hInternetSession As Long, ByVal sServerName As String, _
ByVal nServerPort As Integer, ByVal sUsername As String, _
ByVal sPassword As String, ByVal lService As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long
Public Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" _
(ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _
ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, _
ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean
Public Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" _
(ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _
ByVal lpszRemoteFile As String, ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean
Public Declare Function FtpDeleteFile Lib "wininet.dll" Alias "FtpDeleteFileA" _
(ByVal hFtpSession As Long, ByVal lpszFileName As String) As Boolean
Public Declare Function FtpRenameFile Lib "wininet.dll" Alias "FtpRenameFileA" _
(ByVal hFtpSession As Long, ByVal lpszExsiting As String, ByVal lpszNew As String) As Boolean
Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Private Sub Timer1_Timer()
lnginet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, _
vbNullString, vbNullString, 0&)
If lnginet Then
lnginetconn = InternetConnect(lnginet, "210.51.180.101", 0, _
"用户名", "密码", 1, 0, 0)
If lnginetconn Then
blnrc = FtpPutFile(lnginetconn, "你的具体上传的东东", "网站的FTP的文件夹", 0, 0, 1, 0)
If blnrc Then
MsgBox "download ok!!!"
End If
InternetCloseHandle lnginetconn
InternetCloseHandle lnginet
Else
a = 1
DoEvents
End If
Else
a = 2
DoEvents
End If
End Sub
第四种方式
跟第三种类似依然采用了组件模式,使用api httpsendrequest技术用http协议直接上传,唯一的问题是客户端要允许你注册
BOOL UseHttpSendReqEx(HINTERNET hRequest, DWORD dwPostSize)
{
INTERNET_BUFFERS BufferIn;
DWORD dwBytesWritten;
int n;
BYTE pBuffer[1024];
BOOL bRet;
BufferIn.dwStructSize = sizeof( INTERNET_BUFFERS );
// Must be set or error will occur
BufferIn.Next = NULL;
BufferIn.lpcszHeader = NULL;
BufferIn.dwHeadersLength = 0;
BufferIn.dwHeadersTotal = 0;
BufferIn.lpvBuffer = NULL;
BufferIn.dwBufferLength = 0;
BufferIn.dwBufferTotal = dwPostSize;
// This is the only member used other than dwStructSize
BufferIn.dwOffsetLow = 0;
BufferIn.dwOffsetHigh = 0;
if(!HttpSendRequestEx( hRequest, &BufferIn, NULL, 0, 0))
{
printf( "Error on HttpSendRequestEx %d/n",GetLastError() );
return FALSE;
}
FillMemory(pBuffer, 1024, 'D'); // Fill buffer with data
bRet=TRUE;
for(n=1; n<=(int)dwPostSize/1024 && bRet; n++)
{
if(bRet=InternetWriteFile( hRequest, pBuffer, 1024, &dwBytesWritten))
printf( "/r%d bytes sent.", n*1024);
}
if(!bRet)
{
printf( "/nError on InternetWriteFile %lu/n",GetLastError() );
return FALSE;
}
if(!HttpEndRequest(hRequest, NULL, 0, 0))
{
printf( "Error on HttpEndRequest %lu /n", GetLastError());
return FALSE;
}
return TRUE;
}
以上是我于2004年写的口水文,不过也是青春的纪念,永远怀念那时对技术的追求 - 2016年整理,虽然代码真的很挫