VB API函数 中文(第一部分)

1. API之网络函数

WNetAddConnection 创建同一个网络资源的永久性连接
WNetAddConnection2 创建同一个网络资源的连接
WNetAddConnection3 创建同一个网络资源的连接
WNetCancelConnection 结束一个网络连接
WNetCancelConnection2 结束一个网络连接
WNetCloseEnum 结束一次枚举操作
WNetConnectionDialog 启动一个标准对话框,以便建立同网络资源的连接
WNetDisconnectDialog 启动一个标准对话框,以便断开同网络资源的连接
WNetEnumResource 枚举网络资源
WNetGetConnection 获取本地或已连接的一个资源的网络名称
WNetGetLastError 获取网络错误的扩展错误信息
WNetGetUniversalName 获取网络中一个文件的远程名称以及/或者UNC(统一命名规范)名称
WNetGetUser 获取一个网络资源用以连接的名字
WNetOpenEnum 启动对网络资源进行枚举的过程

2. API之消息函数

BroadcastSystemMessage 将一条系统消息广播给系统中所有的顶级窗口
GetMessagePos 取得消息队列中上一条消息处理完毕时的鼠标指针屏幕位置
GetMessageTime 取得消息队列中上一条消息处理完毕时的时间
PostMessage 将一条消息投递到指定窗口的消息队列
PostThreadMessage 将一条消息投递给应用程序
RegisterWindowMessage 获取分配给一个字串标识符的消息编号
ReplyMessage 答复一个消息
SendMessage 调用一个窗口的窗口函数,将一条消息发给那个窗口
SendMessageCallback 将一条消息发给窗口
SendMessageTimeout 向窗口发送一条消息
SendNotifyMessage 向窗口发送一条消息

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VB中,可以使用API函数来遍历指定驱动器或目录的文件。首先,我们需要声明一些需要使用的API函数。 1. 声明函数:需要使用FindFirstFile、FindNextFile和FindClose函数来进行文件搜索。 Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long 2. 声明数据结构:需要使用WIN32_FIND_DATA结构体来存储搜索到的文件信息。 Private Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As Currency ftLastAccessTime As Currency ftLastWriteTime As Currency nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * 260 cAlternate As String * 14 End Type 接下来,我们可以编写一个过程来进行文件搜索并遍历。 Private Sub GetFiles(ByVal path As String) Dim hSearch As Long Dim findData As WIN32_FIND_DATA '添加路径分隔符 If Right$(path, 1) <> "\" Then path = path & "\" End If '开始搜索 hSearch = FindFirstFile(path & "*", findData) If hSearch <> -1 Then Do '忽略隐藏和系统文件夹 If (findData.dwFileAttributes And vbHidden) = 0 And (findData.dwFileAttributes And vbSystem) = 0 Then '找到了文件,处理文件 Debug.Print findData.cFileName End If Loop While FindNextFile(hSearch, findData) <> 0 FindClose hSearch End If End Sub 在这个过程中,我们首先根据路径和通配符 "*" 调用FindFirstFile函数来搜索第一个文件,然后使用FindNextFile函数来继续搜索下一个文件,直到没有文件可搜索为止。在每一次搜索到文件时,我们可以进行相应的处理,这里只是简单地输出文件名。 例如,我们可以调用以下代码来遍历D盘根目录的文件。 GetFiles "D:\" 这样就可以遍历D盘根目录的所有文件,并输出文件名。当然,你可以根据自己的需求对搜索到的文件进行处理。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值