UPnP

天云上人

/*uPnP.h*/

1. 
   
2. #ifndef   MYUPNP_H_
   
3. 
   
4. #pragma   once
   
5. 
   7 X5 I- E" G$ [
6. typedef   unsigned   long   ulong;
   - _& x% ~7 e& c3 t
7. 
   : Y5 _  @& H5 c( z) I8 @/ o' ]
8. class   MyUPnP
   
9. {
   . r7 f) I7 H: T! c! X( L* Z
10. public:
    
11. typedef   enum{
    1 ^% `" {0 S2 C" G2 Q3 o
12. UNAT_OK, //   Successfull
    
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
    1 }0 x% i; z7 q' y  h0 a
15. UNAT_EXTERNAL_PORT_IN_USE, //   Error,   you   are   trying   to   add   a   port   mapping   with   an   external   port   in   use
    : Y8 J$ n6 w3 F" X) K6 S
16. UNAT_NOT_IN_LAN //   Error,   you   aren 't   in   a   LAN   ->   no   router   or   firewall
    : Y* G! g- }5 N6 _' M  m
17. }   UPNPNAT_RETURN;
    & [$ W+ Q+ o+ R2 t1 B) N
18. 
    
19. typedef   enum{
    ' z9 Z! s/ e; N' n9 B! E1 x- M( U: W
20. UNAT_TCP, //   TCP   Protocol
    % Y8 A2 @4 X) \, c4 ]
21. UNAT_UDP //   UDP   Protocol
    
22. }   UPNPNAT_PROTOCOL;
    
23. 
    
24. typedef   struct{
    / t/ P5 ~2 F# x& M* o2 e
25. WORD   internalPort; //   Port   mapping   internal   port
    2 m  N) e+ Z2 D- h7 L% p* L. Z
26. WORD   externalPort; //   Port   mapping   external   port
    
27. UPNPNAT_PROTOCOL   protocol; //   Protocol->   TCP   (UPNPNAT_PROTOCOL:UNAT_TCP)   ||   UDP   (UPNPNAT_PROTOCOL:UNAT_UDP)
    6 E! f1 }( ?6 r  q  B- X, |
28. CString   description; //   Port   mapping   description
    % b) R9 R: ]: D  ^. o
29. }   UPNPNAT_MAPPING;
    
30. 
    
31. MyUPnP();
    6 Y5 v6 M3 P7 K) k) Y) c( d' X3 ~% \
32. ~MyUPnP();
    
33. 
    
34. UPNPNAT_RETURN   AddNATPortMapping(UPNPNAT_MAPPING   *mapping,   bool   tryRandom   =   false);
    7 S: p0 c$ a( R3 `# S
35. UPNPNAT_RETURN   RemoveNATPortMapping(UPNPNAT_MAPPING   mapping,   bool   removeFromList   =   true);
    
36. void   clearNATPortMapping();
    
37. 
    3 s$ x4 B! X  M( m
38. CString GetLastError();
    
39. CString GetLocalIPStr();
    , [( n! ^0 r0 ?6 Z* h
40. WORD GetLocalIP();
    7 [' V& k& A: x, N+ Z$ d, c
41. bool IsLANIP(WORD   nIP);
    / _  j' A: Z* r) Z$ c9 p2 x! O
42. 
    
43. protected:
    
44. void InitLocalIP();
    
45. void SetLastError(CString   error);
    4 s2 ~9 m0 v* l. y6 B& C
46. 
    - B# a- p0 ?8 e# s4 W5 u! G* G0 ?) S
47. bool   addPortmap(int   eport,   int   iport,   const   CString&   iclient,
    
48.       const   CString&   descri,   const   CString&   type);
    
49. bool   deletePortmap(int   eport,   const   CString&   type);
    
50. 
    8 l2 a* l+ p! S! |0 l
51. bool isComplete()   const   {   return   !m_controlurl.IsEmpty();   }
    
52. 
    ' \1 T& _# N! a; j( l
53. bool Search(int   version=1);
    % G8 H2 Z' ]1 U# h" L8 O6 q
54. bool GetDescription();
    
55. CString GetProperty(const   CString&   name,   CString&   response);
    2 v+ Y1 C* I+ \2 e6 I* I
56. bool InvokeCommand(const   CString&   name,   const   CString&   args);
    7 q& w0 ], q/ }& |+ V
57. 
    3 U3 _$ e. H' C2 ?6 K
58. bool Valid()const{return   (!m_name.IsEmpty()&&!m_description.IsEmpty());}
    
59. bool InternalSearch(int   version);
    
60. CString m_devicename;
    
61. CString m_name;
    * i& T: P3 Q% w
62. CString m_description;
    3 S5 ~5 t' x* @$ g% q
63. CString m_baseurl;
    
64. CString m_controlurl;
    
65. CString m_friendlyname;
    
66. CString m_modelname;
    
67. int m_version;
    7 K9 V- |9 I* p: K5 h
68. 
    
69. private:
    ' p2 b' v$ s; L: C: ^* u. D
70. CList <UPNPNAT_MAPPING,   UPNPNAT_MAPPING>   m_Mappings;
    / Z8 g; i2 `4 E3 d. \; b2 T9 Y
71. 
    - z- S4 i4 x) r& K
72. CString m_slocalIP;
    0 ?6 x( @4 R* T/ a% k( o- F& e
73. CString m_slastError;
    
74. WORD m_uLocalIP;
    
75. 
    
76. bool isSearched;
    
77. };
    $ q7 u7 r  y3 i- h2 U/ p
78. #endif

复制代码

天云上人

/*UPnP.cpp*/

1. 
   
2. #include   "stdafx.h "
   
3. 
     q( P: l4 m; O, }, k7 y, {
4. #include   "upnp.h "
   $ J8 S  f6 o; t( S5 a
5. 
   
6. #define   UPNPPORTMAP0       _T( "WANIPConnection ")
   
7. #define   UPNPPORTMAP1       _T( "WANPPPConnection ")
   7 p/ @) Q% R/ W
8. #define   UPNPGETEXTERNALIP   _T( "GetExternalIPAddress "),_T( "NewExternalIPAddress ")
   
9. #define   UPNPADDPORTMAP   _T( "AddPortMapping ")
   2 ?  J: _* q" p( E1 K9 N: V7 Z
10. #define   UPNPDELPORTMAP   _T( "DeletePortMapping ")
    8 H6 f2 B7 i; n
11. 
    
12. static   const   ulong UPNPADDR   =   0xFAFFFFEF;
    
13. static   const   int UPNPPORT   =   1900;
    : |# [5 Q& z* C, `, [* ?% B
14. static   const   CString URNPREFIX   =   _T( "urn:schemas-upnp-org: ");
    
15. 
    * h" r0 W5 Y* H" d% S; M9 U) z' h
16. const   CString   getString(int   i)
    6 W- H2 _2 n0 |# _" L
17. {
    . s7 c9 J3 r7 A
18. CString   s;
    / |0 d6 j  I6 B6 O
19. 
    1 s' e  d- ~" P
20. s.Format(_T( "%d "),   i);
    1 P8 V( |5 n% N- P8 u* W
21. 
    ( q2 ^; ]8 m- H$ ^* {
22. return   s;
    3 K  p7 h( E& m  G
23. }
    
24. 
    # y5 @! q( a+ L% K4 V
25. const   CString   GetArgString(const   CString&   name,   const   CString&   value)
    % p) m4 I$ }/ h3 |' b: V4 ?
26. {
    1 J+ e7 O. v7 k% s2 ]1 ^
27. return   _T( " < ")   +   name   +   _T( "> ")   +   value   +   _T( " </ ")   +   name   +   _T( "> ");
    # u8 m, @  O1 g
28. }
    
29. 
    # W& L3 r6 t$ N2 S: U0 \
30. const   CString   GetArgString(const   CString&   name,   int   value)
    
31. {
    5 G+ K. _8 ~# W! w- i# }6 W
32. return   _T( " < ")   +   name   +   _T( "> ")   +   getString(value)   +   _T( " </ ")   +   name   +   _T( "> ");
    
33. }
    - s# ^  p5 X1 o5 h: f% ~
34. 
    
35. bool   SOAP_action(CString   addr,   uint16   port,   const   CString   request,   CString   &response)
    2 q! X5 p( B0 n
36. {
    ) A8 g0 [, W) M6 M. a4 i, {
37. char   buffer[10240];
    
38. 
    
39. const   CStringA   sa(request);
    : k/ d3 ~* r1 g3 V
40. int   length   =   sa.GetLength();
    1 ?+ q/ F1 k# r1 {3 a
41. strcpy(buffer,   (const   char*)sa);
    
42. 
    
43. uint32   ip   =   inet_addr(CStringA(addr));
    % ^2 p# K; i# H/ Z+ c
44. struct   sockaddr_in   sockaddr;
    ! Z% H+ D: F8 s5 a2 t
45. memset(&sockaddr,   0,   sizeof(sockaddr));
    
46. sockaddr.sin_family   =   AF_INET;
    
47. sockaddr.sin_port   =   htons(port);
    7 c& T0 A! b% _1 o3 Q  A& Z
48. sockaddr.sin_addr.S_un.S_addr   =   ip;
    ( n$ N+ ]# F& Z% F5 c( b
49. int   s   =   socket(AF_INET,   SOCK_STREAM,   0);
    9 Z: a# ^" X' u
50. u_long   lv   =   1;
    
51. ioctlsocket(s,   FIONBIO,   &lv);
    
52. connect(s,   (struct   sockaddr   *)&sockaddr,   sizeof(sockaddr));
    
53. Sleep(20);
    $ b$ J; G% k7 N" g7 L3 I! `
54. int   n   =   send(s,   buffer,   length,   0);
    % _% e0 y5 _: ?- d  a
55. Sleep(100);
    
56. int   rlen   =   recv(s,   buffer,   sizeof(buffer),   0);
    
57. closesocket(s);
    2 t' ?6 d4 O+ ^! q$ e7 r  {, p
58. if   (rlen   ==   SOCKET_ERROR)   return   false;
    $ `2 c. {  V; U5 J
59. if   (!rlen)   return   false;
    ( v5 [  [( m! P! o3 _$ A
60. 
    : v1 |5 m& \0 c  s) v* o
61. response   =   CString(CStringA(buffer,   rlen));
    
62. 
    : X3 V+ V5 S/ o1 y" ~8 G
63. return   true;
    , X* ~% }, _: d5 M) T% z' D
64. }
    8 X2 }* p% n% n# L# ^
65. 
    
66. int   SSDP_sendRequest(int   s,   uint32   ip,   uint16   port,   const   CString&   request)
    
67. {
    
68. char   buffer[10240];
    / r' [0 y3 A/ r: [# G# X
69. 
    2 o& W. C% U9 v. P9 G3 A, ?" z
70. const   CStringA   sa(request);
    
71. int   length   =   sa.GetLength();
    
72. strcpy(buffer,   (const   char*)sa);
    
73. 
    ' n+ ~* p1 @: B% W! l
74. struct   sockaddr_in   sockaddr;
    
75. memset(&sockaddr,   0,   sizeof(sockaddr));
    
76. sockaddr.sin_family   =   AF_INET;
    8 d" a  m2 r) w
77. sockaddr.sin_port   =   htons(port);
    
78. sockaddr.sin_addr.S_un.S_addr   =   ip;
    5 O" t( T0 I; a
79. 
    ; X2 c1 n7 N( H# S3 j1 _3 U$ [
80. return   sendto(s,   buffer,   length,   0,   (struct   sockaddr   *)&sockaddr,   sizeof(sockaddr));
    
81. }
    9 M7 G# |9 z: s; {7 ?2 ~* k. z# j
82. 
    
83. bool   parseHTTPResponse(const   CString&   response,   CString&   result)
    
84. {
    ! Y* v6 l/ F& }, s* W4 |4 X
85. int   pos   =   0;
    $ i9 [1 J( z' ]' g7 Y1 R" E
86. 
    # J0 r3 h, j; W7 ]" c4 R0 y& _1 h
87. CString   status   =   response.Tokenize(_T( "\r\n "),   pos);
    0 Z( L/ x/ c5 J; ]" L% Q/ `
88. 
    
89. result   =   response;
    : i' v& n+ L& o" P" m  {
90. result.Delete(0,   pos);
    
91. 
    
92. pos   =   0;
    
93. status.Tokenize(_T( "   "),   pos);
    & n  f4 ]" ~3 ^9 {7 a1 I: @! h
94. status   =   status.Tokenize(_T( "   "),   pos);
    
95. if   (status.IsEmpty()   ||   status[0]!= '2 ')   return   false;
    # j. {! k$ G  |5 Z  P) f$ T4 G. Z
96. return   true;
    
97. }
    
98. 
      f5 x/ F5 o4 n* c. {& `# U
99. const   CString   getProperty(const   CString&   all,   const   CString&   name)
    : N* Z# s6 o5 V, k; A
100. {
     
101. CString   startTag   =   ' < '   +   name   +   '> ';
     
102. CString   endTag   =   _T( " </ ")   +   name   +   '> ';
     
103. CString   property;
     : K; e. x$ `2 r- n) O- k" _3 S
104. 
     + V9 w, j6 _( u( y. G+ ~  r
105. int   posStart   =   all.Find(startTag);
     ( v) D8 o% A5 w5 r! c0 ?
106. if   (posStart <0)   return   CString();
     
107. 
     
108. int   posEnd   =   all.Find(endTag,   posStart);
     ; k4 r2 C* L4 k8 C( e0 j0 d5 Y
109. if   (posStart> =posEnd)   return   CString();
     
110. 
     
111. return   all.Mid(posStart   +   startTag.GetLength(),   posEnd   -   posStart   -   startTag.GetLength());
     
112. }
     & f) k0 O& r: k
113. 
     
114. MyUPnP::MyUPnP()
     
115. :   m_version(1)
     8 o3 u2 K" c/ g- y; x
116. {
     
117. m_uLocalIP   =   0;
     - }$ J1 @0 p* z2 e% L
118. isSearched   =   false;
     
119. }
     7 I6 h: a7 a$ g8 u* k  T3 `7 l
120. 
     
121. MyUPnP::~MyUPnP()
     
122. {
     5 v& T0 ~, B' g* |4 w
123. UPNPNAT_MAPPING   search;
       H# ^3 E& Y+ k! [, Y/ ^9 }: L+ q4 O
124. POSITION   pos   =   m_Mappings.GetHeadPosition();
     
125. while(pos){
     
126. search   =   m_Mappings.GetNext(pos);
     * T4 E( ?1 D. r- M
127. RemoveNATPortMapping(search,   false);
     - `! I. f2 |; C0 }5 p2 I" T" k& T
128. }
     + C0 r- R: P/ t1 O9 D; j) A
129. 
     
130. m_Mappings.RemoveAll();
     
131. }
     4 P6 q7 N4 m, I2 Q# @) ~; C
