'驗證碼
Set x = WebBrowser1.Document.getElementsByTagName("IMG")(0)
Set CtrlRange = WebBrowser1.Document.body.createControlRange()
CtrlRange.Add (x)
CtrlRange.execCommand ("Copy")
Picture1.Picture = Clipboard.GetData
添加一個圖片框,這里面就會有驗證碼
如果取的圖片錯誤,你自己更改一下WebBrowser1.Document.getElementsByTagName("IMG")(0)最后這個0,直到正確,因為可能驗證碼的編號不是0
- 追問：
-
改完是不是永遠可以用，不用一用一次改一次吧
- 回答：
-
改一次就行了,因為每個網頁中驗證碼不一樣
我上面那個0是其他網頁中驗證碼圖版的標志
- 追問：
-
怎么看出這最后應該要填什么 我填了好多個 老出現錯誤
- 回答：
-
一般是0,你從0開始往上加就可以了
- 追問：
-
但是這個網站上只有一個圖片算圖片,是不是要換種方法,還有你的QQ是多少,我要加QQ問你.
http://adsfile.qq.com/web/portal_08245.jpg那個0向上加1就變成無效指針了.
你要把 http://qzone.qq.com/ 粘貼在瀏覽器上回車才能到我要說的那個網站.
不然會到 http://qzone.qq.com/index.html.
- 回答：
-
只有一張圖片就是0了
為什么每個提問的人都想要QQ?
這個問題跟我的QQ有什么關系?
你給的這個地址
http://adsfile.qq.com/web/portal_08245.jpg
本身就是一個圖片,何必要用網頁的方法來取得本來就是圖片的圖片地址?
取得網絡圖片:
Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As TGUID, ByRef ppvRet As IPicture) As Long
Private Type TGUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
'加載函數
Public Function LoadPicture(ByVal strFileName As String) As Picture
Dim IID As TGUID
With IID
.Data1 = &H7BF80980
.Data2 = &HBF32
.Data3 = &H101A
.Data4(0) = &H8B
.Data4(1) = &HBB
.Data4(2) = &H0
.Data4(3) = &HAA
.Data4(4) = &H0
.Data4(5) = &H30
.Data4(6) = &HC
.Data4(7) = &HAB
End With
On Error GoTo LocalErr
OleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, IID, LoadPicture
Exit Function
LocalErr:
Set LoadPicture = VB.LoadPicture(strFileName)
Err.Clear
End Function
使用方法:
Set 控件名.Pictue = LoadPicture(圖片網絡路徑)
- 補充：
-
給你個忠告,用軟件登陸QQ網站是費力不討好
有驗證碼,你不能自動識別,那么登陸就沒意義,你別問我會不會識別,不會!
你整這么多事,我還是不明白你要做什么?
400 186 1886
