一个VB很简单的FTP登录器 - 编程论坛

#2

multiple19022007-10-24 15:31

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

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

#3

simpson2007-10-24 15:37

鼓励下

#4

永夜的极光2007-10-24 15:38

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

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

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

#5

multiple19022007-10-24 15:39

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编辑过]

#6

multiple19022007-10-24 15:40

以下是引用永夜的极光在2007-10-24 15:38:41的发言：

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

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

那我用shortcut

#7

lele20072007-10-24 16:07

其它是调用了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

#8

kondai2010-11-19 13:04

很不错。我找了有久了

#9

e3bnsd2012-12-02 23:06

有用。

#10

gcjyz2020-10-06 15:41

回复 7楼 lele2007

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