'================================================================
'=　コンピュータ名の変更
'=    (SetComputerName.bas)

'================================================================
#include "Windows.bi"

' コンピュータの名前を文字列として取得
Declare Function Api_GetComputerName& Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer$, nSize&)

' コンピュータ名を変更
Declare Function Api_SetComputerName& Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName$)

Var Shared Text(2) As Object
Var Shared Edit1 As Object
Var Shared Button1 As Object

For i = 0 To 2
    Text(i).Attach GetDlgItem("Text" & Trim$(Str$(i+1)))
    Text(i).SetFontSize 14
Next
Edit1.Attach GetDlgItem("Edit1") : Edit1.SetFontSize 14
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

'================================================================
'=
'================================================================
Declare Sub MainForm_Start edecl ()
Sub MainForm_Start()
    Var pcName$ As String
    Var Leng As Long
    Var Res As Long

    pcName$ = String$(250, Chr$(0))
    Leng = Len(pcName$)
    Res = Api_GetComputerName(pcName$, Leng)
    pcName$ = Left$(pcName$, InStr(pcName$, Chr$(0)) - 1)

    Text(2).SetWindowText pcName$
End Sub

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var sNewName$ As String
    Var Res As Long

    sNewName$ = GetDlgItemText("Edit1")
    If sNewName$ = "" Then Exit Sub

    Res = Api_SetComputerName(sNewName$)
    Res = MessageBox("", "ｺﾝﾋﾟｭｰﾀ名を変更しました！" & Chr$(13,10) & "再起動後有効になります。", 0, 2)
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End