'驗(yàn)證碼
Set x = WebBrowser1.Document.getElementsByTagName("IMG")(0)
Set CtrlRange = WebBrowser1.Document.body.createControlRange()
CtrlRange.Add (x)
CtrlRange.execCommand ("Copy")
Picture1.Picture = Clipboard.GetData
添加一個(gè)圖片框,這里面就會(huì)有驗(yàn)證碼
如果取的圖片錯(cuò)誤,你自己更改一下WebBrowser1.Document.getElementsByTagName("IMG")(0)最后這個(gè)0,直到正確,因?yàn)榭赡茯?yàn)證碼的編號(hào)不是0
- 追問：
-
改完是不是永遠(yuǎn)可以用，不用一用一次改一次吧
- 回答：
-
改一次就行了,因?yàn)槊總€(gè)網(wǎng)頁中驗(yàn)證碼不一樣
我上面那個(gè)0是其他網(wǎng)頁中驗(yàn)證碼圖版的標(biāo)志
- 追問：
-
怎么看出這最后應(yīng)該要填什么 我填了好多個(gè) 老出現(xiàn)錯(cuò)誤
- 回答：
-
一般是0,你從0開始往上加就可以了
- 追問：
-
但是這個(gè)網(wǎng)站上只有一個(gè)圖片算圖片,是不是要換種方法,還有你的QQ是多少,我要加QQ問你.
http://adsfile.qq.com/web/portal_08245.jpg那個(gè)0向上加1就變成無效指針了.
你要把 http://qzone.qq.com/ 粘貼在瀏覽器上回車才能到我要說的那個(gè)網(wǎng)站.
不然會(huì)到 http://qzone.qq.com/index.html.
- 回答：
-
只有一張圖片就是0了
為什么每個(gè)提問的人都想要QQ?
這個(gè)問題跟我的QQ有什么關(guān)系?
你給的這個(gè)地址
http://adsfile.qq.com/web/portal_08245.jpg
本身就是一個(gè)圖片,何必要用網(wǎng)頁的方法來取得本來就是圖片的圖片地址?
取得網(wǎng)絡(luò)圖片:
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
'加載函數(shù)
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(圖片網(wǎng)絡(luò)路徑)
- 補(bǔ)充：
-
給你個(gè)忠告,用軟件登陸QQ網(wǎng)站是費(fèi)力不討好
有驗(yàn)證碼,你不能自動(dòng)識(shí)別,那么登陸就沒意義,你別問我會(huì)不會(huì)識(shí)別,不會(huì)!
你整這么多事,我還是不明白你要做什么?
400 186 1886
