Что бы набрать 200 руб. нужно собирать 10 000 раз Действительно, сломаютсяneic писал(а):0,02 можно собирать пока пальцы не сломаються =)
FAER писал(а):Такой способ заработка - не дело. С тем же успехом можно регестрироваться на различных сайтах и открывать их сколько угодно раз в день. Но есть другой вариант. Заработок с помощью рефералов. Знакомо такое понятие??
hCORe писал(а):А, ну да... MLM - это круто. Там можно двадцать копеек вместо двух получать %)
При этом ты совсем не работаешь и настолько обленеваешь, что тебе даже русский учить влом, не то что уж что-то уж там что-то ))FAER писал(а):то есть в десять раз больше, при этом ты не работаешь, работают зарегестрированные на тебя рефералы.
Да так, считай, что пошутилFAER писал(а):зарегестрированные
vvs_adm писал(а):обленеваешь
Odrick писал(а):Давай конкретнее. Что не получаеться? Как пробуеш качать?
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 Event ErrorDownload(FromPathName As String, ToPathName As String)
Public Event DownloadComplete(FromPathName As String, ToPathName As String)
Public Function DownloadFile(FromPathName As String, ToPathName As String)
If URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0 Then
DownloadFile = True
RaiseEvent DownloadComplete(FromPathName, ToPathName)
Else
DownloadFile = False
RaiseEvent ErrorDownload(FromPathName, ToPathName)
End If
End Function
'''ниже строчка используються в процедуре кнопки и т.п.
Call DownloadFile("здесь полный путь к рисунку(или как его назвать :?", App.Path & "\prednews.txt")
Odrick писал(а):Должен качаться. Только нужно указывать правильный src рисунка. Заметь, прикаждом обновлении страницы он меняеться. Таким образом нужно сначала найти img, получить его текущий src и тогда уже по нему качать. Правда тоже не факт что получиться... Нужно пробовать.
Сейчас этот форум просматривают: AhrefsBot и гости: 121