您可以尝试通过将按键作为Windows消息发送到运行程序的CMD窗口以编程方式键入命令.
我不知道VBS,也许它有一个功能或函数映射到系统API函数PostMessage和/或SendMessage.如果它确实很好,特别是如果有人发布了解释如何使用它们的答案.与此同时,我可以在批处理文件中向您展示如何在名为SendMessage的实用程序的帮助下使用此方法.
基本上,该实用程序允许您将任意Windows消息发送到任意窗口,如下所示：
SendMessage.exe target_specification /message:value /wparam:value /lparam:value
我将稍后解决target_specification位,其他参数是：
> / message：value – 正在发送的消息,由代码指定.在你的情况下,它将是以下之一：
/message:WM_CHAR
/message:258
/message:0x0102
这些都指定了WM_CHAR message.
> / wparam：value – 对于WM_CHAR消息,这个消息应该是正在发送的击键代码.
在您的情况下,由于您的命令仅由ASCII字符组成,因此所有代码都将匹配相应字符的ASCII代码.因此,您可以使用ASCII chart转换命令中的字符.例如,s将是
/wparam:115
和h
/wparam:104
等等.
/wparam:13
> / lparam：value – 从WM_CHAR’s manual page可以看出LPARAM参数实际上应该作为单个数值携带多条信息.但是,对于您的具体情况,只需记住该参数应该简单地指定为
/lparam:1
现在到目标规范部分.这个可能很棘手.您将从the tool’s web page的描述中了解到指定目标窗口的方法有多种.但是,并非每种方法都适用于您.
例如,您可以尝试按进程名称指定目标：
/processname:name_of_your_executable
但是,如果您没有直接调用您的程序,而是在例如批处理文件,然后程序将不会在自己的窗口中运行,而是借用托管CMD会话的窗口,因此这种方法可能无法正常工作.
如果这确实是您调用程序的方式,那么您可以尝试使用窗口标题来指定目标：
/windowtitle:window_title
这里要记住的唯一警告是标题必须唯一地标识所需的窗口,否则键击将被发送到与指定标题匹配的所有窗口.您可以尝试通过在调用程序的批处理中使用title命令来统一标题(在调用程序之前设置它).
因此,总结一下,完整的备份脚本(批处理脚本)可能是这样的,假设为了示例的目的,目标窗口将由其标题指定：
@ECHO OFF
:: s
SendMessage.exe /windowtitle:"My Title" /message:WM_CHAR /wparam:115 /lparam:1
:: h
SendMessage.exe /windowtitle:"My Title" /message:WM_CHAR /wparam:104 /lparam:1
:: u
SendMessage.exe /windowtitle:"My Title" /message:WM_CHAR /wparam:117 /lparam:1
:: t
SendMessage.exe /windowtitle:"My Title" /message:WM_CHAR /wparam:116 /lparam:1
:: d
SendMessage.exe /windowtitle:"My Title" /message:WM_CHAR /wparam:100 /lparam:1
:: o
SendMessage.exe /windowtitle:"My Title" /message:WM_CHAR /wparam:111 /lparam:1
:: w
SendMessage.exe /windowtitle:"My Title" /message:WM_CHAR /wparam:119 /lparam:1
:: n
SendMessage.exe /windowtitle:"My Title" /message:WM_CHAR /wparam:110 /lparam:1
:: ENTER
SendMessage.exe /windowtitle:"My Title" /message:WM_CHAR /wparam:13 /lparam:1
:: y
SendMessage.exe /windowtitle:"My Title" /message:WM_CHAR /wparam:121 /lparam:1
:: e
SendMessage.exe /windowtitle:"My Title" /message:WM_CHAR /wparam:101 /lparam:1
:: s
SendMessage.exe /windowtitle:"My Title" /message:WM_CHAR /wparam:115 /lparam:1
:: ENTER
SendMessage.exe /windowtitle:"My Title" /message:WM_CHAR /wparam:13 /lparam:1
:: wait for some time (~3 sec) till the program shuts down,if necessary
PING -n 4 localhost 1>NUL
:: proceed with the back-up
...

