//得到計算機名字
function boolean GetComputerNameA(ref string lpBuffer, ref ulong nSize) library "KERNEL32.DLL" alias for "GetComputerNameA;Ansi"
//設定計算機名字
FUNCTION boolean SetComputerNameA(ref string cname)LIBRARY "kernel32.dll" alias for "SetComputerNameA;Ansi"
//設定系統時間
Function boolean SetSystemDateTime(integer wYear,integer wMonth,integer wDay,integer wHour,integer wMinute,integer wSecond) Library "mHand.dll"
FUNCTION int GetSystemMetrics(int indexnum)LIBRARY "User32.dll"
//通過域名得到IP
Function string GetIp(string name) Library "GetNet.dll" alias for "GetIp;Ansi"
//得到本機IP地址
Function string GetLocalIp() Library "GetNet.dll" alias for "GetLocalIp;Ansi"
//通過ip得到域名
Function string GetName(string ip) Library "GetNet.dll" alias for "GetName;Ansi"
//得到本機域名
Function string GetLocalName() Library "GetNet.dll" alias for "GetLocalName;Ansi"
//得到局域網內的計算機名
Function string GetLanComputers() Library "GetNet.dll" alias for "GetLanComputers;Ansi"
//得到局域網內的計算MAC
Function string GetMac(string ip) Library "GetNet.dll" alias for "GetMac;Ansi"
//得到本機的計算MAC
Function string GetLocalMac() Library "GetNet.dll" alias for "GetLocalMac;Ansi"
uj5u.com熱心網友回復：
你不是都寫的很好了嗎？uj5u.com熱心網友回復：
GetLocalMac() 只能獲得一個mac,無線的獲取不了uj5u.com熱心網友回復：
Function Long GetMACAddress(Long lana,Ref Long addr[6]) Library "GetMAC.dll"Function Long GetLanaID(Ref Long lana[254]) Library "GetMAC.dll"
long ll_mac[6]
long ll_lana[254],ll_lananum
integer ll_nub
string ls_mac ,ls_login_mac,ls_macs[6]
long ll_numb ,ll_login,ll_ms
ll_login=1
ll_lananum = GetLanaID(ll_lana)
if ll_lananum >0 then
for ll_numb=1 to ll_lananum
if GetMacAddress(ll_lana[ll_numb],ll_mac) = 0 then
for ll_ms=1 to 6
ls_macs[ll_ms]=trim(inv_numberical_reg.of_tohex(ll_mac[ll_ms]))
if ll_mac[ll_ms]<10 then
ls_macs[ll_ms]='0'+ ls_macs[ll_ms]
end if
next
ls_mac=ls_macs[1]+'-'+ls_macs[2]+'-'+ls_macs[3]+'-'+ls_macs[4]+'-'+ls_macs[5]+'-'+ls_macs[6]
exit
else
ls_mac='1234567890'+ls_user_id
end if
next
else
ls_mac='1234567890'+ls_user_id
end if
uj5u.com熱心網友回復：
最笨拙，而又簡單的方法執行批處理命令 生成到檔案 打開檔案 找到要的部分 洗掉檔案
run("ipconfig/all > aaaa") //你也可以生成到某個制定的地方
然后決議這檔案，最后別忘記洗掉它
可能需要post方式執行，即把放在佇列最后執行，因為run還沒有被系統執行完，馬上決議檔案，有可能不存在
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/11636.html
標籤：API 調用
下一篇：求助大神，出現這種錯誤怎么辦