![]() |
Как уставновить связь с антигейт на вб6?
как уставновить связь с антигейт на вб6? :(
плиз.. или чото почитать бросьте а то я не нашел.. сонный, не орите сильно если что.. пожалуйста :o :( |
Цитата:
|
новый прикол, как получить картинку например с компонента webbrowser в picturebox? :(
|
Гет эту картинку отдельно.
|
ну вот например
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 но тута мы сохраняем определенную картинку. а их там-то много :( :( ну капча.. ну как? а?? |
| Время: 01:58 |