Appscript 拿到运行的QQ的process ID

tell application "QQ" to launch
tell application "System Events"
    set vlc to displayed name of every process whose name is equal to "QQ"
    set vID to id of every process whose name is equal to "QQ"
end tell
set vlcProc to {}
repeat with k from 1 to count vlc
    set end of vlcProc to {item k of vlc, item k of vID}
end repeat
vlcProc