62,046
社区成员
发帖
与我相关
我的任务
分享
Try
open1.Filter = "图片(JPG/GIF)|*.jpg;*.gif|所有文件(*.*)|*.*"
If (open1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
'在if中ShowDialog即可打开选择文件对话框
Dim sourceFileName As String = open1.FileName
'Dim address2 As String = "ftp://815.500dns.info/web/" & System.IO.Path.GetFileName(open1.FileName)
'Dim userName As String = "yinchabei"
'Dim password As String = "644B292B251a31"
Dim address2 As String = "ftp://218.83.160.158/ftpuser/" & System.IO.Path.GetFileName(open1.FileName)
Dim userName As String = "ftpuser"
Dim password As String = "ftppwd"
Dim showUI As Boolean = True
Dim connectionTimeout As Integer = 200
My.Computer.Network.UploadFile(sourceFileName, address2, userName, password, showUI, connectionTimeout)
MsgBox("ok")
End If
Catch ex As Exception
MsgBox(ex.ToString)
End Try
目前在使用国外的空间时,是可以上传的,但是换到万网的服务器,因为开了windows防火墙,便无法上传。
关闭防火墙可以,现在要解决的问题是,找到上传所需要调用的端口,加到防火墙例外中。
结果发现不是(解决方法是:将dameon加入到例外程序中)
天凉好个秋
对我来说,如果只是降温的话,我未必会觉得秋来了,可是昨天早上走在路上,看到叶子在空中飞舞,地上布满了落叶,秋终于还是来了,这一年也快要过去了,我做了什么,我还能做什么。
昨天新装了个系统,换了个mac的主题,用着很舒服,不过装别的软件又浪费了半天的时候,终究还是忘了做个镜像了,装好Sever-u后,测试什么问题都没有,后来从别的机子那里一访问,居然不行,怀疑卡巴的事,这个杀毒软件太BT,不怀疑不行啊,关了以后还是不行,难道是windows防火墙?禁掉果然OK
,那总不能禁掉它吧,暂且不说那个提示很烦,别外要装防火墙是让我很不爽的事,一共就这么点内存,哪够用啊。看看防火墙里面有个例外选项,我把端口20,21,22,全都加上了,结果只能连上,但是不能建立socket,让人不爽的是,居然不能范围添加端口。
然后选例外程序,是在这里,server-u目录下有三个程序文件tray.exe有来系统托盘监控,dameon主程序后台运行,admini管理,这里我把dameon加上以后,一连接,果然ok,
起先加错了,加成tray.exe和admin,就没加dameon,结果怎么试都不行,还上网查了好长时间,真是……
看来我的英语,