Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
my objskype - Win32::OLE->new('SKYPEAPI.Access'. 'objSkype_');

$objSkype->SendMessage( $targethandle, $message );
  2. or download this
    #!/usr/bin/perl -w
use strict;
...
foreach my $value (in $ex) {
  print "$value->{ID} : $value->{STATUS} : $value->{PSTN_NUMBER}\n";
}
  3. or download this
    skt.pl
Count
Item
1165 : 11 : +647723xxxx
1216 : 7 : +1416778xxxx