UPnP

天云上人

/*uPnP.h*/

1. 
   4 w- ]: r& Z0 E  k0 u
2. #ifndef   MYUPNP_H_
   
3. 
   
4. #pragma   once
   
5. 
   
6. typedef   unsigned   long   ulong;
   & N$ d+ y1 w2 H2 N2 x: m7 ~! ?4 V
7. 
   $ |/ T" c, I' a
8. class   MyUPnP
   & g( I0 J0 x+ n. d$ _' \
9. {
   4 H3 Y+ o' }7 f/ ~0 F6 W7 |1 X
10. public:
    * u1 V; a+ r; ^8 @8 b( p
11. typedef   enum{
    
12. UNAT_OK, //   Successfull
    " @# U% l) e/ K: w7 W# p6 P1 }
13. UNAT_ERROR, //   Error,   use   GetLastError()   to   get   an   error   description
    
14. UNAT_NOT_OWNED_PORTMAPPING, //   Error,   you   are   trying   to   remove   a   port   mapping   not   owned   by   this   class
    . ]3 i8 }6 l! R$ m1 f
15. UNAT_EXTERNAL_PORT_IN_USE, //   Error,   you   are   trying   to   add   a   port   mapping   with   an   external   port   in   use
    
16. UNAT_NOT_IN_LAN //   Error,   you   aren 't   in   a   LAN   ->   no   router   or   firewall
    $ P  K3 k6 w+ S% M, {
17. }   UPNPNAT_RETURN;
    3 o# s7 Y, u6 B+ Y" U. \
18. 
    
19. typedef   enum{
    
20. UNAT_TCP, //   TCP   Protocol
    
21. UNAT_UDP //   UDP   Protocol
      ?" r7 v: m- _5 w
22. }   UPNPNAT_PROTOCOL;
    " I- ^- [( W2 t, X6 c/ G' S
23. 
    ' R0 {; _8 d% e( S8 N- D
24. typedef   struct{
    ) f. N; X) s1 z9 b% d) t
25. WORD   internalPort; //   Port   mapping   internal   port
    
26. WORD   externalPort; //   Port   mapping   external   port
    ' J: H( {3 h8 u* j7 _9 F( A
27. UPNPNAT_PROTOCOL   protocol; //   Protocol->   TCP   (UPNPNAT_PROTOCOL:UNAT_TCP)   ||   UDP   (UPNPNAT_PROTOCOL:UNAT_UDP)
    5 B! M- e1 e( h: z: B" o
28. CString   description; //   Port   mapping   description
    0 @" ]+ Q% f' n% b$ [
29. }   UPNPNAT_MAPPING;
    
30. 
    
31. MyUPnP();
      a2 J4 M1 e& e3 D
32. ~MyUPnP();
    
33. 
    
34. UPNPNAT_RETURN   AddNATPortMapping(UPNPNAT_MAPPING   *mapping,   bool   tryRandom   =   false);
    
35. UPNPNAT_RETURN   RemoveNATPortMapping(UPNPNAT_MAPPING   mapping,   bool   removeFromList   =   true);
    ' F, G3 w! [3 ?. N# F- b
36. void   clearNATPortMapping();
    $ Z* ]4 B, w" L, I% S
37. 
    
38. CString GetLastError();
    
39. CString GetLocalIPStr();
    
40. WORD GetLocalIP();
    ( U) H/ v$ I$ C; B, u' F+ m
41. bool IsLANIP(WORD   nIP);
    
42. 
    / e2 A* |- N0 M0 W8 ~
43. protected:
    " S0 L/ F9 l4 {- p' l  Z/ C8 t! ?
44. void InitLocalIP();
    
45. void SetLastError(CString   error);
    9 B  U: Q2 b  Z8 `& a2 P( c
46. 
    
47. bool   addPortmap(int   eport,   int   iport,   const   CString&   iclient,
    
48.       const   CString&   descri,   const   CString&   type);
    " `' ?# B, c& T' E  P9 S1 y; m# `* @
49. bool   deletePortmap(int   eport,   const   CString&   type);
    
50. 
    ' l0 ?; `! A; @4 T/ B, h6 D
51. bool isComplete()   const   {   return   !m_controlurl.IsEmpty();   }
    
52. 
    7 V7 x0 r  X& {
53. bool Search(int   version=1);
    / l& a; \" s& j9 ]
54. bool GetDescription();
    : q% ]4 d4 C9 M3 l3 R
55. CString GetProperty(const   CString&   name,   CString&   response);
    ; T$ m8 u  p) m; L
56. bool InvokeCommand(const   CString&   name,   const   CString&   args);
    
57. 
    3 f6 Y1 S7 a6 Y3 C7 ^: g. @
58. bool Valid()const{return   (!m_name.IsEmpty()&&!m_description.IsEmpty());}
    
59. bool InternalSearch(int   version);
    
60. CString m_devicename;
    8 B& `! h" x9 K, O8 ^
61. CString m_name;
    ( h( }3 m3 c! G% r% u
62. CString m_description;
    
63. CString m_baseurl;
    7 Y) w4 u- }& v2 v( x1 l* r& z
64. CString m_controlurl;
    ( V& y; Z9 ^1 |. q; c) |' y8 f
65. CString m_friendlyname;
    0 J" Y2 ]" r: b+ E5 U5 e; I; `
