PDA

Просмотр полной версии : Как уставновить связь с антигейт на вб6?


A_n_d_r_e_i
28.04.2010, 22:44
как уставновить связь с антигейт на вб6? :(
плиз.. или чото почитать бросьте а то я не нашел..
сонный, не орите сильно если что..
пожалуйста :o :(

TrueBit
28.04.2010, 22:54
как уставновить связь с антигейт на вб6? :(
плиз.. или чото почитать бросьте а то я не нашел..
сонный, не орите сильно если что..
пожалуйста :o :(
http://kaimi.ru/2009/05/anticaptcha-visual-basic/

A_n_d_r_e_i
28.04.2010, 23:40
новый прикол, как получить картинку например с компонента webbrowser в picturebox? :(

fl00der
29.04.2010, 00:26
Гет эту картинку отдельно.

A_n_d_r_e_i
29.04.2010, 00:31
ну вот например

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Public Function SavePictureOnComputer(URL As String, Path As String) As Long
SavePictureOnComputer = URLDownloadToFile(0, URL, Path, 0, 0)
End Function

Private Sub Form_Load()
Dim urlA As String
urlA = "http://www.heroeswm.ru/wimage.php?reg&r=000000000000000000"
WebBrowser1.Navigate urlA
SavePictureOnComputer urlA, "C:\whos89.jpg"
Picture1.Picture = LoadPicture("C:\whos89.jpg")
Picture1.AutoSize = True
End Sub

но тута мы сохраняем определенную картинку. а их там-то много :( :(
ну капча.. ну как? а??