如何让程序自已完输入功能？(20分)

ANDREWWUYOU · 2003-11-06

就是启动一个程序后，再启动另外一个程序让他自动完成输入前面启动的程序的用户名和密码后进入界面。（因本人是初学者没有好多分请见谅！）

night · 2003-11-06

这个简单使用消息 sendmessage(bhandle,em_setsel,0,0); sendmessage(bhandle,em_replacesel,0,integer(@str)); 其中bhandle是你要写入内容的edit框的句柄 str是你要写入的内容

ANDREWWUYOU · 2003-11-14

你好朋友能不能详细一点说我是初学者

fullhappy · 2003-11-15

LRESULT SendMessage(     HWND hWnd, // handle of destination window     UINT Msg, // message to send     WPARAM wParam, // first message parameter     LPARAM lParam // second message parameter   &nbsp

; edtTest: TEdit; sendmessage(edtTest.Handle, wm_keydown, VK_F2, 0); 第三个参数为：键值，0时看'四'；第四个参数为要传的内容地址； integer(@str)是取地址

刘麻子 · 2003-12-07

模拟按键即可，我来晚了， qq:71892967欢迎交流

cowind · 2003-12-08

"其中bhandle是你要写入内容的edit框的句柄" 那句柄又要怎么找呢

dedragon · 2003-12-09

学习中，帮忙提前~~

mystudy · 2003-12-09

看看这个偶写的自动发qq或uc消息的(要打开对聊),发送表情的没有写完 可能对你有用 unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, Buttons, StdCtrls, ExtCtrls,SHELLAPI; type   TForm1 = class(TForm)     Panel1: TPanel;     RadioGroup1: TRadioGroup;     RB_QQ: TRadioButton;     RB_UC: TRadioButton;     Edit_QQ: TEdit;     Edit_uc: TEdit;     GroupBox1: TGroupBox;     Memo1: TMemo;     Panel2: TPanel;     Sbtn_send: TSpeedButton;     Sbtn_stop: TSpeedButton;     Sbtn_close: TSpeedButton;     StaticText1: TStaticText;     Ed_time: TEdit;     Timer1: TTimer;     GroupBox2: TGroupBox;     StaticText2: TStaticText;     CBox_QQ: TComboBox;     CBox_UC: TComboBox;     Button1: TButton;     procedure RB_QQClick(Sender: TObject);     procedure Sbtn_sendClick(Sender: TObject);     procedure Ed_timeKeyPress(Sender: TObject; var Key: Char);     procedure Sbtn_closeClick(Sender: TObject);     procedure Timer1Timer(Sender: TObject);     procedure Sbtn_stopClick(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   edit_hd,btn_hd,edit_hd1,myqq:Thandle;   str_send:string;   qqbq:array[0..49] of string=('/jy','/pz','/se','/fd','/dy','/ll','/hx','/bz',   '/shui','/dk','/gg','/fn','/tp','/cy','/wx', '/ng','/ku','/feid',   '/zk','/tu','/jk','/lh','/hanx','/db','/shan','/fad','/zt','/xg','/maom','/yb',   '/gf','/fan','/yw','/mg','/dx','/wen','/xin','/xs','/hy','/lw','/dh','/sj',   '/yj','/ds','/ty','/yl','/qiang','/ruo','/ws','/bb');   ucbq:array[0..62] of string=('~!','~@','~#','~$','~%','~^','~&','~*','~(','~)','~-',                               '~=','~+','~|','~/','!@','!#','!$','!%','!^','!&','!*',                               '!(','!)','!_','!+','!|','@~','@!','@#','@$','@%','@^',                               '@*','@(','@)','@_','@+','@|','#~','#!','#@','##','#$',                               '#%','#^','#&','#*','#(','#)','#_','#+','#|','$~','$!',                               '$@','$#','$$','$%','$^','$&','$*','$('); implementation {$R *.dfm} procedure TForm1.RB_QQClick(Sender: TObject); begin   if TRadioButton(sender).Name='RB_QQ' then begin      if TRadioButton(sender).Checked then begin        Edit_QQ.Enabled:=true;        Edit_UC.Enabled:=false;      end else        Edit_QQ.Enabled:=false;   end else begin      if TRadioButton(sender).Checked then begin        Edit_UC.Enabled:=true;        Edit_QQ.Enabled:=false;      end else        Edit_UC.Enabled:=false;   end; end; function EnumProc(Hwnd: THandle;lparam: LPARAM): boolean; stdcall; var lpText,txt: Array[0..255] of char; begin Result := true; GetClassName(hwnd,@lpText,255); {form1.Memo1.Lines.Add(string(lptext)); form1.Memo1.Lines.Add('  '); GetWindowText(HWnd,@lptext,255); form1.Memo1.Lines.Add(string(lptext)); } if form1.RB_QQ.Checked then begin   if LowerCase(lptext)='richedit' then   begin   if edit_hd=0 then      edit_hd := HWnd   else     edit_hd1 := HWnd;   end;   if LowerCase(lptext)='button' then begin      GetWindowText(HWnd,@txt,255);      if txt='发送(&S)' then         btn_hd:= HWnd;   end;   if LowerCase(lptext)='static' then begin    GetWindowText(HWnd,@txt,255);    if txt='QQ:103301880' then       myqq:= HWnd;   end; end else begin  if LowerCase(lptext)='tucpredit' then   begin   edit_hd := HWnd;   end;   if LowerCase(lptext)='tucbutton' then begin      GetWindowText(HWnd,@txt,255);      if txt='发送(&S)' then         btn_hd:= HWnd;   end;   if LowerCase(lptext)='tedit' then begin    GetWindowText(HWnd,@txt,255);    if txt='45778742' then       myqq:= HWnd;   end; end ;   result:=true; end; procedure TForm1.Sbtn_sendClick(Sender: TObject); var   w_hd:Thandle;   i:integer;   str_title:string; begin edit_hd:=0; btn_hd:=0; edit_hd1:=0; myqq:=0;  if RB_QQ.Checked then   str_title:=edit_qq.Text  else if RB_UC.Checked then   str_title:=edit_UC.Text  else begin   application.MessageBox('请选择骚扰对象!','提示',MB_ICONINFORMATION+MB_OK);   exit;  end;   W_hd:=FindWIndow(nil,pchar(str_title));   if W_hd=0 then begin     application.MessageBox('对象不存在!','提示',MB_ICONWARNING+MB_OK);     exit;   end;   if trim(Memo1.Text)='' then begin     application.MessageBox('请输入发送内容!','提示',MB_ICONINFORMATION+MB_OK);     exit;   end else    str_send:=memo1.Text;   EnumChildWindows(W_hd, @EnumProc,Longint(Self));   if (edit_hd<>0)and(btn_hd<>0) then    begin    if trim(Ed_time.Text)='' then i:=1     else begin      try       i:=strtoint(Ed_time.Text);      except       application.MessageBox('输入的时间不是整数!','错误',MB_ICONERROR+MB_OK);       exit;      end;    end;      if myqq<>0 then begin         application.MessageBox('不想混了呀,作者你也敢骚扰!!!','警告',MB_ICONWARNING+MB_OK);         exit;      end;      Timer1.Interval:=i*1000;      Timer1.Enabled:=true;      Sbtn_send.Enabled:=false;      RB_QQ.Enabled:=false;      RB_UC.Enabled:=false;      Sbtn_stop.Enabled:=true;    end else      application.MessageBox('未知错误!','提示',MB_ICONERROR+MB_OK); end; procedure TForm1.Ed_timeKeyPress(Sender: TObject; var Key: Char); begin   if  not(key  in ['0'..'9']) then key:=#0; end; procedure TForm1.Sbtn_closeClick(Sender: TObject); begin close; end; procedure TForm1.Timer1Timer(Sender: TObject); begin  sendMessage(edit_hd,WM_SETTEXT,0,Integer(pchar(str_send)));  if  RB_QQ.Checked then begin    sendMessage(edit_hd1,WM_SETTEXT,0,Integer(pchar(str_send)));    sendMessage(btn_hd,BM_CLICK,0,0);  end else    SendMessage(btn_hd,WM_KEYDOWN,VK_RETURN,0); end; procedure TForm1.Sbtn_stopClick(Sender: TObject); begin   Timer1.Enabled:=false;   Sbtn_send.Enabled:=true;   Sbtn_stop.Enabled:=false;   RB_QQ.Enabled:=true;   RB_UC.Enabled:=true; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin timer1.Enabled:=false; end; function EnumProc1(Hwnd: THandle;lparam: LPARAM): boolean; stdcall; var lpText: Array[0..255] of char; begin Result := true; GetClassName(hwnd,@lpText,255); form1.Memo1.Lines.Add(string(lptext)); GetWindowText(HWnd,@lptext,255); form1.Memo1.Lines.Add(string(lptext)); end; procedure TForm1.Button1Click(Sender: TObject); var   hd:thandle; begin  hd:=FindWIndow(nil,'QQ') ;   EnumChildWindows(hd, @EnumProc1,Longint(Self)); end; end.

greenwon · 2004-05-28

这个初学者态度挺诚恳的，应该帮帮他

hygsxy · 2004-05-28

怎么帮呢？写起来就多了。 1：你先找到第一个程序两个编辑框的handle，用枚举函数:enumchildwindow去找。 2:分别发送消息sendmessage(编辑框1句柄,wm_settext,128,integer(@abc)), sendmessage(编辑框2句柄,wm_settext,128,integer(@def)) 3:模拟”确定“按键 就说这么多吧。呵呵。。。。

ANDREWWUYOU · 2004-05-29

多人接受答案了。

如何让程序自已完输入功能？(20分)

ANDREWWUYOU

Unregistered / Unconfirmed

night

Unregistered / Unconfirmed

ANDREWWUYOU

Unregistered / Unconfirmed

fullhappy

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

cowind

Unregistered / Unconfirmed

dedragon

Unregistered / Unconfirmed

mystudy

Unregistered / Unconfirmed

greenwon

Unregistered / Unconfirmed

hygsxy

Unregistered / Unconfirmed

ANDREWWUYOU

Unregistered / Unconfirmed

Similar threads