66. CString m_modelname;
    ( r1 _! K0 o/ M' c7 H6 ]2 m
67. int m_version;
    
68. 
    ) o' J. L9 R4 p
69. private:
    & C# f1 r/ v! F5 |0 s" l
70. CList <UPNPNAT_MAPPING,   UPNPNAT_MAPPING>   m_Mappings;
    1 M0 ~1 r% R; K4 H5 o
71. 
    ( c+ Q; {5 l5 E( J7 d9 X* \3 L
72. CString m_slocalIP;
    8 N" B- \( e- R; |1 a, T
73. CString m_slastError;
    . M0 X# v  C: S; [: s1 z# a: [2 I
74. WORD m_uLocalIP;
    
75. 
    
76. bool isSearched;
    / K* q& D' k! }" D- H* {" Z
77. };
    ' m7 m* |$ L/ M
78. #endif

复制代码

天云上人

/*UPnP.cpp*/

1. 
   
2. #include   "stdafx.h "
   
3. 
   . {7 ^/ [" i- s  t9 u+ D. T$ s
4. #include   "upnp.h "
   
5. 
   
6. #define   UPNPPORTMAP0       _T( "WANIPConnection ")
   
7. #define   UPNPPORTMAP1       _T( "WANPPPConnection ")
   9 i6 w4 _/ ^( @7 l
8. #define   UPNPGETEXTERNALIP   _T( "GetExternalIPAddress "),_T( "NewExternalIPAddress ")
   
9. #define   UPNPADDPORTMAP   _T( "AddPortMapping ")
   
10. #define   UPNPDELPORTMAP   _T( "DeletePortMapping ")
    * W# y4 F9 |; W( D/ L' G2 d- @0 z
11. 
    # e) M+ ?8 F4 U# ~# y, ^
12. static   const   ulong UPNPADDR   =   0xFAFFFFEF;
    
13. static   const   int UPNPPORT   =   1900;
    " V0 L' S8 `) z5 u: C
14. static   const   CString URNPREFIX   =   _T( "urn:schemas-upnp-org: ");
    
15. 
    
16. const   CString   getString(int   i)
    
17. {
    3 |* ]/ [' h: u- w
18. CString   s;
    
19. 
    $ i+ P* X8 n8 i& R, U) o
20. s.Format(_T( "%d "),   i);
    . P$ J0 Y5 z; E( L- d: j1 b
21. 
    
22. return   s;
    ! B1 B; X. s' T' }  J8 |
23. }
    
24. 
    1 d$ [% f. L, B8 U
25. const   CString   GetArgString(const   CString&   name,   const   CString&   value)
    
26. {
    
27. return   _T( " < ")   +   name   +   _T( "> ")   +   value   +   _T( " </ ")   +   name   +   _T( "> ");
    ; v2 ~. ~' I$ c; s+ {5 n2 u
28. }
    
29. 
    
30. const   CString   GetArgString(const   CString&   name,   int   value)
    
31. {
    
32. return   _T( " < ")   +   name   +   _T( "> ")   +   getString(value)   +   _T( " </ ")   +   name   +   _T( "> ");
    
33. }
    
34. 
    3 X6 J/ ~- ]% S
35. bool   SOAP_action(CString   addr,   uint16   port,   const   CString   request,   CString   &response)
    * S$ B) s+ ^* D1 |
36. {
    
37. char   buffer[10240];
    
38. 
    + \' h) N1 m, s
39. const   CStringA   sa(request);
    
40. int   length   =   sa.GetLength();
    ) u% I- D+ l- ?. u! O1 \3 |
41. strcpy(buffer,   (const   char*)sa);
    ' E. E2 x/ K1 ~) m
42. 
    
43. uint32   ip   =   inet_addr(CStringA(addr));
    # _' i' I, E* v$ c! l
44. struct   sockaddr_in   sockaddr;
    
45. memset(&sockaddr,   0,   sizeof(sockaddr));
    
46. sockaddr.sin_family   =   AF_INET;
    
47. sockaddr.sin_port   =   htons(port);
    ) C+ P! R& X4 x( V
48. sockaddr.sin_addr.S_un.S_addr   =   ip;
    
49. int   s   =   socket(AF_INET,   SOCK_STREAM,   0);
    
50. u_long   lv   =   1;
    " ?0 d, f/ V# V1 X& u
51. ioctlsocket(s,   FIONBIO,   &lv);
    
52. connect(s,   (struct   sockaddr   *)&sockaddr,   sizeof(sockaddr));
    
53. Sleep(20);
    * V- v8 i" ~' v' r+ e6 S
54. int   n   =   send(s,   buffer,   length,   0);
    5 V9 u; ?- H; A1 s8 ?
55. Sleep(100);
    
56. int   rlen   =   recv(s,   buffer,   sizeof(buffer),   0);
    
57. closesocket(s);
    / j9 c! ~  l* a7 L( |
58. if   (rlen   ==   SOCKET_ERROR)   return   false;
    
59. if   (!rlen)   return   false;
    / t$ w; Z- w. M# ]9 o' C+ a# x
60. 
    , ^; o4 L7 C( ^
61. response   =   CString(CStringA(buffer,   rlen));
    2 ?  _; z5 R( d& v+ J" ^
62. 
    " [* `5 g2 J; d
63. return   true;
    - k0 M. h( k4 F: z
64. }
    
65. 
    
66. int   SSDP_sendRequest(int   s,   uint32   ip,   uint16   port,   const   CString&   request)
    + \! }8 |1 R) J% q1 A" m
67. {
    : d! R0 p; B' r) N. E2 R2 D* w
68. char   buffer[10240];
    
69. 
    ; x9 J+ h0 N  y2 W1 `$ k
70. const   CStringA   sa(request);
    
71. int   length   =   sa.GetLength();
    ( k. [6 h2 h0 g6 I6 D, l7 y# v
72. strcpy(buffer,   (const   char*)sa);
    % _7 |3 t3 f7 j4 O6 `  o
73. 
    ' t6 t, N2 t9 r0 }( q, ^5 |# Q
74. struct   sockaddr_in   sockaddr;
    6 M# n. {) x  y3 u8 B! F
75. memset(&sockaddr,   0,   sizeof(sockaddr));
    
76. sockaddr.sin_family   =   AF_INET;
    9 j4 d" z/ h6 h- G) U
77. sockaddr.sin_port   =   htons(port);
    1 [5 J$ g6 \( H3 U, T- ]
78. sockaddr.sin_addr.S_un.S_addr   =   ip;
    
79. 
    7 \% A0 O( V; o3 M4 x- E& ]) I
80. return   sendto(s,   buffer,   length,   0,   (struct   sockaddr   *)&sockaddr,   sizeof(sockaddr));
    
81. }
    
82. 
    5 g' c" M3 D4 h  h# ~, k
83. bool   parseHTTPResponse(const   CString&   response,   CString&   result)
    
84. {
    * o4 M& M- H+ Q6 J  G) Y8 r
85. int   pos   =   0;
    : C) w( O) ?$ j; t! M
86. 
    8 j+ F6 o& r" F
87. CString   status   =   response.Tokenize(_T( "\r\n "),   pos);
    4 I: u( H  U# T# g2 j
88. 
    
89. result   =   response;
    
90. result.Delete(0,   pos);
    / E! b+ I4 g7 o7 y' D( j4 ?  L
91. 
    & K* s. v+ g8 X; l
92. pos   =   0;
    ( J) j$ f+ y' d) I! U3 s# B
93. status.Tokenize(_T( "   "),   pos);
    " l) A3 K- x- h; t
94. status   =   status.Tokenize(_T( "   "),   pos);
    % c6 |( p, C' n8 D  X1 P* k
95. if   (status.IsEmpty()   ||   status[0]!= '2 ')   return   false;
    
96. return   true;
    2 J' r4 V; e* t$ ~  q! {5 e& C
97. }
    / z% t" U) E" O7 q
98. 
    1 m' r8 T3 ~+ _- ]' D
99. const   CString   getProperty(const   CString&   all,   const   CString&   name)
    ( ]. M  u4 Y# d4 Q0 y
100. {
     6 S- u9 S$ L+ O; t' J, U
101. CString   startTag   =   ' < '   +   name   +   '> ';
     
102. CString   endTag   =   _T( " </ ")   +   name   +   '> ';
     
103. CString   property;
     
104. 
     0 ^" B/ H2 \1 O4 e! S
105. int   posStart   =   all.Find(startTag);
     
106. if   (posStart <0)   return   CString();
     
107. 
     2 \6 U" H. W) U# n: A4 b/ o: l
108. int   posEnd   =   all.Find(endTag,   posStart);
     2 C- E  b' m9 C  g
109. if   (posStart> =posEnd)   return   CString();
     
110. 
     : O* C& y9 ]/ x6 r/ Y' z; Z: B
111. return   all.Mid(posStart   +   startTag.GetLength(),   posEnd   -   posStart   -   startTag.GetLength());
     ( Q' V  d, o2 p: `% z: Z/ P2 r
112. }
     $ m! t7 R; N; W. z) i% c
113. 
     
114. MyUPnP::MyUPnP()
     : G+ N) I% L: u3 y% ~8 I4 C6 A9 S
115. :   m_version(1)
     
116. {
     
117. m_uLocalIP   =   0;
     ! f' d4 f0 S$ g% x+ D" T
118. isSearched   =   false;
     
119. }
     % x5 F4 h! |3 R& L% c2 R% }) u
