帮我看段代码错了吗？模拟登入怎么都登入不进去

Private Sub Command1_Click()
    
    username = "testtest"
    password = "123456"
    checkcode = "bedb"
    
    strA = "username=" & username& "&password=" & password & "&checkcode=" & checkcode
    Set oReq = CreateObject("WinHttp.WinHttpRequest.5.1")
    oReq.open "POST", "http://www.abcde.com/abctest.php?c=user&a=login", False
    
 
    oReq.setRequestHeader "Content-Length", Len(strA)
    oReq.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
    oReq.send strA
    Response_Cookie = oReq.GetResponseHeader("Set-Cookie")
    strweb = oReq.ResponseText
    'Debug.Print strweb
End Sub
不知道代码有错在那里？登入不进去，没有报错，WinHttp引用好了，我没分了，就帮帮忙吧