func Example_ie() {
const delay = 2000000000
com.CoInitialize()
defer com.CoUninitialize()
var unknown *iunknown.Unknown
var ie *Dispatch
com.CreateObject("InternetExplorer.Application", &unknown)
unknown.QueryInterface(com.IDispatchInterfaceID, &ie)
CallMethod(ie, "Navigate", "http://www.google.com")
PutProperty(ie, "Visible", true)
for {
if MustGetProperty(ie, "Busy").Val == 0 {
break
}
}
time.Sleep(delay)
document := MustGetProperty(ie, "document").ToIDispatch()
window := MustGetProperty(document, "parentWindow").ToIDispatch()
// set 'golang' to text box.
MustCallMethod(window, "eval", "document.getElementsByName('q')[0].value = 'golang'")
// click btnG.
btnG := MustCallMethod(window, "eval", "document.getElementsByName('btnG')[0]").ToIDispatch()
MustCallMethod(btnG, "click")
}
func Example_excel() {
const delay = 2000000000
com.CoInitialize()
defer com.CoUninitialize()
var unknown *iunknown.Unknown
var excel *Dispatch
com.CreateObject("Excel.Application", &unknown)
unknown.QueryInterface(com.IDispatchInterfaceID, &excel)
PutProperty(excel, "Visible", true)
workbooks := MustGetProperty(excel, "Workbooks").ToIDispatch()
workbook := MustCallMethod(workbooks, "Add", nil).ToIDispatch()
worksheet := MustGetProperty(workbook, "Worksheets", 1).ToIDispatch()
cell := MustGetProperty(worksheet, "Cells", 1, 1).ToIDispatch()
PutProperty(cell, "Value", 12345)
time.Sleep(delay)
PutProperty(workbook, "Saved", true)
CallMethod(workbook, "Close", false)
CallMethod(excel, "Quit")
excel.Release()
}
func Example_outlook() {
com.CoInitialize()
defer com.CoUninitialize()
var unknown *iunknown.Unknown
var outlook *Dispatch
err := com.CreateObject("Outlook.Application", &unknown)
unknown.QueryInterface(com.IDispatchInterfaceID, &outlook)
defer outlook.Release()
ns := MustCallMethod(outlook, "GetNamespace", "MAPI").ToIDispatch()
folder := MustCallMethod(ns, "GetDefaultFolder", 10).ToIDispatch()
contacts := MustCallMethod(folder, "Items").ToIDispatch()
count := MustGetProperty(contacts, "Count").Value().(int32)
for i := 1; i <= int(count); i++ {
item, err := GetProperty(contacts, "Item", i)
if err == nil && item.VariantType == com.IDispatchVariantType {
if value, err := GetProperty(item.ToIDispatch(), "FullName"); err == nil {
fmt.Println(value.Value())
}
}
}
MustCallMethod(outlook, "Quit")
}
func Example_msagent() {
com.CoInitialize()
defer com.CoUninitialize()
var unknown *iunknown.Unknown
var agent *Dispatch
err := com.CreateObject("Agent.Control.1", &unknown)
unknown.QueryInterface(com.IDispatchInterfaceID, &agent)
PutProperty(agent, "Connected", true)
characters := MustGetProperty(agent, "Characters").ToIDispatch()
CallMethod(characters, "Load", "Merlin", "c:\\windows\\msagent\\chars\\Merlin.acs")
character := MustCallMethod(characters, "Character", "Merlin").ToIDispatch()
CallMethod(character, "Show")
CallMethod(character, "Speak", "こんにちわ世界")
}
func Example_itunes() {
com.CoInitialize()
defer com.CoUninitialize()
var err error
var unknown *iunknown.Unknown
var itunes *Dispatch
err = com.CreateObject("iTunes.Application", &unknown)
if err != nil {
log.Fatal(err)
}
err = unknown.QueryInterface(com.IDispatchInterfaceID, &itunes)
if err != nil {
log.Fatal(err)
}
defer itunes.Release()
command := &commander.Command{
UsageLine: os.Args[0],
Short: "itunes cmd",
}
command.Subcommands = []*commander.Command{}
for _, name := range []string{"Play", "Stop", "Pause", "Quit"} {
command.Subcommands = append(command.Subcommands, &commander.Command{
Run: func(cmd *commander.Command, args []string) error {
_, err := CallMethod(itunes, name)
return err
},
UsageLine: strings.ToLower(name),
})
}
err = command.Dispatch(os.Args[1:])
if err != nil {
log.Fatal(err)
}
}
func Example_msxml_rssreader() {
com.CoInitialize()
defer com.CoUninitialize()
var unknown *iunknown.Unknown
var xmlhttp *Dispatch
err := com.CreateObject("Microsoft.XMLHTTP", &unknown)
unknown.QueryInterface(com.IDispatchInterfaceID, &xmlhttp)
defer xmlhttp.Release()
MustCallMethod(xmlhttp, "open", "GET", "http://rss.slashdot.org/Slashdot/slashdot", false)
MustCallMethod(xmlhttp, "send", nil)
state := -1
for state != 4 {
state = int(MustGetProperty(xmlhttp, "readyState").Val)
time.Sleep(10000000)
}
responseXml := MustGetProperty(xmlhttp, "responseXml").ToIDispatch()
items := MustCallMethod(responseXml, "selectNodes", "/rss/channel/item").ToIDispatch()
defer items.Release()
length := int(MustGetProperty(items, "length").Val)
for n := 0; n < length; n++ {
item := MustGetProperty(items, "item", n).ToIDispatch()
title := MustCallMethod(item, "selectSingleNode", "title").ToIDispatch()
link := MustCallMethod(item, "selectSingleNode", "link").ToIDispatch()
fmt.Println(MustGetProperty(title, "text").ToString())
fmt.Println(" " + MustGetProperty(link, "text").ToString())
title.Release()
link.Release()
item.Release()
}
}
func Example_mediaplayer() {
com.CoInitialize()
defer com.CoUninitialize()
var unknown *iunknown.Unknown
var wmp *Dispatch
err := com.CreateObject("WMPlayer.OCX", &unknown)
if err != nil {
log.Fatal(err)
}
unknown.MustQueryInterface(com.IDispatchInterfaceID, &wmp)
collection := MustGetProperty(wmp, "MediaCollection").ToIDispatch()
list := MustCallMethod(collection, "getAll").ToIDispatch()
count := int(MustGetProperty(list, "count").Val)
for i := 0; i < count; i++ {
item := MustGetProperty(list, "item", i).ToIDispatch()
name := MustGetProperty(item, "name").ToString()
sourceURL := MustGetProperty(item, "sourceURL").ToString()
fmt.Println(name, sourceURL)
}
}
func Example_winsock() {
queryInterface := func(self *interface{}, interfaceID *com.GUID, client **interface{}) uint32 {
code := iunknown.QueryInterfaceService(self, interfaceID, *client)
if code == com.NoInterfaceErrorCode {
s := com.StringFromClassID(interfaceID)
if s == "{248DD893-BB45-11CF-9ABC-0080C7E7B78D}" {
iunknown.AddRefService(self)
*client = self
return com.SuccessResponseCode
}
}
return com.NoInterfaceErrorCode
}
getIDsOfNames := func(this *iunknown.IUnknown, iid *com.GUID, wnames []*uint16, namelen int, lcid int, pdisp []int32) uintptr {
for n := 0; n < namelen; n++ {
pdisp[n] = int32(n)
}
return uintptr(com.SuccessResponseCode)
}
invoke := func(this *IDispatch, dispid int32, riid *com.GUID, lcid int, flags int16, dispparams *com.DISPPARAMS, result *com.Variant, pexcepinfo *com.EXCEPINFO, nerr *uint) {
switch dispid {
case 0:
log.Println("DataArrival")
winsock := (*com.EventReceiver)(unsafe.Pointer(this)).host
var data com.Variant
com.VariantInit(&data)
CallMethod(winsock, "GetData", &data)
s := string(data.ToArray().ToByteArray())
println()
println(s)
println()
case 1:
log.Println("Connected")
winsock := (*com.EventReceiver)(unsafe.Pointer(this)).host
oleutil.CallMethod(winsock, "SendData", "GET / HTTP/1.0\r\n\r\n")
case 3:
log.Println("SendProgress")
case 4:
log.Println("SendComplete")
case 5:
log.Println("Close")
this.Release()
case 6:
log.Fatal("Error")
default:
log.Println(dispid)
}
return com.NotImplementedErrorCode
}
com.CoInitialize()
defer com.CoUninitialize()
var unknown *iunknown.Unknown
var winsock *Dispatch
err := com.CreateObject("{248DD896-BB45-11CF-9ABC-0080C7E7B78D}", &unknown)
if err != nil {
panic(err.Error())
}
unknown.QueryInterface(com.IDispatchInterfaceID, &winsock)
defer winsock.Release()
classID, _ := com.ClassIDFromString("{248DD893-BB45-11CF-9ABC-0080C7E7B78D}")
destination := &com.EventReceiver{}
destination.VirtualTable = &VirtualTable{
QueryInterface: syscall.NewCallback(queryInterface),
AddRef: syscall.NewCallback(iunknown.AddRefService),
Release: syscall.NewCallback(iunknown.ReleaseService),
GetTypeInfoCount: syscall.NewCallback(GetTypeInfoCountService),
GetTypeInfo: syscall.NewCallback(GetTypeInfoService),
GetIDsOfNames: syscall.NewCallback(getIDsOfNames),
Invoke: syscall.NewCallback(invoke)}
destination.Host = winsock
iconnectionpointcontainer.ConnectObject(winsock, classID, (*iunknown.Unknown)(unsafe.Pointer(destination)))
_, err = CallMethod(winsock, "Connect", "127.0.0.1", 80)
if err != nil {
log.Fatal(err)
}
var m com.Msg
for dest.ReferenceCount != 0 {
com.GetMessage(&m, 0, 0, 0)
com.DispatchMessage(&m)
}
}
// This tests more than one function. It tests all of the functions needed in
// order to retrieve a SafeArray populated with Strings.
func ExampleGetElementString_quickbooks() {
com.CoInitialize()
defer com.CoUninitialize()
clsid, err := com.ClassIDFromProgramID("QBXMLRP2.RequestProcessor.1")
if err != nil {
if err.(*com.OleError).Code() == com.COMObjectClassStringErrorCode {
return
}
t.Log(err)
t.FailNow()
}
var unknown *iunknown.Unknown
var dispatch *idispatch.Dispatch
err := com.CoCreateInstance(clsid, iunknown.InterfaceID, &unknown)
if err != nil {
return
}
defer unknown.Release()
err := unknown.QueryInterface(idispatch.InterfaceID, &dispatch)
if err != nil {
return
}
var result *com.Variant
_, err = idispatch.CallMethod(dispatch, "OpenConnection2", "", "Test Application 1", 1)
if err != nil {
return
}
result, err = idispatch.CallMethod(dispatch, "BeginSession", "", 2)
if err != nil {
return
}
ticket := result.ToString()
result, err = idispatch.GetProperty(dispatch, "QBXMLVersionsForSession", ticket)
if err != nil {
return
}
//
// Example begins.
//
var qbXMLVersions *COMArray
var qbXMLVersionStrings []string
qbXMLVersions = result.ToArray().Array
// Release Safe Array memory
defer Destroy(qbXMLVersions)
// Get array bounds
var LowerBounds int64
var UpperBounds int64
LowerBounds, err = GetLowerBound(qbXMLVersions, 1)
if err != nil {
return
}
UpperBounds, err = GetUpperBound(qbXMLVersions, 1)
if err != nil {
return
}
totalElements := UpperBounds - LowerBounds + 1
qbXMLVersionStrings = make([]string, totalElements)
for i := int64(0); i < totalElements; i++ {
qbXMLVersionStrings[int32(i)], _ = GetElementString(qbXMLVersions, i)
}
//
// Example ends.
//
result, err = idispatch.CallMethod(dispatch, "EndSession", ticket)
if err != nil {
return
}
result, err = idispatch.CallMethod(dispatch, "CloseConnection")
if err != nil {
return
}
}