我的客户将访问我公司的网站以使用我正在处理的子网格检索数据信息。这必须使用安全代理来完成,因为他的公司阻止访问某些站点。我无法在他的计算机上测试我的sub,显然他无法发送代理信息(即:用户名,密码,IP,端口......)
Sub login_sub()
url = "http://localhost/php004/loginExcelAddin.php?username=" + username + "&password=" + password
Dim httpObject As Object
Dim response As String
Set httpObject = CreateObject("WinHttp.WinHttpRequest.5.1")
httpObject.Open "GET", url, False
httpObject.SetProxy HTTPREQUEST_PROXYSETTING_PROXY, proxyIP + ":" + proxyPortNumber
httpObject.send
response = httpObject.responseText
On Error GoTo errorHandler
If response = True Then
loggedIn = True
MsgBox "You are logged in"
End If
Application.Calculate
Exit Sub
errorHandler:
MsgBox "Login has failed"
End Sub
(用户名,密码,proxyPortNumber,proxyIP是填写在表单中的公共变量)
我一直在努力解决这个问题。任何人都可以告诉我,如果我朝着正确的方向前进,我可以为客户发送此代码吗?
由于
答案 0 :(得分:1)