重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
首先声明一下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。可以去查查了解一下怎么用,调用方法等等。
附部分例代码