UPnP

天云上人

/*uPnP.h*/

1. 
   
2. #ifndef   MYUPNP_H_
   1 Q& S$ O. [& v( Q1 ~2 v: {
3. 
   + R! u( S7 E7 \1 N! F' F
4. #pragma   once
   3 g1 N6 Z9 [% P, j
5. 
   6 i6 A7 N4 w$ V5 u$ S5 H
6. typedef   unsigned   long   ulong;
   ) d* ~+ U% h  m  `6 D. l
7. 
   $ h/ M2 {5 {9 `& @
8. class   MyUPnP
   ! A6 c* Z# k  @0 o
9. {
   
10. public:
    6 O8 U$ @6 a8 N
11. typedef   enum{
    
12. UNAT_OK, //   Successfull
    2 W1 E  K8 J3 m( u( M
13. UNAT_ERROR, //   Error,   use   GetLastError()   to   get   an   error   description
    + }, [/ a6 U5 m" ]; X
14. UNAT_NOT_OWNED_PORTMAPPING, //   Error,   you   are   trying   to   remove   a   port   mapping   not   owned   by   this   class
    
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
    3 s5 }% K4 N# L& j+ w- O
17. }   UPNPNAT_RETURN;
    
18. 
    
19. typedef   enum{
    
20. UNAT_TCP, //   TCP   Protocol
    
21. UNAT_UDP //   UDP   Protocol
    ! d, `( ?/ V7 D; {
22. }   UPNPNAT_PROTOCOL;
    ' E% y7 }0 ]4 r/ e+ l
23. 
    
24. typedef   struct{
    
25. WORD   internalPort; //   Port   mapping   internal   port
    7 s1 g% Z- |' }6 M. N( F) ~+ i
26. WORD   externalPort; //   Port   mapping   external   port
    
27. UPNPNAT_PROTOCOL   protocol; //   Protocol->   TCP   (UPNPNAT_PROTOCOL:UNAT_TCP)   ||   UDP   (UPNPNAT_PROTOCOL:UNAT_UDP)
    
28. CString   description; //   Port   mapping   description
    / D5 V& ]4 s6 R5 ^) L
29. }   UPNPNAT_MAPPING;
    
30. 
    $ d7 n1 i" A5 B6 S
31. MyUPnP();
    " c: h/ b0 U$ m0 V& f
32. ~MyUPnP();
    ( L8 ]5 ~2 s; n1 M6 n2 E# G5 C8 n
33. 
    ; I/ h; _3 T8 ~0 s8 h( d/ K  B) q1 ]1 j8 y
34. UPNPNAT_RETURN   AddNATPortMapping(UPNPNAT_MAPPING   *mapping,   bool   tryRandom   =   false);
    
35. UPNPNAT_RETURN   RemoveNATPortMapping(UPNPNAT_MAPPING   mapping,   bool   removeFromList   =   true);
    ; Z7 z4 P- ^- }6 {
36. void   clearNATPortMapping();
    
37. 
    " l( t. a6 D. ^, U+ A) H: t
38. CString GetLastError();
    % ~3 ^9 ?; U- T# K
39. CString GetLocalIPStr();
    3 D: H: Z0 x8 c5 _$ \/ i
40. WORD GetLocalIP();
    4 U- ]# C! J. q7 y
41. bool IsLANIP(WORD   nIP);
    
42. 
    : x1 S& X, k" {  ]
43. protected:
    
44. void InitLocalIP();
    
45. void SetLastError(CString   error);
    # d# z! q$ e( `/ f
46. 
    ' ~0 \: }. h! {( n9 V" g- u/ g  }
47. bool   addPortmap(int   eport,   int   iport,   const   CString&   iclient,
    / L/ z" m4 Z1 k: w$ N/ X* H1 Y7 b
48.       const   CString&   descri,   const   CString&   type);
    
49. bool   deletePortmap(int   eport,   const   CString&   type);
    
50. 
    
51. bool isComplete()   const   {   return   !m_controlurl.IsEmpty();   }
    
52. 
    0 w0 T( ^' U# J/ O1 H1 N' h
53. bool Search(int   version=1);
    $ V2 f7 Y7 k0 `! b( }" }
54. bool GetDescription();
    
55. CString GetProperty(const   CString&   name,   CString&   response);
    6 n% U+ ]9 }3 v4 x' g% t
56. bool InvokeCommand(const   CString&   name,   const   CString&   args);
      O) ?1 S; l2 Y( F
57. 
    
58. bool Valid()const{return   (!m_name.IsEmpty()&&!m_description.IsEmpty());}
    $ o- C. ^0 z4 Y. s1 x% Z
59. bool InternalSearch(int   version);
    : D6 s2 B# \3 s1 U! s1 o( b
60. CString m_devicename;
      I  S! v8 F% ~) }
61. CString m_name;
    
62. CString m_description;
    8 W3 q" [1 y3 m# w8 X* k+ s$ o
63. CString m_baseurl;
    
64. CString m_controlurl;
    
65. CString m_friendlyname;
    . k4 p4 D% t' q( h. C
66. CString m_modelname;
    ' V' O& M7 {$ f4 ~- ?
67. int m_version;
    / r9 q5 i5 V% a+ N
68. 
    - F( p$ }& X, `. Z+ ^, [8 o* R. O0 B% T
69. private:
    . m6 u7 {6 k& v  z, R3 M. f, U
70. CList <UPNPNAT_MAPPING,   UPNPNAT_MAPPING>   m_Mappings;
    7 H- ~1 K. F/ o3 P! o& G! O9 V- l
71. 
    ( n) ^) B8 S$ p" X& d8 _, ?0 D
72. CString m_slocalIP;
    9 X# H# Y( ^3 {% s1 P& @2 w
73. CString m_slastError;
    
74. WORD m_uLocalIP;
    
75. 
    
76. bool isSearched;
    
77. };
    
78. #endif

复制代码

天云上人

/*UPnP.cpp*/

1. 
   9 x1 U+ y* u7 e4 N. @' Z- I
2. #include   "stdafx.h "
   
3. 
   
4. #include   "upnp.h "
   
5. 
   . i4 r6 k& R. {% I  B
6. #define   UPNPPORTMAP0       _T( "WANIPConnection ")
   
7. #define   UPNPPORTMAP1       _T( "WANPPPConnection ")
   * O* g2 u; I% |# q
8. #define   UPNPGETEXTERNALIP   _T( "GetExternalIPAddress "),_T( "NewExternalIPAddress ")
   # P' L' Z- G. F
9. #define   UPNPADDPORTMAP   _T( "AddPortMapping ")
   2 H3 y3 }$ o4 z2 s5 _
10. #define   UPNPDELPORTMAP   _T( "DeletePortMapping ")
    2 `. v. s' |3 \2 [* i% O- J% {
11. 
    
12. static   const   ulong UPNPADDR   =   0xFAFFFFEF;
    
13. static   const   int UPNPPORT   =   1900;
    . P; w7 u3 v/ U' I$ R1 }# b
14. static   const   CString URNPREFIX   =   _T( "urn:schemas-upnp-org: ");
    
15. 
    
16. const   CString   getString(int   i)
    0 A% N: X( C% k, X: h( n. y; t
17. {
    
18. CString   s;
    
19. 
    4 a) E" j0 Q8 o1 {
20. s.Format(_T( "%d "),   i);
    + K5 E' ]1 b0 O* @
21. 
    
22. return   s;
    
23. }
    ' x. N8 y9 l& B# t/ E+ l  V
24. 
    
25. const   CString   GetArgString(const   CString&   name,   const   CString&   value)
    
26. {
    - \2 W5 a9 n( E7 d
27. return   _T( " < ")   +   name   +   _T( "> ")   +   value   +   _T( " </ ")   +   name   +   _T( "> ");
    0 S9 |" ?1 |, F2 r* P
28. }
    
29. 
    
30. const   CString   GetArgString(const   CString&   name,   int   value)
    
31. {
    
32. return   _T( " < ")   +   name   +   _T( "> ")   +   getString(value)   +   _T( " </ ")   +   name   +   _T( "> ");
    
33. }
    
34. 
    
35. bool   SOAP_action(CString   addr,   uint16   port,   const   CString   request,   CString   &response)
    
36. {
    / ~4 u  T0 A: ]7 }: d
37. char   buffer[10240];
    
38. 
    8 @. f' v; M7 z( C0 z  I& A) L
39. const   CStringA   sa(request);
    $ ?  _7 i4 Y4 U
40. int   length   =   sa.GetLength();
    
41. strcpy(buffer,   (const   char*)sa);
    
42. 
    - c& y9 a: L6 M7 L' ~
43. uint32   ip   =   inet_addr(CStringA(addr));
    
44. struct   sockaddr_in   sockaddr;
    7 B( k( C0 V% \# \8 u! o3 G/ p% @* }, |
45. memset(&sockaddr,   0,   sizeof(sockaddr));
    6 i( r2 V+ |" `8 [( g  {- M
46. sockaddr.sin_family   =   AF_INET;
    " C! g$ v3 d! O
47. sockaddr.sin_port   =   htons(port);
    9 [4 t0 x/ g; O1 \# s" ~; q
48. sockaddr.sin_addr.S_un.S_addr   =   ip;
    
49. int   s   =   socket(AF_INET,   SOCK_STREAM,   0);
    8 V1 p" E; N0 F) A
50. u_long   lv   =   1;
    # K( a6 q- R" g0 f% p  P1 x
51. ioctlsocket(s,   FIONBIO,   &lv);
    
52. connect(s,   (struct   sockaddr   *)&sockaddr,   sizeof(sockaddr));
    ' j% c% T# m+ J6 w0 t( _8 S& @+ S
53. Sleep(20);
    
54. int   n   =   send(s,   buffer,   length,   0);
    
55. Sleep(100);
    
56. int   rlen   =   recv(s,   buffer,   sizeof(buffer),   0);
    
57. closesocket(s);
    ; z4 u0 ^" W) d5 y+ S+ g* E! T
58. if   (rlen   ==   SOCKET_ERROR)   return   false;
    
59. if   (!rlen)   return   false;
    
60. 
    
61. response   =   CString(CStringA(buffer,   rlen));
    
62. 
    . f: W2 E" ?& v7 M- h, I! ]
63. return   true;
    
64. }
    
65. 
    
66. int   SSDP_sendRequest(int   s,   uint32   ip,   uint16   port,   const   CString&   request)
    
67. {
    
68. char   buffer[10240];
    5 [% G6 b# e; _6 z
69. 
    
70. const   CStringA   sa(request);
    
71. int   length   =   sa.GetLength();
    
72. strcpy(buffer,   (const   char*)sa);
    
73. 
    3 W# L* o2 I' t% B5 U
74. struct   sockaddr_in   sockaddr;
    - [8 A+ n! Z* a# S7 v( |
75. memset(&sockaddr,   0,   sizeof(sockaddr));
    
76. sockaddr.sin_family   =   AF_INET;
    8 H1 @2 I% J7 C! R0 z
77. sockaddr.sin_port   =   htons(port);
    
78. sockaddr.sin_addr.S_un.S_addr   =   ip;
    8 }2 a) J5 V- e. v8 E" d
79. 
    + H; O  S( R" }' J- n% @
80. return   sendto(s,   buffer,   length,   0,   (struct   sockaddr   *)&sockaddr,   sizeof(sockaddr));
      |' m' O$ q8 _% `* G; L$ t' o/ a
81. }
    
82. 
    1 Q# S0 N0 j% ^, r- X
83. bool   parseHTTPResponse(const   CString&   response,   CString&   result)
    
84. {
    
85. int   pos   =   0;
    
86. 
    4 l$ X: ]3 u! ?2 Z& S! V$ t
87. CString   status   =   response.Tokenize(_T( "\r\n "),   pos);
    ; a& x7 B0 @+ D
88. 
    4 \; T% C3 B* t+ d/ Y6 e& ?
89. result   =   response;
    
90. result.Delete(0,   pos);
    
91. 
    9 ?- Z/ m# a. C
92. pos   =   0;
    
93. status.Tokenize(_T( "   "),   pos);
    
94. status   =   status.Tokenize(_T( "   "),   pos);
    " \9 O7 p0 D7 z, J$ n4 D: a
95. if   (status.IsEmpty()   ||   status[0]!= '2 ')   return   false;
    8 c2 b$ V, z+ }# E& d% F* p+ @
96. return   true;
    
97. }
    
98. 
    
99. const   CString   getProperty(const   CString&   all,   const   CString&   name)
    
100. {
     
101. CString   startTag   =   ' < '   +   name   +   '> ';
     6 ]3 e9 H; A& e6 y
102. CString   endTag   =   _T( " </ ")   +   name   +   '> ';
     
103. CString   property;
     6 m7 C% ?" _. B0 N
104. 
     1 z0 Y+ y' k5 B) y$ h% G: K0 I* F
105. int   posStart   =   all.Find(startTag);
     
106. if   (posStart <0)   return   CString();
     # e. P. f7 \9 Z" b2 @+ q2 i
107. 
     - X! M. }& W1 e8 X+ h# ^6 V' K
108. int   posEnd   =   all.Find(endTag,   posStart);
     
109. if   (posStart> =posEnd)   return   CString();
     ( J% J9 \2 c3 ]; U
110. 
     ' Z# o/ Z' {* |1 L; p1 f
111. return   all.Mid(posStart   +   startTag.GetLength(),   posEnd   -   posStart   -   startTag.GetLength());
     ) I4 P' E+ U5 D+ G+ L$ Y$ r; N
112. }
     
113. 
     : Z9 H3 u" U$ C# c* e! B
114. MyUPnP::MyUPnP()
     
115. :   m_version(1)
     
116. {
     
117. m_uLocalIP   =   0;
     
118. isSearched   =   false;
     
119. }
     
120. 
     
121. MyUPnP::~MyUPnP()
     ) K. F/ M9 k7 j( }
122. {
     ) k5 }9 C- h5 @- z; }' r
123. UPNPNAT_MAPPING   search;
     0 U; X  R: p9 N3 C
124. POSITION   pos   =   m_Mappings.GetHeadPosition();
     1 q; L/ ~4 C' L' s
125. while(pos){
     
126. search   =   m_Mappings.GetNext(pos);
     
127. RemoveNATPortMapping(search,   false);
     4 Q9 C( S( I% ^9 [
128. }
     2 @) D2 n0 |' h' `' S' L% G
129. 
     / q; A$ I, k; _7 }2 F3 v
130. m_Mappings.RemoveAll();
     
131. }
     8 c+ K! L" k4 a' |1 C
132. 
     7 p2 I8 [" q, v3 N' Y; V; V" F
133. 
     - E  r; n5 d6 H
134. bool   MyUPnP::InternalSearch(int   version)
     6 N% X5 B9 p; @9 q3 x+ M. }/ K, ?
135. {
     
136. if(version <=0)version   =   1;
     - ^* _. t6 t' ^) K4 q, E' [) a
137. m_version   =   version;
     
138. 
     
139. #define   NUMBEROFDEVICES 2
     
140. CString   devices[][2]   =   {
     
141. {UPNPPORTMAP1,   _T( "service ")},
     ' f+ |: Y# _' E! ]( M
142. {UPNPPORTMAP0,   _T( "service ")},
     : s" [7 T% G! [$ y# S( \9 i% n
143. {_T( "InternetGatewayDevice "),   _T( "device ")},
     
144. };
     
145. 
     
146. int   s   =   socket(AF_INET,   SOCK_DGRAM,   0);
     2 F% L8 d# z) w9 y
147. u_long   lv   =   1;
     
148. ioctlsocket(s,   FIONBIO,   &lv);
     
149. 
     
150. int   rlen   =   0;
     
151. for   (int   i=0;   rlen <=0   &&   i <500;   i++)   {
     
152. if   (!(i%100))   {
       U: z, j, ~, w- s! ~
153. for   (int   i=0;   i <NUMBEROFDEVICES;   i++)   {
     ) D- L% ]9 R4 Z! X7 M
154. m_name.Format(_T( "%s%s:%s:%d "),   URNPREFIX,   devices[i][1],   devices[i][0],   version);
     
155. CString   request;
     " ^+ N/ I7 U/ b" i2 ]1 x
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 "),
     
157. 6,   m_name);
     ; o$ _# H* x; M' f  s1 p, F, ~5 U6 @3 _
158. SSDP_sendRequest(s,   UPNPADDR,   UPNPPORT,   request);
     
159. }
     / X+ ^$ I9 m& |0 J
160. }
     1 W, q7 Q. n% X9 A, g
161. 
     
162. Sleep(10);
     4 k) N! K* _. x: N: @
163. 
     , v/ T7 G2 O* O$ Y2 N4 X
164. char   buffer[10240];
     - i2 ^0 s. ~% t2 C# {
165. rlen   =   recv(s,   buffer,   sizeof(buffer),   0);
     
166. if   (rlen   <=   0)   continue;
     7 s% ?3 L, P! I* k
167. closesocket(s);
     
168. 
     2 v. ^, w+ g; v( L5 M
169. CString   response   =   CString(CStringA(buffer,   rlen));
     2 O" d" C' O9 ^" e( g7 X! }& M- j
170. CString   result;
     
171. if   (!parseHTTPResponse(response,   result))   return   false;
     - R" f  i3 l' A- k$ v) E- ]
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);
     0 l! K( k: {6 C3 i0 G
175. if   (result.Find(m_name)   > =   0)   {
     ' f+ E; J# b8 p6 a' W
176. for   (int   pos   =   0;;)   {
     & k5 U, b9 o7 |$ s
177. CString   line   =   result.Tokenize(_T( "\r\n "),   pos);
     2 t4 R% m9 \) L! R5 L
178. if   (line.IsEmpty())   return   false;
     ( f" O+ Y" a: V; s) X1 q; [, V
179. CString   name   =   line.Mid(0,   9);
     ' J8 q- q( B) s! h# \+ E* o, _2 w
180. name.MakeUpper();
     
181. if   (name   ==   _T( "LOCATION: "))   {
     4 U1 T9 _+ d6 ]; l6 _
182. line.Delete(0,   9);
     ' q( s4 N8 _8 D$ d0 }
183. m_description   =   line;
     
184. m_description.Trim();
     2 X/ Y& n  M. B2 `- g
185. return   GetDescription();
     
186. }
     2 }, e' P/ p) I; n  w
187. }
     1 Q* t5 u3 [9 _  J, N' X! |- i- p
188. }
     
189. }
     ) K* l9 U1 ]. j3 F
190. }
     
191. closesocket(s);
     
192. 
     % n/ I; e7 }; q4 r3 y6 c
193. return   false;
     4 W) L! Y, [# c( A7 x5 X
194. }
     

复制代码

天云上人

以下有关upnp的接口来自emule，
6 S- L, ?) Q, L) e. o# m3 O8 c+ ]
: T% i+ g2 j$ R! ^4 n
7 ^" X8 y4 f% C5 y/ F- U///////////////////////////////////////////
//upnp的抽象接口类,只需调用这些接口即可实现端口映射功能.


#pragma once
' G/ F4 H( f% U. {  P#include <exception>
# ^' N7 j& R$ Q4 ~9 I

! @2 z& a; X' `* A6 k  enum TRISTATE{
% p' l$ L7 |/ q) x! Z. H  F        TRIS_FALSE,
- L5 L% {! x2 T% r! u$ S9 {        TRIS_UNKNOWN,
4 i/ V! i2 U, f& x8 }8 j$ P        TRIS_TRUE
};
$ d' v! K8 m! Z- {- B5 z
1 O$ b4 D$ V% `7 L" Z0 T; Z
enum UPNP_IMPLEMENTATION{
        UPNP_IMPL_WINDOWSERVICE = 0,
, N& ]2 y$ h& ?+ X9 Q        UPNP_IMPL_MINIUPNPLIB,
        UPNP_IMPL_NONE /*last*/
};

  c5 V' Z5 y/ Z$ P
- D+ d* p; p: t* b1 O( P0 t, _6 R. S# c

7 i* |, A0 z* [  S! ~class CUPnPImpl
{
public:
( S0 e+ f4 e. m, ]/ m& k        CUPnPImpl();
        virtual ~CUPnPImpl();
2 D3 M5 C8 m$ C* W% V1 T        struct UPnPError : std::exception {};
        enum {
$ a+ a9 C0 H3 E- O                UPNP_OK,
2 S$ Q9 L' h7 i4 C                UPNP_FAILED,
                UPNP_TIMEOUT
' \1 A, ~6 q* _# h2 n        };
% ?. b) {4 ?; e( E( W) K
# B+ b0 r6 q1 ^* k7 H
        virtual void        StartDiscovery(uint16 nTCPPort, uint16 nUDPPort, uint16 nTCPWebPort) = 0;
9 D. o5 C* f3 h1 T& }0 w        virtual bool        CheckAndRefresh() = 0;
        virtual void        StopAsyncFind() = 0;
        virtual void        DeletePorts() = 0;
* q5 p" v) @- F        virtual bool        IsReady() = 0;
        virtual int                GetImplementationID() = 0;
$ E3 Y3 Q; N' ~6 F5 Z; |6 }$ ]       
        void                        LateEnableWebServerPort(uint16 nPort); // Add Webserverport on already installed portmapping


        void                        SetMessageOnResult(HWND hWindow, UINT nMessageID);
% A, M# E# R3 h( O( o        TRISTATE                ArePortsForwarded() const                                                                { return m_bUPnPPortsForwarded; }
        uint16                        GetUsedTCPPort()                                                                                { return m_nTCPPort; }
. O! p4 p' k5 f        uint16                        GetUsedUDPPort()                                                                                { return m_nUDPPort; }       
) Z: w( T# Q8 B  s% @0 A% o
' m' `. \  @' F
// Implementation
& v/ d1 N9 R$ W% f$ \/ j% s+ Oprotected:
        volatile TRISTATE        m_bUPnPPortsForwarded;
& I" v8 N6 Q$ x$ Q' R        void                                SendResultMessage();
        uint16                                m_nUDPPort;
        uint16                                m_nTCPPort;
        uint16                                m_nTCPWebPort;
# N, U- ^- {$ R; ~        bool                                m_bCheckAndRefresh;
/ ~& m! Q9 L: t- E0 p9 P$ t+ g

. L: ^: M7 R' l1 tprivate:
! d) I/ \4 q& P" [( a1 \        HWND        m_hResultMessageWindow;
        UINT        m_nResultMessageID;

. @1 Z- {7 E  \& @6 @
};
$ a- w8 U+ C+ T+ z& X1 O: S

. _/ P* @7 x' x# \- B4 W* S// Dummy Implementation to be used when no other implementation is available
class CUPnPImplNone: public CUPnPImpl
{
public:
3 y  O) x2 ]3 ~0 i- c' D/ i        virtual void        StartDiscovery(uint16, uint16, uint16)                                        { ASSERT( false ); }
7 ^. n8 \8 _8 L) Z- H        virtual bool        CheckAndRefresh()                                                                                { return false; }
        virtual void        StopAsyncFind()                                                                                        { }
, p6 w8 ^& F1 t        virtual void        DeletePorts()                                                                                        { }
$ U0 v; p& Y7 P1 Z9 D# x) u0 t! }        virtual bool        IsReady()                                                                                                { return false; }
; y0 S( p- p% r9 Q. z* y8 K! v3 R        virtual int                GetImplementationID()                                                                        { return UPNP_IMPL_NONE; }
# m# A6 Z/ @  j# m, \& _};

/ S! ^# O4 B1 ?" O
/ G+ o; y  U$ ~- m$ k3 k8 O7 E6 N/////////////////////////////////////
4 b4 _$ ~. _* S& c//下面是使用windows操作系统自带的UPNP功能的子类

$ \9 y& i# u* I3 r* A$ L
3 [  G! a  j; m% o4 l#pragma once
#pragma warning( disable: 4355 )

/ G( c, k& |9 X. L% v
7 A5 l6 \0 L: k3 d#include "UPnPImpl.h"
1 t, E( w$ i9 V) B8 O#include <upnp.h>
#include <iphlpapi.h>
+ F' H$ U4 I) g- n#include <comdef.h>
#include <winsvc.h>
8 |, Y* ?+ w8 ?2 m' b
2 Q. C. O0 }: V& C- e' t
#include <vector>
* R' K) _) I( o/ R3 @5 Y#include <exception>
#include <functional>


- K+ r: I0 T) V) w3 w
; ]* F: M; X; |" J5 m
6 r5 l! x+ l9 i8 L. `typedef _com_ptr_t<_com_IIID<IUPnPDeviceFinder,&IID_IUPnPDeviceFinder> >        FinderPointer;
typedef _com_ptr_t<_com_IIID<IUPnPDevice,&IID_IUPnPDevice>        >                                DevicePointer;
( O, N$ j4 P# Q- Vtypedef _com_ptr_t<_com_IIID<IUPnPService,&IID_IUPnPService> >                                ServicePointer;
typedef        _com_ptr_t<_com_IIID<IUPnPDeviceFinderCallback,&IID_IUPnPDeviceFinderCallback> > DeviceFinderCallback;
; {/ q/ d- K' f/ ?. A* Dtypedef        _com_ptr_t<_com_IIID<IUPnPServiceCallback,&IID_IUPnPServiceCallback> >                        ServiceCallback;
typedef _com_ptr_t<_com_IIID<IEnumUnknown,&IID_IEnumUnknown> >                                EnumUnknownPtr;
typedef _com_ptr_t<_com_IIID<IUnknown,&IID_IUnknown> >                                                UnknownPtr;


! v/ |& O" g, stypedef DWORD (WINAPI* TGetBestInterface) (
  IPAddr dwDestAddr,
$ w7 ~, {% H% Y+ ~! I  PDWORD pdwBestIfIndex
  h3 }- `7 R& e$ P' K# t) x8 q);
$ v# f( ^8 Q& c; o
$ I) c% ^6 R* w1 {- R; k' Q) T
typedef DWORD (WINAPI* TGetIpAddrTable) (
$ Z  W  ~) s; e! h, i  PMIB_IPADDRTABLE pIpAddrTable,
4 I- q  F# A- N! B  e6 u  W  PULONG pdwSize,
  BOOL bOrder
" m0 `0 ]+ V2 w% k3 Y);
" R6 ?' N* Z" J4 y2 m* q* n
' h0 t2 D- e1 y$ }+ t! D. |" |" l  [
typedef DWORD (WINAPI* TGetIfEntry) (
2 j# }; K2 n$ O, C- R: {  PMIB_IFROW pIfRow
);

4 `( o2 X! h% r7 F7 G2 C5 A/ w0 Q/ |
CString translateUPnPResult(HRESULT hr);
HRESULT UPnPMessage(HRESULT hr);
/ R0 c; q1 B0 D% R- \; B/ Q
" G4 N. Z9 O6 C8 Q# d( M
! P7 |9 k3 |; }" m7 i. C1 gclass CUPnPImplWinServ: public CUPnPImpl
4 q& N% J& Y5 L5 }# F$ e{
        friend class CDeviceFinderCallback;
        friend class CServiceCallback;
) t; R' @0 P1 f4 ^// Construction
6 P" ?5 m$ J% y8 B1 @; ~+ Ypublic:
        virtual ~CUPnPImplWinServ();
- m/ t# y0 s( ]* W# q( J2 [        CUPnPImplWinServ();
) o' B; k# P( N8 {0 p
9 c& h: n: Q( D7 h: W- l$ I: b: j
        virtual void        StartDiscovery(uint16 nTCPPort, uint16 nUDPPort, uint16 nTCPWebPort)                { StartDiscovery(nTCPPort, nUDPPort, nTCPWebPort, false); }
$ w1 L/ _# L. }) S1 B5 k        virtual void        StopAsyncFind();
        virtual void        DeletePorts();
        virtual bool        IsReady();
1 y5 k2 c9 E7 }6 ^1 B) H) {' X: w        virtual int                GetImplementationID()                                                                        { return UPNP_IMPL_WINDOWSERVICE; }
4 ^/ a# [/ P9 p
. ~$ b8 {8 _8 t2 ^0 [, u. z9 M
# H6 [8 x+ s# Z! Y* m/ N0 I        // No Support for Refreshing on this  (fallback) implementation yet - in many cases where it would be needed (router reset etc)
        // the windows side of the implementation tends to get bugged untill reboot anyway. Still might get added later
6 h9 Z" q7 z7 P/ x/ ]8 \        virtual bool        CheckAndRefresh()                                                                                { return false; };

; @) u$ m2 h6 g. D; W
$ c: ~& y1 ^6 I0 |; H) i4 o( U: Oprotected:
        void        StartDiscovery(uint16 nTCPPort, uint16 nUDPPort, uint16 nTCPWebPort, bool bSecondTry);
  p( s+ d9 q( `6 Y  k        void        AddDevice(DevicePointer pDevice, bool bAddChilds, int nLevel = 0);
5 d) D. V' g0 v9 I9 ?8 ?        void        RemoveDevice(CComBSTR bsUDN);
        bool        OnSearchComplete();
        void        Init();


& w8 i8 w" s' e' l& s; j; h. y        inline bool IsAsyncFindRunning()
        {
                if ( m_pDeviceFinder != NULL && m_bAsyncFindRunning && GetTickCount() - m_tLastEvent > 10000 )
. N1 Q9 l) H0 S3 y- Y# D& O                {
2 P" |2 u% x( B/ i/ J% W1 J) U                        m_pDeviceFinder->CancelAsyncFind( m_nAsyncFindHandle );
                        m_bAsyncFindRunning = false;
1 }! I9 O. K9 s                }
                MSG msg;
                while ( PeekMessage( &msg, NULL, 0, 0, PM_REMOVE ) )
                {
                        TranslateMessage( &msg );
. H/ G( N8 k' ?$ s* Y$ p                        DispatchMessage( &msg );
                }
3 p0 J) C* x" t8 w1 ]0 {- [6 A                return m_bAsyncFindRunning;
. t9 j; J! k# x$ \  t$ g5 U$ e        }
3 U% E9 E  `- y) F2 s  z$ N

        TRISTATE                        m_bUPnPDeviceConnected;
- M4 \6 F' K! d9 L! ?3 [

& c) y) R2 ~5 P$ v! b// Implementation
        // API functions
        SC_HANDLE (WINAPI *m_pfnOpenSCManager)(LPCTSTR, LPCTSTR, DWORD);
        SC_HANDLE (WINAPI *m_pfnOpenService)(SC_HANDLE, LPCTSTR, DWORD);
2 O% l2 `( k- P& Q" R" ]* N        BOOL (WINAPI *m_pfnQueryServiceStatusEx)(SC_HANDLE, SC_STATUS_TYPE, LPBYTE, DWORD, LPDWORD);
( F. g8 R, p3 N* M1 |+ ~* p' W        BOOL (WINAPI *m_pfnCloseServiceHandle)(SC_HANDLE);
# f) l8 j; |5 S9 o8 @3 p0 D0 F        BOOL (WINAPI *m_pfnStartService)(SC_HANDLE, DWORD, LPCTSTR*);
        BOOL (WINAPI *m_pfnControlService)(SC_HANDLE, DWORD, LPSERVICE_STATUS);
( D- x- c3 z! b* r- W
# @) c( e' d4 z4 _
        TGetBestInterface                m_pfGetBestInterface;
; F5 E& q% l9 u  p. y' a+ O        TGetIpAddrTable                        m_pfGetIpAddrTable;
        TGetIfEntry                                m_pfGetIfEntry;
2 h7 E9 X$ L0 `) m$ a
9 J/ R& b8 C7 Y+ j  T- d" M, K
( V4 X, {9 E& i* o  [5 ]        static FinderPointer CreateFinderInstance();
        struct FindDevice : std::unary_function< DevicePointer, bool >
        {
                FindDevice(const CComBSTR& udn) : m_udn( udn ) {}
                result_type operator()(argument_type device) const
                {
7 d; M" F( O8 n1 d+ {                        CComBSTR deviceName;
                        HRESULT hr = device->get_UniqueDeviceName( &deviceName );


9 u" s- {! t$ ~4 x0 F                        if ( FAILED( hr ) )
                                return UPnPMessage( hr ), false;

8 y* D7 j& q4 C" t+ R" t! h
                        return wcscmp( deviceName.m_str, m_udn ) == 0;
' X( l, t8 l* L5 U9 ]4 @                }
0 j# Y' H, G# C  C+ k9 Z/ K                CComBSTR m_udn;
        };
7 X" B& P2 Z+ v, f, E, j& i       
        void        ProcessAsyncFind(CComBSTR bsSearchType);
7 B- i- Z) A* ~- m% m        HRESULT        GetDeviceServices(DevicePointer pDevice);
        void        StartPortMapping();
        HRESULT        MapPort(const ServicePointer& service);
        void        DeleteExistingPortMappings(ServicePointer pService);
. K  n' w4 e3 h. L/ a- {        void        CreatePortMappings(ServicePointer pService);
        HRESULT SaveServices(EnumUnknownPtr pEU, const LONG nTotalItems);
3 u* {) G) \' ~5 Q( u' m        HRESULT InvokeAction(ServicePointer pService, CComBSTR action,
                LPCTSTR pszInArgString, CString& strResult);
        void        StopUPnPService();
' O( X3 D/ R) G1 F5 P

        // Utility functions
        HRESULT CreateSafeArray(const VARTYPE vt, const ULONG nArgs, SAFEARRAY** ppsa);
        INT_PTR CreateVarFromString(const CString& strArgs, VARIANT*** pppVars);
! g! l, _- Y) ^        INT_PTR        GetStringFromOutArgs(const VARIANT* pvaOutArgs, CString& strArgs);
+ C+ S0 M! S. O" C( f$ k$ \' f        void        DestroyVars(const INT_PTR nCount, VARIANT*** pppVars);
6 s8 M9 j: E" D8 h        HRESULT GetSafeArrayBounds(SAFEARRAY* psa, LONG* pLBound, LONG* pUBound);
        HRESULT GetVariantElement(SAFEARRAY* psa, LONG pos, VARIANT* pvar);
        CString        GetLocalRoutableIP(ServicePointer pService);
; |( k4 |' q/ [1 ?) `* y
7 x' s( c0 e. s! `% l
// Private members
private:
        DWORD        m_tLastEvent;        // When the last event was received?
% m8 A. d8 C, t' a, }% N; j3 z! x. x        std::vector< DevicePointer >  m_pDevices;
* H3 I% N0 N1 Z8 J+ ^+ u        std::vector< ServicePointer > m_pServices;
        FinderPointer                        m_pDeviceFinder;
        DeviceFinderCallback        m_pDeviceFinderCallback;
        ServiceCallback                        m_pServiceCallback;
7 |2 ?6 s5 M# @% z! H! {

/ n$ i6 {9 y9 @% q0 p5 {3 o! @        LONG        m_nAsyncFindHandle;
        bool        m_bCOM;
# j4 R0 c' Y5 H7 w4 ^8 I3 X* l        bool        m_bPortIsFree;
, J3 T. Y* V# ~+ q! t        CString m_sLocalIP;
$ e) [5 L9 Q" V        CString m_sExternalIP;
        bool        m_bADSL;                // Is the device ADSL?
) K9 V. n3 ]+ ]( s+ Y$ r        bool        m_ADSLFailed;        // Did port mapping failed for the ADSL device?
. t; ^3 v2 Y8 ~  f        bool        m_bInited;
* E0 z+ U3 Y0 N# B' R        bool        m_bAsyncFindRunning;
        HMODULE m_hADVAPI32_DLL;
9 i/ }8 l  B& F7 t8 d        HMODULE        m_hIPHLPAPI_DLL;
9 V% J9 n0 u- P! v1 B( u        bool        m_bSecondTry;
        bool        m_bServiceStartedByEmule;
3 r. B/ Z: M1 e  X0 h        bool        m_bDisableWANIPSetup;
- O: X2 ?! s& |        bool        m_bDisableWANPPPSetup;
( r0 V% a  ?1 h) y
4 {# n: ~. d1 m, Z* E# w
};

2 v( @  a! S& a+ E6 M6 ~# t  ^
( k4 g' N: ~6 w% F// DeviceFinder Callback
  Y$ H+ q0 I9 e/ `% hclass CDeviceFinderCallback
  S+ u+ N; M& E( S; a" ~3 n7 `        : public IUPnPDeviceFinderCallback
{
public:
) \1 m7 R8 |4 Q/ a4 t        CDeviceFinderCallback(CUPnPImplWinServ& instance)
& O. Q, ~1 K+ A5 d( Y. F  D! H                : m_instance( instance )
  J! u. e$ j& t2 g$ s' m        { m_lRefCount = 0; }

# @4 R* B) @) C2 k( [3 T* g
# o  O" a, }8 I* Q5 x   STDMETHODIMP QueryInterface(REFIID iid, LPVOID* ppvObject);
/ j" Y0 l2 h, o   STDMETHODIMP_(ULONG) AddRef();
+ x; R3 ^& z9 D3 h4 s; i   STDMETHODIMP_(ULONG) Release();


( w* V% X3 |4 B- b1 W1 A! x, t// implementation
private:
. p: \; O# q& ^) [' L4 ^        HRESULT __stdcall DeviceAdded(LONG nFindData, IUPnPDevice* pDevice);
3 O( {9 M( ]0 T* \0 v6 O        HRESULT __stdcall DeviceRemoved(LONG nFindData, BSTR bsUDN);
        HRESULT __stdcall SearchComplete(LONG nFindData);


2 L; n) _; t, p; u# I4 u/ @8 V. jprivate:
        CUPnPImplWinServ& m_instance;
" g1 ]; p, d4 a        LONG m_lRefCount;
};


// Service Callback
" G2 q( p1 o- Y) B# w. m0 J, Cclass CServiceCallback
        : public IUPnPServiceCallback
{
( j# Q$ C5 i1 y; H# Vpublic:
        CServiceCallback(CUPnPImplWinServ& instance)
, U" C. ?. E; k9 v                : m_instance( instance )
& e; J& d0 ]! Y0 `* N2 ?1 b        { m_lRefCount = 0; }
" U* V3 w- I& L1 Y5 _# L( R1 U   
   STDMETHODIMP QueryInterface(REFIID iid, LPVOID* ppvObject);
& L4 x8 ?0 L/ Q0 M   STDMETHODIMP_(ULONG) AddRef();
   STDMETHODIMP_(ULONG) Release();


// implementation
! J( j8 d3 X, Eprivate:
- b. A/ {& ^' l( Y1 d        HRESULT __stdcall StateVariableChanged(IUPnPService* pService, LPCWSTR pszStateVarName, VARIANT varValue);
        HRESULT __stdcall ServiceInstanceDied(IUPnPService* pService);
% {: B  _/ l$ x! s
6 n: i; C* W, j4 E
private:
        CUPnPImplWinServ& m_instance;
        LONG m_lRefCount;
) L$ W9 x, M) l, i; J/ F};


/////////////////////////////////////////////////

7 c6 k* @& l6 b, W/ l, d0 U) T
5 j* D9 h; w& `& r" t使用时只需要使用抽象类的接口。
CUPnPImpl::SetMessageOnResult设置需要接受UPNP端口映射是否成功的窗口句柄和消息ID.
CUPnPImpl::StartDiscovery将开启一个异步设备查找并进行端口映射,其参数为需要映射的内网端口.
CUPnPImpl::StopAsyncFind停止设备查找.
) n3 N* T3 v5 {0 w0 }CUPnPImpl::DeletePorts删除端口映射.