キー入力

ポニョ 2008-09-03 04:39:26 No: 140363

↓UWSCをVB2005用に変換したいのですが、上手くいきません。
keybd_eventが使えないので、SendMessageになるのですが
詳しい方よろしくお願いします。

DEF_DLL SendMessageA(HWND,LONG,LONG,DWORD):Bool:user32.DLL
DEF_DLL FindWindowExA(HWND,HWND,string,string):HWND:user32.DLL
DEF_DLL FindWindowA(string,string):HWND:user32.DLL

PUBLIC TOWN_HWND = IDTOHND(TOWN_ID)
PUBLIC TEMP_HWND = FindWindowExA(TOWN_HWND,NULL,NULL,NULL)
PUBLIC SLOT_HWND = FindWindowExA(TOWN_HWND,TEMP_HWND,NULL,NULL)

PUBLIC WM_KEYDOWN = $0100
PUBLIC WM_KEYUP = $0101
PUBLIC WM_CHAR = $0102

Procedure Kbd_hit(hit_key)
  SendMessageA(SLOT_HWND,WM_KEYDOWN,hit_key,$0001)
        sleep(0.07)
  SendMessageA(SLOT_HWND,WM_KEYUP,hit_key,$C001)
        sleep(0.07)