通过Microsoft发送what应用消息.XmlHttp不工作在windows 7的vb6

Question

我试图使用vb6发送WhatsApp消息，它在windows 10上运行良好，但在windows 7上它通过调用myMSXML的错误。发送strFormData，错误为空。我不明白为什么它给出错误。

我已经给出了下面的代码

Private Function PrepareAndSendMsg(Partyname As String, Number As String, Optional Message As String = "", Optional Document As String = "") As Boolean
On Error GoTo X
'Whats app Variables --------------------------
Dim apikey As String
Dim ApiToken As String
Dim strFormData As String
Dim strUrl As String
Dim filepathname As String
Dim myMSXML As Object
'----------------------------------------------
strUrl = Trim(GetDescription("SELECT ISNULL(URL,'') FROM WHATSAPPDATA"))
apikey = Trim(GetDescription("SELECT ISNULL(API,'') FROM WHATSAPPDATA"))
ApiToken = Trim(GetDescription("SELECT ISNULL(TOKEN,'') FROM WHATSAPPDATA"))
'filepathname = Trim(GetDescription("SELECT ISNULL(FILEPATH,'') FROM WHATSAPPDATA")) 'no need generated evrytime
If dataValidate(strUrl, apikey, ApiToken, filepathname, Partyname, Number) = False Then: PrepareAndSendMsg = False: Call writeLog("DATA VALIDATION : User Data Validation Falied", "Y"): Image1.Picture = LoadPicture(App.Path & "imagesError.ico"): Exit Function
writeLog ("DATA VALIDATION : User Data Validation Successfull")
If Message <> "" Then
writeLog ("TYPE : Sending User ""MESSAGE""")
strFormData = "key=" & apikey & "&token=" & ApiToken & "&number=" & Number & "&message=" & Message & "&type=text"
ElseIf Document <> "" Then
writeLog ("TYPE : Sending User ""DOCUMENT""")
strFormData = "key=" & apikey & "&token=" & ApiToken & "&number=" & Number & "&filepath=" & Document & "&type=file"
Else
Call writeLog("Attchment or Message Not Found", "Y")
LbPartyName.Caption = "Message/Attachment Not Found"
PrepareAndSendMsg = False
Exit Function
End If
writeLog ("KEY : " & apikey)
writeLog ("TOKEN : " & ApiToken)
writeLog ("API : " & strFormData)
Set myMSXML = CreateObject("Microsoft.XmlHttp")
myMSXML.open "POST", "" & strUrl & "", False
myMSXML.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
myMSXML.setRequestHeader "User-Agent", "Firefox 3.6.4"
myMSXML.send strFormData
TxtRepsonse.Text = myMSXML.responseText
'Print Log and Close Here --------------
writeLog ("RESPONSE : " & TxtRepsonse.Text)
Call writeLog("", "Y")
'---------------------------------------
Timer11.Enabled = True
Exit Function
X:
writeLog ("ERROR : Preparin And Sending Message ->" & Err.Description)
PrepareAndSendMsg = False
MsgBox Err.Description, vbCritical, "Warning"
End Function

，正如我提到的错误是空白的，同样在Windows 10上工作得很好。Api提供程序提到它必须强制使用POST方法，GET不能使用。

Answer 1

试试这个

Set myMSXML = CreateObject("MSXML2.ServerXMLHTTP".