CoderHelper 第5个测试版将是最后一个测试版本.该版本中添加了VB开发多语言软件的支持工具,以及VB代码窗口中键滚动支持程序.在主模块中,又添加了自动生成模块版权信息,方法说明信息自动生成等功能,添加了标签访问的功能.
VB的代码窗口是不能使用中键滚动代码的.CoderHelper 所带的 VB代码窗口中键支持程序将提供此功能.使用非常简单,只要您安装后.打开VB窗口即可使用.在CoderHelper 的配置窗口中配置每拨动一次滚动的行数,同时您可以选择让程序读取系统的中键每拨动一次滚动行数.如果代码行长度超过当前可视范围,您可以按下中键滚动.光标将按拨动滚动行数的的大小向左或右移动.比拖动滚动条更加有效.
如果您不想使用该功能.请在您VBIDE的外接程序列表中选择卸载即可.操作方法请参考MSDN的相关内容.
该程序属于CoderHelper正式发布组件.因此需要注册CoderHelper.获得正确的注册码后,在每次启动时不会显示广告内容.别无限制.

你是不是想快速的为您新开发的软件实现多语言界面呢！
如果想，请打开此连接
http://www.mysticboy.nease.net/coderhelper/vbml.htm

其次我们提供的标签功能使用方法更是简单,如果你要启动它,只要在CoderHelper的命令行内输入"tag"命令即可显示.如果你在代码中插入"'>MyCodeA<"这样引号内的内容,您将看到在标签管理器中列出当前活动代码窗口的所有标签,双击它,代码窗口立刻跳至该标记出.大大的方便了您的编程工作.


还想了解什么哪！点这里吧！
http://www.mysticboy.nease.net/coderhelper/new.htm

虽然是共享软件，但是如果你不做特殊用途的话，它95%的功能是完全没有限制的。对于5%的功能，一般编程人员是用不到的。只有中键支持程序如果不注册的话，打开VB时0会打开 http://www.mysticboy.nease.net 同时为您着想，使用的是无焦点方式。不会因此而影响您当前工作的窗口。
高中毕业意味着失业，意味着好日子到头，落榜意味着流浪。不知道VB能不能给我饭吃，希望大家支持。平时学习没好好学。现在又没学历。我这才后悔。估计9成9是以后改做苦力了。前途啊前途。。
新疆的朋友，能不能给我介绍个工作，我会编程，会点局域网。能修机子。也能吃苦，当搬运也成，工资大于700就行了。别无他求！
e-mail:mysticboys@163.com 
qq:88242703
http://www.mysticboy.com.cn

设置VB对象属性的方法有两种：

1、在控件布局时，通过属性窗口来设置；

2、在程序代码窗口通过编程，运行程序过程中设置属性的值。

一、在属性窗口设置属性

打开属性窗口的方法（四种）：

1、选定窗体或窗体中的某个控件对象，按下F4 键，弹出该对象的属性窗口。

2、选定对象，选择“视图”菜单中的“属性窗口”命令。

3、选定对象，按鼠标右键，在弹出的“快捷菜单”中，选择“属性窗口”命令。

4、选定对象，单击工具栏中的“属性窗口”图标。



（从上到下分别为：对象列表框，排列选项按钮，属性列表框，属性说明栏。）

二、在代码窗口设置属性

当需要在程序的运行过程中，改变某些对象的属性值是使用该方法。

格式：对象名.属性名称 = 属性值

注意

有些属性只能通过属性窗口设置，，程序在运行过程中只能读取这些属性，不能重新设置，即属性是只读的。

如所有对象的Name属性和窗体对象的BorderStyle属性。

有些属性则只能通过程序代码进行设置，即只能通过运行程序设置、修改属性。

 

