当前位置：首页 > 编程日记 > 正文

vb打开ftp服务器文件路径,VB上传指定文件到FTP指定目录。。

编程日记 2024-03-04 11:30:00

该楼层疑似违规已被系统折叠隐藏此楼查看此楼

目前用如下代码能够实现上传，但是不能上传到指定目录去。。怎么改变？

Option Explicit

Private Const INTERNET_OPEN_TYPE_DIRECT = 1

Private Const scuseragent = "vb wininet"

Private Const INTERNET_FLAG_PASSIVE = &H8000000

'调用设置环境

Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long

'连接服务器

Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long

'上传涵数

Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, ByVal lpszRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean

Private Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean

Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer

Dim hOpen As Long

Dim hConnection As Long

'上传文件模块

Public Function UpLoadFile(IP As String, FileName As String, UserName As String, PassWord As String) As Boolean

Dim ShortName As String

Dim ret As Boolean

ShortName = GetShortName(FileName)

hOpen = TestServer

If hOpen <> 0 Then

hConnection = InterConnection(IP, UserName, PassWord)

https://www.dkcj.cn/info/2649.html

firefox+linux+nginx搭建server与client通过证书双向认证环境

项目中需要搭建一个server和client基于证书的双向认证环境。由我来做，我也不会。经过一晚上的研究，基本摸清了（知其然不知其所以然）。做下笔记。基本环境： 1.安装nginx。 2.安装openssl。生成证书： 首先…

编程日记2024/03/04 11:00:00

编写高性能Java代码的最佳实践

编写高性能Java代码的最佳实践摘要：本文首先介绍了负载测试、基于APM工具的应用程序和服务器监控，随后介绍了编写高性能Java代码的一些最佳实践。最后研究了JVM特定的调优技巧、数据库端的优化和架构方面的调整。以下是译文。介绍在这篇文章中&…

编程日记2024/03/04 10:30:00

Exchange 2013 OWA搜索邮件失败问题处理

Exchange 2013 OWA搜索邮件失败问题处理问题：接到用户反馈，exchange 2013 owa搜索邮件失败，提示“您的搜索未返回任何结果“，如下图，但是outlook搜索正常。打开EMS命令行工具，get-mailboxdatabasecopystatu…

编程日记2024/03/04 10:00:00

PAT_B_1027 打印沙漏

题目描述： 本题要求你写个程序把给定的符号打印成沙漏的形状。例如给定17个“*”，要求按下列格式打印************ ***** 所谓“沙漏形状”，是指每行输出奇数个符号；各行符号中心对齐；相邻两行符号数差2；符…

编程日记2024/03/04 09:30:00

3dmax2021入门学习教程

3dmax2021入门学习教程 MP4 | h264，1280x720 |语言：英语中文字幕（根据原英文字幕机译）原英文字幕 | 4h 23m | 3.55 GB 含课程素材工程文件云桥网络平台获取素材你将学到什么 3DS MAX中的样条线和多边形建模纹理、照明和渲…

编程日记2024/03/04 09:00:00

关于HTML代码的转义

笔记： 1.在通过jsonp方式传输HTML代码的时候，为了防止代码中的一些字符影响json的语法，需要对HTML代码进行转义。 2.转义的时候可以只转义特殊字符（引号之类的），也可以把所有字符（中文&#xff…

编程日记2024/03/04 08:30:00

php ajax替换数据,如何用ajax替换php函数

