API实现程序自动升级

社区彩票

社区农场

社区赌场

社区法院

社区房产

社区股市

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

联系我们

论坛帮助

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

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

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

您是本帖的第 12 个阅读者

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

hongjuan

头衔：菜鸟协会会长

等级：管理员

威望：1

文章：35158

积分：44536

魅力：34850

现金：18265

存款：11106

门派：足彩协会

住址：幸福之家21号

注册：2003-12-31

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

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

一、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

说明

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

返回值

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函数关闭这个句柄

参数表