折腾了半天,发现在lightswitch下有个解决FTP等功能的好方法。
2017-10-02 16:20
204 查看
直接生成shell对象,调用对应的exe程序并传参(exe程序的话,得自己写了。),参数少时,直接追加,参数过多时,用文件传参,省力省时。
下面为lightswitch调用exe对:
Dim shell = AutomationFactory.CreateObject("Shell.Application")
shell.shellexecute("D:\\ftp.exe", "-http -dghtd")
下面为ftp.exe程序样例(在这里我做的是windows控制台程序,并在属性里把应用程序类型改成为 windows 服务,只在后台运行,不显示界面):
以下程序只是测试用,ftp的教程vb.net的网上很多,这里只是为解决lightswitch在功能上的不足,所以就不写了
Dim cmdd As String = "-ht" '查找参数中包含字符
Dim cmds As String = "" '得到参数中指定字符
For Each s As String In My.Application.CommandLineArgs '在传入参数中查找指定字符
If s.ToLower.Contains(cmdd) Then
MsgBox("sff")
cmds = s.Remove(0, cmdd.Length)
End If
Next
If cmds = "" Then
MsgBox("是空的")
Else
MsgBox(cmds)
End If
下面为lightswitch调用exe对:
Dim shell = AutomationFactory.CreateObject("Shell.Application")
shell.shellexecute("D:\\ftp.exe", "-http -dghtd")
下面为ftp.exe程序样例(在这里我做的是windows控制台程序,并在属性里把应用程序类型改成为 windows 服务,只在后台运行,不显示界面):
以下程序只是测试用,ftp的教程vb.net的网上很多,这里只是为解决lightswitch在功能上的不足,所以就不写了
Dim cmdd As String = "-ht" '查找参数中包含字符
Dim cmds As String = "" '得到参数中指定字符
For Each s As String In My.Application.CommandLineArgs '在传入参数中查找指定字符
If s.ToLower.Contains(cmdd) Then
MsgBox("sff")
cmds = s.Remove(0, cmdd.Length)
End If
Next
If cmds = "" Then
MsgBox("是空的")
Else
MsgBox(cmds)
End If
相关文章推荐
- 今天使用jspsmartupload.jar实现上传文件的功能,发现中文乱码,于是总结了下解决方法
- 折腾了半天,Windows live Writer总算装上了。写下解决方法供大家参考
- 折腾了半天,Windows live Writer总算装上了。写下解决方法供大家参考
- 浏览器功能记住账号和密码解决方法(HTML解决方式)
- [ios] CFFTPSample 代码无法在iPhone上编译解决方法【转】
- 【RichieZhu】Win7无法开启网络发现解决方法
- iOS 上常用的两个功能:点击屏幕和return退出隐藏键盘和解决虚拟键盘挡住UITextField的方法
- mybatis 使用dblink 执行insert 报ora-22816 returning 子句不支持的功能问题解决方法
- XP 系统发现新硬件问题的解决方法
- 错误:[IM002] [Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序 解决方法
- 才发现的超链接js导致网页中GIF动画停止的解决方法
- [iOS]Xcode解决代码高亮、语法提示、错误警告等功能失效的解决方法
- 在IE7中打开FTP解决方法(在WINDOWS 资源管理器中打开)
- netbeans 发送ftp文件失败 解决方法
- ftp列表错误,flashfxp列表错误,ftp无法列目录的解决方法
- 程序中“导出列表”功能出错的解决方法
- 用repo下载代码,发现下载到了根目录下解决方法
- SQL Server 2005安装程序,IIS功能要求警告的解决方法
- Linux中ftp连接530错误的解决方法
- FileZilla连接ftp服务器失败,提示"AUTH TLS"解决方法