WNetAddConnection2可以在VB里面用啊,Private Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long
NetRESOURCE对象可以自己定义:Private Type NETRESOURCE dwScope As Long dwType As Long dwDisplayType As Long dwUsage As Long pLocalName As Long pRemoteName As Long pComment As Long pProvider As Long End Type
filecopy "\\计算机名\路径\文件名",app.path & "\路径\文件名"
我要从cilent端拷贝文件到server端
dwScope As Long
dwType As Long
dwDisplayType As Long
dwUsage As Long
pLocalName As Long
pRemoteName As Long
pComment As Long
pProvider As Long
End Type
原理如同一些黑客程序,使用Client/Server方式。
首先在Server主机定义两个Winsock控件,client主机定义一个Winsock控件。
首先把Server主机的一个Winsock控件设置TCP协议及使用的端口号,调用.listen方法。
Client主机的Winsock控件设置服务主机的IP地址和端口号,调用Connect方法。
服务主机的侦听Winsock会收到连接请求,使用Accept(另一个Winsock控件Name)来响应,完成连接的建立。
服务端程序读文件,通过Send方法传送数据,
客户端程序有数据到达后会引发DataArrive事件,在其中调用get方法获取数据,写文件。
完成后两端断开连接,调用Close方法。