c#（winform）调用VBS脚本

里边有测试的vbs脚本,直接调试即可

using System;
using System.Collections.Generic;
using System.IO;
using System.Linq;
using System.Runtime.InteropServices;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

namespace WindowsFormsApplication1
{
    class Class1: RichTextBox
    {
        const string DLL_RICHEDIT = “msftedit.dll“;
        const string WC_RICHEDITW = “RICHEDIT50W“;
        private IntPtr moduleHandle;
        private bool attemptedLoad;
 
        [DllImport（“Kernel32.dll“）]
        internal static extern IntPtr LoadLibraryA（string libname）;
 
 
        public void NewRichTextBox（）
        {
            // This is where we store the riched library.
            moduleHandle = IntPtr.Zero;
            attemptedLoad = false;
        }
 
        protected override CreateParams CreateParams
        {
            get
            {
                CreateParams cp = base.CreateParams;
                AttemptToLoadNewRichEdit（）;
                if （moduleHandle != IntPtr.Zero）
                {
                    cp.ClassName = WC_RICHEDITW;
                }
                return cp;
            }
        }
 
        void AttemptToLoadNewRichEdit（）
        {
            // Check for library
            if （false == attemptedLoad）
            {
                attemptedLoad = true;
                string strFile = Path.Combine（Environment.SystemDirectory DLL_RICHEDIT）;
                moduleHandle = LoadLibraryA（strFile）;
            }
        }
    }
}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        187  2017-06-05 15:04  TransferOfficeVBA\TransferOfficeVBA\App.config

     文件      36913  2017-06-19 17:02  TransferOfficeVBA\TransferOfficeVBA\bin\Debug\123.pptm

     文件        476  2017-07-04 11:36  TransferOfficeVBA\TransferOfficeVBA\bin\Debug\123.vbs

     文件        480  2017-07-04 11:21  TransferOfficeVBA\TransferOfficeVBA\bin\Debug\ExecPPTMaroc.vbs

     文件      14848  2011-03-25 13:18  TransferOfficeVBA\TransferOfficeVBA\bin\Debug\Interop.MSscriptControl.dll

     文件        509  2017-07-04 11:24  TransferOfficeVBA\TransferOfficeVBA\bin\Debug\temp.vbs

     文件      22528  2017-07-04 11:39  TransferOfficeVBA\TransferOfficeVBA\bin\Debug\TransferOfficeVBA.exe

     文件        187  2017-06-05 15:04  TransferOfficeVBA\TransferOfficeVBA\bin\Debug\TransferOfficeVBA.exe.config

     文件      44544  2017-07-04 11:39  TransferOfficeVBA\TransferOfficeVBA\bin\Debug\TransferOfficeVBA.pdb

     文件      22984  2017-07-04 11:39  TransferOfficeVBA\TransferOfficeVBA\bin\Debug\TransferOfficeVBA.vshost.exe

     文件        187  2017-06-05 15:04  TransferOfficeVBA\TransferOfficeVBA\bin\Debug\TransferOfficeVBA.vshost.exe.config

     文件        490  2012-06-06 02:06  TransferOfficeVBA\TransferOfficeVBA\bin\Debug\TransferOfficeVBA.vshost.exe.manifest

     文件      15905  2017-06-06 12:30  TransferOfficeVBA\TransferOfficeVBA\bin\Debug\ts.xlsm

     文件      47597  2017-06-19 17:16  TransferOfficeVBA\TransferOfficeVBA\bin\Release\123.pptm

     文件      14336  2017-06-19 17:17  TransferOfficeVBA\TransferOfficeVBA\bin\Release\TransferOfficeVBA.exe

     文件        187  2017-06-05 15:04  TransferOfficeVBA\TransferOfficeVBA\bin\Release\TransferOfficeVBA.exe.config

     文件      24064  2017-06-19 17:17  TransferOfficeVBA\TransferOfficeVBA\bin\Release\TransferOfficeVBA.pdb

     文件      22984  2017-06-19 17:17  TransferOfficeVBA\TransferOfficeVBA\bin\Release\TransferOfficeVBA.vshost.exe

     文件        187  2017-06-05 15:04  TransferOfficeVBA\TransferOfficeVBA\bin\Release\TransferOfficeVBA.vshost.exe.config

     文件        490  2012-06-06 02:06  TransferOfficeVBA\TransferOfficeVBA\bin\Release\TransferOfficeVBA.vshost.exe.manifest

     文件       1537  2017-06-21 17:52  TransferOfficeVBA\TransferOfficeVBA\Class1.cs

     文件      10592  2017-07-04 11:40  TransferOfficeVBA\TransferOfficeVBA\Form1.cs

     文件       7640  2017-07-04 11:40  TransferOfficeVBA\TransferOfficeVBA\Form1.Designer.cs

     文件       6217  2017-07-04 11:40  TransferOfficeVBA\TransferOfficeVBA\Form1.resx

     文件      14848  2011-03-25 13:18  TransferOfficeVBA\TransferOfficeVBA\Interop.MSscriptControl.dll

     文件       6620  2017-06-30 17:53  TransferOfficeVBA\TransferOfficeVBA\myClass.cs

     文件       8981  2017-07-04 11:39  TransferOfficeVBA\TransferOfficeVBA\obj\Debug\DesignTimeResolveAssemblyReferences.cache

     文件       7584  2017-06-30 17:14  TransferOfficeVBA\TransferOfficeVBA\obj\Debug\DesignTimeResolveAssemblyReferencesInput.cache

     文件          0  2017-06-05 15:04  TransferOfficeVBA\TransferOfficeVBA\obj\Debug\TemporaryGeneratedFile_036C0B5B-1481-4323-8D20-8F5ADCB23D92.cs

     文件          0  2017-06-05 15:04  TransferOfficeVBA\TransferOfficeVBA\obj\Debug\TemporaryGeneratedFile_5937a670-0e60-4077-877b-f7221da3dda1.cs

............此处省略48个文件信息