68.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

设置计算机名称

声明：
Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long 
使用：
NewName = "Hello World" 
SetComputerName NewName