Question

我为CATIA写了一个脚本，以便在基于Windows和Unix的系统下运行为此，我使用的是VBScript的衍生产品CATScript，所以也许这里的VBScript专业人员会有答案;-)
对于这个脚本，我需要执行webservice请求，以下代码适用于Windows：

Sub CATMain()
    Dim url As String
    Dim oHttpReq As Object
    Dim responseText As String

    url = "http://some.webservice.php?request=some_reuest&params=some_param"
    Set oHttpReq = CreateObject("MSXML2.ServerXMLHTTP") 

    oHttpReq.Open "POST", url, False
    oHttpReq.Send

    'Response
    responseText = oHttpReq.responseText

    MsgBox responseText

End Sub

然而，当然，这不会在Unix上工作，因为它不知道MSXML2.ServerXMLHTTP对象。你对Unix用什么对象有什么想法吗？或者对Unix系统有益的任何其他解决方法？

提前致谢＆amp;最诚挚的问候斯维尔

Answer 1

我没有使用CATIA的经验，但如果您可以运行外部程序，则可以使用Perl script：

use LWP::UserAgent;

my $ua = LWP::UserAgent->new();
my $response = $ua->post(
  'http://some.webservice.php',
  [
    'request' => 'some_request',
    'params'  => 'some_param'
  ]
);
print $response->as_string();

VBScript / CATScript Webservice请求Unix

1 个答案: