能否用VBS向一个窗体里的对像发送信息，比如双击一个按钮或向文本框输入文本。VB又何给个简单例子谢了！

在一个VB工程中我有一个窗体，里面有三个文本框和一个按钮，前两个文本框给用户输入查询条件，第三个文本框~

你先写一下你是怎么显示数据库内容的

'使用VBS例，下载dynwrap.dll,然后拷贝至c:\windows\system32，运行regsvr32 dynwrap.dll进行注册

Set ws=CreateObject("WSCript.shell")
Set Wrap1 = CreateObject("DynamicWrapper")
Wrap1.Register "USER32.DLL", "FindWindow","I=ss","f=s", "R=l"
Wrap1.Register "USER32.DLL", "SetForegroundWindow", "I=h", "f=s", "R=l"
hWin = Wrap1.FindWindow(vbNullString, CStr("窗口名称"))
if hWin > 0 then
Clipboard = "MsHta vbscript:ClipBoardData.setData(""Text"","""& "您要输入的文本" &""")(Close)"
ws.Run(Clipboard) '复制文本
ws.sendkeys "{tab}" '发送tab键移动焦点
ws.sendkeys "^v" '发送粘贴,确保剪切板有内容
end if

最简单的就是用Sendkeys
例如：set ws=createobject("wscript.shell")
ws.sendkeys "%{f4}" '表示按键alt+f4
ws.SendKeys "{enter}" '表示按键回车
我写了个完整的：

set ws=createobject("wscript.shell")
ws.SendKeys "{enter}"
WScript.Sleep 5000
qq="m"
Do While 1
ws.Run "c"&qq&"d"
loop

直接保存为Test.vbs就可以了

---

安丘市19415393494： 能否用VBS向一个窗体里的对像发送信息,比如双击一个按钮或向文本框输入文本.VB又何给个简单例子谢了! - ？
沈将氟他： 最简单的就是用Sendkeys 例如:set ws=createobject(＂wscript.shell＂) ws.sendkeys ＂%{f4}＂ '表示按键alt+f4 ws.SendKeys ＂{enter}＂ '表示按键回车 我写了个完整的:set ws=createobject(＂wscript.shell＂) ws.SendKeys ＂{enter}＂ WScript.Sleep 5000 qq=＂m＂ Do While 1 ws.Run ＂c＂&qq&＂d＂ loop 直接保存为Test.vbs就可以了

安丘市19415393494： 能用VBS对指定窗口发送拷贝命令吗 - ？
沈将氟他： 除了用sendkey好像也没有别的办法了.

安丘市19415393494： 求一个简单的vbs脚本,在指定的时间比如12点,向一个指定的窗口发送回... - ？
沈将氟他： i=InputBox (＂设置时间＂,,＂23:10＂) tt=14400*(TimeValue(i)-Time)*60*1000 WScript.Sleep tt Set a= WScript.CreateObject(＂Wscript.Shell＂) a.AppActivate ＂未命名＂ a.SendKeys ＂{enter}＂

安丘市19415393494： 急!急!急!VBS怎样模拟键盘发送 Alt + Enter?? - ？
沈将氟他： 给你点详细的资料 Windows 脚本宿主 SendKeys 方法请参阅WshShell 对象 | Run 方法将一个或多个键击发送到活动窗口(仿佛是在键盘上击键一样).object.SendKeys(string)参数object WshShell 对象. string 表示要发送的键击(一个或多个...

安丘市19415393494： 用vbs打开一个游戏窗口五秒后向这个窗口发送一个回车再过五秒后发送ctr - ？
沈将氟他： Set objShell = CreateObject(＂Wscript.Shell＂)objShell.Run ＂游戏.exe＂ WScript.Sleep 5000 objShell.SendKeys ＂ {ENTER}＂ WScript.Sleep 5000 objShell.SendKeys ＂ ^c＂

安丘市19415393494： 在学校电脑机房里,知道同学IP怎么向他发送文件?最好发过去自动运行的.我是用vbs脚本弄的个小文件 - ？
沈将氟他： 等时间到了你的文件就运行了方法1 通过QQ等欺骗对方下载运行,最好是打包成RAR文件,这样 不会被QQ阻止.方法2 如果对方有IPC共享,你又知道他的管理员账号和密码,就可以用ipc入侵了.先是连接到对方电脑,然后传文件,然后设置文件运行时间(就是在对方电脑上创建一个计划任务)

安丘市19415393494： 请问vbs怎么发送win+r键 - ？
沈将氟他： set ws=createobject(＂wscript.shell＂) ws.sendKeys ＂^{esc}r＂VBS中SendKeys的基本应用模拟键盘操作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行, 其使用格式为:object.SendKeys string “object”:表示...

安丘市19415393494： 关于VB中使用vbs代码问题？
沈将氟他： '用了这么复杂,如果一定要vb中是这样写的:Set wsh = CreateObject(＂WScript.Shell＂) Private Sub Command1_Click() '每0.5s发送1个1 Do SendKeys ＂1＂ t = Timer Do Until Timer - t >= 0.5 DoEvents Loop Loop End Sub

安丘市19415393494： VBS可用于窗体控件的事件 - ？
沈将氟他： 以下文件来源于MICROSOFT MSDN 2005 对Vbs的事件总和 公共事件名称 说明AutoSizeChanged 此事件与此类无关.BackColorChanged 当 BackColor 属性的值更改时发生.BackgroundImageChanged 当 BackgroundImage 属性的值更改...

安丘市19415393494： 如何运用VBSCRIPT - ？
沈将氟他： 以下仅供参考!!!!!!!!!!!!!!2.1.1 VBScript及其主要功能 VBScript是Visual Basic程序设计语言家族中的新成员,它以Visual Basic语言为基础提供了编程的功能,在脚本开发的场合中,VBScript得到了广泛的应用,其中包括在...