Как вариант юзать только хуки. Т.е. ставишь хук на сообщения окну и там смотришь WM_KEYDOWN и WM_KEYUP
Ребят, помогите сделать бота типа болталки вконтакте. Code: <form action="http://www.mydomain.ru/login.php" method="post" name="infrm" style="margin:0;"> <table cellspacing="0" cellpadding="2" border="0"> <tr><td>Логин:</td><td><input class="inp" type="text" name="login" value="" maxlength="16" size="24" /></td></tr> <tr><td>Пароль:</td><td><input class="inp" type="password" name="password" maxlength="16" size="24" /></td></tr> <tr><td colspan="2" align="center"><input style="margin:10px;width:50px;height:8px;border:0;" type="image" src="http://i.mydomain.ru/chat/main3.gif" alt="Войти"></td></tr> <tr><td colspan="2" style="font-size:9px;" align="center"> <a href="/lostpwd.php">Забыли пароль?</a> | <a href="/menu/problems.php">Не пускает в чат?</a> </td></tr> </table> </form> Или хотя бы литературу толковую и мануалы дайте )
Доброго времени суток! Как во время открытия динамического меню, проверить базу на наличие данных в ячейке? и если ячейка не пуста, тогда отметиь пункт меню(TMenuItem.checked)???
Я вот сделал. А можете сказать как сделать чтобы при нажатии кнопки срабатывал запрос Code: http://www.mydomain.ru/refresh.php?say=Привет&addr=Пирка Я пробовал Code: procedure TForm5.Button2Click(Sender: TObject); var params,responseres:tstringlist; begin params:=TStringList.Create; responseres:=TStringList.Create; params.Add('f1'); params.Add('say=Привет); params.Add('addr=Пирка); responseres.Text:=http1.Post('http://www.mydomain.ru/refresh.php',params); end; дело в том что в form action ничего нет просто кавычки ""
http://www.delphisources.ru/pages/faq/base/record_sound.html http://www.delphisources.ru/pages/faq/base/read_write_sound.html http://www.delphisources.ru/pages/faq/base/wav_record.html
Помогите пожалуйста написать код авторизации на сайте torents.ru Там куки,а как с ними работать я не представляю. Вот post-запрос : Code: redirect=index.php cookie_test=xxxxxxxxxx login_username=MyUser login_password=MyPass autologin=on login=Вход Вот это не работает: Code: procedure TForm1.Button1Click(Sender: TObject); const fact:shortString = 'http://torrents.ru/forum/login.php'; var fGet,fPost:TStringList; begin fGet:=TStringList.Create; fPost:=TStringList.Create; IdHTTP1.AllowCookies:=true; IdHTTP1.CookieManager:=IdCookieManager1; IdHTTP1.HandleRedirects:=true; With fPost do begin //with Add('redirect=index.php'); Add('cookie_test='); //òóò õç ÷òî ïèñàòü Add('login_username=MyUser'); Add('login_password=MyPass'); Add('autologin=on'); Add('login=Âõîä'); end; //with fGet.Text:=IdHTTP1.Post(fact,fPost); If fGet.IndexOf('Âû çàøëè êàê') <> - 1 then MessageBOX(Application.Handle,'Çàëîãèíèëèñü!','Óäà÷íî!',mb_OK) else MessageBOX(Application,Handle,'Îøèáêà!','Íåóäà÷íî!',mb_OK); IdHTTP1.Free; IdCookieManager1.Free; fGet.Free; fPost.Free; end;
юзай WinInet - удобнее будет. А вообще, сначало заходишь на страницу авторизации, там тебе ставятся куки, и потом с учетом этих куков делаешь запрос. Ну и конечно если куки еще в виде input hidden сделаны, то придется еще чуть отпарсить страницу
Всем ку. Возникла такая проблема: имеется консольное приложение на Delphi. Необходимо очистить консольный вывод. Как это сделать?
2Nightmarе вот посмотри может поможет: http://www.excode.ru/art5054p13.html p.s. сам проверить немогу делфи на этом компе нету ):
2art2222 поищи про библиотеку CRT там есть функция очистки ну или вот источник: http://delphiworld.narod.ru/base/console_apps_in_delphi.html
Сам нашел еще один способ: Code: procedure ClearConsoleWindow; var ConsoleHandle:THandle; ConsoleInfo: TConsoleScreenBufferInfo; Coord:TCoord; WrittenChars:DWORD; begin FillChar(ConsoleInfo,SizeOf(TConsoleScreenBufferInfo),0); FillChar(Coord,SizeOf(TCoord),0); ConsoleHandle:=GetStdHandle(STD_OUTPUT_HANDLE); GetConsoleScreenBufferInfo(ConsoleHandle, ConsoleInfo); FillConsoleOutputCharacter(ConsoleHandle,' ', ConsoleInfo.dwSize.X * ConsoleInfo.dwSize.Y, Coord, WrittenChars); SetConsoleCursorPosition(ConsoleHandle,ConsoleInfo.dwCursorPosition) end;
Подскажите как сделать чекер двух ссылок. Если ссыла main.php, то ничего не делать, а если index.php то сначала нажимается Button2 а Button1
Как реализовать запись hex в реестр, нужно в SmoothMouseXCurve записать hex:00,00,00,00,00,00,00,00,00 ,a0,00,00,00,00,00,00,00,40,\ 01,00,00,00,00,00,00,80,02,00,00,00,00,00,00,00,05 ,00,00,00,00,00
Поднимаю пост номер #3088,т.к. так и не понял. Кто знает,напишите строку с куки pls. Вот ещё раз код : Code: procedure TForm1.Button1Click(Sender: TObject); const fact:shortString = 'http://torrents.ru/forum/login.php'; var fGet,fPost:TStringList; begin fGet:=TStringList.Create; fPost:=TStringList.Create; IdHTTP1.AllowCookies:=true; IdHTTP1.CookieManager:=IdCookieManager1; IdHTTP1.HandleRedirects:=true; With fPost do begin //with Add('redirect=index.php'); [COLOR=Green] Add('cookie_test=');[/COLOR] Add('login_username=MyUser'); Add('login_password=MyPass'); Add('autologin=on'); Add('login=Âõîä'); end; //with fGet.Text:=IdHTTP1.Post(fact,fPost); If fGet.IndexOf('Âû çàøëè êàê') <> - 1 then MessageBOX(Application.Handle,'Connected!',' OK!',mb_OK) else MessageBOX(Application,Handle,'unsucsess',':(', mb_OK); IdHTTP1.Free; IdCookieManager1.Free; fGet.Free; fPost.Free; end;
Кто-нибудь знает, как открыть Мой Компьютер? Нужно именно программно вызвать его, но не в отдельном окне... То есть, лежит exe файл в папке, при клике на него идем по заданному пути в этом же окне Мои догадки: 1. Ищем в процессах проводник и делаем его активным 2. Эмулируем ввод в строку текста и нажатие Enter У кого есть хоть какие-то варианты как это закодить или какие-нибудь другие способы добиться результата?