.版本 2 ' 引入Wininet.dll ' 定义全局变量 DIM hSession, hConnect, hRequest As Long Dim lpBuffer As String Dim dwBytesRead, dwSize As Long ' 定义线程函数 Function ThreadProc(lpParam As Any) As Long ' 访问API地址 hRequest = HttpOpenRequest(hConnect, "GET", "http://api.example.com", 0, 0, 0, 0, 0) HttpSendRequest hRequest, 0, 0, 0, 0 ' 读取数据 Do InternetReadFile hRequest, VarPtr(lpBuffer), Len(lpBuffer), dwBytesRead ' 处理数据 ' ... Loop While dwBytesRead > 0 ' 关闭请求 InternetCloseHandle hRequest End Function ' 主程序 Sub Main() ' 初始化Wininet.dll hSession = InternetOpen("MyApp", INTERNET_OPEN_TYPE_PRECONFIG, 0, 0, 0) hConnect = InternetConnect(hSession, "api.example.com", INTERNET_DEFAULT_HTTP_PORT, 0, 0, INTERNET_SERVICE_HTTP, 0, 0) ' 创建多个线程 For i = 1 To 10 Dim hThread As Long hThread = CreateThread(0, 0, AddressOf ThreadProc, 0, 0, 0) CloseHandle hThread Next ' 等待所有线程结束 WaitForMultipleObjects(10, ThreadHandles, 1, INFINITE) ' 关闭连接 InternetCloseHandle hConnect InternetCloseHandle hSession End Sub

这段代码是一个使用Wininet.dll进行网络编程的例子，它创建了一个会话和连接到目标服务器，并使用HttpOpenRequest和HttpSendRequest函数发送HTTP GET请求，然后使用InternetReadFile函数读取响应数据。它还使用CreateThread函数创建多个线程来同时访问API地址，并使用WaitForMultipleObjects函数等待所有线程结束，最后关闭连接。