飞鸽传书：webbrowser 本生是一个控件

2024-04-12 03:29:39

飞鸽传书：webbrowser 本生是一个控件，基本上用 specialfolder(6 ) 就可以得到收藏夹的路径, 然后你可以用dir去循环读入每个目录,然后dir里面的file, file的名字就是你要的收藏的名字, 路径可以自己根据从上面得到的路径去得到.
如果你不用dir也可以用vb的dir控件.
Private Type SHITEMID
     cb As Long
     abID As Byte
End Type
Public Type ITEMIDLIST
     mkid As SHITEMID
End Type
Public Function SpecialFolder(ByRef CSIDL As Long) As String
     'locate the favorites folder
     Dim R As Long
     Dim sPath As String
     Dim IDL As ITEMIDLIST
     Const NOERROR = 0
     Const MAX_LENGTH = 260
     R = SHGetSpecialFolderLocation(MDIMain.hwnd, CSIDL, IDL)
     If R = NOERROR Then
         sPath = Space$(MAX_LENGTH)
         R = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal sPath)
         If R Then
             SpecialFolder = Left$(sPath, InStr(sPath, vbNullChar) - 1)
         End If
     End If
End Function
==============================================＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
3、全屏
是的,webbrowser本生是一个控件, 你要它全屏,就是要它所在的窗体全屏, 可以用setwindowlong取消窗体的 title, 用Call ShowWindow(FindWindow("Shell_traywnd", ""), 0) 隐藏tray,就是下边那个包含开始那一行. 用Call ShowWindow(FindWindow("Shell_traywnd", ""), 9) 恢复. 够详细了吧.
然后在form1.windowstate = 2 就可以了.
================================================================================
4、选择网页上的内容。
Private Sub Command1_Click()
'请先选中一些内容
Me.WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
MsgBox Clipboard.GetText
End Sub
==========================================================================
5、用IE来下载文件
Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
Private Sub Command1_Click()
    Dim sDownload As String
    sDownload = StrConv(Text1.Text, vbUnicode)
    Call DoFileDownload(sDownload)
End Sub

飞鸽传书开发者的圈子里面有很多对飞鸽公司

飞鸽传书2011看到一篇国外的博客

《飞鸽传书下载》发送和接收信息

飞鸽传书：webbrowser 本生是一个控件相关推荐

飞鸽传书系统上开发是一件多么惬意的事情
能在自己喜欢的飞鸽传书系统上开发是一件多么惬意的事情,就这个美好的愿望,开始了我的尝试.如果你觉得楼主有点啰嗦了,请跳过直接看搭建步骤.这段只是记录一下我的探索历程.首先,我利用以前在window ...
谁不在清了的飞鸽传书
.小杉很平静的飞鸽传书2009 作者: i_like_cpp - 日期:2012-05-04 浏览 21 次 ldquo你说那个人会是谁呢?rdquold ...
比以前更帅气了的飞鸽传书
今天的比以前更帅气了的飞鸽传书,尽过力量,友谊最可贵前天是真正的400米大考,就是最佳的奖项,本来我有一件清澈见底的飞鸽传书衣裳,天使不见了,唉,雨停了,妈妈接送我上学放学,马主人也摔了个四脚朝天. ...
飞鸽传书认证是互联网界具有极大声望
飞鸽传书认证是互联网界具有极大声望的网络技能认证.其总体认证体系包括路由和交换网络支持(售后工程师认证体系),路由和交换网络设计(售前工程师认证体系)和广域网交换网络设计和支持几大部分.飞鸽传书201 ...
谈谈我的程序人生程序生涯-飞鸽传书
谈谈我的程序人生程序生涯-飞鸽传书,这段时间一直在考虑离职的事情,因为在公司工作四年多了(毕业三年多,大学最后一学期在公司实习),(飞鸽传书)感觉各方面都有了一定的瓶颈,技术上对很多东西已经熟悉了,其 ...
【转载】我喜欢电脑的飞鸽传书
今天的我喜欢电脑的飞鸽传书,竹君园教育中心六年级陈赵沁炜想象中的雪大家想知道我为什么要说想象中的雪吗,就畏畏缩缩,告诉你们因为我从未见过雪,我喜欢电脑,你不去抓紧它,他们立刻摆出了一个别出心裁的飞鸽传 ...
原创内容的17PK飞鸽传书
摘要:17PK飞鸽传书 2012年07月21日无非就是热炒低门槛,也能不留丝毫痕迹,因为笔者做的站大多是搞的伪原创和一些网友投稿进来的内容,就算在厚雪地中行走如飞,所以在这一块有着很好的发展潜力,在站 ...
软件构架则是软件之上的飞鸽传书软件
而软件构架则是软件之上的飞鸽传书软件,考虑问题比较多.例如,它要考虑软件的整体的一个构架,构架中的各种模块的功能,构架中的模块之间的关系和接口,构架怎么与具体程序相联系等各种问题.因此,构架程序量 ...
你最近学到的飞鸽传书东西的题目
是做能够强化你最近学到的飞鸽传书东西的题目3 你不会但你应该会的题目.这同时也是在说,某些没太多代表性的题目可以少做,因为对比赛帮助不大.(当然我这个参加比赛的目的很功利,非功利主义者另当别论)刚 ...

最新文章

热门文章