先給 python 程式…

import socket

host = YOUR_HOST_ADDRESS # ‘localhost’ or ’127.0.0.1′ for local machine, IP_ADDRESS for remote machine
port = YOUR_PORT_NUMBER_OF_MAYA

maya = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
maya.connect( (host, port) )

message = ‘sphere()’
maya.send(message)
maya.close()

C# 用 socket connection

Socket s = new Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp);
s.Connect(YOUR_HOST_ADDRESS, YOUR_PORT_NUMBER_OF_MAYA);

string strCmd = “sphere()”;
byte[] buf = System.Text.Encoding.Default.GetBytes(strCmd);

NetworkStream ns = new NetworkStream(s);

ns.Write(buf, 0, buf.Length);
ns.Flush();
ns.Close();

s.Close();

C# 用 Tcp client connection 的話也差不多

TcpClient tc = new TcpClient();
tc.Connect(YOUR_HOST_ADDRESS, YOUR_PORT_NUMBER_OF_MAYA);

string strCmd = “sphere()”;
byte[] buf = System.Text.Encoding.Default.GetBytes(strCmd);

NetworkStream ns = tc.GetStream();

ns.Write(buf, 0, buf.Length);
ns.Flush();
ns.Close();

tc.Close();

比較需要注意的大概是 commandPort 命令的用法。

如果是使用

commandPort -echoOutput -n “:6000″;

則會會開 port 6000 並 bind 在 127.0.0.1 上，這時候如果是要從 remote 機器上來控制就會 connection refused。

如果是使用

commandPort -echoOutput -n “YOUR_IP_ADDRESS:6000″;

則會會開 port 6000 並 bind 在 YOUR_IP_ADDRESS 上，這時候如果從本機用 localhost 來控制會 connection refused，但是用 YOUR_IP_ADDRESS 則不會有問題。

最簡單的解決方式是

commandPort -echoOutput -n “0.0.0.0:6000″;

這樣不論是本機或者 remote 機器來控制 Maya 做事情都可以很順利。

StringBuilder sb = new StringBuilder();
XmlWriter writer = XmlWriter.Create(sb);

writer.WriteStartDocument();
//補上 xml 內容, 用 writer.WriteStartElement() 等完成
writer.WriteEndDocument();

writer.Flush();

XmlDocument xmlDocument = new XmlDocument();
xmlDocument.LoadXml(sb.ToString());

但是可以發現到這樣子所輸出的 XML 文件是變成 UTF-16 encoding。雖然有 XmlWriterSettings 這東西可以去設定 XMLWriter 的編碼，不過看起來好像是有些問題，輸出的 XML 結果依舊是 UTF-16。

解決的方法是用 MemoryStream 與 XMLTextWriter。

MemoryStream stream = new MemoryStream();
XmlWriter writer = new XmlTextWriter(stream, Encoding.UTF8);

writer.WriteStartDocument();
//補上 xml 內容, 用 writer.WriteStartElement() 等完成
writer.WriteEndDocument();

writer.Flush();

StreamReader reader = new StreamReader(stream, Encoding.UTF8, true);
stream.Seek(0, SeekOrigin.Begin);
string result = reader.ReadToEnd();

XmlDocument xmlDocument = new XmlDocument();
xmlDocument.LoadXml(result);

Unix Timestamp 的定義為目前 UTC 時間減去 Unix epoch 起始時間(1970/1/1 0:0:0 UTC)所得到的秒數。(Ref: Unix time)

private double UnixTimestamp(DateTime _datetime)
{
    //Unix Epoch: 1970/1/1 0:0:0
    TimeSpan span = (_datetime - new DateTime(1970, 1, 1, 0, 0, 0, 0).ToLocalTime());

    return (double)span.TotalSeconds;
} 

using System.Web.Script.Serialization;
using System.Collections;
using System.IO;

