Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

comment on

( [id://3333]=superdoc: print w/replies, xml ) Need Help??
Esteemed colleagues,

In my usual rush I came here and added a bundle of info, previewed it and forgot to post it! I have done some more work and have the following to report which hopefully may enable some of the more experienced amongst the monastrians to be able to help me some more.

The link from virtualsue to the SkypeJournal material points to an extremely simplistic application where, as is noted, the Tk shrouds the Perl guts. And the Perl guts is almost inconsequential.

use strict; use warnings; use Win32::OLE qw(in); . . my objskype - Win32::OLE->new('SKYPEAPI.Access'. 'objSkype_'); $objSkype->SendMessage( $targethandle, $message );
Which simply sends a chat message to the specified target. The ActiveS COM wrapper ( http://www.khaoslabs.com/actives.php ) offer no more information. An email to the author elicited the response that he knew absolutely nothing about Perl. So I hacked away and finally started to get something back from the API. This rudimentary caode:
#!/usr/bin/perl -w use strict; use warnings; use Data::Dumper; use Win32::OLE qw(in valof with); my $objskype = Win32::OLE->new('SKYPEAPI.Access'); my $ex = $objskype->GetCallList(); foreach my $key ( keys( %$ex)) { print( $key, "\n"); } foreach my $value (in $ex) { print "$value->{ID} : $value->{STATUS} : $value->{PSTN_NUMBER}\n"; }
Gets the following:
skt.pl Count Item 1165 : 11 : +647723xxxx 1216 : 7 : +1416778xxxx
If I were to run code like this in a polling loop I could get the info I need, but with an overhead! Having got this far, can anyone tell me where to find information on handling EVENTS with Win32::OLE?

The documenation for the wrapper gives a list of events, but nothing more.

jdtoronto


In reply to Re: SKYPE incoming call monitor by jdtoronto
in thread SKYPE incoming call monitor by jdtoronto

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":



  • Are you posting in the right place? Check out Where do I post X? to know for sure.
  • Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
    <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
  • Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
  • Want more info? How to link or How to display code and escape characters are good places to start.
Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others sharing their wisdom with the Monastery: (4)
As of 2024-04-24 05:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found