在vb中如何隱藏執行別的應用程序???並能給那個程序發送鍵盤消息,請高手幫忙,謝謝!!! 在vb中如何隱藏執行別的應用程序???並能給那個程序發送鍵盤消息,請高手幫忙,謝謝!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 http://cx66.com/cxgzs/program/delphi/688.htm这是人家用Delphi写的,你可以改编。如果你不想改,我等一下我帮你改。 在 Form 上放一个 CommandButton 及一个 TextBox,并将以下的程序码复制到 Form 中:Private Sub Command1_Click()' 1 启动小算盘并计算Dim ReturnValue, IReturnValue = Shell("Calc.EXE", 1) ' 执行小算盘。AppActivate ReturnValue ' 启动小算盘。For I = 1 To 100 ' 设定回圈执行次数。SendKeys I & "{+}", True ' 按下按键给小算盘Next I ' 将所有 I 值相加。SendKeys "=", True ' 取得总和。' 2 将计算结果抓回程序中Clipboard.Clear ' 清除剪贴簿内容。SendKeys "^{C}", True ' 按 CTRL +C 来复制小算盘计算结果。Text1.Text = Clipboard.GetText ' 将剪贴簿中之计算结果放到 Text1 中。' 3 关闭小算盘SendKeys "%{F4}", True ' 按 ALT+F4 来结束小算盘。End Sub thanks to allcontinue up, learn Shell("Calc.EXE", 0)為什麼 win98 不能隱藏Calc.EXE這個程序win2k 下可以 Shell("Calc.EXE", 0)為什麼 win98 不能隱藏Calc.EXE這個程序win2k 下可以 字符串替换的问题 combox里的下拉列表 问题 查询语句出错!!!! 怎样在sql 语句中使用IsNull,Format等函数? 有汉字和字母混合的文本文件怎样按字节数把它的内容读出来? 求找"纯文本文件转换成超文本文件"例子!!!谢谢!!! 谁有DIRECTX 3D的简单例子??? vb编写的执行sql(delete,insert,update) 语句的函数源代码 用api调用winspool.drv直接打印时如何设置打印机字体? 我想通过VB编写一个对远程数据进行控制的软件,请问如和下手. *****请问哪里能水晶报表8.5?***** 欢迎好象不够热烈!再放一帖
这是人家用Delphi写的,你可以改编。
如果你不想改,我等一下我帮你改。
' 1 启动小算盘并计算
Dim ReturnValue, I
ReturnValue = Shell("Calc.EXE", 1) ' 执行小算盘。
AppActivate ReturnValue ' 启动小算盘。
For I = 1 To 100 ' 设定回圈执行次数。
SendKeys I & "{+}", True ' 按下按键给小算盘
Next I ' 将所有 I 值相加。
SendKeys "=", True ' 取得总和。
' 2 将计算结果抓回程序中
Clipboard.Clear ' 清除剪贴簿内容。
SendKeys "^{C}", True ' 按 CTRL +C 来复制小算盘计算结果。
Text1.Text = Clipboard.GetText ' 将剪贴簿中之计算结果放到 Text1 中。
' 3 关闭小算盘
SendKeys "%{F4}", True ' 按 ALT+F4 来结束小算盘。
End Sub