private void ProcessFBJSON()
{
    JavaScriptSerializer jss = new JavaScriptSerializer();

    string json;

    StreamReader sr = new StreamReader(@"C:\file.txt", Encoding.Default);
    json = sr.ReadToEnd();
    sr.Close();

    Dictionary dicSer = jss.Deserialize>(json);

    traceDic(dicSer);
}

private void traceDic(Dictionary dic)
{
    foreach (KeyValuePair p in dic)
    {
        if (p.Value is String)
        {
            textBox1.Text = textBox1.Text + p.Key + ": " + p.Value + "\r\n";
        }
        else if (p.Value is ArrayList)
        {
            textBox1.Text = textBox1.Text + p.Key + ": {\r\n";
            traceArrayList((ArrayList)(p.Value));
            textBox1.Text = textBox1.Text + "}\r\n";
        }
        else if (p.Value is Dictionary)
        {
            textBox1.Text = textBox1.Text + p.Key + ": [{\r\n";
            traceDic((Dictionary)(p.Value));
            textBox1.Text = textBox1.Text + "}]\r\n";
        }
        else if (p.Value is int || p.Value is float || p.Value is double)
        {
            textBox1.Text = textBox1.Text + p.Key + ": " + p.Value.ToString() + "\r\n";
        }
        else
        {
            MessageBox.Show("dictionary: " + p.Value.GetType().ToString());
        }
    }
}

private void traceArrayList(ArrayList al)
{
    for (int i = 0; i < al.Count; i++)
    {
        if (al[i] is String)
        {
            textBox1.Text = textBox1.Text + "   " + al[i].ToString() + "\r\n";
        }
        else if (al[i] is Dictionary)
        {
            traceDic((Dictionary)(al[i]));
        }
        else
        {
            MessageBox.Show("arrlist: " + al[i].GetType().ToString());
        }
    }
}

Environment.UserName

取得帳號等有儲存在本機上的資訊

using System.Security.Principal;
using System.Threading;

//-----

AppDomain.CurrentDomain.SetPrincipalPolicy(PrincipalPolicy.WindowsPrincipal);

WindowsPrincipal myPrincipal = (WindowsPrincipal)Thread.CurrentPrincipal;

WindowsIdentity myIdentity = (WindowsIdentity)myPrincipal.Identity;

Console.WriteLine("IdentityType: " + myIdentity.ToString());
Console.WriteLine("Name: {0}", myIdentity.Name);
Console.WriteLine("Member of Users? {0}", myPrincipal.IsInRole(WindowsBuiltInRole.User));
Console.WriteLine("Member of Administrators? {0}", myPrincipal.IsInRole(WindowsBuiltInRole.Administrator));
Console.WriteLine("Authenticated: {0}", myIdentity.IsAuthenticated);
Console.WriteLine("Anonymous: {0}", myIdentity.IsAnonymous);

取得帳號等有儲存在本機上的資訊 – II

使用 Win32 API

using System.Runtime.InteropServices;

//-----
[DllImport("Advapi32.dll", EntryPoint="GetUserName",  ExactSpelling=false, SetLastError=true)]
static extern bool GetUserName([MarshalAs(UnmanagedType.LPArray)] byte[] lpBuffer,
						[MarshalAs(UnmanagedType.LPArray)] Int32[] nSize );

//-----
byte[] str = new byte[256];
Int32[] len = new Int32[1];
len[0] = 256;
GetUserName(str, len);
MessageBox.Show(System.Text.Encoding.ASCII.GetString(str));

string a = System.Security.Principal.WindowsIdentity.GetCurrent().Name.ToString();

MessageBox.Show(a.ToString());

LDAP

這是可以取得最詳細資訊的方法

using System.DirectoryServices;

//-----

string principal = Environment.UserName;
string filter = string.Format("(&(ObjectClass={0})(sAMAccountName={1}))", "person", principal);
string[] properties = new string[] { "fullname" };

