NSIS检测端口是否被占用

Share

1. !include LogicLib.nsh
   
2. 
   
3. !define AF_INET         2
   
4. !define SOCK_STREAM     1
   
5. !define IPPROTO_TCP     6
   
6. 
   
7. Section
   
8. ;Initialize Winsock
   
9. System::Alloc 400
   
10. Pop $0
    
11. System::Call Ws2_32::WSAStartup(i514,ir0)i.r1
    
12. StrCmp $1 0 0 done
    
13. 
    
14. ;Create a SOCKET for listening for incoming connection requests
    
15. System::Call Ws2_32::socket(i${AF_INET},i${SOCK_STREAM},i${IPPROTO_TCP})i.r1
    
16. StrCmp $1 0 Cleanup
    
17. System::Call Ws2_32::inet_addr(t"127.0.0.1")i.s
    
18. System::Call Ws2_32::htons(i80)i.s
    
19. System::Call "*(&i2 ${AF_INET}, &i2 s, i s, &t8) i.r2"
    
20. ;Bind the socket.
    
21. System::Call Ws2_32::bind(ir1,ir2,i16)i.r3
    
22. ${If} $3 = -1
    
23. MessageBox MB_ICONINFORMATION|MB_OK "bind() failed."
    
24. System::Call Ws2_32::WSAGetLastError()i.r3
    
25.   ${If} $3 = 10048
    
26.     MessageBox MB_ICONINFORMATION|MB_OK "80端口被占用"
    
27.   ${EndIf}
    
28. ${EndIf}
    
29. System::Call Ws2_32::closesocket(ir1)
    
30. System::Free $2
    
31. Cleanup:
    
32. System::Call Ws2_32::WSACleanup()
    
33. done:
    
34. System::Free $0
    
35. SectionEnd

复制代码