132. 
     9 J1 Z- F& ~: T
133. 
     : v8 g2 Y2 ]+ J
134. bool   MyUPnP::InternalSearch(int   version)
     
135. {
     
136. if(version <=0)version   =   1;
     ' u- P6 w5 V+ v6 Z
137. m_version   =   version;
     8 [( u- ]( Q8 ^
138. 
     
139. #define   NUMBEROFDEVICES 2
     
140. CString   devices[][2]   =   {
     7 B4 l) N, B4 i* n: o( Y* t; D
141. {UPNPPORTMAP1,   _T( "service ")},
     
142. {UPNPPORTMAP0,   _T( "service ")},
     * d  R3 U0 x/ Z% B) h& K. Q
143. {_T( "InternetGatewayDevice "),   _T( "device ")},
     $ }/ b: J; r$ e8 p
144. };
     " H7 i! U% e! ?* l# B( ~8 B/ T: p
145. 
     ) ]8 Z( @" ?5 X) J0 O0 Z
146. int   s   =   socket(AF_INET,   SOCK_DGRAM,   0);
     ! m0 H' |8 Q: K" a
147. u_long   lv   =   1;
     
148. ioctlsocket(s,   FIONBIO,   &lv);
     
149. 
     ' B" L1 r; j) Q7 c. P
150. int   rlen   =   0;
     + D* \1 V1 ^+ K) l# Q# j
