十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
不能,那应该是开外挂或是假的
成都创新互联公司基于成都重庆香港及美国等地区分布式IDC机房数据中心构建的电信大带宽,联通大带宽,移动大带宽,多线BGP大带宽租用,是为众多客户提供专业服务器托管报价,主机托管价格性价比高,为金融证券行业双线服务器托管,ai人工智能服务器托管提供bgp线路100M独享,G口带宽及机柜租用的专业成都idc公司。
你用号源改吧
沙僧。
eNrtWVuP00YUfusDf6EvUd4Bz/iSWFoiFbVISCuotPT2hJzYuXjtJGS8ZB0dEHRpuah0gaXlUgqt2kIphVWXFhZ2gT+zjpM/UXXGuWCvnY0N2XYfmmid7OSb882Zc+b45Ms7f787RZTj2qemkbLsurYvfTivawUrnSoppibwsrwvbTXmtHRuVyo1RTZhqhSzL12dMwzv85GIuqHYWgMfreX1PtAHnbEalWppCNWsGbqe9N4xuMJcg+H6g+PQeaWk6gnwbEveVyzqNuYQ3s2h3Vx2ai8Zz0JaW7IcmjPzWmOAN8ofKwbbWyxyUdaDaOrxtHZco1uNxoNNmxRqDWo60vB7jYZiD6AVQqw51SazlWEYtwilL9hbLmC+aPQW61/AVjvO6A/Rt693jWL9U3fYgmIF7IP5ejonYm58FDy6vD2r2WPTplCrWo2a8aF3qGJlg2d8umJWLLqaGAlRVwipHNdGpkTQei8CXHSwdjx0/LFWCtYRhcyOjQuNiVZRRxy5TSd/rjCrKpZCj34MfsPw+HOIA8RxwAGryFBUDKKdkL0h9ucNssuJLGARJMEPy9BZYmCiFBoRQyMCMxQY4UMjeNMcFPw/VtUM18zhtOGk/TW6vUp1MKuskJJG05kxhcHBEsFuZTO9cjjmnBjoKIoVQGLwR3FsJB8TKcRmF2MjUex1SrFtZhKwx/U9G9smjo2UE9jEsZF87LgH2MNZGrpd7K+UZiylRPNUCKODp6asHqwWa8PjspXJUNcwAt3r0uhYJDaqo0NJOrqcWavS2xsPvJjpX7DMod6Fz4AkoowEQoZWNIRoReMFkCUesiL7lAeZjoEIAvD01SKmcdIs6oWTRVI1ThKzVaQXvTC+2gT7xpwA7cVLzs833RfXnEtX2ueugKUaLR1aeVIHcBZXUp3la8DNSxLHyTKIkgys2kqAWEXtPb06N/LKEAgoeg9i72lNdS4+dVavu2uvug+vgm4YJmUr6tBeueEs3AtzCjgDAu+ZwZ41TJ8xOfuM3aUnzvqz7tnLzvoS2KpeoozNYyMZvel0673pezhW8PlEjAjcPx9Quu7SQnfpO2jphsp8zEfsqCTRqAr0jiVJNCeGezq8mUVwsdvgngygATjWLSbQ/ucQOA/vOPe/7Fxcds5/DmbdZiFv0pC3bzxKdU/dpAs84D2GK4oXbeSlR2YIP4FYcrvP77lX7ziXX7h3HgMxCd8nc1depjrnlykZRx+JyXiPjM+GyGhitR9/w8jM4mTJRL9nXCCxnHNPNl7c2nh218uwVov0eSPTK+mOYhx28vqK8/JH5mTRnrCTfIisfXXNObvGyEr6ZMmE1+ETwf36THfpNDTr89Yk81HCPo72b6fat36lHJY5SQ4s+Dg2Vr9311YpBylMkAOLviwA59lq59Ul9/e7bLvs4iR98Wc5uL/cbp++3+PJqxPl4VEo0Zz1585X37JEa9aPlWmqeS+TSmwxwCeE+YQB31ueWpYMmENB/3CYDw/4Ntavp9x7pzz/DhzguIR8uJeD/rihMBsasE0mSxLcgf5lQUmUJSxmcBJRKSMmUJVkkRNoTf6vtSUxqZST09UWmCqBptpsQlAw2A6tKfkCrVkdTHP02uLLTok0p7dwPegKNUbSuc9G+b1JjdE0dbpMu/DEmlyOBXCC8Yty4mAyJ/g3CvY2+zCdzAcpeSBosm6zDx8l80Hk3qQqbLMPh7c/Dip5i5oRlJS5nSEpi/EV3R0FnbykLCSRlOX/JeWApMy+7T/6qXPhj87lB50Ld2G+XDb6ckSoq+YxE3lEEGXAm7vBaE2C7SD4+lzWW9LW0r15pn3rnHv+RndpBeqWatuFgOgS2YEiznug2I1oT3bxcd9edhafuKf/gll74GOos8aIOsfLQL95omyUj9GSS5Do6VPniwV38aK7+MPG+m0o270v/JGbmkUCCAI1wbPNja/xiAHK2JKSnEWQZc7Jol9S8pvfTO3RZSMkpXGaae9nCFJrNOzXqungpVKq0m75k3LF0mj9K2j9HytCw7vohN5v8Ll/AK//pds=
悟空
eNrtmu1v00YYwL/tA39FlO8Qn99iaxBpaENCqmBS9/oJObHz4tpJiF1SR9eq5WUURGmh5aVdoWNsdIxBRdmg9AX+mTpO/ovd2U7jxE5js0RD2hLJSa7P3e+e55577rm7fjJz49PjmnBB+k5VYrpRlk7Ez6ZlKaPHYzlBlWiK50/E9cq4FE8dicWOa10yRSRzIl4cVxT77z0lcFujmVJFcsU8gmfG1bRUaQlqCjgH4inieELrK8mGlgTnyJCSyQhtUiEludBtkqEl+QhtkqElw2pEhaZToelUaDodms50Sra/tCqcLJUUSSi2auQFLSfp8RR2eL/wqF4pFHMHsuLpYrYUTxzq92VFMKQKOFdKy/08X8l/Iyh4nrEEy3IE2V8/1dCcKcWzgGGZwBqdfU4LOa02ima7W5zoQ8iMV76YKIcyNhIdkS5IKA4kmRBDM1ZQlJGCWkDGZvr3GweozwUdqUoSgDxKgKMEH1Trs0pFMFqVCpqmj4uGjTowfpgYdmjPJ7KKo6a324d1HePPoK/xlCzWoCpqsCpWq7CjduePf62D+pgMVbV33/oPVFnSsXvFU2qpOCYZFKRYhnEeJJ/knAeFPhkSAEjzAAJAQ0BQNORZCnIMgFSSgrgcMpCGFPrUNVWZUrNyZiqrFZUpTa1l0UPO9HUAW7O0gfoxuOEvSpI4ko+naCKydfGwh6uEeqzFU98PzUVaSlAf5CJRdDg9dB3Y6AOBXDyKDiND14EhPiSWRNHh649yHEQtig5no4SlrsWpVNQrJeVLezUOtZwp45kxUdAFtJyFWGjKgqYVLkg9l5ouk9mmZYJH4aMXDZVleHKMFA2bj/astVfNq7fM2RVY1eQcrKWzMjSvPKvP3obm/GassXEPEhMsSxA8DzmahiRaFjgOAgYS7jsrKJrU84klAExC4hjA3ydpaP35DBN3p82XL+t312FNHtOyCFw93xOMG+FJl0eFZ9pEAOvLL5rTK9bK5frqrHVtubm4Ccu6aBgZh1rfXDYvrWOpGBJD1FP2y2mGsF/gQNtwbFcWaWvOvTG37ls775vPl6CsKKpjYpfp05Qmk5Cm7EYcfUn0jqItsu/2z42bm/U7y9bKVZhX5Lw7qEsLgUSSJSEDWMijVsCBiaMhzXurSL36g7sQJQHuUPbAOUZt2zMqqrn42tx9azvQIjRE22XbYxiMYymn+jGCiUwE0HzxuHH9ZePWs8b1J3Ain1ewPdMQWpvvYo1rG4iFPQT5C0XyEKX7kEFG7XYXvHFxHl4UwKS2tyBPfbhhzr+2Zv6CY0aLs797P2atT9ucU6cI5BIAASjkK2gackEcv05+0Js35pVL1vycNf/T/u5DmDdqNa2XYhya8zSNmqCwggfEYJ3awGNMB9KZ983FS83FH9GkV0QX5xszngMo1CDleJShBseZbrSN49q4/usIWnWkghhPgf5hU8joXwnaWMCmzBdeRdkbYFHw6JiN5uzr/b3V/bdP7GnpGLxahsFeS4QOOcCeUiTVtjXiekN7m4tj/KC5pGeMzedr5tMfGnMb5rWLUC0bsksKjK1RSUnCoyHaj1jb69bSmnkLK4oCj0a5MJ//RoNRNozifDAc4l7dwTA1O1gYQ3SOnSfGtccOB7shjl1Lyfub5rtHWMmsMWAlKR+svrRjXt3BsJw84OE7MMgkA62bl5uLM7BantAH6Y8E6WHUf5+ur/6GGLo6SAYFPIz9rQfWzhZiaJlBMkjWO4PfbjXeL1h/PMHmMrKD5Hi9HFq/PqzPPHU4aTE7JJu1HM3c3TZv3MWOVi2fzyNXsz+G49i0n0e3eP9w1tI4ISRBZxwk/TyyxfPlDtF4pJOseUIhBH4aGJB2rpfQhy3iXSuzotgrcwrY87GVk9jNTfJ2EUh6yzinjPAkL5NJ2FWR7S5gugvo7gKqu4Ds/IkSGs/P/oplxiudOzUneWrs7VhLmyh5Oi+724iLa9bTbb/hWZStkZy9f2CjbtQ6tmnNO0sodNYfzyFoWm8l2z2ouCrLeXPtqND6/IL5y4q1d89cuI13grqo1LCqWtCKx7C87TEsHuQP241GyEpZFkAGZaUky3qz0r5JcDIgK/VfYfjO7E8WcqO6kJPQ4IeTdg/5QT9p5+YDlYWQda5dtFKlYgRKB92pkJHuVEiGiHCfQgzvJoUhiUiXKeA/cZcS+ewwMeS7kwF1KPyFSSL0VUYi2lkniHLWSQ/prJMIf9T4UYlGPetMhDwNIIZ3GpD4P5fxmMGt1voo5IoowH+bL+gS8uOM5F70+4qPoArO/8Sk/gYpPTvV
八戒
eNrtWltvE0cUfusDL/0Llt+BndmLdyWwVNRGQoqgUnp9Qmt7fcv6Eu+GxNaAEijlooYkJOGSAinQklIKEaGFkAv8mazX/hc9s+vLrteOdxMH8dBYHseTM+eb71zHnnw2Pf/5CU0+r/yQU0N6uaicDJ+NZZW4Hg6l5JzCsZJ0MqyXxpVw9EgodELrkMmDzMlwflxVrb/3lCiqclkp4XOFWLYh6BAd0UuZfKolqugjsJ/wcY/cmfFcTCk15dTx+GhC1uVwlD9xXOujlDL8UtaBBWYQPsqgo4jtvyomp+hWGpP9NhQfLw0r5xWwBOqvGoT3VO3ZSCK7p/wXpZJcbopnNE0fT5S10UzLL3v4xuG9PflNJlWbHuOgt5fNKfwZ+LW9XZB1Lv3ENuQrILSKfz9YgLHyqFLuHzyFvF4qqF9bedIjgjp8XJQ1LXNe6ellN4BtVKa7/T950W7mcK/JlbV4oaR0LOvuRllVv5G1UTAzQziGMIQWOJKUVU25IMFblnPOiAQJhMfOqQgIYdY5IxDMEyQ5p3g6hSPOKY50oLGdE9j9Frne9rcClJWvJotQEjHD9JeGgFMyiR4m66i26e9klXYBzPuQtmJyOJPL6L6qsxzXLX80kqS1oCV+qgA7lfNN+bSspRRQTS3jFXZvxZbVCqVS2ZlWve13KpPylPEehYp2yBE76vrYQ+XOIV921lT2HOtbEvuURAHQ/UpKviVF35LYN/dIAJ1+rSQE0Il8W96/j/xy593o3ih1Z1c6cTqfLLSSq7tW+4AGc76TZESXUxD4XL8ksTWjIEe/aLpQ0hQW6jDbGDgB8fYQiRCOY0Qi8iIUV0x4ViARjOHJg6hIJIlgwsGTltYLuUIeui8oEXjeHrAUEe2BhVde4gTCSYggxBHEQOGXBBZ0I8JGWCIxBBHAtXTpWk69mEtm4xeTWl69qOUqSRiycR+1s3VSRcLHOapGETH/eV6/Ol9fuFxf+JVUsmqCVGLJGCHG7HqotnaHMJOCwDBgLUlERATDIQksxFv9iD6shtMYrQ7UbkNgKIKOwYqmMLSp6tu3xpXL5uyMOfvb7vZDki5XKloD0lx/H6pdXwNIBn6GhogIxgYnEsRKhBdakJ0wztGC5F2QxssntRuvavPPazeeksl0Wu0Fx2IKwxMeQoPpINgdk6I5sFhSf3Brd3O++nqp9niGjJWTRYqVJcbinHF51YtIieEINSbX1aDekUq0ATlSf7RjrrwGDxrXlsmElk01AK88r1675XWiKEDII0sJHxTxGNonJpxtkCQFx0QOTOPO/fqLxeqD2wQSCvAmxppG9eBZi5mWkSAp/YBFWia1M6K2s2UurkNGjGVtetVLK+azTS+cAAGKRboYC4HotRGNmbfGxl1z6wNQJFlVzTUQ1+91JciBQTnWUoItHRgeATluPq7dXK8u3TOXr5K0mk274tSDiAUooHC6pYUOHcis9aXF+sJ09ckMWDamp2xP9jItXSqItoZjDL8Py9YX3hjb72iobi+QciLbBOxhWWu5wDoRg9GEAvdwzZh9Y07/S0bLzUqzu303ZK5OWXk/NMSAw+ATAIbcp+VU7FZpuhe2dub7OuE3jqcRPujXDEHagiBA6wMeWBCcbaFvjY4cqIxxtIxxRBSD1pSIo6bYHI3tKePVq+rtVaA5qiUbtaUHMFUi4VYGBA3H6uyc8fuyuXPHmLtF9esJtULLi1bsYllesGomIxAU2R9HX8cB1xdG8EmXcRUH49qb3Z37u++eWlXC7tUT3XbLdDz23iiymGG23aYB1xkEbVwaDYPGZZzHgxcrxrOfazNrxvVLJFcsZxtI1XsvQ/WpZUAasn72hSTwDoZwWDQ3V83FFWOeEoVOprENMM/JIBgYa4GxogeM9szXSxQslxwsGM+4fecotG3f0Yo7aN9hL8m768b7R5RksjxgkqwHrLq4ZVzdomCp7IDd1zLIBZ6YN3+CPkkmipP64OJRdDiNJ9W/pqr3/wQIPTfIkG83AcDY3Xhgbm0AhhYfKIbrfP9uo/Zhzvz7KbVWOTlIHM6RUcT842F1+pmNE0sMFAdLnjgztjeNX27TOJsojqUh0qyXQcW1O4k4Lx7XxDtg0tLPNRgz7sqEvXi4iec5KwXDw/bhX3D4DXnR0IDYoY4q4ePb+EO9ceGDXnBEtXJljFQq+TRxf+F+GNcvwXen5+JkMjVGsnBA6rW/w7yNOYAN3FsAZVo4OrwfA/Ra03EVoiiJ4XQ4yjID9GM3DqcDcwAHBuPA8YfM4cfAHGiGBCOBD9sRZ/eV68FI8IdN4tvAJKAUBHQEH6Ry7HnbyhzSbSvv/7LzkxINcNsqCYIkIvH/O1dfdzfNC1c2wIWrgFBEEsSPdOnafMmk8uDf79MZXYHQjyuNu1bP9BFYYP/3UPQ/fDuyUA==
唐僧。
eNrlWmtv01YY/rYP/Ioo32E+x5fEGkQa2pCQKpjUXT8hJ3GudhJil9bRAbVcRkGUFlou7QodY6NjDCrKBqUX+DN1nPyLneNLYsdOY7O0QiKRnOT09XnO816ec3xOP5u68cVRRTgn/ihLMVWricfip9MlMaPGY3lBFhma54/F1fqYGE8disWOKj02FWxzLF4ZkyTz730tapKgiXV4ppou2YYu01NjclqsO6b1qiQWs/EUdfRzxWc6qtaLlbxjKmTUbwWlHP98gF1ayGdLo5ik3RzCPoJ1Zqy+p7WXnlT4XpCIOyEbyNBrLWtKploXQ3kDj1ppRBgJHvfXE7V4ioVUiJFg6xHxnIjjDAYbK+WiJI0U5aKKux88cpJ/XwkqcQoF4GEKHKb4oLu+rNcFzbmpqCjqWFYzoTo5FSZF9x4K6e4U/tp13x48J3KS5RO3A7G158fHNaDB0aiJKsmigPzx+N8cWFori9rgTKtWVFzW35giECqBpLFMOSuoQjzFhEiEmqAoxXNi31Tw9m15ngoO0kdvGkIVJclUxRSgEKAoRCGi3ygnSIp4njebQMLdlrTaKNuQXM4nUM+NXG8D29vA9DbQvQ3Q+xOgpOtnh1j3S7BPrLkEt7kzqb9qHS/mR1UhL7pTaU9rn8z1qWAyP45a6jxADSX6DOgj4X5LGNqSDmnJhEZnQ1uC0JZchD7Dck9E6DOsl5Kh+4ShLfkIfcLQlh5G/iw9XsUrKKHi3FEQlLyI52FSaX5jr3QUsicruaqj532GYHWoVOt1LUSVWNUKoqz84P6t/FJE5YzN31o315t3Fo2lq/r0692d5d23T1BBKhUaDQU10uM1hPTZ9Vhr7R6iJjiOonjelDL329SsvleAiKBC2jE/T3Dbj3aMlVftq7f06aUu7rhSyg8bF3Zxkf58RX/6c2tmTb92Eck1rWQjNRdfxNqTSxjphPn6IKQE5WIIEG1srhoLK/otQhQpskLbYMb6u1jr2hoGo/ArMhhtgtFJH1j7+ULz1R0CJueGC8ZS3tjNv9a335LYbc93Y6dl9zV2Dsn76/q7R4RkThsySdoH1lzY0q9uEbB8acjh6zgErx2Mm5fb81NovDahDjMfKejCaP412Vz+E2Oo8jAxaODC2N14YGxtYAwlM0wMyLkr+O1G6/2c8fcT4i4tN0wcd5Yj44+HzamnFk46m9snnzmJpm9v6jfukkQbr50t4FQzP/YnsRk/HuPg/c+qJateCIFXB6EfDzp4u9v3Y8bqpMnvxAmKiogHTX7AJYUI+NHAkNjZWcI45qF2IdzzLYOMf55h2WztbBkL66hROkvmn1wJNS+uGE83/ePjGOzPJAHr1sCAQRILgBK2PxzE9p0FrDDNxzMYNK3mSTaf7YtKbuVsnx6h2A8AdU/u5pxu0dSvPGtO3/YDJhkGQcCgJH74YqPyPAI8TPXtSf3ly+bdVcy0rOQspv2ASSe8o5J0RJqAqAEWA2PpcnN52ri22J5fRzU1q2kZ27/ri/ql1WDNAJT5AqGTz8KmOi7WZ97oG/eNrfd41kclSZLtTLIwfUwZmEAMbXZi8YX4HTGorlnfnOw9LAN9CzjanUZ0RP/qLx63rr9s3XrWuv4ETRQKEuGYDlBFGvKI5VjE8gj2OrTzGO+tZYLk0mHUfLimz742pv5FZc3B8akTBBgAT90MTtRkEE6AaPiA3rzRr1wyZmeM2V93tx+igmYtmgKJJXFVMFgEAE0IdhCDOXUBj7AeSFsD5i+153/BZSFlbThfzPgkwMWIyfEsooMrsRfahEt24QaLoneLmIii6xHEfPKw1WJhLjCxIAcRCzjEY2TQqd1ouazfWyar5Qd38bq8YWtEHzirWruFGjWJQzuf4wBisfMhx7mdPzDWCY8uNGfn9N+XjJ17+txtonlqVmqQWUYJWpOzHG+y48gm2AfpbojdS2ePn6M4LknBCPv8PAdwVcP92+2PtNWfYD+Nvf5UKdtAclZB49nxceTZmB281c4ewN5/Si2XkCwPb2zhjwFScrVSFjUa0RzLWhfIJ5LWBT+SQxZiTWJ4LPlYufFSn0E8ngOTLF7mJ2hE2hGLl8k0/lQVWbog50qZCzmlIl3AQpTDl1JmYAK4Dhv2w7sk7P08670Jj0CJp34KF4aKKGZHCljvqQNKkSgcTkbjQB9ImuMUj8JhJBoH7kDigLUkCofvonFgD4QD1sIoHE4PKw4hJifvWSIV5SwxsU9niWz4o7yPyvSTOUt0Por5Cl5l/VAoqiIOdEa0D0V8zYfwDdb/xKT+A2liO9Y=
用flashSolEditer改
VB 我不熟,下面是用汇编写的,我运行过可以的。
//--------------------------------
.model small
.586
.stack
.code
idstring db 49 dup('$')
start:
mov ax,@code
mov ds,ax
lea di,idstring
mov eax,80000002h
cpuid
mov dword ptr [di],eax
mov dword ptr [di+4],ebx
mov dword ptr [di+8],ecx
mov dword ptr [di+12],edx
mov eax,80000003h
cpuid
mov dword ptr [di+16],eax
mov dword ptr [di+20],ebx
mov dword ptr [di+24],ecx
mov dword ptr [di+28],edx
mov eax,80000004h
cpuid
mov dword ptr [di+32],eax
mov dword ptr [di+36],ebx
mov dword ptr [di+40],ecx
mov dword ptr [di+44],edx
mov ah,09h
lea dx,idstring
int 21h
mov ah,4ch
int 21h
end start
//-------------------------------------------------------
程序确实可以执行,输出CPU的ID等信息。
注意:DOS下或MS-DOS下使用。
通过Microsoft WMI Scripting Library就可以了,你试一试在工程-引用下面引用 Microsoft WMI Scripting 1.2 Library Dim s, System, item
Dim i As Integer
Set System = GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem")
For Each item In System
'List1.AddItem item.cputype
s = "Computer Info" vbCrLf
s = s "***********************" vbCrLf
s = s "计算机名称: " item.Name vbCrLf
s = s "状态: " item.Status vbCrLf
s = s "类型: " item.SystemType vbCrLf
s = s "生产厂家: " item.Manufacturer vbCrLf
s = s "型号: " item.Model vbCrLf
s = s "内存: ~" item.totalPhysicalMemory / 1024000 "mb" vbCrLf
s = s "域: " item.domain vbCrLf
s = s "工作组" item.Workgroup vbCrLf '获得工作组和域的选项不能同时用
s = s "当前用户: " item.username vbCrLf
s = s "启动状态" item.BootupState vbCrLf
s = s "该计算机属于" item.PrimaryOwnerName vbCrLf
s = s "系统类型" item.CreationClassName vbCrLf
s = s "计算机类类型" item.Description vbCrLf
' For i = 0 To 1 '这里假设安装了两个系统
' s = s Chr(5) "启动选项" i " :" item.SystemStartupOptions(i) vbCrLf
' Next i
Next
Text1.Text = s 把上面这些代码放在一个按钮的Click事件里,并在窗体 上放一个TEXT叫TEXT1,并把text1.MultiLine 设成True,把text1.ScrollBars设成 2 试一试就知道了
使用wmi
类“Win32_Processor”中LoadPercentage属性为当前的cpu使用率
示例代码: Private Sub Timer1_Timer()
Dim WMI服务 As Object
Dim 对象 As Object
Dim 子对象 As Object
Dim 电脑名 As String
Dim 刷新 As Long
刷新 = 0
电脑名 = "." '表示本地计算机
Set WMI服务 = GetObject("winmgmts://" 电脑名 "/root/cimv2")
Set 对象 = WMI服务.InstancesOf("Win32_Processor")
Me.CurrentX = 0
Me.CurrentY = 0
For Each 子对象 In 对象
If 刷新 = 0 Then
刷新 = 1
Me.Cls
End If
Me.Print 子对象.Name "[" 子对象.CurrentClockSpeed "Hz] 使用率:" _
子对象.LoadPercentage "%"
Next
End Sub
Private Sub GetMyIP()
Dim strComputer As String
Dim objWMI As Object
Dim colIP As Object
Dim IP As Object
Dim I As Integer
strComputer = "."
objWMI = GetObject("winmgmts://" strComputer "/root/cimv2")
colIP = objWMI.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IP In colIP
If Not IsNothing(IP.IPAddress) Then
For I = LBound(IP.IPAddress) To UBound(IP.IPAddress)
MsgBox("IP 地址:" IP.IPAddress(I) Chr(10) _
"网卡类型:" IP.Description(I) Chr(10) _
"网卡地址:" IP.Macaddress(I))
Next
End If
Next
End Sub
这是C#的,你可以转换一下
using System.Management;
//获取网卡的系列号
private static string GetMacAddress()
{
string ret = "";
try
{
ManagementClass cimobject = new ManagementClass("Win32_NetworkAdapterConfiguration");
ManagementObjectCollection moc = cimobject.GetInstances();
if (moc.Count == 0)
return "";
else
{
foreach (ManagementObject mo in moc)
{
if ((bool)mo["IPEnabled"] == true)
{
ret = (string)mo.Properties["MacAddress"].Value;
break;
}
}
}
}
catch
{
ret = "";
}
return ret;
}