[perl] 카카오톡에 원하는 메시지 보내기

일정 시간마다 자료를 카톡방에 올릴 일이 있어서 만들었습니다. 

직접 카카오톡에 접근하는건 아니고 카카오톡 Pc버전을 켜놓고서 거기에 원하는 방을 찾아서 입력하도록 하였습니다.

아래의 코드는 단체방이라는 곳에 테스트.txt 파일의 글을 복사해서 "단체방"에 6000초마다 올리도록 하는 코드입니다. 

한글이 바로 입력이 않되어서 복사해서 붙여 넣는 방식을 사용했습니다. 

Win32::GuiTest는 매크로를 만들 수 있는 모듈입니다. 마우스 컨트롤 키보드 컨트롤 모두 가능하답니다. 

use Win32::GuiTest qw(FindWindowLike GetWindowText 

SetForegroundWindow SendKeys);

$Win32::GuiTest::debug = 0; # Set to "1" to enable verbose mode

while(1){

my @windows2 = FindWindowLike(0, "^테스트", "");

for (@windows2) {

print "$_>\t'", GetWindowText($_), "'\n";

SetForegroundWindow($_);

SendKeys("^(a)^(c)");

}

my @windows = FindWindowLike(0, "^단체방", "");

for (@windows) {

print "$_>\t'", GetWindowText($_), "'\n";

SetForegroundWindow($_);

SendKeys("^(a){DELETE}^(v) ");

}

sleep(6000)

}

펄 잊고 있다가 조금씩 이것 저것 해보고 있는데 재미있네요 *^^* 

VirtualBox나 Vmware등의 pc속의 가상머신을 뛰울 수 있는 프로그램을 사용하면 기존의 PC에 영향을 안주고도 사용을 할 수 있습니다.