大家好，之前分享了猿辅导相关的采集程序，现在将要给大家带来的是作业帮的采集程序，内容稍微有点长，不过层次还是很清晰的，基本上一看就懂，没有过多复杂的内容，先来学习学习吧。
```Haskellimport System.Net.Httpimport System.IOimport Text.XML.TagSoup-- Set up proxyproxyHost = "www.duoip.cn"proxyPort = 8000-- Download video from zuoyebang.comvideoUrl = "https://www.zuoyebang.com/"videoFile = "video.mp4"-- Set up proxy managerproxyManager = HttpClientProxyManager (Proxy proxyHost proxyPort)-- Create a new HTTP client using the proxy managerhttpClient = newHttpClient proxyManager-- Create a new GET request to the video URLvideoRequest = newHttpGetRequest videoUrl-- Execute the GET request and get the responsevideoResponse = httpClient execute videoRequest-- Check if the response is successfulif (videoResponse.StatusCode == HttpStatusCode.OK)then-- Get the video contentvideoContent = videoResponse.Content.ReadAsStringAsync().GetResult()-- Parse the video content using TagSouplet soup = parseTagsoup videoContent-- Extract the video file from the HTMLvideoFileUrl = extractVideoFileUrl soup-- Download the video filedownloadVideoFile videoFileUrl videoFileelse-- Print error messageprint "Failed to download video"```
以上代码使用Haskell语言编写，使用了TagSoup库来解析HTML。首先设置了代理服务器的主机名和端口号，然后设置了要下载的视频的URL和保存的文件名。接着创建了一个代理管理器，然后使用这个管理器创建了一个新的HTTP客户端。然后创建了一个新的GET请求到视频URL，执行这个请求并获取响应。如果响应状态码为200（OK），则解析响应内容，提取视频文件的URL，然后下载这个文件。否则打印错误消息。
