如何能解决网络（internet）上的文件传输？？？winsock可以解决么？？另送200分！！

[LIKEVB]

ip都不固定，使用modem还好一些，有bcwin的老东西可以帮忙！
如果是isdn adsl呢？？

[Ah]

要找一个有真实IP的机子做服务器才行

[litsnake1]

对应该有IP才可以的，ISDN，ADSL有固定IP的。

[mky]

大虾救我，vb.net里有inet控件吗？

[shepherd228]

我这里有段别处下的代码，不晓得对你有用没有？
Private Sub wsk_DataArrival(ByVal bytesTotal As Long)
Dim RecBuffer As String

On Error GoTo ShowErr

wsk.GetData RecBuffer
Select Case Left(RecBuffer, 7)
Case "Msg_Eof"
Close #FL
wsk.Close

Case "Msg_Dst"
''''记录存储路径
DstPath = App.Path + Right(RecBuffer, Len(RecBuffer) - 8)

FL = FreeFile

If Len(Dir(DstPath)) > 0 Then
Kill DstPath
End If

Open DstPath For Binary As #FL
wsk.SendData "Msg_OkS"

Case "Msg_Rec" 'Block Received
'''''已经接收完可以继续接收的条件
IsReceived = True

Case "Msg_OkS"
SendMsg
Case Else
Put #FL, , RecBuffer

wsk.SendData "Msg_Rec"
End Select

Exit Sub
ShowErr:
MsgBox Err.Description
Exit Sub
End Sub

Private Sub SendMsg()
Dim BufFile() As Byte
Dim LnFile As Long
Dim nLoop As Long
Dim nRemain As Long
Dim Cn As Long

On Error GoTo ShowErr
''''''''每次一K
If LnFile > 1024 Then
nLoop = Fix(LnFile / 1024)

nRemain = LnFile Mod 1024
Else
nLoop = 0
nRemain = LnFile
End If

Open SrcPath For Binary As #1
If nLoop > 0 Then
For Cn = 1 To nLoop
ReDim Preserve BufFile(0 To 1023) As Byte
Get #1, , BufFile
wsk.SendData BufFile
IsReceived = False
While IsReceived = False
DoEvents
Wend
Next

If nRemain > 0 Then

ReDim Preserve BufFile(0 To nRemain - 1) As Byte
Get #1, , BufFile
wsk.SendData BufFile
IsReceived = False
While IsReceived = False
DoEvents
Wend
End If
Else

ReDim Preserve BufFile(0 To nRemain - 1) As Byte
Get #1, , BufFile
wsk.SendData BufFile
IsReceived = False
While IsReceived = False
DoEvents
Wend
End If
wsk.SendData "Msg_Eof_" 'end of file tag
Close #1
Exit Sub

ShowErr:
MsgBox Err.Description

End Sub

[yas]

其实用WINSOK控件发送文件很简单~，发送用二进制读取要发送的文件，接受方以二进制保存，至于文件名，可以在发送数据之前发送就行了~