151. for   (int   i=0;   rlen <=0   &&   i <500;   i++)   {
     2 l; h: ], B# a3 i6 i& z6 `$ F6 d
152. if   (!(i%100))   {
     & Y: u  s; R! |- @1 ^
153. for   (int   i=0;   i <NUMBEROFDEVICES;   i++)   {
     8 O  \; c' j. B: z; j8 m
154. m_name.Format(_T( "%s%s:%s:%d "),   URNPREFIX,   devices[i][1],   devices[i][0],   version);
     
155. CString   request;
     ( H- ]2 b$ r3 V8 ^* R; Y
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 "),
     7 {* C. q. r. T& _+ X& C
157. 6,   m_name);
     5 `& ~1 @2 t/ l4 Z- n8 `* Z, N
158. SSDP_sendRequest(s,   UPNPADDR,   UPNPPORT,   request);
     
159. }
     
160. }
     
161. 
     
162. Sleep(10);
     ' A& m9 J, K! |) i7 j
163. 
     
164. char   buffer[10240];
     + f2 W1 f& R8 Q! n) v
165. rlen   =   recv(s,   buffer,   sizeof(buffer),   0);
     
166. if   (rlen   <=   0)   continue;
     9 s  k5 K) \0 q3 {* W8 k6 L
167. closesocket(s);
     ) |1 n5 K5 {$ K  F
168. 
     7 Y4 h  S- j7 I% g* f
169. CString   response   =   CString(CStringA(buffer,   rlen));
     ) _, Q! d4 [8 ^& h# s" S$ a' t
170. CString   result;
     % j# [) o+ `7 T8 w" z0 T1 y- \
171. if   (!parseHTTPResponse(response,   result))   return   false;
     
172. 
     * w! i6 ?$ ?7 Z9 X: ^* u! {/ D
173. for   (int   d=0;   d <NUMBEROFDEVICES;   d++)   {
     , E; ~# [: \  `7 c
174. m_name.Format(_T( "%s%s:%s:%d "),   URNPREFIX,   devices[d][1],   devices[d][0],   version);
     4 P3 o6 @: u! X1 o6 N
175. if   (result.Find(m_name)   > =   0)   {
     8 _8 W- g; K+ k, O6 ?$ }( }( _+ K* n
176. for   (int   pos   =   0;;)   {
     
177. CString   line   =   result.Tokenize(_T( "\r\n "),   pos);
     8 k* d# S2 h' E$ [
178. if   (line.IsEmpty())   return   false;
     
179. CString   name   =   line.Mid(0,   9);
     
180. name.MakeUpper();
     
181. if   (name   ==   _T( "LOCATION: "))   {
     & {9 v5 ]. y3 T' m/ {% p
182. line.Delete(0,   9);
     0 G4 Z* G8 I- T$ w7 f
183. m_description   =   line;
     
184. m_description.Trim();
     6 {  X2 |. Y6 _# b7 M# k/ t3 w
185. return   GetDescription();
     4 W2 ]7 G2 x% a9 H! A
186. }
     6 x3 d3 y, z0 ~2 h- d, S
187. }
     
188. }
     ; U/ Z8 ], n, m( X0 R
189. }
       Z; L5 ^% v+ a5 C) \0 a/ Y5 W
190. }
     
