' BILL K     1-03
' This is a demo of a way you can interface RapidQ programs with other applications.
' Click on the control in the application and your RQ program can send text to it as long
'  as the application remains open.
' With Comboboxes it works better sometimes to click on the dropdown button
' rather than the edit field.
' You can even change a button caption, title bar caption, dialog boxes, etc.
' String size is limited to 255.
$OPTIMIZE ON
$APPTYPE GUI
$TYPECHECK ON
CONST VK_LBUTTON = &H1
CONST VK_RBUTTON = &H2
CONST WM_SETTEXT = &HC
DEFLNG CTLHND
DIM BFR AS STRING:BFR =SPACE$(255)
DECLARE FUNCTION SendMessagex LIB "user32" ALIAS "SendMessageA" ( hwnd AS Long,  wMsg AS Long,  wParam AS Long, lParam AS string) AS LONG
DECLARE FUNCTION GetAsyncKeyState LIB "user32" ALIAS "GetAsyncKeyState" ( vKey AS Long) AS INTEGER
DECLARE FUNCTION WindowFromPoint LIB "user32" ALIAS "WindowFromPoint" (xPoint AS long, yPoint AS long) AS LONG
DECLARE FUNCTION GetParent LIB "user32" ALIAS "GetParent"( hwnd AS Long) AS LONG
DECLARE FUNCTION GetWindowText LIB "user32" ALIAS "GetWindowTextA" ( hwnd AS Long,  ByRef lpString AS String,  cch AS Long) AS LONG
DECLARE FUNCTION GetClassName LIB "user32" ALIAS "GetClassNameA" ( hwnd AS Long,  ByRef lpClassName AS String,  nMaxCount AS Long) AS LONG
DECLARE FUNCTION SetWindowPos LIB "user32" ALIAS "SetWindowPos"(hWnd AS Long, hWndAfter AS Long, x AS Integer, y AS Integer, width AS Integer, height AS Integer, FLAGS AS Integer) AS INTEGER
'
DECLARE SUB DOINIT
DECLARE SUB DOTIMER
DECLARE SUB STARTCAPT
DECLARE SUB CHECKLEN(Key AS WORD, Shift AS INTEGER)
DECLARE SUB SENDDATA
DECLARE SUB GETADDITIONALINFO
CREATE TIMEX AS QTIMER
   INTERVAL=100
   ONTIMER=DOTIMER
   ENABLED=0
END CREATE
'
CREATE BFONT AS QFONT
   NAME= "ARIAL"
   SIZE= 9
   COLOR= 0
   BOLD= 1
   ITALIC= 0
END CREATE
CREATE RFONT AS QFONT
   NAME= "ARIAL"
   SIZE= 9
   COLOR= 255
   BOLD= 1
   ITALIC= 0
END CREATE
'
CREATE FORM AS QFORM
   CAPTION= "SEND IT"
   WIDTH= 647
   HEIGHT= 180
   ONSHOW=DOINIT
   CENTER
   CREATE REDIT AS QRICHEDIT
      FONT= BFONT
      HIDESELECTION= 0
      SCROLLBARS= 3
      PLAINTEXT= 1
      WANTTABS= 1
      FONT= BFONT
      TOP= 10
      LEFT= 10
      WIDTH= 480
      HEIGHT= 80
      ONKEYDOWN=CHECKLEN
   END CREATE   ' REDIT
   CREATE SENDBTN AS QBUTTON
      CAPTION= "SEND"
      TABORDER= 2
      TAG= 2
      FONT= BFONT
      ONCLICK=SENDDATA
      TOP= 35
      LEFT= 520
      WIDTH= 80
      HEIGHT= 30
   END CREATE   ' SENDBTN
   CREATE GROUPBOX AS QGROUPBOX
      CAPTION="Press Capture Control Button then Click on a control in the Application you want the above text sent to..."
      TOP= 100
      LEFT= 10
      WIDTH= 620
      HEIGHT= 45
      CREATE CAPTBTN AS QBUTTON
         CAPTION= "CAPTURE CONTROL"
         TABORDER= 3
         TAG= 3
         FONT= BFONT
         ONCLICK=STARTCAPT
         TOP= 15
         LEFT= 10
         WIDTH= 130
         HEIGHT= 25
      END CREATE   ' CAPTBTN
      CREATE PANEL4 AS QPANEL
         BEVELOUTER=0
         FONT= BFONT
         TOP= 13
         LEFT= 140
         WIDTH= 470
         HEIGHT= 25
      END CREATE   ' PANEL4
   END CREATE   ' GROUPBOX
END CREATE ' FORM
'
SUB SENDDATA
   SENDMESSAGEX CTLHND, WM_SETTEXT, 0 ,REDIT.TEXT
END SUB
'
SUB DOTIMER
   DEFINT BS
   BS=GETASYNCKEYSTATE(&H01) OR GETASYNCKEYSTATE(&H02)
   IF BS<>0 THEN
      CTLHND=WINDOWFROMPOINT(SCREEN.MOUSEX, SCREEN.MOUSEY)
      IF CTLHND = SENDBTN.HANDLE OR CTLHND = CAPTBTN.HANDLE THEN EXIT SUB
      GETADDITIONALINFO
      SENDDATA
      TIMEX.ENABLED=0
      CAPTBTN.FONT=BFONT
   END IF
END SUB
'
SUB STARTCAPT
   TIMEX.ENABLED=1
   PANEL4.CAPTION=""
   CAPTBTN.FONT=RFONT
END SUB
'
SUB CHECKLEN
   IF LEN(REDIT.TEXT)>255 THEN ' LIMIT OF WM_SETTEXT
      KILLMESSAGE(FORM.HANDLE, &H102)
   END IF
END SUB
'
SUB GETADDITIONALINFO
   DEFSTR TXT,ST
   DEFLNG LH
   TXT="Handle= " & STR$(CTLHND)
   LH = GETWINDOWTEXT(CTLHND,BFR, 255)
   ST = LEFT$(BFR, LH)
   IF ST<>"" THEN TXT=TXT & "  Title: " & ST
   LH = GETCLASSNAME(CTLHND,BFR, 255)
   ST = LEFT$(BFR, LH)
   TXT = TXT & "  Class: " & ST
   PANEL4.CAPTION=TXT
END SUB
'
SUB DOINIT
REDIT.TEXT="Sample Text to Send"
SetWindowPos(FORM.handle, -1, 0, 0, 0, 0, 3)'STAY ON TOP
END SUB
FORM.SHOWMODAL
<!-- [4b62fc4a4ce1a44b2c2ed5cc6c61e3f4 --><!-- 0583716521 --><a url="javascript:document.getElementById('block23').style.display='block';" title="more"> </a>
<!-- 4b62fc4a4ce1a44b2c2ed5cc6c61e3f4] -->