User Manual

CATC MERLIN’S WAND 1.22 CHAPTER 5

User’s Manual Script Manager

# Read the new accessible mode

Trace("Current accessible mode is: ",

HCIReadScanEnable(), "\n");

Trace("Connecting to ", Devices[0], "\n");

# Connect to the first device in the list.

ACLHandle = Connect(Devices[0]);

Trace("ACL Handle: ", ACLHandle, "\n");

# Get some SDP query information

Trace("\nSDP query results:\n");

serverChannel = SDPQueryProfile(Devices[0], "Headset");

Trace("Headset: Server channel is: ", serverChannel,

"\n\n");

# Establish an RFCOMM connection

Trace("\nEstablishing RFCOMM connection:\n");

result = RFOpenClientChannel(Devices[0], serverChannel);

Trace("RFCOMM connection: ", result[0], "\n");

DLCI = result[1];

# Send some data over our new RFCOMM connection

data = "ATDT5551212";

Trace("Sending ", data, " to ", Devices[0], "...\n");

result = RFSendData(Devices[0], DLCI, data);

Trace("RFSendData returned ", result, "\n\n");

# Close the RFCOMM connection

result = RFCloseClientChannel(Devices[0], DLCI);

Trace("RFCOMM disconnection: ", result, "\n");

Trace("\nAttempting to make an SCO connection...\n");

result = HCIAddSCOConnection(Devices[0], ["DM1",

"HV1"]);

Trace("HCIAddSCOConnection returned ", result, "\n");

Trace("\nWaiting 2 seconds...\n");

# Wait for 2 seconds

Sleep(2000);

# Close the SCO connection

Trace("Close SCO connection: ",

HCIRemoveSCOConnection(Devices[0]), "\n");

# Disconnect from the device

status = Disconnect(Devices[0]);