说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

通过WnetEnumResource函数获得网络资源 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
通过WnetEnumResource函数获得网络资源 -VB资料

Create a new project and add the following code to the form:
Option Explicit

Private Const GMEM_FIXED = &H0
Private Const GMEM_ZEROINIT = &H40
Private Const GPTR = (GMEM_FIXED Or GMEM_ZEROINIT)

Private Declare Function GlobalAlloc Lib "KERNEL32" ( _
ByVal wFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalFree Lib "KERNEL32" ( _
ByVal hMem As Long) As Long

Private Declare Sub CopyMemory Lib "KERNEL32" Alias "RtlMoveMemory" _
(hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)

Private Declare Function CopyPointer2String Lib "KERNEL32" _
Alias "lstrcpyA" ( _
ByVal NewString As String, ByVal OldString As Long) As Long

Private Sub Form_click()
Dim hEnum As Long, lpBuff As Long, nr As NETRESOURCE
Dim cbBuff As Long, cCount As Long
Dim p As Long, res As Long, i As Long

'Setup the NETRESOURCE input structure.
nr.dwUsage = RESOURCEUSAGE_CONTAINER
nr.lpRemoteName = 0
cbBuff = 1000
cCount = &HFFFFFFFF

'Open a Net enumeration operation handle: hEnum.
res = WNetOpenEnum(RESOURCE_CONNECTED, RESOURCETYPE_ANY, _
0, nr, hEnum)
If res = 0 Then
'Create a buffer large enough for the results.
'1000 bytes should be sufficient.
lpBuff = GlobalAlloc(GPTR, cbBuff)
'Call the enumeration function.
res = WNetEnumResource(hEnum, cCount, lpBuff, cbBuff)
If res = 0 Then
p = lpBuff
Cls
'WNetEnumResource fills the buffer with an array of
'NETRESOURCE structures. Walk through the list and print
'each local and remote name.
For i = 1 To cCount
CopyMemory nr, ByVal p, LenB(nr)
p = p + LenB(nr)
Print PointerToString(nr.lpLocalName), _
PointerToString(nr.lpRemoteName)
Next i
Else
MsgBox "Error: " & Err.LastDllError, vbOKOnly, _
"WNetEnumResources"
End If
If lpBuff <> 0 Then GlobalFree (lpBuff)
WNetCloseEnum (hEnum) 'Close the enumeration
Else
MsgBox "Error: " & Err.LastDllError, vbOKOnly, "WNetOpenEnum"
End If
End Sub

Private Function PointerToString(p As Long) As String
'The values returned in the NETRESOURCE structures are pointers to
'ANSI strings so they need to be converted to Visual Basic
Strings.
Dim s As String
s = String(255, Chr$(0))
CopyPointer2String s, p
PointerToString = Left(s, InStr(s, Chr$(0)) - 1)
End Function
VB如何在Windows操作系统中改变文件打开方式 VB如何知道硬盘是使用那一种文件系統(FAT32,FAT16)? VB如何自动更动成中文输入 VB删除整个目录 VB设置打印页边距 VB实现文件查找功能 VB使用SendMessage函数滚动文本框控件中的内容 VB使用 WIN95 的选择目录对话框 VB使用INI文件 VB使用WriteFile 块读写数据 VB使用历史文件记录 VB使用内存映射文件加快文件操作速度 VB数据报表设计器在多层结构开发的应用 VB突破 TextBox 32K 的限制 VB拖拽节点时实现目录树自动翻滚 位图文件内部初探-VB资料 VB文本的加密与解密 VB显示盘中所有的目录 VB压缩MDB文件 一个移动文件的简单方法-VB资料 VB移动文件到回收站 VB隐藏文本框控件的环境菜单(又一方法) VB隐藏文本框控件的环境菜单 VB用API复制移动文件 VB用OleDragdrop事件接受拖放文件 用VB进行文本文件的再处理 用VB开发应用程序如何使用INI文件 用VB实现文件查找功能 VB用Winsock控件实现文件的下载 VB用两分法搜索列表框或组合框中的数据 在 ListBox 之中, 如何检测鼠标所在位置的选项? -VB资料 初级菜鸟问题,求助 终于解封了,多谢没头脑,偶以后再也不倒粪和刷屏了! 各位大侠,救命!亟待解决! 如何使一个数据库用户的所有对象只读,不可写? 有没有DOS很熟的仁兄?纯DOS下和WIN NT4.0联网 怎样动态生成一个adoquery,并能进行数据库查询,小妹急用,100分奉上 怎么转换这个SQL Server的存储过程为oracle的 多语言数据库的应用程序,象DBGRID字段里的这些标题我应放在哪里好? 最简单的语句,最奇怪的问题。&&&&&&& 在线等待!!! D3D的简单问题 如何控制LineTo划线的颜色和宽度? 高分求《面向对象分析与设计》杨正甫编这本书下载地址。。。 学习DELPHI用铁道出版的乔林《参透Delphi/Kylix》 如何? 请问是否有比较简便的方法可以知道,程序中哪些变量定义完后根本不用? 按钮提交并链接不同页面的问题。 简单的问题 请教VC++高手:在MFC中,如何把剪贴板中的位图按原比例打印出来? 分不够再加! 怎么样在vb中读取bmp的位图信息,将图中所有黑颜色的象素 谁在20分钟内答出以下问题能拿高薪 如何修改注册表的键的默认键值? WINXP开始运行宽带播号程序缓慢,什么原因? newwish2 给我一个例子,邮箱:make_a_wish@163.com!!!着急呢!! evc4.0中文显示的问题! struts--html:select 为何出不来? 讨论:关于WinXP下开发的COM+的分发问题!! 菜鸟的小问题!! 一个关于东芝笔记本的故障 请问JBuilder错误提示:cannot access directory javax\mail at line 7, column 1 CSDN的速度越来越慢了,来这里的高人也越来越少了! 有没有DOS很熟的仁兄?纯DOS下和WIN NT4.0联网 小小问题!!! 困扰我多时了。。。 sybase 在程序中连接的问题。急,我咨询Sybas公司也不行。 按钮茶馆开张啦,有闲的进来聊天吧~ 小問題 PhoebusApollo(sunny) 你说要开贴,又没分,我有,给你100分,进来领吧!呵呵,不用谢!:) 关于DBGridEh排序的问题,急急急!!! ora-12224错误,tns no listener错误 !在线等待 ,急~! 求助jb9的破解 报表问题,急呀,救命呀~~~55555~~~~ 500分求解决一个问题 在线等待 解决立即给分 2003下为什么我的声卡不能用? 在程式AAA.PRG中如何修改表的字段的類型,比如字段C類型改為N類型??很急!!! 为什么有时候成员函数或变量显示不出来 救命!我在程序中使用webbrowse控件………… 在线等待。 也许是一个很简单的问题! 连接mysql出错 寻关于工控的中英文对照资料 想在暑假打工(计算机方面的)需要什么条件啊? 关于SQL SERVER的疑难问题!来者有分!(在线等待!分数不够可以再加) MTS与线程——高分相赠!!!! 来看看啊,告诉我再哪里下就给分啊~~ 4秒末的瞬时速度与第4秒内的平均速度是一回事吗?大小相等吗? 秋月月月月台上赏月 夏天天天天井中聊天 这副对联综合运用了( )和( )格式,读来非常有趣. 已知角∠2是∠1的三倍,∠3比∠1大20度,求∠1,∠2,∠3各是多少度. 精确数位与有效数字问题1、请帮忙回答下面几题的精确数位和有效数字:(1)5千万(2)5000万(3)5*10^3万(4)5.000*10^3万(5)5*10^3(6)5*10^-3万2、有效数字的定义:从左边第一个不是零的数字直到有效数 秋月月月月台上赏月 夏天天天天井中聊天 .怎么读?请用||画出停顿 PS画线问题请问PS里 中间这条线怎么弄出来的..新手 PS CS3(我按U键里的直线工具 画出来的线好粗 也不知怎么调粗细..) 缩句可爱的小演员差点在台上跌倒 缩句是啥呀?急 仿写;秋月月月月台上赏月 夏天天天天井中观天 文段:Someone boughts a shirt,a bag and a jacket.问:How many kinds of clothes has he bought.(请问bag是否算是clothes)A:2 B:3 一般地怎样确定两个近似数的和所精确的数位答好了,答不好,没分 秋月月月月台上赏月 (1)胎儿在母体内发育的场所是 [③] ____________________ .(2)胚胎发育初期由______________________(1)胎儿在母体内发育的场所是 [③] ____________________ . (2)胚胎发育初期由______________________ 提供营养; 胚 精确数位与有效数字30/19精确三位有效数字 如图,设a.b.c.d∈R,求证,对于任意p.q∈R,有: 以胎儿角度来诉说的九个月在母体内发育的过程的作文!我需要一篇以婴儿角度来诉说的九个月婴儿发育的过程~ 在哲学上来讲,什么事因果联系啊? 关于解析几何方法理论上是否所有平面几何问题都可以用解析几何建系方法解决?举个例子,比如梅内劳斯定理和塞瓦定理,托勒密定理等 胎儿在母体内为什么不发育我老婆怀孕俩月了可到医院检查说胎儿根本没长.就是说没原始脉动.求求各位好心的大哥大姐有关这方面的知识帮帮小弟. 这世界上到底有没有哲学的存在,是不是哲学这东西就像人们遇到不能解释的事情一样,只能用很虚幻的东西解 培优班补习班用英语怎么说 世界现代史中蓝脑计划属于哪一领域的研究范畴 哲学上为什么说世界上没有绝对静止的事物?老师上课讲的没听明白 汉阳王家湾这里哪里有新灵通英语培优班班,效果要很好的那种! 《陇西行 》和《夜上受降城闻笛》所抒发的感情一样吗?各是什么感情?陇西行 陈陶 誓扫匈奴不顾身,五千貂锦丧胡尘.可怜无定河边骨,犹是深闺梦里人.夜上受降城闻笛 年代:唐李益 回乐峰前 描写人物,动作,神态,语言的句子 1.写出下列字母相同读音的单词.例:b(bag)c( ) r( ) y( )2.下列句子使用标点正确的一项是:( )A.Jim says."Whose book is this?"B.Is this a computer or a TV.C."A little Red Hen" is my favourite book.D.There is 第4,题和七题 任何两个数位之间的进率都是10?是对是错? 耀斑与太阳黑子是否具有同样的周期变化 马克思的“观念的东西不外是移入人的头脑并在人头脑中改造过的物质的东西而已”出自哪? 在三角形abc中 a=c+90度,sinA+sinC=根号2sinB求角C 求1,1+2,1+2+3,1+2+3+4,...1+2+3+4+...+n,...的前n项和 在平面直角坐标系中,如果两直线平行,那么k相等.怎么证明? 精湛是什么意思 1+1/2+1/3+1/4+…+1/n的前n项和 平面直角坐标系中两直线平行 他们一次项系数什么关系 幂函数,a为根式时图像规律 1+1/2+1/4+...+1/2^n为什么是N+1项 平面直角坐标系中两直线平行,已知一条直线解析式和到另一条直线的距离,怎样求另一条直线解析式? 精湛的意思急 一道初二的关于完成时的英语题.快.People ( )(build) a school in the town last year.用括号里的正确形式填空.说清楚用一般过去时 还是现在完成时还是过去完成时 请问像点啊,然啊下面的那个四点底咋打? "精湛"的意思. 今天物理考试 地球上的重力为9.8牛顿,火星上的为3.78 一个重60kg的人在地球上最多可以100kg的物体 请问他到了火星可以举起多少重的 街头篮球 4个点 怎么打出来 (“然”下面的4点) “精湛”是什么意思还有“古朴” 第25届"楚才杯"作文竞赛的成绩出来了没有?在哪可以看?我要直接可以进的! 然下面的那四点怎么单独打出来?各位帮帮忙 精美的意思是什么 a的(2n-1)项的上一项是(2(n-1)-1)即(2n-3)还是(2n-1) 设数列an=(3n-3)×5的n-2次方 求an的前n项和 用错位相减的方法来做! java判断一个数位数及是否是回文数 An=(2n-1)/2∧(n-1)求其前n项和 急 刻舟求剑选自[ ]编写者[] 以山为话题写作文要散文的哈! java判断一个数位数及是否是回文数.doc 英语翻译 关于哲学与命运,因果的关系我现在有一个认识不知道究竟属不属于哲学范畴请老师前辈们指点就是关于命运,因果报应是属于哲学的还是宗教的.我一直相信所谓的因果报应,在我哲学观中 人 在三角形ABC中,角A,B,C的对边a,b,c,cos二分之C的平方=二分之根号三sinC.求角C的大小 英语翻译如上 欧盟规范产地国标签 德国制造或变中国美机场枪手行凶细节被曝光 短信透出厌英国15岁少年欲滑雪闯南极(图)日本未从日俄会谈获实质成果 牵制中国首份中日韩常用汉字表编制完成 808赵薇携《致青春》现身中美电影节【高清科索沃举行地方政府选举所罗门群岛掀寻金热 传二战日军沉船藏美研发新型间谍机 可一小时内到达全球人民日报谈地方债:风险总体可控 政府伊朗最高领袖称美国是微笑的敌人 对核美媒爆料日本系美监控对象 目的不仅限西化的越南年轻人【高清组图】德或成“五只眼”新成员国 美德协议分女子白天顺手牵羊偷衣服 晚上夜市摆摊海曙女子车里钻进一条蛇 男街坊自告奋男子车子被福特车挡道 与车主争吵气划小偷溜进医院想偷戒指 被发现后扯破衣以房养老产品或明年一季度推出 首选失周四“立冬” 接下来雾霾可能会是杭州西湖申遗成功两年多 团市委调查西湖保谢逸枫:GDP破7释放经济严重放缓信市场底部基本探明八核千元级强机新秀——TCL么么哒3死敌球迷买拜仁球衣获得减刑做金融的,善良比聪明更重要A股继续震荡探底 短期可关注一类股私募如何建设强有力的投研团队英媒:热刺有意QPR前锋奥斯汀各大券商集体看好2015年互联网金融你知道吗?以后收微信红包要收20%的互联网金融的秘诀:社交+权益+创新,秋季腹泻三大标准C罗清晨晒豪车,跟球迷道早安欧阳昌琼谈互联网证券监管:法无禁止即加拿大地产市场报告: 明年温哥华楼市揭秘不明潜水物USO:形如幽灵神出鬼《2014年个人投资者状况调查报告》苏州别墅装修报价一般多少钱?民间借贷中如何避免踩雷 千万看清这1网爆陆金所出现坏账 到底陆金所还靠不什么决定你的财气
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