191. closesocket(s);
     : s6 c; p/ y8 K7 s! W! P! o2 |: }( G
192. 
     
193. return   false;
     
194. }
     

复制代码

天云上人

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

! k2 N. N2 v5 J: _
///////////////////////////////////////////
! ~, D3 s9 `1 r//upnp的抽象接口类,只需调用这些接口即可实现端口映射功能.


6 s" [1 T. U# N; A#pragma once
5 x/ c6 b9 H, V* M#include <exception>
) V( v# r, h+ J

  enum TRISTATE{
        TRIS_FALSE,
3 h( p1 ]5 D5 G; Y8 }% T0 @        TRIS_UNKNOWN,
! l# C3 R, y7 B& o/ p/ s) ~9 r        TRIS_TRUE
. X( d4 _5 [& O4 M( l2 M: j1 k* C9 F};
" M+ I) ]: D  e0 f

& _; `2 ?3 w2 N1 Y4 xenum UPNP_IMPLEMENTATION{
0 m! z+ x( w# S8 q        UPNP_IMPL_WINDOWSERVICE = 0,
8 g) {& R% t7 L" q        UPNP_IMPL_MINIUPNPLIB,
        UPNP_IMPL_NONE /*last*/
};


- l7 d/ s0 R6 E

& i! a, s6 X3 H, C7 C0 Qclass CUPnPImpl
{
6 I( ~* c! j9 n' \$ A, i7 \* R8 wpublic:
        CUPnPImpl();
        virtual ~CUPnPImpl();
! i6 J7 h! x0 _3 r7 p+ P+ i        struct UPnPError : std::exception {};
5 T% ^2 S; y& S  Q; L8 [# P        enum {
7 h1 ~+ M: S3 K4 P$ X4 V                UPNP_OK,
                UPNP_FAILED,
                UPNP_TIMEOUT
        };

; M: t% O; _' `
        virtual void        StartDiscovery(uint16 nTCPPort, uint16 nUDPPort, uint16 nTCPWebPort) = 0;
. p  L4 y  {" n        virtual bool        CheckAndRefresh() = 0;
        virtual void        StopAsyncFind() = 0;
& T6 s3 P3 D" L  Q  s' M$ {        virtual void        DeletePorts() = 0;
* u, M% Q, _% @& S$ ~        virtual bool        IsReady() = 0;
1 y6 f/ Y. f# l" f7 I4 H        virtual int                GetImplementationID() = 0;
       
1 H6 }  f. X1 J& k5 `0 B8 ^5 ^        void                        LateEnableWebServerPort(uint16 nPort); // Add Webserverport on already installed portmapping
/ K9 i# Q. N* Q' P

        void                        SetMessageOnResult(HWND hWindow, UINT nMessageID);
        TRISTATE                ArePortsForwarded() const                                                                { return m_bUPnPPortsForwarded; }
5 o5 ]% T9 k: N2 M% F( T& ?! \' w        uint16                        GetUsedTCPPort()                                                                                { return m_nTCPPort; }
- H. R  p' Q" |, f        uint16                        GetUsedUDPPort()                                                                                { return m_nUDPPort; }       


// Implementation
/ o; {! K' t+ k# p! V# Bprotected:
        volatile TRISTATE        m_bUPnPPortsForwarded;
. U9 N" D5 b- E/ D& ^% x  t, x        void                                SendResultMessage();
% U6 k1 D" N* `7 Y3 ]( p        uint16                                m_nUDPPort;
$ w  r5 u4 @7 g( r& D! L% b& C' o5 Q/ b        uint16                                m_nTCPPort;
        uint16                                m_nTCPWebPort;
. ?1 L# F# r! f        bool                                m_bCheckAndRefresh;
1 K$ b& N7 P" q/ I6 n
. Y. p) C: _  e9 \9 ]8 l
private:
        HWND        m_hResultMessageWindow;
; c2 v6 c3 N# l1 j" f- B        UINT        m_nResultMessageID;

2 D4 D, E% i8 P" H3 M" g
+ @  j- b3 p! t6 C};
) W* o& ]# ~* |! D
  m6 p: @) c; _7 ]/ f
