获取本机IP

SetCompressor lzma
OutFile "Test.exe"
Name "获取本机IP"
Section
 System::Alloc 400
 Pop $0
 System::Call Ws2_32::WSAStartup(i0x0202,ir0)i.r1
 StrCmp $1 0 0 WSAStartup_failed
 System::Call Ws2_32::gethostname(t.r1,i1024)
 System::Call Ws2_32::gethostbyname(tr1)i.r1
 System::Call *$1(i,i,&i2,&i2,*i.r1)
 System::Call *$1(i.r1)
 System::Call Ws2_32::inet_ntoa(ir1)t.r1
 MessageBox MB_ICONINFORMATION|MB_OK "$1"
 System::Call Ws2_32::WSACleanup()
WSAStartup_failed:
 System::Free $0
SectionEnd