golang远程桌面服务器,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的小伙伴，希望能提供一下支持多标签页的方法。不胜感激~

有疑问加站长微信联系(非本文作者))