- 论坛徽章:
- 0
|
我这里的情况是这样,电脑安装社保软件,注册sei3.dll,之后就可以在Perl里通过Win32::OLE调用dll了
下载是一个简单的例子
- #!"D:\Strawberry\perl\bin\perl"
- use Win32::OLE;
- $sei = CreateObject Win32::OLE 'sei3' or die $!;
- $vi = $sei->connecttonewobject('sei3');
- # 社保接口初始化
- $sei->resetvar();
- $sei->putvarstring('sbjgbh','37088101');
- $sei->putvarstring('yybm','088139');
- $sei->putvarstring('gzrybh','1234');
- $sei->putvarstring('pwd','1234');
- $vi = $sei->request_service('init');
- if ($vi ne '0')
- {
- $errtext = $sei->get_errtext();
- }
- print "$errtext \n";
- # 判断参保人员是否异地
- $sei->putvarstring('grbh',"$grbh"); # 个人编号
- $sei->putvarstring('xm',"$xm");
- $sei->putvarstring('yltclb','4');
- $sei->putvarstring('sbjgbh','37088101');
- $vi = $sei->request_service('query_person_info');
- if ($vi eq '0')
- {
- $ydbz = $sei->getvarstring('ydbz');
- if ($ydbz eq '1')
- {
- print "$xm $grbh 异地标志:$ydbz \n";
- }
- }
复制代码
|
|