VC++6.0開發環境雖然有豐富的功能，但是沒有提供批量註釋和取消批量註釋的功能。

這裡，我們用VBScript指令碼來新增這個功能。

1.首先開啟VC++6.0，選擇File/New，然後選擇要新建的檔案型別。

2.點選確定後，填寫相應的描述。

 
 
3.然後輸入程式碼，點選儲存後，關閉VC++6.0。

 
這樣就在資料夾中生成了一個 .dsm 檔案。

 

4. 開啟一個C++工程，按照圖片中的操作選擇 工具——>定製 。

 
5. 選擇  附加項和巨集檔案，選擇剛才製作的檔案node.dsm。

 
6. 勾上node。

 
7.  選擇  命令， 在 類別 中選擇  Macros  。

    '------------------------------------------------------------------------------  
    'FILE DESCRIPTION: 為開發環境新增批量註釋或取消註釋  
    '------------------------------------------------------------------------------  
    Sub SetSelNote()'Sun DESCRIPTION:過程SetSelNote用於將選中的文字轉換為註釋  
        dim CurWin'當前獲得的視窗  
        set CurWin = ActiveWindow  
      
        if CurWin.type<>"Text" Then'判斷當前視窗是否是文字視窗  
            MsgBox "當前視窗不是文字視窗"  
        else  
            NoteType = "//"  
      
            BeginLine = ActiveDocument.Selection.TopLine  
            EndLine   = ActiveDocument.Selection.BottomLine  
      
            if EndLine<BeginLine then  
                Line = BeginLine  
                BeginLine = EndLine  
                EndLine = Line  
            else  
                for row = BeginLine To EndLine  
                    ActiveDocument.Selection.GoToLine row  
                    ActiveDocument.Selection.SelectLine'選中當前行  
                    ActiveDocument.Selection = NoteType+ActiveDocument.Selection  
                Next  
            End if  
        End if  
    End Sub  
      
    Sub CancelSelNote()  
        dim CurWin'當前獲得的視窗  
        set CurWin = ActiveWindow  
      
        if CurWin.type<>"Text" Then'判斷當前視窗是否是文字視窗  
            MsgBox "當前視窗不是程式碼視窗"  
        else  
      
            BeginLine = ActiveDocument.Selection.TopLine  
            EndLine   = ActiveDocument.Selection.BottomLine  
      
            if EndLine<BeginLine then  
                Line = BeginLine  
                BeginLine = EndLine  
                EndLine = Line  
            else  
                for row = BeginLine To EndLine  
                    ActiveDocument.Selection.GoToLine row  
                    ActiveDocument.Selection.SelectLine'選中當前行  
                    SelBlock = ActiveDocument.Selection  
      
                    Trim(SelBlock)  
                    pos = instr(SelBlock, "//")  
                    if pos<>0 then  
                        RightBlock = Right(SelBlock,Len(SelBlock)-2)  
                        ActiveDocument.Selection = RightBlock  
                    End if  
                Next  
            End if  
        End if  
    End Sub  
 

還是開啟工具--->定製

點選鍵盤：

類別中選擇Macros,然後點選命令：設定快捷鍵，最後點選分配即可