请教关于将PLSQL中SQL窗口的文本复制到另外一个SQL窗口中的方法

weixin_44564435 2019-01-18 10:30:31
小弟不才,现需要实现这样一个功能,请各位大神指教,具体描述如下:
打开两个PLSQL,新建两个SQL窗口,在其中一个窗口写SQL或者数字(这些都是提前准备好的),然后要用autoit 相关技术实现将事先准备好的sql文本复制到另外一个sql窗口中;拜求各位大神指教!!
附上sql窗口图,跟SQL窗口信息图

...全文
325 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
weixin_44564435 2019-01-22
  • 打赏
  • 举报
回复
问题已解决,提供代码如下,请各位大神指点 ;找到窗口句柄 Local $handle = WinGetHandle("(Not logged on) - PL/SQL Developer - [SQL Window - test.sql]") If @error Then MsgBox(4096, "错误", "不能找到指定窗口") Else ;设置输入焦点到指定窗口的某个控件上. ControlFocus("(Not logged on) - PL/SQL Developer - [SQL Window - test.sql]", "", "TSyntaxMemo2") Send("^a") Send("^c") ;MouseClick("left", 600, 500,1) ;激活指定的窗口(设置焦点到该窗口,使其成为活动窗口). WinActivate("(Not logged on) - PL/SQL Developer - [SQL Window - test2.sql]") ;暂停脚本执行,直到指定窗口激活 WinWaitActive("(Not logged on) - PL/SQL Developer - [SQL Window - test2.sql]") Send("^v") EndIf
weixin_44564435 2019-01-22
  • 打赏
  • 举报
回复
;找到窗口句柄 Local $handle = WinGetHandle("(Not logged on) - PL/SQL Developer - [SQL Window - test.sql]") If @error Then MsgBox(4096, "错误", "不能找到指定窗口") Else ;发送一些文本到窗口 ;ControlSend($handle, "", "TSyntaxMemo2", "AbCdE") ;设置输入焦点到指定窗口的某个控件上. ControlFocus("(Not logged on) - PL/SQL Developer - [SQL Window - test.sql]", "", "TSyntaxMemo2") Send("^a") Send("^c") MouseClick("left", 600, 500,1) ;ControlFocus("(Not logged on) - PL/SQL Developer - [SQL Window - test2.sql]", "", "TSyntaxMemo2") ;Send("^v") EndIf 现已实现第一个窗口的文本复制,但是发现光标不能定位到第二个窗口,求大神指教
weixin_44564435 2019-01-18
  • 打赏
  • 举报
回复
求各路大神指点
  • 打赏
  • 举报
回复
看这图标非常像是用(早期版本)Delphi开发的...

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