新奇：（nodejs兄弟）用HTML + FLASH +JS 也可以写桌面EXE。

var C_System = function () {
    this.UI = {
        ReloadApp: function () {/*全部重新载入程序*/ },
        DragForm: function (FormName) {/*拖动窗体*/ },
        HideForm: function (FormName) {/*隐藏窗体*/ },
        ShowForm: function (FormName) {/*显示窗体*/ },
        SetWidth: function (FormName, v) {/*设置主窗体宽度*/ },
        GetWidth: function (FormName) {/*获得主窗体宽度*/ },
        SetHeight: function (FormName, v) {/*设置主窗体高度*/ },
        GetHeight: function (FormName) {/*获得主窗体高度*/ },
        GetScreenWidth: function () {/*获得屏幕宽度*/ },
        GetScreenHeight: function () {/*获得屏幕高度*/ },
        SetFormState: function (FormName, v) {/*设置窗体状态*/ },
        GetFormState: function (FormName) {/*获得窗体状态*/ },
        GetFormHwnd: function (FormName) {/*获得窗体句柄*/ },
        VB_Load: function (FormName) {/**/ },
        VB_Unload: function (FormName) { },
        VB_End: function () { }
    };
    this.API = {
        CallApiByName: function (libName, ProcName, pa) { }
    };
    this.Net = {
        GetNewXMLHTTP: function () { },
        GetNewServerXMLHTTP:function(){},
        GetNewWinHTTP: function () { },
        getClipImg: function () { }
    };

    this.CRC = {
        FileChecksum: function (文件路径) { },
        StringChecksum:function(被加密的字符串){}

    };
    this.S_Debug = function (被调试的对象) { };
    this.ISIDEmode = function () { /*判断是不是在IDE环境*/ };
    this.openUrl = function (str) {/*打开网址*/ }
};
System = new C_System();

System = window.external;//获得VB6.0程序中的交互对象。

           var hwnd = System.UI.GetFormHwnd("FrmMain");
            System.API.CallApiByName("user32", "SetWindowLongA", hwnd, -20, 524288);
            System.API.CallApiByName("user32", "SetLayeredWindowAttributes", hwnd, 16711935, 255, 3);

Public Function CallApiByName(ByVal libName As String, ProcName As String, ParamArray Params()) As Long
        Dim hProc As Long
        Dim hModule As Long
         
        ReDim m_OpCode(400 + 6 * UBound(Params))
        hModule = LoadLibrary(ByVal libName)
        If hModule = 0 Then
                MsgBox "Library读取失败！"
                Exit Function
        End If
         
        hProc = GetProcAddress(hModule, ByVal ProcName)
        If hProc = 0 Then
                MsgBox "函数读取失败！", vbCritical
                FreeLibrary hModule
                Exit Function
        End If
         
        CallApiByName = CallWindowProc(GetCodeStart(hProc, Params), 0, 1, 2, 3)
         
        FreeLibrary hModule
End Function