VB 如何获取外部程序的窗口位置

1 利用findwindow函数，通过窗体的标题（caption）来获取窗体的句柄

2 再利用SetWindowPos函数，利用窗体句柄来设置一个窗体的位置。。。

你可以把一个外部窗口移动摆放在任何位置。。。。。自然就知道它的位置了

如果要实现你补充问题中的目的就需要用到 API 函数，FindWindow 、 FindWindowEx 、SendMessage(或PostMessage)等API 函数，其中 FindWindow 是用来查找 QQ 的主窗体，FindWindowEx 是用来查找窗体中的控件，如帐号输入框和密码输入框，SendMessage 是用来发送消息。我这里给上另一种方式，也许对你有用。

Dim wshshell, qqpath, qqselect

qqpath = "C:\Progra~1\Tencent\QQ\QQ.exe"

Set wshshell = wscript.CreateObject("wscript.shell")

wshshell.run qqpath

wscript.sleep 2000

wshshell.sendKeys "{TAB}"

wshshell.sendKeys "1234"'QQ号码

wscript.sleep 2000

wshshell.sendKeys "{TAB}"

wshshell.sendKeys "5678"'QQ密码

wscript.sleep 2000

wshshell.sendKeys "{ENTER}"

---