Slow_Everest
Project Diamond
offline
Опыт:
2,849Активность: |
Delphi. Help me!
Кто робит на дельфи, прошу дельфийской помощи.
» Открыть procedure TForm1.Button1Click(Sender: TObject); begin webbrowser1.Navigate('http://rageclub.ru/npcatt.php?sid=(здесь хеш логин пароль)&to=zombie&r=2943101'); end; procedure TForm1.Button2Click(Sender: TObject); begin webbrowser1.Navigate('http://rageclub.ru/npcatt.php?sid=(Здесь мой хеш логин пароль)&r=3079&to=zombie&id=att'); end; procedure TForm1.Button3Click(Sender: TObject); begin webbrowser1.Navigate('http://rageclub.ru/npcatt.php?sid=(ТОП СИКРЕТ)&r=8081&to=zombie&id=att'); end; procedure TForm1.Button4Click(Sender: TObject); begin webbrowser1.Navigate('http://rageclub.ru/loc.php?sid=(сюды тоже нельзя)&r=6651'); end; procedure TForm1.Button5Click(Sender: TObject); begin webbrowser1.Navigate('http://rageclub.ru'); end; end. Я написал прогу, но в дельфи давно не залазил и вообщем то честно этого не знал. Вообщем мне нужно чтобы здесь: &r=6651 и здесь &r=8081 вместо этих циферок генерировался любой четырехзначный номер... И конечно вместе с этим четырех значным кодом переходило на "сгенерированную" страницу. Прога нужна для автоматизации точнее до почти нулевого сокращения тырканьем мышки по разным местам, а щелкания по кнопочкам которые находятся близко к друг другу, а то бесит =)) Подскажите юному программисту ))) Отредактировано Slow_Everest, 28.05.2009 в 12:07. |
28.05.2009, 11:57 | #1
+0/−0
Профиль |
Приват |
Поиск |
Цитата |
IP: Записан
|
vit
кааааррл
offline
Опыт:
3,586Активность: |
подключи модуль отдельной генерации числа, или я непонял... |
28.05.2009, 23:45 | #2
+0/−0
Профиль |
Приват |
Поиск |
Цитата |
IP: Записан
|
Alibek
Choops
offline
Опыт:
12,699Активность: |
я так понел тбе нужен чтоб генерировала именно четырехзначное число
попробуй так procedure TForm1.Button3Click(Sender: TObject); begin webbrowser1.Navigate('http://rageclub.ru/npcatt.php?sid=(ТОП СИКРЕТ)&r='+inttostr(random(10))+inttostr(random(10))+inttostr(random(10))+inttostr(random(10))+'&to=zombie&id=att'); end; во втором тоже юзани рандом |
29.05.2009, 00:03 | #3
+0/−0
Профиль |
Приват |
Поиск |
Цитата |
IP: Записан
|
NETRAT
offline
Опыт:
83,762Активность: |
не понял - чем плох (random(10000 - 1000) + 1000)?
NETRAT добавил: если вообще нужны рандомные... или тупо перебор |
29.05.2009, 13:34 | #4
+0/−0
Профиль |
Приват |
Поиск |
Цитата |
IP: Записан
|