// Dummy Implementation to be used when no other implementation is available
/ K7 x7 e/ [$ I: P: M  }class CUPnPImplNone: public CUPnPImpl
6 ]( A5 X) e7 g& R& g) f2 R8 j$ x/ c{
$ P+ c4 ?9 s& W- Gpublic:
        virtual void        StartDiscovery(uint16, uint16, uint16)                                        { ASSERT( false ); }
        virtual bool        CheckAndRefresh()                                                                                { return false; }
        virtual void        StopAsyncFind()                                                                                        { }
        virtual void        DeletePorts()                                                                                        { }
- F" q3 m0 T6 D5 m* y        virtual bool        IsReady()                                                                                                { return false; }
' n0 i  Y/ N( z  I. [, ?) M        virtual int                GetImplementationID()                                                                        { return UPNP_IMPL_NONE; }
4 y' v- N! I5 f! r0 j};


/////////////////////////////////////
/ T# A- n$ T! ?2 J; p+ C//下面是使用windows操作系统自带的UPNP功能的子类


#pragma once
#pragma warning( disable: 4355 )
* v1 e/ q% u- T
' P/ t  |3 I# V/ P: M; U( ]* d
6 l0 ]2 P$ c2 i4 s#include "UPnPImpl.h"
#include <upnp.h>
' o0 g& f5 j9 [. J  M& m1 j#include <iphlpapi.h>
#include <comdef.h>
#include <winsvc.h>
, |6 z5 v; {! y
' D- ~$ n, V) c8 `0 }" p0 G2 w
#include <vector>
% K! E+ I8 b9 _2 a9 q#include <exception>
3 D5 k3 G5 ^6 g6 i2 v$ ~# l. r6 w#include <functional>


4 U- e/ Y9 D3 N0 U+ X5 f" ]
- l; o0 [. R$ f4 x; ]
, z& G7 ~9 x( ~9 \typedef _com_ptr_t<_com_IIID<IUPnPDeviceFinder,&IID_IUPnPDeviceFinder> >        FinderPointer;
6 @# \( ]4 C: Gtypedef _com_ptr_t<_com_IIID<IUPnPDevice,&IID_IUPnPDevice>        >                                DevicePointer;
/ T+ y, O' p" j2 Ntypedef _com_ptr_t<_com_IIID<IUPnPService,&IID_IUPnPService> >                                ServicePointer;
! J1 }. @) {- W4 u0 p$ ptypedef        _com_ptr_t<_com_IIID<IUPnPDeviceFinderCallback,&IID_IUPnPDeviceFinderCallback> > DeviceFinderCallback;
typedef        _com_ptr_t<_com_IIID<IUPnPServiceCallback,&IID_IUPnPServiceCallback> >                        ServiceCallback;
1 Q2 |8 J' z3 C; f; o* l6 T- _typedef _com_ptr_t<_com_IIID<IEnumUnknown,&IID_IEnumUnknown> >                                EnumUnknownPtr;
. e) L4 q& |; J- I" p5 _6 X  Ktypedef _com_ptr_t<_com_IIID<IUnknown,&IID_IUnknown> >                                                UnknownPtr;

