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

飞鸽传书：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 本生是一个控件的全部内容，希望文章能够帮你解决所遇到的问题。

如果觉得生活随笔网站内容还不错，欢迎将生活随笔推荐给好友。