标题:一个VB很简单的FTP登录器
取消只看楼主
lele2007
Rank: 5Rank: 5
来 自:广东省深圳
等 级:职业侠客
威 望:6
帖 子:1028
专家分:305
注 册:2007-9-4
结帖率:100%
 问题点数:0 回复次数:1 
一个VB很简单的FTP登录器
平时我就喜欢用WEB方式来管理网站的,刚学制作网页,总是在我的电脑里输入IP地址,再登录好麻烦,所以用VB做了个很简单的FTP登录器,对于别人可能没有什么用处。自己的话那是相当的实用。在这里发上来让大家看看。呵呵。

wD650UPF.rar (8.36 KB) 一个VB很简单的FTP登录器




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

搜索更多相关主题的帖子: FTP 登录 
2007-10-24 15:28
lele2007
Rank: 5Rank: 5
来 自:广东省深圳
等 级:职业侠客
威 望:6
帖 子:1028
专家分:305
注 册:2007-9-4
得分:0 

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


学习编程www.
2007-10-24 16:07



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-180417-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.100175 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved