過時程式員的部落格

為什麼要取電腦名稱？電腦名稱用途可多了，它可以用於寫日誌，記下犯人在哪台電腦作案，也可以在數據庫中找到導致死鎖的兇手，然後馬上打電話過去……所以呢，能取就能，能記下就記下。犯人(用戶)死活不認的話，你就可以很帥的跳高高，很用力地把證據掉到他桌上……

要取得電腦名稱，需要先告訴 PB 可以找誰要，這次要用的是「Kernel32.dll」，這是個 Windows 內置的檔案，不必外找，不信你可以在檔案總管 search 一下，放哪裏你都不用管，PB 自會處理。

// 先在 Global Function 這樣定義：

FUNCTION boolean GetComputerNameA(ref string cname,ref long nbuf) LIBRARY "Kernel32.dll" alias for "GetComputerNameA;Ansi" 

// 再定義一個 global variable：

string    gs_compname

// 然後就可以調用 GetComputerNameA() 去取得電腦名稱了：
gs_compname = space(ll_buf)
GetComputerNameA(gs_compname, ll_buf)

另外，取得名字後也可以把它顯示到程序主視窗的 title 或 microHelp 中，讓用戶截屏提問的時候也電腦名也截進去，這樣查案的時候就比較方便了。