Qt5調用VBS腳本

今天看自己的學習資料，突然發現有一個demo程式是利用Qt5調用VBS腳本的，想起之前用Qt5調用VBS腳本直接生成Excel檔案了。這些小衆的需求分享一下吧，可能是我從哪位大神那裡弄回來的，侵權請及時告知我。話不多說，上代碼：

Qt工程裡面檔案如下：

首先是需要調用的VBS腳本檔案，這個檔案要添加進Qt資源裡面，VBScript.vbs：

Function ShowMyMsgVb(msg)

    MsgBox(msg)

End Function

Function fun()

    MsgBox("111")

End Function
           

vbs腳本裡面一個是帶參數的函數，一個是不帶參數的函數。

ui界面如下：

mainwindow.cpp代碼如下：

#include "mainwindow.h"
#include "ui_mainwindow.h"

MainWindow::MainWindow(QWidget *parent) :
    QMainWindow(parent),
    ui(new Ui::MainWindow)
{
    ui->setupUi(this);
    if(!initVBScripts())
    {
        QMessageBox::critical(this, "Error", "Script not loaded!");
        return;
    }
}

MainWindow::~MainWindow()
{
    delete ui;
}

void MainWindow::on_hello_btn_pressed()
{
   main_scrpt->call("ShowMyMsgVb(QString)", ui->msg_edit->text());
   //main_scrpt->call("fun()");
}

bool MainWindow::initVBScripts()
{
    scrpt_mgr = new QAxScriptManager(this);
    main_scrpt = scrpt_mgr->load(":/VBScript.vbs", "MyScript");
    if(!main_scrpt)
        return false;
    return true;
}
           

mainwindow.h代碼如下：

#ifndef MAINWINDOW_H
#define MAINWINDOW_H

#include <QMainWindow>

#include <QtWidgets>
#include <ActiveQt>

namespace Ui
{
    class MainWindow;
}

class MainWindow : public QMainWindow
{
        Q_OBJECT

    public:
        explicit MainWindow(QWidget *parent = 0);
        ~MainWindow();

        bool initVBScripts();

    private slots:
        void on_hello_btn_pressed();

    private:
        Ui::MainWindow *ui;

        QAxScriptManager *scrpt_mgr;
        QAxScript *main_scrpt;
};

#endif // MAINWINDOW_H
           

main.cpp代碼如下：

#include "mainwindow.h"
#include <QApplication>

int main(int argc, char *argv[])
{
    QApplication a(argc, argv);
    MainWindow w;
    w.show();

    return a.exec();
}
           

pro檔案内容如下：

#-------------------------------------------------
#
# Project created by QtCreator 2015-11-17T14:18:49
#
#-------------------------------------------------

QT       += core gui axcontainer

greaterThan(QT_MAJOR_VERSION, 4): QT += widgets

TARGET = QtVbscriptExample
TEMPLATE = app


SOURCES += main.cpp\
        mainwindow.cpp

HEADERS  += mainwindow.h

FORMS    += mainwindow.ui

RESOURCES += \
    resources.qrc
           

運作結果見下圖：