高分：VB　调用INET用POST方式发图片到服务器。

winsock 可以UDP协议啊 呵呵 图片是要转为一个缓存的二进制文件 在发送 然后取出

将其内容全部读入一个byte类型的数组中，客户端代码如下：

dimmyfile()asbyte

dimpositionaslong

open"filename"forbinaryas#1

position=0

dowhilenoteof(1)

position=positon 1

redimpreservemyfile(1toposition)

get#1,,myfile(position)

loop

close#1

再向远程机传送这个字节数组

sckserver.SendDatamyfile

远程机收到这个数组之后，再以二进制文件的方式打开一个新目标文件，将数组内容写入这个新打开的文件，如果是bmp图片就将其放入picture图片框中，如果是wav文件，就播放。这样，局域网中的两个人就可以通过语言、图片、文字来交流了。

服务端代码如下：

Privatesubsckconnect_DataArrival(byvalbytestotalaslong)

dimreceivefile(1tobytestotal)asbyte

sckconnect.GetDatareceivefile,vbarray vbbyte

'告诉Winsock控件收到的是字节数组类型的数据

open"c:\temp\文件名"forbinaryas#1

forI=1tobytestotal

put#1,,remotearray(I)

nextI

clost#1

end sub

你可以看看这个代码，他是用struts实现图片上传的

http://www.roboticfan.com/blog/user_2005/104/200742792456.shtml

---