飛鴿傳書：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 本生是一个控件的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。