dspfans 发表于 2018-12-29 19:35:52

学习学习学习学习学习

xieeyawen 发表于 2024-12-30 11:51:20

怎么加域啊，大佬

xieeyawen 发表于 2024-12-30 11:52:00

本帖最后由 xieeyawen 于 2024-12-30 11:53 编辑

axlCmdRegister("abc" 'HelloWorldMain1) Userdomain == “CC”; 怎么加域啊？这样好像不行啦
defun(HelloWorldMain1 ()
if(rexMatchp "CC" (axlGetVariable "Userdomain"))         
then
(a = "**************************************;Hello , everyone!;Skill Programming Language.Is So Easy!**************************************"
b = parseString(a ";")
foreach(mapcar x b println(x))
));end defun

xieeyawen 发表于 2025-3-12 16:29:07

怎么改域名，或者绕开域名呢

xieeyawen 发表于 2025-4-22 16:43:59

本帖最后由 xieeyawen 于 2025-4-25 17:24 编辑

/* 取的MAC&ip4 address Function

*/
axlCmdRegister("getMacIp" 'getMacIp ?cmdType "generl")
procedure( getMacIp()
prog((p a ln macid ip ipid)
    system("ipconfig /all > ipdata.txt")
    p = axlDMOpenFile("TEMP" "ipdata.txt", "r") ;从读ipdata.txt这个输入端口获得里面的字符串
                while(gets(ln, p)
                        when(index(ln, "\316\357\300\355\265\330\326\267") || index(ln, "Physical Address" )
                        macid = car(last(parseString(ln, ": \n")))
                          );endwhen
                          );endwhile
                while(gets(ip, p)
                        when(index(ip, "IPv4 \265\330\326\267") || index(ip, "IPv4 Address" )
                                a=parseString(ip, ": ( ) \n")
                                ipid = nth((length(a)-2) a)
                                        );endwhen
                          );endwhile
                axlDMClose(p);必须关掉端口才能输出，不关掉端口就相当于txt文件是空文件
                deleteFile("./ipdata.txt")
                println(macid)
                println(ipid)
    ); end prog
); end procedure
页: 1 [2]
查看完整版本: 如何获取计算机的mac地址的代碼