[steam72]

Имеется часть кода на ahk:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

base := connect("http://infoovk.16mb.com/friends.txt","","") kolvo := count(base) If (friends = 1){ If (vkl=1){ TrayTip,VKDum,Обмениваемся друзьями:), 10,1 } If (pro="Нет"){ loop 15 { random,rand,1,kolvo id := line(base,rand) If (!prov(id)){ otvet:= connect("http://vkontakte.ru/al_friends.php",cookie,"act=add_box&al=1&mid=" id) RegExMatch(otvet, "hash: '(.*?)'", hash) sleep 80 otvet:= connect("http://vkontakte.ru/al_friends.php",cookie,"act=add&al=1&hash=" hash1 "&mid=" id) reg = this, event\)">(.*?)</a> получил FileAppend %id%`n, ignore.txt If RegExMatch(otvet, reg, iddata){ If (vkl=1){ TrayTip,VKDum,Отправили заявку:) , 10,1 } } If RegExMatch(otvet, "друзей за сутки", iddata){ If (vkl=1){ TrayTip,VKDum,Лимит заявок исчерпан., 10,1 break } } sleep 80 } } } text:= "aplusked" myid1 "aplusked" md5:=MD5(text,StrLen(text)) otvet := connect("http://infoovk.16mb.com/index.php?add=friends&name=" myid1 "&hash=" md5,"","") }else{ sleep, 2500 }

lmikle: пользуемся тегами

Как перенести это все в делфи? даже не представляю
Кто знает помогите пожалуйста

[lmikle]

Ну, если не ошибаюсь, то connect в данном коде просто осуществляет HTTP запрос по указанному адресу и возвращает полученную страницу. Тогда примерно так:

Код:

1 2 3 4 5 6 7 8 9 10 11

function Connect(AAddress : String) : String; var   HTTP : TidHTTP; begin   HTTP := idHTTP.Create(Nil);   Try     Result := HTTP.Get(AAddress);   Finally     HTTP.Free;   Endl end;

[steam72]

А можно ли более подробнее?
часть этого кода на дефли если не сложно, дальше сам додумаю