老大，应该加个改计算机名的子程序吧？

９天

以下是我用的方法，请参考[e]
.版本 2

.子程序 _计算机名设置按钮_被单击
.局部变量 计算机名长度, 整数型
.局部变量 判断计次, 整数型
.局部变量 字符, 文本型

' 计算机名设置代码
.如果真 (计算机名编辑框.内容 ＝ “”)
信息框 (“请输入计算机名!”, 0, )
返回 ()
.如果真结束
计算机名长度 ＝ 取文本长度 (计算机名编辑框.内容)
判断计次 ＝ 0
' 开始判断用户输入
.判断循环首 (判断计次 ＜ 计算机名长度)
判断计次 ＝ 判断计次 ＋ 1
字符 ＝ 取文本中间 (计算机名编辑框.内容, 判断计次, 1)
.如果真 (字符 ＝ “`” 或 字符 ＝ “~” 或 字符 ＝ “!” 或 字符 ＝ “@” 或 字符 ＝ “#” 或 字符 ＝ “$” 或 字符 ＝ “^” 或 字符 ＝ “&” 或 字符 ＝ “*” 或 字符 ＝ “(” 或 字符 ＝ “)” 或 字符 ＝ “=” 或 字符 ＝ “+” 或 字符 ＝ “[” 或 字符 ＝ “]” 或 字符 ＝ “{” 或 字符 ＝ “}” 或 字符 ＝ “\” 或 字符 ＝ “|” 或 字符 ＝ “;” 或 字符 ＝ “:” 或 字符 ＝ “'” 或 字符 ＝ #引号 或 字符 ＝ “,” 或 字符 ＝ “<” 或 字符 ＝ “>” 或 字符 ＝ “/” 或 字符 ＝ “?”)
信息框 (“计算机名不能为空,或以下字符:” ＋ #换行符 ＋ #换行符 ＋ “`~!@#$^&*()=+[]{}\|;:',<>/?” ＋ #引号, 0, )
返回 ()
.如果真结束

.判断循环尾 ()
' 修改计算机名,修改到以下几个注册表项
.判断开始 (写注册项 (#本地机器, “SYSTEM\ControlSet001\Control\ComputerName\ComputerName\ComputerName”, 到文本 (计算机名编辑框.内容)) ＝ 假)
信息框 (“更改计算机名失败!”, 16, “错误:”)
返回 ()
.判断 (写注册项 (#本地机器, “SYSTEM\ControlSet001\Services\Tcpip\Parameters\NV Hostname”, 到文本 (计算机名编辑框.内容)) ＝ 假)
信息框 (“更改计算机名失败!”, 16, “错误:”)
返回 ()
.判断 (写注册项 (#本地机器, “SYSTEM\ControlSet001\Services\Tcpip\Parameters\Hostname”, 到文本 (计算机名编辑框.内容)) ＝ 假)
信息框 (“更改计算机名失败!”, 16, “错误:”)
返回 ()
.判断 (写注册项 (#本地机器, “SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName”, 到文本 (计算机名编辑框.内容)) ＝ 假)
信息框 (“更改计算机名失败!”, 16, “错误:”)
返回 ()
.判断 (写注册项 (#本地机器, “SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Hostname”, 到文本 (计算机名编辑框.内容)) ＝ 假)
信息框 (“更改计算机名失败!”, 16, “错误:”)
返回 ()
.判断 (写注册项 (#本地机器, “SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname”, 到文本 (计算机名编辑框.内容)) ＝ 假)
信息框 (“更改计算机名失败!”, 16, “错误:”)
返回 ()
.默认
信息框 (“计算机名更改成功.”, 0, )


[/e]

补充内容 (2013-12-30 15:49):
计算机名不能为“空”和不能超过15个字符

1468848161

之前发过改描述的，这次改描述+改名称（电脑无需重启立即生效）win7有效10不清楚，喜欢的自己拿去玩。

y2j423633

SetComputerNameA这个API可以直接兼容XP和WIN7么

９天

好吧算是少用

bs80119514

SetComputerNameA

御风软件

这个功能，没有什么用，不添加