MDI窗体可以避免打开窗体的时候被无数个子窗体困扰，我将为大家一一的介绍一下vb.net中MDI窗体的操作方法
一、如何vb.net教程

创建MDI窗体？

1、创建mdi主窗体

新建建立一个默认空白的Windows应用c#教程程序，在Form1窗体的属性窗口中找到IsMDIContainer 属性，设置为 True


2、创建MDI子窗体

在vb.net中，mdi子窗体就是普通的窗体，无需更改其属性。所有直接新建一个Form2
3、添加代码
Dim frm2 As New Form2
Form2.Show()

此时你只需要简单的实例化一下显示出来就python基础教程可以了，非常简单吧。
二、显示MDI窗口列表

用过带有子窗体的程序的朋友一定知道，很多程序都带显示它它本身打开的子窗体列表的功能，那么它是怎么实现的呢


现在在父窗体中修改你的MenuScript1控件的MdiWinddowListItem属性为你要设置的菜单即可。

三、排列子窗体

你只需要在你的单击操作中填入以下代码即可
 Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal) '水平平铺
    End Sub
 
    Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
        Me.LayoutMdi(MdiLayout.TileVertical) '垂直平铺
    End Sub
 
    Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click
        Me.LayoutMdi(MdiLayout.Cascade) '层叠
    End Sub

看一下效果图



四、VB.NET 如何防止重复打开MDI子窗体？
Private Sub 窗体1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 窗体1ToolStripMenuItem.Click
        Dim frm2 As New Form2
        CheckForm(frm2, "Form2")
        frm2.WindowState = FormWindowState.Normal
        ShowForm(Form2)
    End Sub
 
    '*****************************************************************************
    '*过程名称：CheckForm
    '*参数说明：MDIChildForm——需检测的窗体；MDIChildFormName ——检测窗体的名字
    '*功能说明：首先检测是否有MDI子窗体，如果没有，则创该MDI子窗体的窗体实例
    '*                    如果有，则检测当中有没有其窗体实例，有则激活；没有则创建其窗体实例
    '*****************************************************************************
    Private Sub CheckForm(ByVal MDIChildForm As Form, ByVal MDIChildFormName As String)
        If Me.MdiChildren.Length < 1 Then
            '如果没有任何一个MDI子窗体，则创该MDI子窗体的窗体实例
            ShowForm(MDIChildForm)
            Exit Sub
        Else
            Dim x As Integer
            Dim frmyn As Boolean
            For x = 0 To (Me.MdiChildren.Length) - 1
                Dim tempChild As Form = CType(Me.MdiChildren(x), Form)
                If tempChild.Name = MDIChildFormName Then
                    frmyn = True
                    '检测到有该MDI子窗体，设为TRUE 并退出循环
                    Exit For
                Else
                    frmyn = False
                End If
            Next
            If frmyn = False Then
                '在打开的窗体中没检测到则新建
                ShowForm(MDIChildForm)
            Else
                '在打开的窗体中检测到则激活
                Dim MDIChildFrm As Form = CType(Me.MdiChildren(x), Form)
                MDIChildFrm.Activate()  '使子窗体激活
                MDIChildFrm.WindowState = FormWindowState.Normal
            End If
        End If
    End Sub
 
    '**************************************************
    '*过程名称：ShowForm
    '*参数说明：MDIChildForm ——需创建实例的窗体
    '*功能说明：创建窗体实例
    '**************************************************
    Private Sub ShowForm(ByVal MDIChildForm As Form)
        Dim MDIChildFrm As Form = MDIChildForm
        MDIChildFrm.MdiParent = Me ' 定义MDI子窗体
        MDIChildFrm.Show() '打开窗体
    End Sub
 
 
    Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim frm2 As New Form2
        CheckForm(frm2, "Form2")
        frm2.WindowState = FormWindowState.Maximized
    End Sub
End Class

好了，关于MDI子窗体的先介绍到这，有什么不足或者不正确的地方，提出来一起交流。