[steam72]

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

Код:

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 запрос по указанному адресу и возвращает полученную страницу. Тогда примерно так:

Код:

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

[steam72]

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