//用匿名登入，理論上LDAP都會允許，但只有 read 權限
DirectoryEntry adRoot = new DirectoryEntry("LDAP://yourdomain.com", null, null, AuthenticationTypes.Secure);
DirectorySearcher searcher = new DirectorySearcher(adRoot);
searcher.SearchScope = SearchScope.Subtree;
searcher.ReferralChasing = ReferralChasingOption.All;
searcher.PropertiesToLoad.AddRange(properties);
searcher.Filter = filter;
SearchResult result = searcher.FindOne();
DirectoryEntry directoryEntry = result.GetDirectoryEntry();

string displayName = directoryEntry.Properties["displayName"][0].ToString();
string firstName = directoryEntry.Properties["givenName"][0].ToString();
string lastName = directoryEntry.Properties["sn"][0].ToString();
string email = directoryEntry.Properties["mail"][0].ToString();
string department = directoryEntry.Properties["department"][0].ToString();
string description = directoryEntry.Properties["description"][0].ToString();

This article is interleaved with Chinese and English.

本來還想在網路上看能不能找到答案的, 結果只有找到一些可能的提示… 不過最後還是摸索出來了啦

At the beginning, I hope to scrounge the solution from Internet, but after hours of searching, I only find some possible hints. Anyway, here’s the solution.

之所以會想要弄這樣的功能，是因為要做出類似在檔案總管中用拖曳選取時有半透明選取區域的效果。但是如果在 window form 中匯製矩形時，會發現這個矩形區域會被其他的控制項壓在下面，使得這個半透明的效果變得很奇怪(如下圖).

This issue is caused by I wanna make a semi-transparent selection area in a window form, just what we usually use in windows file manager. However, if we just draw a rectangle in a window form, this rectangle will be “overlayed” by other controls, just like the figure below. Yep, quite weird.

而我想要的效果是如下圖這樣的, 半透明的選取區域壓在控制項上方.

The figure below is what I really want is a semi-transparent selection region overlays other controls.

最開始的時候我的想法是做一個透明的 Panel, 同時給定顏色，然後隨著滑鼠拖曳動態地去調整大小。結果我在網路上找到了製作透明 Panel 的方法(程式碼如下)，但，很遺憾地，對這個透明 Panel 指定顏色還不能達到我想要的效果。

My first trial is creating a transparent Panel and assign some color onto in, and adjust the size as mouse dragging and moving. I scrounged a transparent panel solution from Internet (source code as below), but, unfortunately, assigning color onto it still does not meet what I want.

public class TransparentPanel : System.Windows.Forms.Panel
{
    public TransparentPanel()
    {
    }

    protected override System.Windows.Forms.CreateParams CreateParams
    {
        get
        {
            System.Windows.Forms.CreateParams createParams = base.CreateParams;
            createParams.ExStyle |= 0x00000020; // WS_EX_TRANSPARENT

            return createParams;
        }
    }

    protected override void OnPaintBackground(System.Windows.Forms.PaintEventArgs e)
    {
        // Do not paint background.
    }
}

那, 在這個透明的 panel 上頭畫一個半透明的矩形呢? 似乎有點可行, 但是在滑鼠拖曳移動時會變得很糟糕, 留下許多殘像.

Well, how about drawing a semi-transparent rectangle on the transparent panel? Sounds reasonable, but there are lots of afterimages while mouse dragging and moving.

//draw a semi-transparent rectangle by adjusting the alpha value of Color.FromArgb function.
Rectangle rec = new Rectangle(topLeftRec, howBig);
Graphics.FillRectangle(new SolidBrush(Color.FromArgb(150, 255, 255, 0)), rec);

後來看到一些提示之後找到了解法，必須透過控制項的 Paint event 來把這個矩形匯製出來。雖然還不是很清楚為什麼要這樣做，但感覺起來是把這個矩形的匯製的動作跟著控制項匯製的動作綁在一起。藉由改變 transparent panel 的大小與位置來觸發 Paint event.