我是这里的 AJAX 新手。ajax的动作执行后如何替换初始的php函数？我发现执行操作后页面不会刷新。这是代码：javascriptfunction set_ddm(another_data) {var result $.ajax({url: ../display/ea_form_header.php,type: POST,data: {action: set_ddm,Data…

编程日记2024/03/04 08:00:00

2022-2028年中国输送胶管行业市场全景调查及投资前景趋势报告

【报告类型】产业研究【报告价格】4500起【出版时间】即时更新（交付时间约3个工作日） 【发布机构】智研瞻产业研究院【报告格式】PDF版本报告介绍了中国输送胶管行业市场行业相关概述、中国输送胶管行业市场行业运行环境、分析了中国输送胶管行…

编程日记2024/03/04 07:30:00

CGIC简明教程(转摘)

CGIC简明教程本系列的目的是演示如何使用C语言的CGI库“CGIC”完成Web开发的各种要求。＊＊＊＊＊＊＊＊＊＊＊＊＊＊&#…

编程日记2024/03/04 07:00:00

conflicts with existing, non-compatible bean definition of same name and class

Annotation-specified bean name xxxxxImpl for bean class [cn.abc.dao.service.xxxxxImpl] conflicts with existing, non-compatible bean definition of same name and class [cn.abc.dao.service.dev.xxxxxIImpl] 编译没问题，运行就报错了。一查原来发现在dao…

编程日记2024/03/04 06:30:00

Tree 使用方式

Traditional Ways of Tree Traversal This page contains examples of some “standard” traversal algorithms (ones that can be found in most textbooks). All examples perform pre-order tree traversal on a general rooted tree. “Algorithms, Data Structures and P…

编程日记2024/03/04 06:00:00

网站更换服务器ip地教程,由于服务器更换IP地址，服务器不更换。需要如何操作使网站正常运行呢？,POSCMS,CodeIgniter技术文档,PHP开发文档,迅睿CMS框架官方教程...

多文件Files内容详情中(show.html) 模板中调用方法是：{loop $字段名 $i $c} 序号: {$i} 标题：{$c.title} 描述：{$c.description} 文件原始地址：{dr_get_file($c.file)} 文件的下载地址：{dr_down_file($c.file)} 图片缩…

编程日记2024/03/04 05:30:00

3ds Max V-Ray5 完整指南大师班视频教程

3ds Max V-Ray5 完整指南大师班视频教程时长15小时包括项目文件 1920X1080 MP4 语言：英语中文字幕（机译） 标题：Gumroad–V-Ray 5 Masterclass:您的3ds Max V-Ray完整指南大小：41.8G 共八大章 88小节课程信息&am…

编程日记2024/03/04 05:00:00

2022-2028年中国氢化丁晴橡胶行业市场研究及前瞻分析报告

【报告类型】产业研究【报告价格】4500起【出版时间】即时更新（交付时间约3个工作日） 【发布机构】智研瞻产业研究院【报告格式】PDF版本报告介绍了中国氢化丁晴橡胶电商行业市场行业相关概述、中国氢化丁晴橡胶电商行业市场行业运行环境、分析…

编程日记2024/03/04 04:30:00

配置Exchange OWA和Sharepoint网站单点登录

配置Exchange OWA和Sharepoint网站单点登录如果我们在组织中已经部署完成了Lync、Exchange以及Sharepoint，那么我们会发现这三套系统在通过域账户登录计算机时，如果本机有安装Outlook和Lync，那么在登录Lync或启动Outlook的时候就会自动使用当…

编程日记2024/03/04 04:00:00

BigTable

转载于:https://www.cnblogs.com/fanweisheng/p/11250529.html

编程日记2024/03/04 03:30:00

Blender2.9全流程创建逼真未来科幻蝙蝠汽车视频教程

Blender2.9全流程创建逼真未来科幻蝙蝠汽车视频教程 MP4 |视频：h264，1280720 |音频：AAC，44.1 KHz，2通道含课程工程素材体裁：在线学习|语言：英语中文字幕（根据原英文字幕机译更准…

编程日记2024/03/04 03:00:00

微服务项目用了几台服务器,微服务部署运维

docker介绍，及作用就是类似VM虚拟机一样的虚拟容器技术。docker 可以帮我们把所需要的应用打包容器， 每一个容器都相互独立的，而且容器占用内存小，启动和管理的速度非常快。比如之前我们使用linux 虚拟机，如果要用mys…

编程日记2024/03/04 02:30:00

JAVA用最简单的方法来构建一个高可用的服务端，提升系统可用性

一、什么是提升系统的高可用性 JAVA服务端，顾名思义就是23体验网为用户提供服务的。停工时间，就是不能向用户提供服务的时间。高可用，就是系统具有高度可用性，尽量减少停工时间。如何用最简单的方法来搭建一个高效率可用的服务端…

编程日记2024/03/04 02:00:00

jQuery学习笔记一

2019独角兽企业重金招聘Python工程师标准>>> 1、使用attr()方法控制元素的属性 attr()方法的作用是设置或者返回元素的属性，其中attr(属性名)格式是获取元素属性名的值，attr(属性名，属性值)格式则是设置元素属性名的值。 2、操作元…

编程日记2024/03/04 01:30:00

关于60枚一分两分五分硬币凑成一块钱的解决方法

关于60枚一分两分五分硬币凑成一块钱的解决方法一.强行三重for循环 #include<stdio.h> int main() {int a, b, c;for (a 1; a < 60; a){for (b 1; b < 60; b){for (c 1; c < 60; c){if (100 5 * c 2 * b a && 60 a b c){printf("%d %d…

编程日记2024/03/04 01:00:00

hbase RPCServer源码分析

前置知识： java，nio，多线程看了几天的源码，写一些自己心得，若有错误请指出。 RPCServer的作用：负责创建listener，reader，responser，handler来处理client端的请求。 RPCS…

编程日记2024/03/04 00:30:00

Maya创建科幻3D动画循环场景视频教程

Maya创建科幻3D动画循环场景视频教程 Skillshare – Create a Sci-Fi 3D Animation Loop in Autodesk Maya 持续时间3h 27m 包括项目文件 1280X720 Mkv 语言：英语中文字幕（根据原英文字幕机译更准确）原英文字幕大小解压后 3.05G 共20小节课…

编程日记2024/03/04 00:00:00

2022-2028年中国氢化丁腈橡胶行业市场深度分析及投资规模预测报告

【报告类型】产业研究【报告价格】4500起【出版时间】即时更新（交付时间约3个工作日） 【发布机构】智研瞻产业研究院【报告格式】PDF版本报告介绍了中国氢化丁腈橡胶行业市场行业相关概述、中国氢化丁腈橡胶行业市场行业运行环境、分析了中国氢…

编程日记2024/03/03 23:30:00

js中的json对象和字符串之间的转化

字符串转对象(strJSON代表json字符串) var obj eval(strJSON); var obj strJSON.parseJSON(); var obj JSON.parse(strJSON)； json对象转字符串(obj代表json对象) var str obj.toJSONString(); var str JSON.stringify(obj) 运用时候需要除了eval()以外需要jso…

编程日记2024/03/03 23:00:00

三种方式实现分布式锁

通过以上过程你可以发现锁的获取是按照创建时间来的，谁先来争取锁谁就先获得锁，因此它实现的是公平锁。答案是不能，以Synchronized关键字为例，Synchronized关键字无论是在偏向锁、轻量级锁还是重量级锁状态都不能实现这点，如重量级锁，重量级锁是靠系统底层的互斥量Mutex实现的，也就是说每个节点(服务器)所使用的互斥量是分开的，节点A的互斥量是无法锁住节点B的线程访问临界区，因此Synchronized关键字只能保证单服务器内的JVM进程的不同线程同步，是不能用做分布式环境中来保证线程同步。

编程日记2024/03/03 22:30:05