Iskam da naprawq programka za awtomati4no popylwane na poletata (primerno za registraciq na potrebitel) na edin sait kato dannite gi wzimam ot text-ow file.
Opitah po tozi na4in no ne se polu4i .

var s: string
g : integer;
....
s := RichEdit.Lines[0];
g := FindWindow(nil,'Register - Microsoft Internet Explorer');
for i := 0 to length(s)-1 do
SendMessage(d,WM_PASTE,ord(s),0);
....

Molq daite mi nqkakwa ideq.
Blagodarq predwaritelno.

Greshka w koda

var s: string
g : integer;
....
s := RichEdit.Lines[0];
g := FindWindow(nil,'Register - Microsoft Internet Explorer');
for i := 0 to length(s)-1 do
SendMessage(d,WM_Char,ord(s),0);
....

SendMessage(d,WM_Char,ord(s),0); , a d kakvo e !?

Ima dve resheniq. Da simulation - vse edno chovek bachka, i drugoto e chrez razni Interface-i da hvanesh vsqko pule (input) i da mu zadadesh teksta.

Za human simulation polzvai:
Aktivirash InternetExplorer,

keybd_event(VK_TAB, 0, 0, 0); //minavash prez vsqko pole s TAB, natiskash dokato stignesh. Ti shte si gi prebroish.
keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP, 0);

keybd_event(ord('a'), 0, 0, 0); //ne sum siguren dali Ord('a') suvpada s VK_A
keybd_event(ord('a'), 0, KEYEVENTF_KEYUP, 0);

Sus messages nqma da stane, zashtoto nqmash Handle kum controlite v HTML-to

by Waz Gaa

Съдържаниет е скрито
Влезте за да го видите

potarsi na http://torry.net/
mislia 4e biah sre6tal ne6to podobno

Редактирано от Shveik на 05.08.02 06:01.

Едно твърде забавно решение е чрез собствен браузер. Ето и стъпките:

1. Слагаш един TWebBrowser, предполагаме че е с Name=Browser
2. Отиваш на страницата дето е регистрацията:
Browser.Navigate (url)
3. При "пристигането" там попълваш и събмитваш (предполагаме че формата е с id=form, полето за потребител: id=user, полето за парола: id=pwd):

procedure Browser.OnDocumentComplete ()
...
Browser.OleObject.document.all.items ('user').value:='user';
Browser.OleObject.document.all.items ('pwd').value:='pwd';
Browser.OleObject.document.form.sumbit;

ако не е зададено id на формата, последния ред ще е такъв:
Browser.OleObject.document.forms.item (0).submit;
ако формата е първа в страницата - с индекс=0

чети и дишай по-леко