Finally, with some hints on Internet, I find the solution — painting the rectangle as a control’s paint event is triggered. Although I still do not fully understand the reason why I have to follow this process, I think it might require combining drawing rectangle with the control’s paint process. By changing the size and location of the transparent panel, the Paint event can be triggered.

private void pTransparent_Paint(object sender, PaintEventArgs e)
{
    base.OnPaint(e);
    Graphics dc = e.Graphics;

    Pen blackPen = new Pen(Color.Black, 1);
    Point topLeftRec = new Point(e.ClipRectangle.X, e.ClipRectangle.Y);
    Size howBig = new Size(e.ClipRectangle.Width, e.ClipRectangle.Height);
    Rectangle rec = new Rectangle(topLeftRec, howBig);

    Console.WriteLine(topLeftRec.ToString());

    dc.DrawRectangle(blackPen, rec);
    dc.FillRectangle(new SolidBrush(Color.FromArgb(150, 255, 255, 0)), rec);
    blackPen.Dispose();
}

private Rectangle drawrect;
private bool md = false;
private Point startpoint, drawtopleft;
private Size drawsize;

private void flowLayoutPanel1_MouseMove(object sender, MouseEventArgs e)
{
    if (md == true)  //md is a boolean variable representing in mouse dragging mode or not.
    {
        drawtopleft.X = Math.Min(startpoint.X, e.X);
        drawtopleft.Y = Math.Min(startpoint.Y, e.Y);

        drawsize.Width = Math.Abs(startpoint.X - e.X);
        drawsize.Height = Math.Abs(startpoint.Y - e.Y);

        drawrect = new Rectangle(drawtopleft, drawsize);
        ((FlowLayoutPanel)sender).Refresh();

        pTransparent.Width = drawrect.Width;
        pTransparent.Height = drawrect.Height;
        pTransparent.Left = drawtopleft.X;
        pTransparent.Top = drawtopleft.Y;
        }
    }
}

@echo off
rem 定義 ADSL 撥號名稱, ID, Password
set adsl=預先設置號的ADSL撥號名稱
set adslid=YOUR_ID
set adslpw=YOUR_PASSWORD

:start
rem 斷線 / disconnect
Rasdial %adsl% /disconnect

rem 撥號連線 / dial
Rasdial %adsl% %adslid% %adslpw%

----- without a window-----
@echo off
start /B Myapp.exe

---- minimized ----
@echo off
start /MIN Myapp.exe

這次主要是要做兩個 ActiveX control，雖然介面類似但是功能不同，一個叫 FullControl，另一個叫做 TestControl。

建立User Control

跟過去用 MFC 或者用 VB 寫 ActiveX 有點不太一樣，在 .net 裡頭是用 User Control 來做出 ActiveX control，所以先在 VS 2005 裡頭開一個新的 User Control 的專案，然後把兩個 Control 加進去。

所以現在會有兩個檔案: FullControl.cs 跟 TestControl.cs。大概會長得類似下面這樣…

namespace ActiveXTest
{
    public partial class TestControl : UserControl
    {
        public TestControl()
        {
            InitializeComponent();
        }
        //其他的程式碼
    }
}

namespace ActiveXTest
{
    public partial class FullControl : UserControl
    {
        public TestControl()
        {
            InitializeComponent();
        }
        //其他的程式碼
    }
}

接下來就是製作需要的功能了，做好之後可以另外開一個 windows form project 來測試做好的 User Control 是否可以正常運作。

讓這個 User Control 變成 COM 物件

這是最重要的步驟!!

雖然 .net 做出來的 User Control 也是一個 .dll 檔，但是這跟過去用 VB 寫出來的一個 .ocx 或者 .dll，用 MFC 寫出來的一個 .dll 是截然不同的。

