ThaiPBL.com

PowerBuilder Library Thailand

อีเมล พิมพ์ PDF

เปลี่ยน ชื่อของ Computer

สวัสดีครับ มีฟังก์ชั่นเล็กๆในการเปลี่ยน ชื่อของ Computer โดยอันดับแรกให้ทำการ declare function ก่อน ดังนี้

ให้ทำการ declare ที่ Global External Function

FUNCTION boolean SetComputerNameA(ref string cname) LIBRARY "kernel32.dll"

สำหรับสคริปต์ที่จำเป็นก็มีดังนี้

boolean rtn

string l_name

l_name = "PowerPIGS"

rtn = SetComputerNameA(l_name)

if rtn then

Messagebox("ชื่อ คอมพิวเตอร์เครื่องนี้เปลี่ยนชื่อเป็น 'PowerPIG's ","กรุณา รีบูท เครื่องใหม่เพื่อจะได้เกิดการเปลี่ยนแปลง")

else

Messagebox("SetComputerName","เปลี่ยนชื่อไม่สำเร็จ")

end if