VBS新手咨询：重复代码封装为Sub子函数及优化代码正确性验证

问题背景 #

我是VBS新手，编写的Code A可正常运行，但存在大量重复代码，希望了解如何将这些代码封装为Sub子函数并在需要时调用以优化代码；同时想确认我改写后的Code B是否正确。

原始代码（Code A） #

Call Send_HTTP_RequestA()
Call Send_HTTP_RequestB()


        Sub Send_HTTP_RequestA()

                'Force the script to finish on an error.
                On Error Resume Next

                'Declare variables
                Dim objRequest
                Dim URL

                Set objRequest = CreateObject("Microsoft.XMLHTTP")

                'Put together the URL link appending the Variables.
                URL = "http://www.a.com/Task.aspx"

                'Open the HTTP request and pass the URL to the objRequest object
                objRequest.open "POST", URL , false

                'Send the HTML Request
                objRequest.Send

                'Set the object to nothing
                Set objRequest = Nothing

        End Sub
    


       Sub Send_HTTP_RequestB()

                'Force the script to finish on an error.
                On Error Resume Next

                'Declare variables
                Dim objRequest
                Dim URL

                Set objRequest = CreateObject("Microsoft.XMLHTTP")

                'Put together the URL link appending the Variables.
                URL = "http://www.b.com/task.aspx?From=VPSScedule&ForceRun=True"

                'Open the HTTP request and pass the URL to the objRequest object
                objRequest.open "POST", URL , false

                'Send the HTML Request
                objRequest.Send

                'Set the object to nothing
                Set objRequest = Nothing

        End Sub

优化后的代码（Code B） #

Send_HTTP_Request  "http://www.1.com/Task.aspx"
Send_HTTP_Request  "http://www.2.com/task.aspx?From=VPSScedule&ForceRun=True"   
    
        Sub Send_HTTP_Request(URL)            
                On Error Resume Next
             
                Dim objRequest             
                Set objRequest = CreateObject("Microsoft.XMLHTTP")
            
                objRequest.open "POST", URL , false
             
                objRequest.Send               
                Set objRequest = Nothing
        End Sub

解答 #

1. Code B的正确性 #

你的Code B是完全正确的，它精准完成了重复代码的封装：

• 把两个原始子函数中相同的逻辑（创建XMLHTTP对象、配置POST请求、发送请求、释放对象）提取出来，封装成接受URL参数的Send_HTTP_Request子函数
• 调用时只需传入不同目标URL，就能实现和Code A完全一致的功能，同时彻底消除了代码冗余

2. 封装思路说明 #

封装重复代码的核心步骤：

• 识别重复逻辑中变化的部分：这里就是请求的目标URL
• 将变化部分作为参数传入子函数，固定逻辑保留在子函数内部
• 调用时通过传递不同参数实现不同场景需求

3. 额外优化建议（可选） #

为方便调试，可给子函数添加简单错误反馈：

Sub Send_HTTP_Request(URL)            
    On Error Resume Next
    Dim objRequest             
    Set objRequest = CreateObject("Microsoft.XMLHTTP")
    
    ' 检查对象创建是否失败
    If Err.Number <> 0 Then
        WScript.Echo "创建XMLHTTP对象失败：" & Err.Description
        Err.Clear
        Exit Sub
    End If
    
    objRequest.open "POST", URL, false
    objRequest.Send               
    ' 检查请求发送是否失败
    If Err.Number <> 0 Then
        WScript.Echo "发送请求到 [" & URL & "] 失败：" & Err.Description
        Err.Clear
    End If
    
    Set objRequest = Nothing
End Sub

内容的提问来源于stack exchange，提问作者HelloCW