토크온 리방 용도 부모와 자식(FindWindow 와 FindWindowEx) 참고용 소스

토크온 대화방 설정 창 열기↓

var HWD : integer;

  HWD := FindWindowEx(FindWindow(nil,'토크온'),0,nil,''); //525942 = 80676 토크온 윈도우 찾기
  var HWD1 := FindWindowEx(HWD,0,nil,''); //133202 = 20852
  var HWD2 := FindWindowEx(HWD,HWD1,nil,''); //591354 = 905FA

  var HWD3 := FindWindowEx(HWD2,0,nil,''); //20782
  var HWD4 := FindWindowEx(HWD2,HWD3,nil,'');//506A2

  var HWD5 := FindWindowEx(HWD2,HWD4,nil,''); //506E6
  var HWD6 := FindWindowEx(HWD2,HWD5,nil,''); //3073C

  var HWD7 := FindWindowEx(HWD6,0,'Button','대화방 설정'); //207F0 토크온의 대화방 설정 찾기
  SendMessage(HWD7, WM_LBUTTONDOWN, 0, 0); // 대화방 설정 버튼을 눌러주는곳
  SendMessage(HWD7 ,WM_LBUTTONUP, 0, 0);

 

 

대화방 설정에서 비공개방 비밀번호 설정 이용할때↓

var HWDWindow := FindWindow('#32770', ''); // 대화방 설정 창 핸들
var HWDWin1 := FindWindowEx(HWDWindow,0,'Button','비공개방 : 비밀번호');
if HWDWin1 > 0 then
      begin
        SendMessage(HWDWin1, WM_LBUTTONDOWN, 0, 0);
        SendMessage(HWDWin1 ,WM_LBUTTONUP, 0, 0);

        HWDwin1 := FindWindowEx(HWDWindow,0,'Edit','');
        SendMessage(HWDWin1, WM_SETTEXT, 0, LParam(Pchar('153123'))); //방 비밀번호 입력

        HWDwin1 := FindWindowEx(HWDWindow,0,'Button','OK');
        SendMessage(HWDwin1, WM_LBUTTONDOWN, 0, 0);
        SendMessage(HWDwin1 ,WM_LBUTTONUP, 0, 0);
      end;

 

대화방 설정에서 공개방 설정 이용할때↓

 var HWDWin1 := FindWindowEx(HWDWindow,0,'Button','공개방');
      if HWDWin1 > 0 then
      begin
        SendMessage(HWDWin1, WM_LBUTTONDOWN, 0, 0); // 공개방 클릭
        SendMessage(HWDWin1 ,WM_LBUTTONUP, 0, 0);
        HWDwin1 := FindWindowEx(HWDWindow,0,'Button','OK');
        SendMessage(HWDwin1, WM_LBUTTONDOWN, 0, 0); //OK 버튼 클릭
        SendMessage(HWDwin1 ,WM_LBUTTONUP, 0, 0);
      end;