平时我就喜欢用WEB方式来管理网站的，刚学制作网页，总是在我的电脑里输入IP地址，再登录好麻烦，所以用VB做了个很简单的FTP登录器，对于别人可能没有什么用处。自己的话那是相当的实用。在这里发上来让大家看看。呵呵。

[此贴子已经被作者于2007-10-24 16:18:02编辑过]

嗯,不错
比我自己输入ftp://username:password@domain.name/大概能慢个几秒
不晓得对谁会有用.

不过作为学习VB的话,还是有意义的,能否发下源代码?

鼓励下

楼主你做个能自动保存用户名和密码的，就能比2楼速度快了

我上FTP都是直接在CuteFTP里面双击的～

[此贴子已经被作者于2007-10-24 15:38:58编辑过]

Dim sDomainName,sUserName,sPassword
sDomainName=Inputbox("键入ftp服务器的ip或者域名","键入ftp服务器的ip或者域名","58.61.157.148")
sUsername=InputBox("键入用户名","键入用户名")
sPassword=InputBox("键入密码","键入密码")
Dim wshShell
set wshShell=CreateObject("Wscript.Shell")
wshShell.Run "ftp://" & sUserName & ":" & sPassword & "@" & sDomainName & "/"

[此贴子已经被作者于2007-10-24 15:39:56编辑过]

那我用shortcut

其它是调用了cmd来实现的。以下是源码：（只是方便自己的）我习惯于电脑的XP风格，用FTP专业的软件速度当然明显快多了。不过还是比较喜欢用这个。因为是个人制作的，就更觉得有意义了。呵呵。5楼的也很不错。

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "FTP登录用户名不能为空", 16, "提示"
Text1.SetFocus
Else
If Text2.Text = "" Then
MsgBox "FTP登录密码不能为空", 16, "提示"
Text2.SetFocus
Else
Shell "cmd /c start ftp://" & Text1.Text & ":" & Text2.Text & "@" & Combo1.Text & "", 0
End If
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub

Private Sub Image1_Click()
Shell "cmd /c start tencent://message/?uin=157889030", 0
End Sub

很不错。我找了有久了

有用。

如果是密码里面包含着#123#这样式的，报错。