联系我们

工作时间: 8:30 - 22:00

客服电话: 400-660-0108

kefu@csdn.net 在线客服

关于我们
招贤纳士
商务合作
寻求报道
协议专区

友情链接
视觉中国
500px
直聘网
优设网
CSDN文库
CSDN下载
CSDN问答
京ICP备19004658号
经营性网站备案信息
公安备案号11010502030143
营业执照
北京互联网违法和不良信息举报中心
家长监护
中国互联网举报中心
网络110报警服务
Chrome商店下载
账号管理规范
版权与免责声明
版权申诉
出版物许可证
©1999-2026北京创新乐知网络技术有限公司

全部
Ada助手

社区 >VB基础类 >帖子详情

如何象commanddialog选择一个文件一样选择一个目录

2005-08-28 01:45:17 123 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

crazypeople 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网我也要 → 关注 + 加入社区

Python之反爬虫手段（User-Agent，Cookie，Referer，time.sleep()，IP代理池）现在的爬虫越来越难，各大网站为了预防不间断的网络爬虫，都相应地做出了不同的反爬机制，那么如何能够在不被封IP的情况，尽可能多得爬取数据呢？这里主要介绍到一些通用的反爬措施，虽然不一定适合所有网站，但是大部分网站的爬取，个人认为还是可以的。本文主要介绍到User-Agent，Cookie，Referer，time.sleep()设置睡眠间隔，ProxyPool之IP池的搭建，小伙伴们各取所需！由于后续爬虫案例都默认自带这些反爬技术，所以这里就统一详细介绍下，后续案例就不再过多涉及，废话不多说，开始展开！阅读详情

谢谢！！！！

...全文

配置赞助广告

如何避免 Python 爬虫被封禁：IP、User-Agent 和代理池管理摘要：在爬虫开发中，避免被目标网站封禁需采取多种策略：1) IP代理：通过代理池动态切换IP，分散访问压力，可使用付费代理或爬取免费代理（需验证可用性）；2) User-Agent伪装：利用工具随机生成浏览器UA，或动态切换UA列表；3) 请求频率控制：添加随机延时（如1-5秒）模拟人工操作。综合应用代理池、UA伪装及延时请求，可有效降低封禁风险。示例代码展示了Python实现代理切换、UA动态生成及延时请求的方法。阅读详情

相关推荐

利用vb调用matlab函数绘图

大家好，我在vb中编写了一段调用matlab函数来绘图的代码，但是其中的commandialog控件在使用一次后就出现错误，不知哪位高手能不能给点帮助。谢谢！

python3爬虫系列19之反爬随机 User-Agent 和 ip代理池的使用

python3爬虫系列18之随机User-Agent 和ip代理池的使用我们前面几篇讲了爬虫增速多进程，进程池的用法之类的，爬虫速度加快呢，也会带来一些坏事。 1. 前言比如随着我们爬虫的速度越来越快，很多时候，有人发现，数据爬不了啦，打印出来一看。不返回数据，而且还甩一句话是不是很熟悉啊？要想想看，人是怎么访问网站的？发请求，对，那么就会带有 request.headers，那么...

江湖一点雨

VB中打印机选择.doc

VB中打印机选择.doc

平头哥在等你

如何实现Excel数据批量导入到远程SQL Server数据库.pdf

如何实现Excel数据批量导入到远程SQL Server数据库.pdf

VB拆分、组合Flag值的算法示例程序.rar

VB6.0拆分、组合Flag值的算法示例程序，flag值本人理解为标志，commanddialog的属性外观就是使用flag方式来显示的，本程序为你演示了如何利用VB组合和拆分Flag值。程序界面采用了TAB风格，看上去还挺不错。

weixin_39840387

4

已收藏

如何象commanddialog选择一个文件一样选择一个目录

谢谢！！！！

复制链接

扫一扫

返回顶部

VB基础类 · 7,788 成员 · 197,583 内容

+ 关注 + 加入社区

评论 4

切换为时间正序

kenny 2005-08-29

打赏
举报

回复

我的样例，供楼主参考：

使用 API 制作选择目录位置的对话框

'声明 API 选择目录时使用

Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type

Private Const BIF_RETURNONLYFSDIRS = &H1

Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

'选择存放目录
Private Sub SelFolder_Click()

Dim bi As BROWSEINFO
Dim r As Long
Dim pidl As Long
Dim path As String
Dim pos As Integer

bi.hOwner = Me.hWnd '句柄
bi.pidlRoot = 0& '展开根目录
bi.lpszTitle = "输出条形码位置 : " '列表框标题
bi.ulFlags = BIF_RETURNONLYFSDIRS '规定只能选择文件夹，其他无效
pidl = SHBrowseForFolder(bi) '调用API函数显示列表框
path = Space$(512) '利用API函数获取返回的路径
r = SHGetPathFromIDList(ByVal pidl&, ByVal path)

If r Then
pos = InStr(path, Chr$(0))
Folder_L.Caption = Left(path, pos - 1) '返回选择的目录位置
Else
Folder_L.Caption = ""
End If

End Sub

fishmans 2005-08-28

打赏
举报

回复

dirlistbox不就是这么个东西吗？

crazypeople 2005-08-28

打赏
举报

回复

就是让用户选择路径可以手动输入也可以通过一个点击选择象commanddialog选择文件一样选择

pweixing 2005-08-28

打赏
举报

回复

目的是什么？？