从品牌网站建设到网络营销策划,从策略到执行的一站式服务
首先声明一下API
创新互联建站从2013年创立,先为柘城等服务建站,柘城等地企业,进行企业商务咨询服务。为柘城企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
在你窗口最顶的位置上写上
Private Declare Function 取窗口句柄 Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'由于VB支持中文的 我就定义成 取窗口句柄 这个了
'在窗体中添加一个按钮里面放进下面代码就OK了
Private Sub Command1_Click()
Dim 窗口句柄 As Long '声明窗口句柄变量存储
窗口句柄 = 取窗口句柄(vbNullString, "新建 文本文档.txt - 记事本") '取窗口标题的句柄 把得到窗口标题句柄赋予给刚才 窗口句柄 这变量里
If 窗口句柄 = 0 Then '判断窗口句柄是否等于0 如果等于0表示无法找到窗口句柄
MsgBox "无法找到需要的窗口句柄"
Else
MsgBox "已找到窗口句柄 句柄数为:" 窗口句柄
End If
End Sub
Dim hwnd0 As Integer
Dim hwnd11 As Integer
第二个是你要生成EXE后 运行EXE
第三就是没好像没有文本框控件
如果是VB.NET 可以用系统API去操作。
用VBScript,就无法直接调用Windows API。且当窗体没激活时,根本无法向窗体发送指令。无法做到无人值守。
国外有位大神,封装了一个DLL,只要调用这个DLL,就可以在VBScript 中调用API,哪怕窗体没激活都是可以。Dynwrapx。可以去查查了解一下怎么用,调用方法等等。
附部分例代码
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图