一个VB很简单的FTP登录器
平时我就喜欢用WEB方式来管理网站的,刚学制作网页,总是在我的电脑里输入IP地址,再登录好麻烦,所以用VB做了个很简单的FTP登录器,对于别人可能没有什么用处。自己的话那是相当的实用。在这里发上来让大家看看。呵呵。[此贴子已经被作者于2007-10-24 16:18:02编辑过]
[此贴子已经被作者于2007-10-24 16:18:02编辑过]
其它是调用了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