因為 ActiveX control 基本上是一個 com 物件，但是一般情況下 .net 做出來的 User control dll 並不是，所以我們要對 User Control 進行改造，使得這個 User Control 變成一個 COM 物件。

要變成 COM 物件首先我們需要建立這個 dll 的 COM Interface，所以要先幫 User Control 加上 IObjectSafty interface。

    [ComImport, GuidAttribute("GUID")]
    [InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIUnknown)]
    public interface IObjectSafety
    {

        [PreserveSig]
        int GetInterfaceSafetyOptions(ref Guid riid,
                      [MarshalAs(UnmanagedType.U4)] ref int pdwSupportedOptions,
                      [MarshalAs(UnmanagedType.U4)] ref int pdwEnabledOptions);

        [PreserveSig()]
        int SetInterfaceSafetyOptions(ref Guid riid,
                      [MarshalAs(UnmanagedType.U4)] int dwOptionSetMask,
                      [MarshalAs(UnmanagedType.U4)] int dwEnabledOptions);
    }

要注意的是，因為現在 FullControl 跟 TestControl 都在同一個 namespace (ActiveXTest) 底下，所以這個 IObjectSafety interface 只要寫一個就好，看是寫在 FullControl.cs 或者 TestControl.cs 都可以。

而那個 GUID 的話可以用 GUID 工具產生，它放在 VS 2005 的 “工具” –> “建立GUID”。如果沒有這工具的話可以用 “外部工具” 來新增這個工具，預設路徑是在 C:\Program Files\Microsoft Visual Studio 8\Common7\Tools\guidgen.exe 。產生的 Interface 可能像下面這樣:

namespace ActiveXTest
{    [ComImport, GuidAttribute("CB5BDC81-93C1-11CF-8F20-00805F2CD064")]
    [InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIUnknown)]
    public interface IObjectSafety
    {
    ...
    }
}

寫好 Interface 之後接著就是需要 implement 這個 interface 中的 methods，所以兩個 User Control 都需要繼承這個 interface…

namespace ActiveXTest
{
    public partial class TestControl : UserControl, IObjectSafety
    {
    ...
    }

    [ComImport, GuidAttribute("CB5BDC81-93C1-11CF-8F20-00805F2CD064")]
    [InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIUnknown)]
    public interface IObjectSafety
    {
    ...
    }
}

namespace ActiveXTest
{
    public partial class FullControl : UserControl, IObjectSafety
    {
    ...
    }

    [ComImport, GuidAttribute("CB5BDC81-93C1-11CF-8F20-00805F2CD064")]
    [InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIUnknown)]
    public interface IObjectSafety
    {
    ...
    }
}

而怎麼 implement int GetInterfaceSafetyOptions() 跟 int SetInterfaceSafetyOptions() 呢？直接去 pinvoke.net 這邊去抄 :p

接下來也要給 User Control 一個 GUID，要不然也空有 Interface 但不知道 ActiveX control 實際的 GUID 的話也是不行的。

namespace ActiveXTest
{
    [Guid ("9551B223-6188-4387-B293-C7D9D8173E3A")]
    [ProgId("ActiveXUpload.TestControl")]
    [ComVisible(true)]
    public partial class TestControl : UserControl, IObjectSafety
    {
    ...
    }

    [ComImport, GuidAttribute("CB5BDC81-93C1-11CF-8F20-00805F2CD064")]
    [InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIUnknown)]
    public interface IObjectSafety
    {
    ...
    }
}

namespace ActiveXTest
{
    [Guid ("9551B223-6188-4387-B293-C7D9D8173E3A")]
    [ProgId("ActiveXUpload.FullControl")]
    [ComVisible(true)]
    public partial class FullControl : UserControl, IObjectSafety
    {
    ...
    }

    [ComImport, GuidAttribute("CB5BDC81-93C1-11CF-8F20-00805F2CD064")]
    [InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIUnknown)]
    public interface IObjectSafety
    {
    ...
    }
}

