API实现程序自动升级

来源：网络收集时间：2026-08-28

导读： API实现程序自动升级社区彩票社区农场社区赌场社区法院社区房产社区股市欢迎大家到这个网上的共同的家园交流你的思想、分享你的经验！收藏本页联系我们论坛帮助 redbridge 重登录隐身用户控制面板搜索风格论坛状态论坛展区社区设施社区服

API实现程序自动升级

社区彩票

社区农场

社区赌场

社区法院

社区房产

社区股市

欢迎大家到这个网上的共同的家园交流你的思想、分享你的经验！收藏本页

联系我们

论坛帮助

redbridge 重登录隐身用户控制面板搜索风格论坛状态论坛展区社区设施社区服务退出

>> PowerBuilder编程技术与相关应用我的收件箱 (0)

程序员家园论坛 → 软件开发 → PowerBuilder → [转帖]使用PB调用API自动更新（非FTP模式）

您是本帖的第 12 个阅读者　　

* 贴子主题：[转帖]使用PB调用API自动更新（非FTP模式）

hongjuan

头衔：菜鸟协会会长

等级：管理员

威望：1

文章：35158

积分：44536

魅力：34850

现金：18265

存款：11106

门派：足彩协会

住址：幸福之家21号

鲜花(0) 鸡蛋(0) 楼主

[转帖]使用PB调用API自动更新（非FTP模式）

API实现程序自动升级

一、STRUCTURE定义

1、s_filetime

global type s_filetime from structure

long dwlowdatetime

long dwhighdatetime

end type

2、s_win32_find_data

global type s_win32_find_data from structure

long dwfileattributes

s_filetime ftcreationtime

s_filetime ftlastaccesstime

s_filetime ftlastwritetime

long nfilesizehigh

long nfilesizelow

long dwreserved0

long dwreserved1

character cfilename[255]

character calternatefilename[14]

end type

3、s_netresource

global type s_netresource from structure

long dwScope

long dwType

long dwDisplayType

long dwUsage

string lpLocalName

string lpRemoteName

string lpComment

string lpProvider

end type

一、WNetAddConnection2A

function ulong WNetAddConnection2A(ref s_netresource lpNetResource, String lpPassword, String lpUserName, long dwFlags) library "mpr.dll" Alias for "WNetAddConnection2A"

说明：

VB声明

Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long

API实现程序自动升级

说明

创建同一个网络资源的连接

返回值

Long，零表示成功。>0表示失败

参数表

参数类型及说明

lpNetResource 在这个结构中设置了下述字段，对要连接的网络资源进行了定义：dwType， lpLocalName （可为 vbNullString）， lpRemoteName， lpProvider （设为 vbNullString 表示用默认提供者）。该结构的其他所有变量都会被忽略

lpPassword String，可选的一个密码。如为vbNullString，表示采用当前用户的默认密码。如为一个空字串，则不用任何密码

lpUserName String，用于连接的用户名。如为vbNullString，表示使用当前用户 dwFlags Long，设为零；或指定常数CONNECT_UPDATE_PROFILE，表示创建永久性连接

2、WNetGetConnectionA

function ulong WNetGetConnectionA(String lpszLocalName, String lpszRemoteName, long cbRemoteName) library "mpr.dll"

说明：

VB声明

Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long

说明

获取本地或已连接的一个资源的网络名称

返回值

Long，零表示成功。>0表示失败。

参数表

参数类型及说明

lpszLocalName String，本地设备的名字

lpszRemoteName String，指定一个字串缓冲区，用于装载设备的资源名称

cbRemoteName Long，lpszRemoteName缓冲区的字符数量。如缓冲区不够大，则设为需要的缓冲区长度

3、FindFirstFileA

function ulong FindFirstFileA(string lpFileName, REF s_WIN32_FIND_DATA lpFindFileData) Library "kernel32.dll"

VB声明

Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long

说明

根据文件名查找文件

返回值

Long，如执行成功，返回一个搜索句柄。如果出错，返回一个INVALID_HANDLE_VALUE常数，一旦不再需要，应该用FindClose函数关闭这个句柄

参数表

API实现程序自动升级

参数类型及说明

lpFileName String，欲搜索的文件名。可包含通配符，并可包含一个路径或相对路径名 lpFindFileData WIN32_FIND_DATA，这个结构用于装载与找到的文件有关的信息。该结构可用于后续的搜索

注解

由这个函数返回的句柄可以作为一个参数用于FindNextFile函数。这样一来，就可以方便的枚举出与lpFileName参数指定的文件名相符的所有文件

4、FindClose

function ulong FindClose(ulong hFindFile) Library "kernel32.dll"

VB声明

Declare Function FindClose Lib "kernel32" Alias "FindClose" (ByVal hFindFile As Long) As Long

说明

关闭由FindFirstFile函数创建的一个搜索句柄

返回值

Long，非零表示成功，零表示失败。会设置GetLastError

参数表

参数类型及说明

hFindFile Long，由FindFirstFile函数提供的搜索句柄

5、CompareFileTime

function ulong CompareFileTime( REF s_filetime lpFileTime1, REF s_filetime lpFileTime2) library "kernel32.dll" Alias for "CompareFileTime"

VB声明

Declare Function CompareFileTime Lib "kernel32" Alias "CompareFileTime" (lpFileTime1 As FILETIME, lpFileTime2 As FILETIME) As Long

说明

根据FILETIME结构的信息，对比两个文件的时间

返回值

Long，如两个时间相等，就返回零；如lpFileTime1小于lpFileTime2，返回-1；如lpFileTime2小于lpFileTime1，返回1

参数表

参数类型及说明

lpFileTime1 FILETIME，参考FILETIME

lpFileTime2

6、CopyFileA

function ulong CopyFileA(string lpExistingFileName, string lpNewFileName, long bFailIfExists) library "kernel32.dll" Alias for "CopyFileA"

API实现程序自动升级

VB声明

Declare Function CopyFi …… 此处隐藏：14017字，全部文档内容请下载后查看。喜欢就下载吧 ……

API实现程序自动升级.doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印

下载这篇word文档

本文链接：https://www.jiaowen.net/wendang/1482592.html（转载请注明文章来源）

上一篇：浙价服(2009)84号收费标准
下一篇：用EXCEL制作考试成绩统计模板