120. 
     
121. MyUPnP::~MyUPnP()
     ) J/ f; t0 C0 n4 K
122. {
     8 v* `% y& o( l8 ?2 w0 G
123. UPNPNAT_MAPPING   search;
     8 T+ u, S$ m$ F$ l' {  L; s% a, w2 B' ~
124. POSITION   pos   =   m_Mappings.GetHeadPosition();
     5 H0 P# E3 [3 e* D$ ~
125. while(pos){
     2 r7 H4 R- o4 c& G. c2 l
126. search   =   m_Mappings.GetNext(pos);
     + q7 x( A6 b* d0 W" K9 s  m1 y
127. RemoveNATPortMapping(search,   false);
     ) l6 S- w/ t2 T8 j, j: N
128. }
     + V! T) j, U- u# T
129. 
     
130. m_Mappings.RemoveAll();
     
131. }
     2 Y) q! j4 G! q+ g
132. 
     
133. 
     ! s" ~# o3 k4 X( O( T7 _" D6 B1 `
134. bool   MyUPnP::InternalSearch(int   version)
     
135. {
     ) Y$ h  k* `8 V! y
136. if(version <=0)version   =   1;
     
137. m_version   =   version;
     ) e1 F" ^7 m! f  T
138. 
     " ?+ q) u/ [  J& T1 h
139. #define   NUMBEROFDEVICES 2
     7 H# w) U& P2 h/ G" i
140. CString   devices[][2]   =   {
     
141. {UPNPPORTMAP1,   _T( "service ")},
     # A6 J+ [. e8 j4 E' q  y; T
142. {UPNPPORTMAP0,   _T( "service ")},
     
143. {_T( "InternetGatewayDevice "),   _T( "device ")},
     7 R% v& S2 V1 s7 R9 H
144. };
     , o: c. t; c8 N7 f4 U8 I3 D, k
145. 
     & o3 F$ S% x* f
146. int   s   =   socket(AF_INET,   SOCK_DGRAM,   0);
     - x- s+ X' I' M
147. u_long   lv   =   1;
     
148. ioctlsocket(s,   FIONBIO,   &lv);
     2 [" ~9 w* n3 `0 I5 e
149. 
     ! s/ z5 C9 j! a
150. int   rlen   =   0;
     
151. for   (int   i=0;   rlen <=0   &&   i <500;   i++)   {
     
152. if   (!(i%100))   {
     9 g6 r8 N$ y/ A  |- y( n
153. for   (int   i=0;   i <NUMBEROFDEVICES;   i++)   {
     / k/ y& S4 g. `0 M1 a; V7 L
154. m_name.Format(_T( "%s%s:%s:%d "),   URNPREFIX,   devices[i][1],   devices[i][0],   version);
     . [+ R9 M$ d* u7 }* w
155. CString   request;
     
156. request.Format(_T( "M-SEARCH   *   HTTP/1.1\r\nHOST:   239.255.255.250:1900\r\nMAN:   \ "ssdp:discover\ "\r\nMX:   %d\r\nST:   %s\r\n\r\n "),
     8 J6 ]+ ~. A- N8 p" j
157. 6,   m_name);
     
158. SSDP_sendRequest(s,   UPNPADDR,   UPNPPORT,   request);
     ! T0 s5 Q, _  u0 v7 j( Q3 _  T
159. }
     1 ]4 C1 f% B' Y; r5 d2 J+ u8 E! d
160. }
     
161. 
     
162. Sleep(10);
     
163. 
     
164. char   buffer[10240];
     
165. rlen   =   recv(s,   buffer,   sizeof(buffer),   0);
     
166. if   (rlen   <=   0)   continue;
     
167. closesocket(s);
     8 A) l1 \2 t  C0 L1 q
168. 
     
169. CString   response   =   CString(CStringA(buffer,   rlen));
     " E5 D. F5 e- B& m$ W. B2 x
170. CString   result;
     
171. if   (!parseHTTPResponse(response,   result))   return   false;
     ) |; O  q3 x: j* }" x* _1 B
172. 
     
173. for   (int   d=0;   d <NUMBEROFDEVICES;   d++)   {
     
174. m_name.Format(_T( "%s%s:%s:%d "),   URNPREFIX,   devices[d][1],   devices[d][0],   version);
     
175. if   (result.Find(m_name)   > =   0)   {
     
176. for   (int   pos   =   0;;)   {
     
177. CString   line   =   result.Tokenize(_T( "\r\n "),   pos);
     
178. if   (line.IsEmpty())   return   false;
     
179. CString   name   =   line.Mid(0,   9);
     
180. name.MakeUpper();
     # y. |5 m- m. ?, k; u2 _
181. if   (name   ==   _T( "LOCATION: "))   {
     # X0 @9 ?; b  C4 n5 }/ X
182. line.Delete(0,   9);
     ( T3 ^/ O1 o/ Z" J9 Q; m
183. m_description   =   line;
     
184. m_description.Trim();
     8 u( g$ A% Z; Z2 ^0 p+ C
185. return   GetDescription();
     
186. }
     
187. }
     
188. }
     
189. }
     # j3 G: z; t, J( ^% m0 {( P
190. }
     
191. closesocket(s);
     + m! y; Y0 ~1 l2 ?. D9 p
192. 
     : J1 H8 O9 o$ ?: R8 I
193. return   false;
       W1 u/ I+ b1 P, Q. `  ?
194. }
     & q- X. {/ Y9 i, b/ J/ ?

复制代码

天云上人

以下有关upnp的接口来自emule，

! c* b, T2 K6 E, P! _6 m
/ G5 t( c3 v3 q$ O/ \) k///////////////////////////////////////////
6 M& A$ @3 g, `, P' X# c//upnp的抽象接口类,只需调用这些接口即可实现端口映射功能.
+ ~' l0 ]4 ^2 A9 u5 z* L2 D- [) H5 l

#pragma once
#include <exception>
% V) w8 X( x' }+ a+ R2 e4 ?

/ u+ v2 i5 ^, E7 s6 B; |  enum TRISTATE{
1 L$ S- i6 T/ |9 a; m        TRIS_FALSE,
' y( Q% N+ k) w2 l# u% i        TRIS_UNKNOWN,
+ P/ K1 P7 Q8 \8 k# P3 C' f        TRIS_TRUE
' R1 i& g6 F8 J& P};
6 P3 W$ C  Y  E% n$ l5 R1 P
' ?0 c. [& f7 G
2 N: `( c( T( D- z- genum UPNP_IMPLEMENTATION{
        UPNP_IMPL_WINDOWSERVICE = 0,
        UPNP_IMPL_MINIUPNPLIB,
- @# y8 P, q6 V1 n        UPNP_IMPL_NONE /*last*/
! c7 b% A: E  o6 P5 ]( [7 ], p};
6 E9 t0 ~( j# E; x
( c" u& p- I. J$ Q: r
" U- x8 [. M- e" W# b0 N
, y6 t/ m$ x$ |* ]0 x
" P& M3 N. n- X1 h5 m6 l! x0 Eclass CUPnPImpl
# [2 d; x0 ]! j- S{
( T7 L! c/ u$ O4 z, Apublic:
5 i" }( t4 _! l3 D7 e- k* J        CUPnPImpl();
0 c) t. H( G6 g/ w" o' G        virtual ~CUPnPImpl();
        struct UPnPError : std::exception {};
        enum {
                UPNP_OK,
) c8 t- L. f* V& ]                UPNP_FAILED,
/ V- @5 @& q: ~* D2 j! u8 W                UPNP_TIMEOUT
7 u+ \1 b# M5 J% I, B4 D4 L        };
2 o, X' ^$ E8 ]% x- E* w

9 y1 q( {+ j. u+ _! z/ A        virtual void        StartDiscovery(uint16 nTCPPort, uint16 nUDPPort, uint16 nTCPWebPort) = 0;
        virtual bool        CheckAndRefresh() = 0;
        virtual void        StopAsyncFind() = 0;
        virtual void        DeletePorts() = 0;
- f# M8 V& ^4 W8 W9 a        virtual bool        IsReady() = 0;
        virtual int                GetImplementationID() = 0;
       
- x# ]* J* c5 q3 a- Z8 f        void                        LateEnableWebServerPort(uint16 nPort); // Add Webserverport on already installed portmapping
/ e- h* o4 X9 j5 U

        void                        SetMessageOnResult(HWND hWindow, UINT nMessageID);
        TRISTATE                ArePortsForwarded() const                                                                { return m_bUPnPPortsForwarded; }
        uint16                        GetUsedTCPPort()                                                                                { return m_nTCPPort; }
        uint16                        GetUsedUDPPort()                                                                                { return m_nUDPPort; }       


// Implementation
4 o9 P! H: V- n0 i$ ?protected:
" |1 D( M, c! y/ Q0 e        volatile TRISTATE        m_bUPnPPortsForwarded;
! K# \4 R: P- m& E        void                                SendResultMessage();
        uint16                                m_nUDPPort;
4 y/ X! T* Q6 L. W6 T        uint16                                m_nTCPPort;
- S. k1 f3 j. @; i3 _        uint16                                m_nTCPWebPort;
2 B# ?; R: e, m9 o        bool                                m_bCheckAndRefresh;


* t! H9 _+ w1 s& gprivate:
0 [( Z3 I: l  Q% J) X, r        HWND        m_hResultMessageWindow;
        UINT        m_nResultMessageID;


};

, k$ W7 h3 W  }1 k8 K" [, D: X
3 i# r( N. u# A% M6 @# h& O// Dummy Implementation to be used when no other implementation is available
class CUPnPImplNone: public CUPnPImpl
{
public:
8 ~$ c5 y, _* E, @8 W        virtual void        StartDiscovery(uint16, uint16, uint16)                                        { ASSERT( false ); }
7 K" @6 S+ Q$ e# B& x: X: w/ W        virtual bool        CheckAndRefresh()                                                                                { return false; }
        virtual void        StopAsyncFind()                                                                                        { }
1 o+ }+ L$ u/ V        virtual void        DeletePorts()                                                                                        { }
        virtual bool        IsReady()                                                                                                { return false; }
        virtual int                GetImplementationID()                                                                        { return UPNP_IMPL_NONE; }
};
" S$ F4 Y6 U5 n5 m9 w

6 W/ W: e& e* {/ G1 }: B% R5 g/////////////////////////////////////
//下面是使用windows操作系统自带的UPNP功能的子类
$ Y- v# ~# f2 H, C
8 [7 M, _$ I. Y$ ^
- P* U' r/ Y6 a#pragma once
. o- ]1 A+ ]5 F+ I6 r9 e2 B4 V#pragma warning( disable: 4355 )
$ r7 X' f) e, S6 t

! X! `/ n0 v: Q' |% j1 [1 [#include "UPnPImpl.h"
#include <upnp.h>
#include <iphlpapi.h>
4 X# {; P) l7 u' I# u, Z& h3 D#include <comdef.h>
#include <winsvc.h>


6 c& P/ y. [) ~5 u#include <vector>
% q' t/ `  a1 Z4 v8 g" s#include <exception>
#include <functional>




typedef _com_ptr_t<_com_IIID<IUPnPDeviceFinder,&IID_IUPnPDeviceFinder> >        FinderPointer;
typedef _com_ptr_t<_com_IIID<IUPnPDevice,&IID_IUPnPDevice>        >                                DevicePointer;
typedef _com_ptr_t<_com_IIID<IUPnPService,&IID_IUPnPService> >                                ServicePointer;
typedef        _com_ptr_t<_com_IIID<IUPnPDeviceFinderCallback,&IID_IUPnPDeviceFinderCallback> > DeviceFinderCallback;
: O" N) K) o& ]% W( k3 ltypedef        _com_ptr_t<_com_IIID<IUPnPServiceCallback,&IID_IUPnPServiceCallback> >                        ServiceCallback;
. b9 a1 E* [) }' y5 t. Dtypedef _com_ptr_t<_com_IIID<IEnumUnknown,&IID_IEnumUnknown> >                                EnumUnknownPtr;
typedef _com_ptr_t<_com_IIID<IUnknown,&IID_IUnknown> >                                                UnknownPtr;
3 x. @, _" Q/ F

typedef DWORD (WINAPI* TGetBestInterface) (
  IPAddr dwDestAddr,
( M$ z' z# o* w8 L: P# ?( l# \  PDWORD pdwBestIfIndex
: E9 S3 ?4 ?' e4 D$ ?7 c4 _3 S5 \);
* @: J+ E' h! q/ k; |' \3 x

typedef DWORD (WINAPI* TGetIpAddrTable) (
  PMIB_IPADDRTABLE pIpAddrTable,
  PULONG pdwSize,
  BOOL bOrder
);

- h- \* ?3 S# r* Z
# u# {2 k5 z# b" y2 k0 j  g8 M( k4 Ctypedef DWORD (WINAPI* TGetIfEntry) (
' Z) C* F3 I' a  PMIB_IFROW pIfRow
);


CString translateUPnPResult(HRESULT hr);
; o# c6 b( @0 z# O% MHRESULT UPnPMessage(HRESULT hr);


9 C3 H5 ~- b' B! A/ p6 P, vclass CUPnPImplWinServ: public CUPnPImpl
7 J% a8 U. W) {{
/ w% J. u5 C& V4 x        friend class CDeviceFinderCallback;
' e/ ?& {: t' t; g7 a' G        friend class CServiceCallback;
* W( C1 j* p; o( z// Construction
& _0 Y5 w+ ^- H9 J+ s, mpublic:
' y2 K2 k# s( z, \        virtual ~CUPnPImplWinServ();
4 u/ i0 M' i8 G9 @3 C- H6 c" q        CUPnPImplWinServ();
0 `+ ^% R( s& u7 P2 }9 E+ @
: c. ]+ ]5 _3 `; m/ o8 S
        virtual void        StartDiscovery(uint16 nTCPPort, uint16 nUDPPort, uint16 nTCPWebPort)                { StartDiscovery(nTCPPort, nUDPPort, nTCPWebPort, false); }
5 }% E" @8 Q: X3 n- E) ]        virtual void        StopAsyncFind();
, c- U- n3 e$ z0 p        virtual void        DeletePorts();
        virtual bool        IsReady();
        virtual int                GetImplementationID()                                                                        { return UPNP_IMPL_WINDOWSERVICE; }


        // No Support for Refreshing on this  (fallback) implementation yet - in many cases where it would be needed (router reset etc)
% U7 A* [$ ^* g% G* ~* S6 ]        // the windows side of the implementation tends to get bugged untill reboot anyway. Still might get added later
        virtual bool        CheckAndRefresh()                                                                                { return false; };
+ {2 m* z' C+ ?; g
# L0 q2 A9 M* E0 m* @: L1 p, l$ v
8 o) A2 {( V0 I. Tprotected:
        void        StartDiscovery(uint16 nTCPPort, uint16 nUDPPort, uint16 nTCPWebPort, bool bSecondTry);
) \! W' \: [) L' L0 ~        void        AddDevice(DevicePointer pDevice, bool bAddChilds, int nLevel = 0);
0 w. h; d# ]; `% e5 i* c( ~        void        RemoveDevice(CComBSTR bsUDN);
  b& T0 ~2 C; B7 G        bool        OnSearchComplete();
        void        Init();

/ W/ t& D1 `5 K" K
( k. s# r5 i1 d0 J! u  _: P  x& x        inline bool IsAsyncFindRunning()
4 s; A% n3 p1 s  z5 R        {
( V7 B- {) l+ X2 q  J; F6 x                if ( m_pDeviceFinder != NULL && m_bAsyncFindRunning && GetTickCount() - m_tLastEvent > 10000 )
' \" U- w" p! e" H7 d8 |                {
* m- l5 |8 K( ]                        m_pDeviceFinder->CancelAsyncFind( m_nAsyncFindHandle );
                        m_bAsyncFindRunning = false;
  }! c8 |% X4 R1 |9 a                }
                MSG msg;
                while ( PeekMessage( &msg, NULL, 0, 0, PM_REMOVE ) )
3 {0 j' K' N3 C' O0 S* p                {
, W2 A* L/ x! g) b0 V                        TranslateMessage( &msg );
- Y" f( v5 G+ j8 R. o: S3 \                        DispatchMessage( &msg );
                }
                return m_bAsyncFindRunning;
        }


/ C$ w2 O, E1 H* q        TRISTATE                        m_bUPnPDeviceConnected;

3 v, k& P/ r, K2 y+ e) U
// Implementation
7 [5 Z% Z7 L# R/ j* `: ?        // API functions
        SC_HANDLE (WINAPI *m_pfnOpenSCManager)(LPCTSTR, LPCTSTR, DWORD);
  G: A0 r% f! b' ~) h4 s        SC_HANDLE (WINAPI *m_pfnOpenService)(SC_HANDLE, LPCTSTR, DWORD);
4 K+ _; M+ ^7 {% o) _! h; @        BOOL (WINAPI *m_pfnQueryServiceStatusEx)(SC_HANDLE, SC_STATUS_TYPE, LPBYTE, DWORD, LPDWORD);
        BOOL (WINAPI *m_pfnCloseServiceHandle)(SC_HANDLE);
! {$ t* O$ I3 _) A1 b" F+ \8 z        BOOL (WINAPI *m_pfnStartService)(SC_HANDLE, DWORD, LPCTSTR*);
; H8 ?3 V# O0 |1 T! I3 s1 t  n. u3 E9 q        BOOL (WINAPI *m_pfnControlService)(SC_HANDLE, DWORD, LPSERVICE_STATUS);
' U. g- Y) ^$ V* b0 X# w

        TGetBestInterface                m_pfGetBestInterface;
: ?5 R* B0 s8 c) n3 r        TGetIpAddrTable                        m_pfGetIpAddrTable;
        TGetIfEntry                                m_pfGetIfEntry;

: X% P( _4 ^  R$ i/ Y
0 E+ @4 e# t5 j* }2 Z        static FinderPointer CreateFinderInstance();
" `1 h- ^$ c  {- _        struct FindDevice : std::unary_function< DevicePointer, bool >
, u/ U- ~+ h* b% P5 ^, L6 Z        {
" V5 t  M& F! F( \, n                FindDevice(const CComBSTR& udn) : m_udn( udn ) {}
; F# ~  h! m3 S+ U5 }( `                result_type operator()(argument_type device) const
                {
; Q2 [+ E7 S9 ]2 I& P" y; d                        CComBSTR deviceName;
- v! @$ b% B' z/ s  S                        HRESULT hr = device->get_UniqueDeviceName( &deviceName );


                        if ( FAILED( hr ) )
! w; ]3 Z  B5 s# p9 v2 a                                return UPnPMessage( hr ), false;
' B: i" [+ B! j$ I5 W
* g7 z* v+ T. Y
$ _0 J0 U$ V0 W; S: @  j, m. [, G                        return wcscmp( deviceName.m_str, m_udn ) == 0;
7 ?/ {% ?$ c$ [8 {4 U/ H( V7 e' A& |                }
                CComBSTR m_udn;
  |9 ]4 d) ]: F0 C, h, Z        };
- V* C0 m' M8 t, [       
/ p+ R# j0 m, W7 Q        void        ProcessAsyncFind(CComBSTR bsSearchType);
        HRESULT        GetDeviceServices(DevicePointer pDevice);
: w4 \6 ]/ U! E        void        StartPortMapping();
        HRESULT        MapPort(const ServicePointer& service);
        void        DeleteExistingPortMappings(ServicePointer pService);
! `; p3 b, {% N        void        CreatePortMappings(ServicePointer pService);
5 r5 }$ n& r2 \2 S' h6 L: W        HRESULT SaveServices(EnumUnknownPtr pEU, const LONG nTotalItems);
3 J( }2 M( E6 n8 f        HRESULT InvokeAction(ServicePointer pService, CComBSTR action,
, @; Z. E* T  a6 N# X. X                LPCTSTR pszInArgString, CString& strResult);
/ H0 z6 d( J* e& z( k; x8 S! M; d0 c        void        StopUPnPService();


        // Utility functions
- x, o: l' G. Q. Z  O; @+ m6 W/ Y        HRESULT CreateSafeArray(const VARTYPE vt, const ULONG nArgs, SAFEARRAY** ppsa);
        INT_PTR CreateVarFromString(const CString& strArgs, VARIANT*** pppVars);
        INT_PTR        GetStringFromOutArgs(const VARIANT* pvaOutArgs, CString& strArgs);
        void        DestroyVars(const INT_PTR nCount, VARIANT*** pppVars);
) d3 r2 i  e/ q2 [        HRESULT GetSafeArrayBounds(SAFEARRAY* psa, LONG* pLBound, LONG* pUBound);
        HRESULT GetVariantElement(SAFEARRAY* psa, LONG pos, VARIANT* pvar);
        CString        GetLocalRoutableIP(ServicePointer pService);
( Q  I7 t5 |/ W$ U/ ]  V5 A) f2 `
" Q1 m8 R+ j- v% p7 i7 j! z4 E5 {' v) M
  B5 C. j# o; Q, h2 ]. k) R// Private members
private:
        DWORD        m_tLastEvent;        // When the last event was received?
: A$ U2 G! q0 @        std::vector< DevicePointer >  m_pDevices;
        std::vector< ServicePointer > m_pServices;
% _9 e! [" M" v: K/ [4 L4 l) A        FinderPointer                        m_pDeviceFinder;
  u+ G  l0 m2 B7 D6 F3 H        DeviceFinderCallback        m_pDeviceFinderCallback;
( e7 a7 U+ Z+ P8 @# V2 k9 V        ServiceCallback                        m_pServiceCallback;

* d9 e" Q) ?! v. }, g2 C8 S! m
        LONG        m_nAsyncFindHandle;
        bool        m_bCOM;
: R) K( t% ]3 d6 c% w0 [        bool        m_bPortIsFree;
% r: q: X- ^  q/ Z# F4 l1 O# q9 x        CString m_sLocalIP;
        CString m_sExternalIP;
        bool        m_bADSL;                // Is the device ADSL?
+ {( a% d$ f$ l/ m        bool        m_ADSLFailed;        // Did port mapping failed for the ADSL device?
        bool        m_bInited;
% g5 z0 I' h  j' P( O        bool        m_bAsyncFindRunning;
& B- W; F5 {  ]$ M& p+ W        HMODULE m_hADVAPI32_DLL;
, a7 a" u: E4 [- R5 T5 H9 Q        HMODULE        m_hIPHLPAPI_DLL;
  N* d8 |+ R1 ?: J" B. X        bool        m_bSecondTry;
        bool        m_bServiceStartedByEmule;
, P& b. a. `- c4 {+ @' g8 S, s8 j        bool        m_bDisableWANIPSetup;
        bool        m_bDisableWANPPPSetup;
& s% r1 ^8 z( V4 q9 G, r
- ?( L8 |/ D$ N) i, m# |
: J6 d% l. |: e7 y9 j5 y7 m# m( n* b};
0 N+ |" e6 ?$ O" x; p3 u( ~% ^- s, C- J
& {/ L. }& f8 d, x! o3 F) ]3 `# k1 J
" ]( J3 z7 R2 u3 O1 ~// DeviceFinder Callback
class CDeviceFinderCallback
        : public IUPnPDeviceFinderCallback
! t* T4 X5 C4 ~{
public:
        CDeviceFinderCallback(CUPnPImplWinServ& instance)
9 P2 Z, R9 S/ s5 f: U                : m_instance( instance )
# |3 V5 h  W8 i) ~2 T; O        { m_lRefCount = 0; }
3 Q: t* C  \1 N! u9 o  |

   STDMETHODIMP QueryInterface(REFIID iid, LPVOID* ppvObject);
0 _/ O4 D# d2 Z* g) L   STDMETHODIMP_(ULONG) AddRef();
: d% E4 u4 x9 k9 p5 ~/ W   STDMETHODIMP_(ULONG) Release();


; d( y6 `" J' Q# Q* g* g8 w// implementation
private:
' P, F; L, E' i3 E- Z! o        HRESULT __stdcall DeviceAdded(LONG nFindData, IUPnPDevice* pDevice);
, e4 \; g) q" p  C7 T# l' v& D        HRESULT __stdcall DeviceRemoved(LONG nFindData, BSTR bsUDN);
        HRESULT __stdcall SearchComplete(LONG nFindData);


: U5 X# w+ A  E, u* _0 M5 A/ gprivate:
        CUPnPImplWinServ& m_instance;
8 R) _* m% o1 E8 `        LONG m_lRefCount;
};


' h) l" T+ K% y8 y! v$ z/ h7 D// Service Callback
class CServiceCallback
& M. E' y/ Z6 }4 c        : public IUPnPServiceCallback
5 P  |+ H; c% o( C* y! p{
public:
        CServiceCallback(CUPnPImplWinServ& instance)
                : m_instance( instance )
( g$ ~; q7 ~& ^$ j4 d( J6 @        { m_lRefCount = 0; }
4 T) R/ G7 G0 x1 F   
2 k4 j0 g$ l. _) f$ Q  N   STDMETHODIMP QueryInterface(REFIID iid, LPVOID* ppvObject);
   STDMETHODIMP_(ULONG) AddRef();
   STDMETHODIMP_(ULONG) Release();


// implementation
private:
        HRESULT __stdcall StateVariableChanged(IUPnPService* pService, LPCWSTR pszStateVarName, VARIANT varValue);
$ a7 i( K9 ?9 Q% k8 o. ]        HRESULT __stdcall ServiceInstanceDied(IUPnPService* pService);

) B- J* h- [' K) e  |5 ^4 f' t' j
private:
% S. {9 w- J% r        CUPnPImplWinServ& m_instance;
: @0 F# D0 U8 c: `. B        LONG m_lRefCount;
};
6 V; ?# u8 _) N5 v$ V( h9 J  v
! I- f% k- M: t% X
/////////////////////////////////////////////////
2 ^6 N% m, N. J, N3 q& f# _/ z

2 `2 v7 l, Y0 D% ?- N8 X, Y1 y  H4 k使用时只需要使用抽象类的接口。
CUPnPImpl::SetMessageOnResult设置需要接受UPNP端口映射是否成功的窗口句柄和消息ID.
CUPnPImpl::StartDiscovery将开启一个异步设备查找并进行端口映射,其参数为需要映射的内网端口.
CUPnPImpl::StopAsyncFind停止设备查找.
CUPnPImpl::DeletePorts删除端口映射.