2 n. T( ^; N' J/ n0 a
( \( e8 F0 j( A: }typedef DWORD (WINAPI* TGetBestInterface) (
  IPAddr dwDestAddr,
  PDWORD pdwBestIfIndex
$ @8 X; u# U, M' K# f9 |3 \" [);
- l# B/ I# v( j* @+ C) ^% n$ ?
/ [# S: y) k( v' t
' n1 v# N) Y+ T2 a2 O& Htypedef DWORD (WINAPI* TGetIpAddrTable) (
  PMIB_IPADDRTABLE pIpAddrTable,
  PULONG pdwSize,
/ b0 S5 w* S" C; {2 M: }* e5 Q5 o  BOOL bOrder
- q2 C7 D. {! n; Y% g4 c+ F: B);
4 x1 x+ a) T6 e' m$ [" \% e$ Z
5 f2 Q$ r) B1 _. h0 z+ i$ n
. e: {/ C* |% i2 G5 I% r( [1 qtypedef DWORD (WINAPI* TGetIfEntry) (
7 E6 D, X6 m( B  PMIB_IFROW pIfRow
, K; o& W. e! f# V0 H* ?8 M1 T);
+ \5 u) Y2 M  q  p! I
7 v8 e0 w1 P) v* L- o3 j
CString translateUPnPResult(HRESULT hr);
HRESULT UPnPMessage(HRESULT hr);
; n4 S7 p. E: |( G! j
5 ?( m. j3 q$ c- j; ~4 f
class CUPnPImplWinServ: public CUPnPImpl
! Y3 L+ \  B% y! H- `, C9 b: M{
        friend class CDeviceFinderCallback;
- v2 }& O  m+ h! k* e) w' Y) ]        friend class CServiceCallback;
( F' k; t* X1 w3 q, O2 W// Construction
public:
        virtual ~CUPnPImplWinServ();
        CUPnPImplWinServ();
3 [* o  ^) |* w! q4 {
* u  h5 a/ ^# a; h5 {( x( y6 T/ Y
        virtual void        StartDiscovery(uint16 nTCPPort, uint16 nUDPPort, uint16 nTCPWebPort)                { StartDiscovery(nTCPPort, nUDPPort, nTCPWebPort, false); }
        virtual void        StopAsyncFind();
& `* F- ?5 N$ p        virtual void        DeletePorts();
        virtual bool        IsReady();
3 p  T, S; p; a# K4 P8 d        virtual int                GetImplementationID()                                                                        { return UPNP_IMPL_WINDOWSERVICE; }
6 x& T( n( _. ]; A

* L; p7 R' A9 u; i3 P$ ^/ l4 V        // 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
- W  e+ K0 A! m. `( K1 d        virtual bool        CheckAndRefresh()                                                                                { return false; };


% c: ]; `/ T. j& uprotected:
        void        StartDiscovery(uint16 nTCPPort, uint16 nUDPPort, uint16 nTCPWebPort, bool bSecondTry);
        void        AddDevice(DevicePointer pDevice, bool bAddChilds, int nLevel = 0);
        void        RemoveDevice(CComBSTR bsUDN);
( _( U( z6 ?3 z2 P        bool        OnSearchComplete();
        void        Init();
2 O1 B; F7 L1 q6 T/ S, G( l
' o  W" s! O* @! x3 G4 n
" T0 c' X" d/ L  y# Q        inline bool IsAsyncFindRunning()
9 x+ \5 N  j4 l( {9 j+ `/ }        {
7 J% ^2 @4 v+ I                if ( m_pDeviceFinder != NULL && m_bAsyncFindRunning && GetTickCount() - m_tLastEvent > 10000 )
                {
                        m_pDeviceFinder->CancelAsyncFind( m_nAsyncFindHandle );
                        m_bAsyncFindRunning = false;
6 p) s5 n7 y+ G- I( `! p. z                }
                MSG msg;
                while ( PeekMessage( &msg, NULL, 0, 0, PM_REMOVE ) )
# K+ N2 G* `) U                {
                        TranslateMessage( &msg );
                        DispatchMessage( &msg );
: _4 Y6 W. i3 |1 F& d) F                }
                return m_bAsyncFindRunning;
        }
) J5 u; M+ X& n9 j

        TRISTATE                        m_bUPnPDeviceConnected;
& Z9 V! W. U" }# ~; ^

// Implementation
        // API functions
        SC_HANDLE (WINAPI *m_pfnOpenSCManager)(LPCTSTR, LPCTSTR, DWORD);
        SC_HANDLE (WINAPI *m_pfnOpenService)(SC_HANDLE, LPCTSTR, DWORD);
  C- O+ [2 G8 t        BOOL (WINAPI *m_pfnQueryServiceStatusEx)(SC_HANDLE, SC_STATUS_TYPE, LPBYTE, DWORD, LPDWORD);
        BOOL (WINAPI *m_pfnCloseServiceHandle)(SC_HANDLE);
        BOOL (WINAPI *m_pfnStartService)(SC_HANDLE, DWORD, LPCTSTR*);
        BOOL (WINAPI *m_pfnControlService)(SC_HANDLE, DWORD, LPSERVICE_STATUS);


        TGetBestInterface                m_pfGetBestInterface;
        TGetIpAddrTable                        m_pfGetIpAddrTable;
( q; C' W4 o, }4 z2 c        TGetIfEntry                                m_pfGetIfEntry;


        static FinderPointer CreateFinderInstance();
: u% C* J4 m5 Y9 _        struct FindDevice : std::unary_function< DevicePointer, bool >
! i' F5 @5 D3 j5 v" u6 M! Z3 B        {
                FindDevice(const CComBSTR& udn) : m_udn( udn ) {}
                result_type operator()(argument_type device) const
0 n) S( e- S. e  d4 g9 D  f                {
                        CComBSTR deviceName;
                        HRESULT hr = device->get_UniqueDeviceName( &deviceName );
6 I/ A# F* M; ]4 d( \: S

& X1 {( S1 @( i, U' R; D                        if ( FAILED( hr ) )
                                return UPnPMessage( hr ), false;

7 g& _9 o# |6 X5 v4 |' ?. T/ X* L
* O0 `* c  S8 y+ v* ^9 T! O( H7 ~                        return wcscmp( deviceName.m_str, m_udn ) == 0;
                }
; U7 Q, ~+ ?3 Z  c! Y  `) j/ O* z                CComBSTR m_udn;
+ u6 C( S* Q: i9 I1 `) t        };
       
& K! U/ I( |( q+ v" y4 p        void        ProcessAsyncFind(CComBSTR bsSearchType);
        HRESULT        GetDeviceServices(DevicePointer pDevice);
* n' U  h5 ?2 c1 k$ o& l        void        StartPortMapping();
# m' ?' U1 K: b/ ~        HRESULT        MapPort(const ServicePointer& service);
        void        DeleteExistingPortMappings(ServicePointer pService);
) ?, D' r6 V" X" V) K        void        CreatePortMappings(ServicePointer pService);
1 s  i9 x) T& q/ L! T  s0 o        HRESULT SaveServices(EnumUnknownPtr pEU, const LONG nTotalItems);
" y) D$ c5 m- y$ T5 [2 F        HRESULT InvokeAction(ServicePointer pService, CComBSTR action,
                LPCTSTR pszInArgString, CString& strResult);
        void        StopUPnPService();

3 K; M9 g7 ?# q" B1 B& I' ~
0 U/ p' f. V) P  o" o        // Utility functions
        HRESULT CreateSafeArray(const VARTYPE vt, const ULONG nArgs, SAFEARRAY** ppsa);
) w. I3 s* Q- {1 r        INT_PTR CreateVarFromString(const CString& strArgs, VARIANT*** pppVars);
  Q' @5 I, k; x7 \8 r        INT_PTR        GetStringFromOutArgs(const VARIANT* pvaOutArgs, CString& strArgs);
        void        DestroyVars(const INT_PTR nCount, VARIANT*** pppVars);
        HRESULT GetSafeArrayBounds(SAFEARRAY* psa, LONG* pLBound, LONG* pUBound);
  w8 Q) U! j/ O& b; ?" N+ `        HRESULT GetVariantElement(SAFEARRAY* psa, LONG pos, VARIANT* pvar);
3 @+ u0 L+ {. R# p/ O" E& O' t        CString        GetLocalRoutableIP(ServicePointer pService);
- Z6 s' ~: z1 y" s+ \, Y

// Private members
private:
8 Q- a2 v/ e' \& R        DWORD        m_tLastEvent;        // When the last event was received?
3 {& A/ u! \) }* O" V6 {9 ^; y: \5 {        std::vector< DevicePointer >  m_pDevices;
/ S/ M1 K$ T- w, v3 W' |        std::vector< ServicePointer > m_pServices;
        FinderPointer                        m_pDeviceFinder;
        DeviceFinderCallback        m_pDeviceFinderCallback;
        ServiceCallback                        m_pServiceCallback;

3 }) j* \7 p# a% ?0 n
        LONG        m_nAsyncFindHandle;
        bool        m_bCOM;
1 ~$ i/ }9 d" [. l: x: x7 G        bool        m_bPortIsFree;
        CString m_sLocalIP;
! v+ X3 g7 t' ~2 C& y  W        CString m_sExternalIP;
. M" O+ C9 u" H        bool        m_bADSL;                // Is the device ADSL?
& N  x) s9 V+ X3 S9 B* W        bool        m_ADSLFailed;        // Did port mapping failed for the ADSL device?
        bool        m_bInited;
        bool        m_bAsyncFindRunning;
        HMODULE m_hADVAPI32_DLL;
2 P5 Z0 y1 w8 x; G9 P        HMODULE        m_hIPHLPAPI_DLL;
        bool        m_bSecondTry;
# Q0 e, G( I) L. d( P        bool        m_bServiceStartedByEmule;
        bool        m_bDisableWANIPSetup;
        bool        m_bDisableWANPPPSetup;


0 R( S& X) o2 b- i2 d, V};
7 [& u0 p7 o6 }9 g$ _: |4 P

) Z; L6 p' m5 G6 H' n* N5 ]// DeviceFinder Callback
class CDeviceFinderCallback
        : public IUPnPDeviceFinderCallback
{
public:
" V! _1 a6 q  r. y: T) P4 `        CDeviceFinderCallback(CUPnPImplWinServ& instance)
                : m_instance( instance )
( c: Z3 w' M. _8 Z, X        { m_lRefCount = 0; }
1 O- q; v! @, c+ ^) l$ h+ t. Z; e1 C$ _

   STDMETHODIMP QueryInterface(REFIID iid, LPVOID* ppvObject);
   STDMETHODIMP_(ULONG) AddRef();
) b$ ]+ c/ v8 e* A9 x6 [   STDMETHODIMP_(ULONG) Release();

' E7 ~4 w* u( T& Y* n6 h$ z
// implementation
1 R$ D+ E. d1 D  z% B. xprivate:
  ?: g9 z" M4 V' P5 g        HRESULT __stdcall DeviceAdded(LONG nFindData, IUPnPDevice* pDevice);
        HRESULT __stdcall DeviceRemoved(LONG nFindData, BSTR bsUDN);
$ Q6 `8 v- ]% q* S        HRESULT __stdcall SearchComplete(LONG nFindData);


. x, |, \- i8 f3 d& C: Gprivate:
' w0 m( g. V. L; B$ k. K! v* S  M* |0 O6 P        CUPnPImplWinServ& m_instance;
+ ?# L1 ]- b" v3 |7 p        LONG m_lRefCount;
# l+ x" T7 P  o$ l4 g};
9 U& S# n8 W" i6 d$ N9 F2 r1 W1 U+ [  _
) d5 ]: J1 ^6 ~, \+ F& x
// Service Callback
class CServiceCallback
$ f) ~& c7 f% U* Q# f        : public IUPnPServiceCallback
( o9 f) n! F3 v. A# H{
public:
0 f8 g  o9 ~. U; L( u- p7 I" H) |; [        CServiceCallback(CUPnPImplWinServ& instance)
                : m_instance( instance )
        { m_lRefCount = 0; }
   
# y* z9 P& {; v9 J6 s   STDMETHODIMP QueryInterface(REFIID iid, LPVOID* ppvObject);
   STDMETHODIMP_(ULONG) AddRef();
   STDMETHODIMP_(ULONG) Release();


// implementation
private:
        HRESULT __stdcall StateVariableChanged(IUPnPService* pService, LPCWSTR pszStateVarName, VARIANT varValue);
3 p2 i2 [* Z/ S* U        HRESULT __stdcall ServiceInstanceDied(IUPnPService* pService);
+ n0 p- G- u1 S1 U# i+ o$ |$ K

private:
( u2 c7 z1 I0 f        CUPnPImplWinServ& m_instance;
- V1 v2 f+ ^1 b9 s- l        LONG m_lRefCount;
};
5 Q+ H% J3 }$ c* [7 `1 u
- A. s" j6 g2 E% Q$ v
- k3 B3 \& t% S* B/////////////////////////////////////////////////
  R0 Z# L) K) M

0 w- K" S; M3 x$ d8 G使用时只需要使用抽象类的接口。
CUPnPImpl::SetMessageOnResult设置需要接受UPNP端口映射是否成功的窗口句柄和消息ID.
( {) B7 h+ B/ B& R  M) f$ |+ h$ xCUPnPImpl::StartDiscovery将开启一个异步设备查找并进行端口映射,其参数为需要映射的内网端口.
CUPnPImpl::StopAsyncFind停止设备查找.
) e- ~7 `5 X- j; e7 \CUPnPImpl::DeletePorts删除端口映射.