问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

...Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExe...

发布网友 发布时间:2024-03-20 21:20

我来回答

2个回答

热心网友 时间:2024-08-28 03:17

是VB运行速度是很快的,ShellExecute 0&, "open", "D:\calc.exe", "", "", 1
这一句固然是打开了一个计算器,但是打开的过程中,VB早已运行到下一个语句了,当然找不到这个程序,也就不能返回句柄,也就不能改变标题。
解决办法:设定延迟,使VB等待程序打开以后,再向下运行。
代码如下。
==============
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '延迟函数

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Private Const GWL_STYLE = (-16)
Private Const SWP_SHOWWINDOW = &H40
Private Const HWND_BOTTOM = 1
Private Const WS_CAPTION = &HC00000

Private Sub Form_Load()
Dim chwnd As Long

ShellExecute 0&, "open", "calc", "", "", 1
Sleep 50 '我这里延迟50就可以,请根据自己情况修改。
chwnd = FindWindow(vbNullString, "计算器")

SetWindowText chwnd, "jisuanqi"

End Sub

热心网友 时间:2024-08-28 03:14

完整的声明

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
中国人发源于哪里 "中国人"这个名字的由来 微博关注取消会被发现吗? ...守护甜心》等……带点魔法的变身动画片!拜托!!! 跪求:位,字节,字,双字的解释,和关系。最好举例说明例如:VD100_百度知... 电脑的工作原理?为什么数据可以记录信息(如图片) 新风为什么要保温 新风系统为什么要保温 几年的教师资格转事业编制 ay89s51单片机可以用串口下载程序吗? ...Name=@%SystemRoot%\system32\shell32.dll,-21787是什么 java可以直接调用dll文件里的内部函数吗 新电动车耗电太厉害!刚买一星期充了两回电了,路程不远第一次用了三天... 怎样开启电脑浏览器弹窗设置功能呢? 从辽宁省阜新市海州区创业路北小区西复兴街到万达广场怎么走打车需要... 阜新京都国际广场营销中心电话是多少? 柴油降凝剂325ml加多少柴油 柴油降凝剂加多少? 楚辞中最唯美的男孩名字这样取名注定不凡 汤禹久远兮邈而不可慕全诗的意思及出处 y=k/x^2是反比例函数吗?为什么呢? 职高什么专业可以读扬州大学? 为什么一个上职高的同学可以上扬州大学 花样猫咪内购版 猫猫公园联机版 鲟纳茯微囊精粹片属于湖北省重点研发计划项目吗? 不洗头就能见面那种关系是什么? 买的商品 但开的是服务费发票可以吗 购买商品同时支付服务费如何账务处理 ...税专用发票上既开具销售的产品,又开具上门服务费,这样行吗?_百度知 ... 为什么京东国际的东西那么便宜啊? 男的叫小妖精女的叫什么才好听? 清凉油擦拭新买的家具能除甲醛吗 清凉油对装修后的甲醛有吸收作用吗 响遏行云读音响遏行云的意思 手机上不知道怎么下载了360手机浏览器,安装包还不正确,也找不到安装... 睡眠面膜可不可以沫脖子? 是我也好,悲伤也好。是那首歌的歌词?3 如何面对永远也好不了的病痛,痛苦...11 哪些情况出现时,一定要警惕自己是不是得了抑郁症? 上海迪士尼可以凭护照进园吗 高中阶段金属氧化物有不属于电解质的吗 做血常规检查医保卡能 奇异果可以和牛奶一起榨汁吗奇异果能够跟牛奶一起榨汁吗 张艺兴努力努力再努力捞面背景音乐名字 你都是如何发现张艺兴的人格魅力的? 张艺兴努力努力再吃个饭是极限挑战的哪一期?3 同仁堂的人参健脾丸为什么我刚吃完一天就嘴角全裂了还有嘴唇 没吃什么... 林忆莲三字代表什么生肖 湿疹水疱可以挤吗,湿疹水泡怎么办