這樣子就已經差不多了，但是在建置之前必須要設定一下 project 的屬性，把「註冊為 Com Interop」選項勾選起來。另外還要把這個專案作簽署，就是把專案屬性的簽署組件勾選起來。這樣子，建置之後應該會有 .dll 以及一個 .tlb (typed library)，其實到這邊就可以把 ActiveX 的 DLL 拿來用了，可是這時候如果要在網頁上面使用這個 ActiveX 的話，要做一大堆的設定，所以，還是乖乖地包裝成 CAB 吧。

建立 ActiveX 自動安裝專案

要建立 ActiveX 的 CAB 時，需要 Cabarc.exe，這個tool在 VS 2005 裡頭就會有了，預設的話會在 C:\Program Files\Microsoft Visual Studio 8\Common7\Tools\Bin 裡頭。要不然也可以在 Microsoft 下載中心去下載 Windows XP Service Pack 2 支援工具，雖然在 Windows 的 server 版本中無法安裝，但是可以用 winrar 來解壓縮把 cabarc.exe 拿出來用。

如果不想要去下載 XP 支援工具的話，還是有方法可以解決的。首先還是先在 VS 2005 裡頭作一個安裝的專案，然後就可以產生出一個 .msi 跟一個 setup.exe 檔案。但接下來的我們只需要 .msi，這也是為什麼我們不直接建立一個 CAB 封裝的專案，而是先建立一個自動安裝的專案。

建立 ActiveX 的 CAB 封裝

接下來在 VS 2005 裡頭建立一個 CAB 封裝專案，(請直接看最下方的紅色文字部分補充說明) 然後加入前一個步驟的 .msi 檔案，以及一個 install.inf 檔案，比方說下面這樣：

[version]
signature=”$CHICAGO$”
AdvancedINF=2.0

[Setup Hooks]
hook1=hook1

[hook1]
run=msiexec.exe /i “%EXTRACT_DIR%\ActiveXTest.msi” /qn

Signature 的值可以是 $Windows NT$, $Windows 95$, $Chicago$。其中 $Windows NT$ 為NT系列專用，$Windows 95$ 為 windows 9x系列專用，而 $Chicago$ 是除了WIN3X以下系統其他WIN系統都可以用，所以當然是用 $Chicago$ 囉。產生出 cab 之後就可以在網頁上使用了。

如果要把 install.inf 寫得更好一點的話可以寫成類似下面這樣：

[Setup Hooks]
hook.mycontrol=hook.mycontrol

[Add.Code]
mycontrol.dll=mycontrol.dll

[mycontrol.dll]
CLSID={50894390-9cb3-4a6d-bb40-b786b7e9548d}
FileVersion=1,1,0,3
hook=hook.mycontrol

[hook.mycontrol]
run=msiexec.exe /i %EXTRACT_DIR%\mycontrol.msi /qn

[Version]
; This section is required for compatibility on both Windows 95 and Windows NT.
Signature=”$CHICAGO$”
AdvancedInf=2.0

如果想要讓這個 CAB 做得更完美一點的話，還可以對這個 CAB 作簽章。這時候要用到 signtool.exe ，也是放在 C:\Program Files\Microsoft Visual Studio 8\Common7\Tools\Bin 裡面。使用 signtool.exe wizard 之後就會彈出視窗來做簽署動作。

Jun. 1, 2010: 經過反覆測試發現，還是用 Cabarc.exe 自己來包 .cab 比較好一點。只要用 cabarc.exe N ActiveXTest.cab ActiveXTest.msi install.inf 這樣的指令就可以了。如果用 VS 2005 的 CAB 專案，則會在產生出來的 .cab 檔案中多一個 xxx.OSD 這樣的一個 OSD (open source description) 檔案，而導致在使用這個 activex cab 包的時候發生錯誤無法正確安裝。