Commit 2e82d1af authored by O'Reilly Media, Inc.'s avatar O'Reilly Media, Inc.
Browse files

Initial commit

parents
Loading
Loading
Loading
Loading

9780596101893

0 → 120000
+1 −0
Changes for 9780596101893: 1 added line, 0 removed lines.
Original line number Diff line number Diff line
9780596101893
 No newline at end of file

README.md

0 → 100644
+15 −0
Changes for README.md: 15 added lines, 0 removed lines.
Original line number Diff line number Diff line
## Example files for the title:  
  
# Skype Hacks, by Andrew Sheppard
  
[![Skype Hacks, by Andrew Sheppard](http://akamaicovers.oreilly.com/images/9780596101893/cat.gif)](https://www.safaribooksonline.com/library/view/title/0596101899//)
  
The following applies to example files from material published by O’Reilly Media, Inc. Content from other publishers may include different rules of usage. Please refer to any additional usage rights explained in the actual example files or refer to the publisher’s website.
  
O'Reilly books are here to help you get your job done. In general, you may use the code in O'Reilly books in your programs and documentation. You do not need to contact us for permission unless you're reproducing a significant portion of the code. For example, writing a program that uses several chunks of code from our books does not require permission. Answering a question by citing our books and quoting example code does not require permission. On the other hand, selling or distributing a CD-ROM of examples from O'Reilly books does require permission. Incorporating a significant amount of example code from our books into your product's documentation does require permission.
  
We appreciate, but do not require, attribution. An attribution usually includes the title, author, publisher, and ISBN.
  
If you think your use of code examples falls outside fair use or the permission given here, feel free to contact us at <permissions@oreilly.com>.
  
Please note that the examples are not production code and have not been carefully testing. They are provided "as-is" and come with no warranty of any kind.

c-media.scpt

0 → 100644
+35 −0
Changes for c-media.scpt: 35 added lines, 0 removed lines.
Original line number Diff line number Diff line
-- File: c-media.scpt

tell application "Skype"
	activate
end tell
tell application "System Events"
	tell process "Skype"
		click menu item "Preferences" of menu 1 of menu bar item "Skype" of menu bar 1
		try
			click button "Audio" of tool bar 1 of window "General"
		end try
		try
			click button "Audio" of tool bar 1 of window "Privacy"
		end try
		try
			click button "Audio" of tool bar 1 of window "Events"
		end try
		try
			click button "Audio" of tool bar 1 of window "Voicemail"
		end try
		try
			click button "Audio" of tool bar 1 of window "Advanced"
		end try
		try
			click button "Audio" of tool bar 1 of window "Chat"
		end try
		click pop up button 1 of group 1 of group 1 of window "Audio"
		pick menu item "C-Media USB Headphone Set  " of menu of pop up button 1 of group 1 of group 1 of window "Audio"
		delay 0.5
		click pop up button 2 of group 1 of group 1 of window "Audio"
		pick menu item "C-Media USB Headphone Set  " of menu of pop up button 2 of group 1 of group 1 of window "Audio"
		delay 0.5
		click button 1 of window "Audio"
	end tell
end tell

c-media.vbs

0 → 100644
+43 −0
Changes for c-media.vbs: 43 added lines, 0 removed lines.
Original line number Diff line number Diff line
' File: logitech.vbs

Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.SendKeys "^+S"     ' Send ctrl+shift+S
WScript.Sleep 1000          ' Wait for Skype to open and gain focus
objShell.SendKeys "%(TO)"   ' Tools --> Options...
WScript.Sleep 100
objShell.SendKeys "{TAB}"   ' Move to left pane ...
WScript.Sleep 100
objShell.SendKeys "{TAB}"   ' ... done.
WScript.Sleep 100
objShell.SendKeys "{DOWN}"  ' Move to Sound Devices ...
WScript.Sleep 100
objShell.SendKeys "{DOWN}"  ' ...
WScript.Sleep 100
objShell.SendKeys "{DOWN}"  ' ...
WScript.Sleep 100
objShell.SendKeys "{DOWN}"  ' ... done.		
WScript.Sleep 100
objShell.SendKeys "{TAB}"   ' Move to audio-in pulldown menu ...
WScript.Sleep 100
objShell.SendKeys "{TAB}"   ' ... done.
WScript.Sleep 100
WScript.Sleep 100
objShell.SendKeys "C"       ' Set audio-in to C-Media handset
WScript.Sleep 100
objShell.SendKeys "{TAB}"
WScript.Sleep 100
objShell.SendKeys "C"       ' Set audio-out to C-Media handset
WScript.Sleep 100
objShell.SendKeys "{TAB}"
WScript.Sleep 100
objShell.SendKeys "C"       ' Set ringer to C-Media handset
WScript.Sleep 100
objShell.SendKeys "{TAB}"   ' Move to save button ...
WScript.Sleep 100
objShell.SendKeys "{TAB}"   ' ...
WScript.Sleep 100
objShell.SendKeys "{TAB}"   ' ... done.
WScript.Sleep 100
objShell.SendKeys "{ENTER}" ' Press the save button.

c-media_API.scpt

0 → 100644
+6 −0
Changes for c-media_API.scpt: 6 added lines, 0 removed lines.
Original line number Diff line number Diff line
-- File: c-media_API.scpt (experimental)

tell application "Skype"
	send command "SET AUDIO_IN C-Media USB Headphone Set  " script name "Audio in"
	send command "SET AUDIO_OUT C-Media USB Headphone Set  " script name "Audio out"
end tell
Loading