pb代码中如何取客户机名？

[pbzjh]

如何取客户机名

[佣工7001]

用API
gethostname

[szpqq]

提供一下思路
一是可以用API函数吧
二是可能从注册表中取，如果你知道在注册表中哪里取的话
string ls_titlefont

RegistryGet("HKEY_LOCAL_MACHINE\Software\MyApp.Settings\Fonts", "Title", RegString!, ls_titlefont)

把HKEY_LOCAL_MACHINE\Software\MyApp.Settings\Fonts改成取客户机的路径

[shinesky]

用API
Function ulong GetComputerName(ref string lpBuffer,ref ulong nSize) LIBRARY "kernel32.dll" ALIAS FOR "GetComputerNameA"

string ls_lpBuffer
ulong li_nSize

ls_lpBuffer = space(256)//分配空間
li_nsize=256
re_value=GetComputerName(ls_lpBuffer,li_nSize)
messagebox('computer_name',ls_lpBuffer)