+ //Add error checking...
+ pid_t pid;
+ NSString *sendString = [NSString stringWithFormat:@"'----':obj { form:'prop', want:type('prop'), seld:type('%c%c%c%c'), from:'null'() }", (reqKey >> 24), (reqKey >> 16) & 0xff, (reqKey >> 8) & 0xff, reqKey & 0xff];
+ const char *usendString = [sendString UTF8String];
+
+ AppleEvent sendEvent, replyEvent;
+ NSAppleEventDescriptor *send, *recv;
+ AEDesc resultDesc;
+ DescType resultType;
+ Size resultSize;
+
+ AEBuildError buildError;
+ OSStatus berr,err;
+
+ if ((GetProcessPID(psn, &pid) == noErr) && (pid == 0)) {
+ ITDebugLog(@"Error getting PID of application.");
+ return nil;
+ }
+
+ berr = AEBuildAppleEvent(evClass, evID, typeProcessSerialNumber,psn, sizeof(ProcessSerialNumber), kAutoGenerateReturnID, 0, &sendEvent, &buildError, usendString);
+ send = [[[NSAppleEventDescriptor alloc] initWithAEDescNoCopy:&sendEvent] autorelease];
+ if (!berr) [send logDesc];
+
+ if (berr) {
+ ITDebugLog(@"Error: %d:%d at \"%@\"",(int)buildError.fError,buildError.fErrorPos,[sendString substringToIndex:buildError.fErrorPos]);
+ }
+
+ err = AESend(&sendEvent, &replyEvent, kAEWaitReply, kAENormalPriority, /*kAEDefaultTimeout*/45, NULL, NULL);
+
+ err = AESizeOfParam(&replyEvent, keyDirectObject, &resultType, &resultSize);
+ if (resultSize == 0 || err != 0) {
+ return nil;
+ }
+
+ AEGetParamDesc(&replyEvent, keyDirectObject, resultType, &resultDesc);
+
+ recv = [[[NSAppleEventDescriptor alloc] initWithAEDescNoCopy:&resultDesc] autorelease];
+ if (!err) [recv logDesc];
+
+ if (err) {
+ ITDebugLog(@"Send Error: %i",err);
+ }
+ return recv;