go+govcl+go-ole实现的windows远程桌面

一直用go写后台服务用，几乎没有写过gui程序，近日对各种的golang的gui库了解了一下，最后选择了用govcl试试，感觉还是不错的。用起来很顺手，下面把我写的基于MsTscAx控件的远程桌面程序发出来和大家共享下，一共就50行代码， 效果图如下：

package main

import (
    "syscall"
    "unsafe"

    "github.com/ying32/govcl/vcl/types/colors"

    "github.com/go-ole/go-ole"
    "github.com/go-ole/go-ole/oleutil"
    _ "github.com/ying32/govcl/pkgs/winappres"
    "github.com/ying32/govcl/vcl"
)

var Form1 *TForm1
var atlDll = syscall.NewLazyDLL("atl.dll")
var AtlAxAttachControl = atlDll.NewProc("AtlAxAttachControl")

func main() {
    vcl.Application.Initialize()
    vcl.Application.CreateForm(&Form1)
    vcl.Application.Run()
}

type TForm1 struct {
    *vcl.TForm
    Rdp1 RdpPanel
}

type RdpPanel struct {
    *vcl.TPanel
    rdp *ole.IDispatch
}

func (f *TForm1) OnFormCreate(sender vcl.IObject) {
    f.SetCaption("windows远程桌面")
    f.SetBounds(10, 10, 1024, 800)
    f.Rdp1.Initrdp(f, 0, 0, 1024, 768, "192.168.2.28", "administrator", "pass")
}

func (rp *RdpPanel) Initrdp(f *TForm1, x, y, w, h int32, ip, username, pass string) {
    ole.CoInitialize(0)
    rp.TPanel = vcl.NewPanel(f)
    rp.SetParent(f)
    rp.SetBounds(x, y, w, h)
    rp.SetParentBackground(false)
    rp.SetColor(colors.ClRed)
    unknown, _ := oleutil.CreateObject("MsTscAx.MsTscAx.2")
    rp.rdp = unknown.MustQueryInterface(ole.IID_IDispatch)
    AtlAxAttachControl.Call(uintptr(unsafe.Pointer(&unknown.RawVTable)), rp.Handle(), 0)
    oleutil.PutProperty(rp.rdp, "server", ip)
    oleutil.PutProperty(rp.rdp, "username", username)
    set, _ := oleutil.GetProperty(rp.rdp, "AdvancedSettings")
    set.ToIDispatch().PutProperty("ClearTextPassword", pass)
    oleutil.MustCallMethod(rp.rdp, "connect")
    ole.CoUninitialize()
}

最后，如果也有用govcl的小伙伴，希望能提供一下支持多标签页的方法。不胜感激~