502647092/VBFunctionBas
1
0
Fork 0
mirror of https://e.coding.net/circlecloud/VBFunctionBas.git synced 2025-11-24 21:26:26 +00:00
Code Releases Activity

新增功能模块...

Browse Source 
Signed-off-by: 502647092 <jtb1@163.com>
This commit is contained in:
502647092
2015-10-27 10:36:53 +08:00
parent 8492ab368b
commit db463fa993
4 changed files with 953 additions and 979 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1191
Frm_Tools.bas
View File

File diff suppressed because it is too large Load Diff

447
HttpHelper.bas Normal file
View File

@@ -0,0 +1,447 @@
Attribute VB_Name = "HttpHelper"
'#######################################<23>û<EFBFBD><C3BB>ؼ<EFBFBD>˵<EFBFBD><CBB5>#########################################
'<27><><EFBFBD><EFBFBD>:XmlHttp<74>ؼ<EFBFBD>
'<27><><EFBFBD><EFBFBD>:ʵ<><CAB5>XmlHttp<74><70><EFBFBD><EFBFBD><EFBFBD>紦<EFBFBD><E7B4A6><EFBFBD><EFBFBD><EFBFBD>ܡ<EFBFBD>
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:2014<31><34>6<EFBFBD><36>4<EFBFBD><34>
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'<27><>λ:<3A>Ϻ<EFBFBD><CFBA>ж<EFBFBD><D0B6><EFBFBD>ˮ<EFBFBD>繤<EFBFBD>̰<EFBFBD>װ<EFBFBD><D7B0><EFBFBD>޹<EFBFBD>˾
'#######################################<23>û<EFBFBD><C3BB>ؼ<EFBFBD>˵<EFBFBD><CBB5>#########################################
'****************************************************
'GET<45><54>ҳ<EFBFBD><D2B3>GetData (<28><>ַ As String, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> As DataEnum )
'****************************************************
'POST<53><54>ҳ<EFBFBD><D2B3>PostData (<28><>ַ As String, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> As DataEnum )
'****************************************************
'XmlHttp.Status <20><><EFBFBD><EFBFBD>ֵ
'Web<65><62><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɣ<EFBFBD>һ<EFBFBD><D2BB>״̬<D7B4>У<EFBFBD><D0A3><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>ͷ<EFBFBD><CDB7>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD>У<EFBFBD><D0A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD>򵥵<EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD>
'
'<27><><EFBFBD><EFBFBD>״̬<D7B4>а<EFBFBD><D0B0><EFBFBD>HTTP<54>汾<EFBFBD><E6B1BE>״̬<D7B4><CCAC><EFBFBD>롢<EFBFBD><EBA1A2>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD>ڴ<EFBFBD><DAB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>£<EFBFBD><C2A3><EFBFBD><EFBFBD><EFBFBD>Content-Type֮<65><D6AE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6>ͷ<EFBFBD><CDB7><EFBFBD>ǿ<EFBFBD>ѡ<EFBFBD>ġ<EFBFBD><C4A1><EFBFBD>Content-Type<70>DZ<EFBFBD><C7B1><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ǻ<EFBFBD><C7BA><EFBFBD><EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD>MIME<4D><45><EFBFBD>͡<EFBFBD><CDA1><EFBFBD>Ȼ<EFBFBD><C8BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD>𶼰<EFBFBD><F0B6BCB0><EFBFBD>һ<EFBFBD><D2BB><EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD>Ҳ<EFBFBD><D2B2>һЩ<D2BB><D0A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>HEAD<41><44><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD>Զ<EFBFBD><D4B6><EFBFBD>ḽ<EFBFBD><E1B8BD><EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶһ<CAB6><D2BB>ʧ<EFBFBD>ܵ<EFBFBD><DCB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ЩӦ<D0A9><D3A6>Ҳ<EFBFBD><D2B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD>ֻ<EFBFBD><D6BB><EFBFBD><EFBFBD>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD>̵Ĵ<CCB5><C4B4><EFBFBD><EFBFBD><EFBFBD>Ϣ˵<CFA2><CBB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>ͼͨ<CDBC><CDA8> HTTP <20><><EFBFBD><EFBFBD>һ̨<D2BB><CCA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Internet <20><>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD> (IIS) <20>ķ<EFBFBD><C4B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>IIS <20><><EFBFBD><EFBFBD>һ<EFBFBD><D2BB><EFBFBD><EFBFBD>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD>ִ<EFBFBD><D6B4>롣״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7>ѳɹ<D1B3><C9B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Խ<EFBFBD>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD>ʧ<EFBFBD>ܵ<EFBFBD>ȷ<EFBFBD><C8B7>ԭ<EFBFBD><D4AD><EFBFBD><EFBFBD>
'
'1 xx -<2D><>Ϣ<EFBFBD><CFA2>ʾ
'
'<27><>Щ״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʾ<EFBFBD><CABE>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>յ<EFBFBD><D5B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ֮ǰ<D6AE><C7B0>Ӧ׼<D3A6><D7BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 1xx <20><>Ӧ<EFBFBD><D3A6>
'<27><><EFBFBD><EFBFBD> 100 - Continue <20><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ܣ<EFBFBD><DCA3>ͻ<EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ಿ<EFBFBD>֡<EFBFBD><D6A1><EFBFBD>HTTP 1.1<EFBFBD>£<EFBFBD>
'<27><><EFBFBD><EFBFBD> 101 - Switching Protocols <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӿͻ<D3BF><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ת<EFBFBD><D7AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>Э<EFBFBD>飨HTTP 1.1<EFBFBD>£<EFBFBD>
'
'2 xx -<2D>ɹ<EFBFBD>
'
'<27><><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9>ؽ<EFBFBD><D8BD><EFBFBD><EFBFBD>˿ͻ<CBBF><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?
'<27><><EFBFBD><EFBFBD> 200 - OK һ<><D2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>GET<45><54>POST<53><54><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD>ں<EFBFBD><DABA>档
'<27><><EFBFBD><EFBFBD> 201 - Created <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD>Locationͷ<6E><CDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>URL<52><4C>
'<27><><EFBFBD><EFBFBD> 202 - Accepted <20>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>󣬵<EFBFBD><F3A3ACB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>ɡ<EFBFBD>
'<27><><EFBFBD><EFBFBD> 203 - Non-Authoritative Information <20>ĵ<EFBFBD><C4B5>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ط<EFBFBD><D8B7>أ<EFBFBD><D8A3><EFBFBD>һЩӦ<D0A9><D3A6>ͷ<EFBFBD><CDB7><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD><EFBFBD>Ϊʹ<CEAA>õ<EFBFBD><C3B5><EFBFBD><EFBFBD>ĵ<EFBFBD><C4B5>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>HTTP 1.1<EFBFBD>£<EFBFBD><EFBFBD><EFBFBD>
'<27><><EFBFBD><EFBFBD> 204 - No Content û<><C3BB><EFBFBD><EFBFBD><EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD>ü<EFBFBD><C3BC><EFBFBD><EFBFBD><EFBFBD>ʾԭ<CABE><D4AD><EFBFBD><EFBFBD><EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD>ڵ<EFBFBD>ˢ<EFBFBD><CBA2>ҳ<EFBFBD>棬<EFBFBD><E6A3AC>Servlet<65><74><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD>û<EFBFBD><C3BB>ĵ<EFBFBD><C4B5>㹻<EFBFBD>£<EFBFBD><C2A3><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD>Ǻ<EFBFBD><C7BA><EFBFBD><EFBFBD>õġ<C3B5>
'<27><><EFBFBD><EFBFBD> 205 - Reset Content û<><C3BB><EFBFBD>µ<EFBFBD><C2B5><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD><EFBFBD>ݡ<EFBFBD><DDA1><EFBFBD><EFBFBD><EFBFBD>ǿ<EFBFBD><C7BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>HTTP 1.1<EFBFBD>£<EFBFBD><EFBFBD><EFBFBD>
'<27><><EFBFBD><EFBFBD> 206 - Partial Content <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Rangeͷ<65><CDB7>GET<45><54><EFBFBD>󣬷<EFBFBD><F3A3ACB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>HTTP 1.1<EFBFBD>£<EFBFBD><EFBFBD><EFBFBD>
'
'3 xx -<2D>ض<EFBFBD><D8B6><EFBFBD>
'
'<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>磬<EFBFBD><E7A3AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܲ<EFBFBD><DCB2>ò<EFBFBD><C3B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵIJ<CFB5>ͬ<EFBFBD><CDAC>ҳ<EFBFBD>棬<EFBFBD><E6A3AC>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'<27><><EFBFBD><EFBFBD> 300 - Multiple Choices <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڶ<EFBFBD><DAB6><EFBFBD>λ<EFBFBD><CEBB><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD>Щλ<D0A9><CEBB><EFBFBD>Ѿ<EFBFBD><D1BE>ڷ<EFBFBD><DAB7>ص<EFBFBD><D8B5>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD>г<EFBFBD><D0B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD>LocationӦ<6E><D3A6>ͷָ<CDB7><D6B8><EFBFBD><EFBFBD>
'<27><><EFBFBD><EFBFBD> 301 - Moved Permanently <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ط<EFBFBD><D8B7><EFBFBD><EFBFBD>µ<EFBFBD>URL<52><4C>Locationͷ<6E>и<EFBFBD><D0B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD>Զ<EFBFBD><D4B6>ط<EFBFBD><D8B7><EFBFBD><EFBFBD>µ<EFBFBD>URL<52><4C>
'<27><><EFBFBD><EFBFBD> 302 - Found <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>301<30><31><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD>URLӦ<4C>ñ<EFBFBD><C3B1><EFBFBD>Ϊ<EFBFBD><CEAA>ʱ<EFBFBD>Ե<EFBFBD><D4B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Եġ<D4B5>ע<EFBFBD>⣬<EFBFBD><E2A3AC>HTTP1.0<EFBFBD>ж<EFBFBD>Ӧ<EFBFBD><EFBFBD>״̬<EFBFBD><EFBFBD>Ϣ<EFBFBD>ǡ<EFBFBD>Moved Temporatily<6C><79><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ָ<EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܹ<EFBFBD><DCB9>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD>URL<52><4C><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>õ<EFBFBD>״̬<D7B4><CCAC><EFBFBD>롣ע<EBA1A3><D7A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD>Ժ<EFBFBD>301<30>滻ʹ<E6BBBB>á<EFBFBD><C3A1><EFBFBD><EFBFBD>磬<EFBFBD><E7A3AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> http://host/~user <20><>ȱ<EFBFBD><C8B1><EFBFBD>˺<EFBFBD><CBBA><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD>еķ<D0B5><C4B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>301<30><31><EFBFBD>е<EFBFBD><D0B5>򷵻<EFBFBD>302<30><32><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֻ<EFBFBD>ܼٶ<DCBC>ֻ<EFBFBD>е<EFBFBD>ԭ<EFBFBD><D4AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>GETʱ<54><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ż<EFBFBD><C5BB>Զ<EFBFBD><D4B6>ض<EFBFBD><D8B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>μ<EFBFBD>307<30><37>
'<27><><EFBFBD><EFBFBD> 303 - See Other <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>301/302<30><32><EFBFBD><EFBFBD>֮ͬ<CDAC><D6AE><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>POST<53><54>Locationͷָ<CDB7><D6B8><EFBFBD><EFBFBD><EFBFBD>ض<EFBFBD><D8B6><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD>ĵ<EFBFBD>Ӧ<EFBFBD><D3A6>ͨ<EFBFBD><CDA8>GET<45><54>ȡ<EFBFBD><C8A1>HTTP 1.1<EFBFBD>£<EFBFBD><EFBFBD><EFBFBD>
'<27><><EFBFBD><EFBFBD> 304 - Not Modified <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>л<EFBFBD><D0BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ե<EFBFBD><D4B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD>ṩIf-Modified-Sinceͷ<65><CDB7>ʾ<EFBFBD>ͻ<EFBFBD>ֻ<EFBFBD><D6BB><EFBFBD><EFBFBD>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD><EFBFBD>ڸ<EFBFBD><DAB8>µ<EFBFBD><C2B5>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>߿ͻ<DFBF><CDBB><EFBFBD>ԭ<EFBFBD><D4AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Լ<EFBFBD><D4BC><EFBFBD>ʹ<EFBFBD>á<EFBFBD>
'<27><><EFBFBD><EFBFBD> 305 - Use Proxy <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ĵ<EFBFBD>Ӧ<EFBFBD><D3A6>ͨ<EFBFBD><CDA8>Locationͷ<6E><CDB7>ָ<EFBFBD><D6B8><EFBFBD>Ĵ<EFBFBD><C4B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1>HTTP 1.1<EFBFBD>£<EFBFBD><EFBFBD><EFBFBD>
'<27><><EFBFBD><EFBFBD> 307 - Temporary Redirect <20><>302<30><32>Found<6E><64><EFBFBD><EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ302Ӧ<32><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ض<EFBFBD><D8B6>򣬼<EFBFBD>ʹԭ<CAB9><D4AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>POST<53><54><EFBFBD><EFBFBD>ʹ<EFBFBD><CAB9>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD>ֻ<EFBFBD><D6BB><EFBFBD><EFBFBD>POST<53><54><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD>303ʱ<33><CAB1><EFBFBD><EFBFBD><EFBFBD>ض<EFBFBD><D8B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD><EFBFBD><EFBFBD>HTTP 1.1<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>307<EFBFBD><EFBFBD><EFBFBD>Ա<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ּ<EFBFBD><EFBFBD><EFBFBD>״̬<EFBFBD><EFBFBD><EFBFBD>룺<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>303Ӧ<EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ը<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ض<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>GET<EFBFBD><EFBFBD>POST<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>307Ӧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֻ<EFBFBD>ܸ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>GET<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ض<EFBFBD><EFBFBD>򡣣<EFBFBD>HTTP 1.1<EFBFBD>£<EFBFBD>
'
'4 xx -<2D>ͻ<EFBFBD><CDBB>˴<EFBFBD><CBB4><EFBFBD>
'
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>󣬿ͻ<F3A3ACBF><CDBB><EFBFBD><EFBFBD>ƺ<EFBFBD><C6BA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⡣<EFBFBD><E2A1A3><EFBFBD>磬<EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>󲻴<EFBFBD><F3B2BBB4>ڵ<EFBFBD>ҳ<EFBFBD>棬<EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD>δ<EFBFBD>ṩ<EFBFBD><E1B9A9>Ч<EFBFBD><D0A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֤<EFBFBD><D6A4>Ϣ<EFBFBD><CFA2>
'
'<27><><EFBFBD><EFBFBD> 400 - Bad Request <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>﷨<EFBFBD><EFB7A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'<27><><EFBFBD><EFBFBD> 401 - Unauthorized <20><><EFBFBD>ʱ<EFBFBD><CAB1>ܾ<EFBFBD><DCBE><EFBFBD><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD>ͼδ<CDBC><CEB4><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>뱣<EFBFBD><EBB1A3><EFBFBD><EFBFBD>ҳ<EFBFBD>档Ӧ<E6A1A3><D3A6><EFBFBD>л<EFBFBD><D0BB><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>WWW-Authenticateͷ<65><CDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD>ʾ<EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD>/<2F><><EFBFBD><EFBFBD><EFBFBD>Ի<EFBFBD><D4BB><EFBFBD><EFBFBD><EFBFBD>Ȼ<EFBFBD><C8BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д<EFBFBD><D0B4><EFBFBD>ʵ<EFBFBD>Authorizationͷ<6E><CDB7><EFBFBD>ٴη<D9B4><CEB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>IIS <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>಻ͬ<E0B2BB><CDAC> 401 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD>Ĵ<EFBFBD><C4B4><EFBFBD>ԭ<EFBFBD><D4AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Щ<EFBFBD><D0A9><EFBFBD><EFBFBD><EFBFBD>Ĵ<EFBFBD><C4B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> IIS <20><>־<EFBFBD><D6BE><EFBFBD><EFBFBD>ʾ<EFBFBD><CABE>
' <20><> 401.1 - <20><>¼ʧ<C2BC><CAA7>?
' <20><> 401.2 - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>õ<EFBFBD><C3B5>µ<EFBFBD>¼ʧ<C2BC><CAA7>?
'<27><><EFBFBD><EFBFBD> 401.3 - <20><><EFBFBD><EFBFBD> ACL <20><><EFBFBD><EFBFBD>Դ<EFBFBD><D4B4><EFBFBD><EFBFBD><EFBFBD>ƶ<EFBFBD>δ<EFBFBD><CEB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8>
' <20><> 401.4 - ɸѡ<C9B8><D1A1><EFBFBD><EFBFBD>Ȩʧ<C8A8><CAA7>?
'<27><><EFBFBD><EFBFBD> 401.5 - ISAPI/CGI Ӧ<>ó<EFBFBD><C3B3><EFBFBD><EFBFBD><EFBFBD>Ȩʧ<C8A8>ܡ<EFBFBD>
'<27><><EFBFBD><EFBFBD> 401.7 <20>C <20><><EFBFBD>ʱ<EFBFBD> Web <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD> URL <20><>Ȩ<EFBFBD><C8A8><EFBFBD>Ծܾ<D4BE><DCBE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ IIS 6.0 <20><>ר<EFBFBD>á<EFBFBD>
'<27><><EFBFBD><EFBFBD> 403 - Forbidden <20><>Դ<EFBFBD><D4B4><EFBFBD><EFBFBD><EFBFBD>á<EFBFBD><C3A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>󣬵<EFBFBD><F3A3ACB5>ܾ<EFBFBD><DCBE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD><EFBFBD>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>Ŀ¼<C4BF><C2BC>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD><EFBFBD>õ<EFBFBD><C3B5>¡<EFBFBD><C2A1><EFBFBD>ֹ<EFBFBD><D6B9><EFBFBD>ʣ<EFBFBD>IIS <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>಻ͬ<E0B2BB><CDAC> 403 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD>Ĵ<EFBFBD><C4B4><EFBFBD>ԭ<EFBFBD><D4AD><EFBFBD><EFBFBD>
' <20><> 403.1 - ִ<>з<EFBFBD><D0B7>ʱ<EFBFBD><CAB1><EFBFBD>ֹ?
' <20><> 403.2 - <20><><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD>ֹ?
' <20><> 403.3 - д<><D0B4><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD>ֹ?
'<27><><EFBFBD><EFBFBD> 403.4 - Ҫ<><D2AA> SSL<53><4C>
'<27><><EFBFBD><EFBFBD> 403.5 - Ҫ<><D2AA> SSL 128<32><38>
'<27><><EFBFBD><EFBFBD> 403.6 - IP <20><>ַ<EFBFBD><D6B7><EFBFBD>ܾ<EFBFBD><DCBE><EFBFBD>
' <20><> 403.7 - Ҫ<><D2AA><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD>֤<EFBFBD><D6A4>?
' <20><> 403.8 - վ<><D5BE><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>ܾ<EFBFBD>?
' <20><> 403.9 - <20>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?
' <20><> 403.1 - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ч?
' <20><> 403.11 - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?
' <20><> 403.12 - <20>ܾ<EFBFBD><DCBE><EFBFBD><EFBFBD><EFBFBD>ӳ<EFBFBD><D3B3><EFBFBD><EFBFBD>?
' <20><> 403.13 - <20>ͻ<EFBFBD><CDBB><EFBFBD>֤<EFBFBD>鱻<EFBFBD><E9B1BB><EFBFBD><EFBFBD>?
' <20><> 403.14 - <20>ܾ<EFBFBD>Ŀ¼<C4BF>б<EFBFBD>?
' <20><> 403.15 - <20><><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD><CDBB>˷<EFBFBD><CBB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?
' <20><> 403.16 - <20>ͻ<EFBFBD><CDBB><EFBFBD>֤<EFBFBD>鲻<EFBFBD><E9B2BB><EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD><CEBB><EFBFBD>Ч?
' <20><> 403.17 - <20>ͻ<EFBFBD><CDBB><EFBFBD>֤<EFBFBD><D6A4><EFBFBD>ѹ<EFBFBD><D1B9>ڻ<EFBFBD><DABB><EFBFBD>δ<EFBFBD><CEB4>Ч?
'<27><><EFBFBD><EFBFBD> 403.18 - <20>ڵ<EFBFBD>ǰ<EFBFBD><C7B0>Ӧ<EFBFBD>ó<EFBFBD><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>в<EFBFBD><D0B2><EFBFBD>ִ<EFBFBD><D6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> URL<52><4C><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ IIS 6.0 <20><>ר<EFBFBD>á<EFBFBD>
'<27><><EFBFBD><EFBFBD> 403.19 - <20><><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD>Ӧ<EFBFBD>ó<EFBFBD><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>еĿͻ<C4BF><CDBB><EFBFBD>ִ<EFBFBD><D6B4> CGI<47><49><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ IIS 6.0 <20><>ר<EFBFBD>á<EFBFBD>
'<27><><EFBFBD><EFBFBD> 403.20 - Passport <20><>¼ʧ<C2BC>ܡ<EFBFBD><DCA1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ IIS 6.0 <20><>ר<EFBFBD>á<EFBFBD>
'<27><><EFBFBD><EFBFBD> 404 - Not Found <20>޷<EFBFBD><DEB7>ҵ<EFBFBD>ָ<EFBFBD><D6B8>λ<EFBFBD>õ<EFBFBD><C3B5><EFBFBD>Դ<EFBFBD><D4B4><EFBFBD><EFBFBD>Ҳ<EFBFBD><D2B2>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD>õ<EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD>
'<27><><EFBFBD><EFBFBD> 404.0 -<2D><><EFBFBD>ޣ<EFBFBD> <20>C û<><C3BB><EFBFBD>ҵ<EFBFBD><D2B5>ļ<EFBFBD><C4BC><EFBFBD>Ŀ¼<C4BF><C2BC>
'<27><><EFBFBD><EFBFBD> 404.1 - <20>޷<EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ķ˿<C4B6><CBBF>Ϸ<EFBFBD><CFB7><EFBFBD> Web վ<>㡣
'<27><><EFBFBD><EFBFBD> 404.2 - Web <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>չ<EFBFBD><D5B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֹ<EFBFBD><D6B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'<27><><EFBFBD><EFBFBD> 404.3 - MIME ӳ<><D3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֹ<EFBFBD><D6B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'
'<27><><EFBFBD><EFBFBD> 405 - Method Not Allowed <20><><EFBFBD>󷽷<EFBFBD><F3B7BDB7><EFBFBD>GET<45><54>POST<53><54>HEAD<41><44>DELETE<54><45>PUT<55><54>TRACE<43>ȣ<EFBFBD><C8A3><EFBFBD>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Դ<EFBFBD><D4B4><EFBFBD><EFBFBD><EFBFBD>ã<EFBFBD><C3A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD>ҳ<EFBFBD><D2B3><EFBFBD><EFBFBD> HTTP ν<>ʲ<EFBFBD><CAB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>HTTP 1.1<EFBFBD>£<EFBFBD>
'<27><><EFBFBD><EFBFBD> 406 - Not Acceptable ָ<><D6B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Դ<EFBFBD>Ѿ<EFBFBD><D1BE>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>MIME<4D><45><EFBFBD>ͺͿͻ<CDBF><CDBB><EFBFBD>Accpetͷ<74><CDB7><EFBFBD><EFBFBD>ָ<EFBFBD><D6B8><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҳ<EFBFBD><D2B3><EFBFBD><EFBFBD> MIME <20><><EFBFBD>ͣ<EFBFBD>HTTP 1.1<EFBFBD>£<EFBFBD><EFBFBD><EFBFBD>
'<27><><EFBFBD><EFBFBD> 407 - Proxy Authentication Required Ҫ<><D2AA><EFBFBD><EFBFBD><EFBFBD>д<EFBFBD><D0B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֤<EFBFBD><D6A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>401<30><31><EFBFBD><EFBFBD>ʾ<EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ⱦ<EFBFBD><C8BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD>HTTP 1.1<EFBFBD>£<EFBFBD>
'<27><><EFBFBD><EFBFBD> 408 - Request Timeout <20>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɵĵȴ<C4B5>ʱ<EFBFBD><CAB1><EFBFBD>ڣ<EFBFBD><DAA3>ͻ<EFBFBD>һֱû<D6B1>з<EFBFBD><D0B7><EFBFBD><EFBFBD>κ<EFBFBD><CEBA><EFBFBD><EFBFBD>󡣿ͻ<F3A1A3BF><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ժ<EFBFBD><D4BA>ظ<EFBFBD>ͬһ<CDAC><D2BB><EFBFBD>󡣣<EFBFBD>HTTP 1.1<EFBFBD>£<EFBFBD>
'<27><><EFBFBD><EFBFBD> 409 - Conflict ͨ<><CDA8><EFBFBD><EFBFBD>PUT<55><54><EFBFBD><EFBFBD><EFBFBD>йء<D0B9><D8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Դ<EFBFBD>ĵ<EFBFBD>ǰ״̬<D7B4><CCAC><EFBFBD><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܳɹ<DCB3><C9B9><EFBFBD><EFBFBD><EFBFBD>HTTP 1.1<EFBFBD>£<EFBFBD>
'<27><><EFBFBD><EFBFBD> 410 - Gone <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ĵ<EFBFBD><C4B5>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>ٿ<EFBFBD><D9BF>ã<EFBFBD><C3A3><EFBFBD><EFBFBD>ҷ<EFBFBD><D2B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֪<EFBFBD><D6AA>Ӧ<EFBFBD><D3A6><EFBFBD>ض<EFBFBD><D8B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>404<30>IJ<EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD><EFBFBD><EFBFBD>407<30><37>ʾ<EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD>õ<EFBFBD><C3B5>뿪<EFBFBD><EBBFAA>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD>λ<EFBFBD>ã<EFBFBD><C3A3><EFBFBD>404<30><34>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD>δ֪<CEB4><D6AA>ԭ<EFBFBD><D4AD><EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>á<EFBFBD><C3A1><EFBFBD>HTTP 1.1<EFBFBD>£<EFBFBD>
'<27><><EFBFBD><EFBFBD> 411 - Length Required <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܴ<EFBFBD><DCB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>󣬳<EFBFBD><F3A3ACB3>ǿͻ<C7BF><CDBB><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>Content-Lengthͷ<68><CDB7><EFBFBD><EFBFBD>HTTP 1.1<EFBFBD>£<EFBFBD>
'<27><><EFBFBD><EFBFBD> 412 - Precondition Failed <20><><EFBFBD><EFBFBD>ͷ<EFBFBD><CDB7>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD>һЩǰ<D0A9><C7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>HTTP 1.1<EFBFBD>£<EFBFBD><EFBFBD><EFBFBD>
'<27><><EFBFBD><EFBFBD> 413 <20>C Request Entity Too Large Ŀ<><C4BF><EFBFBD>ĵ<EFBFBD><C4B5>Ĵ<EFBFBD>С<EFBFBD><D0A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǰԸ<C7B0>⴦<EFBFBD><E2B4A6><EFBFBD>Ĵ<EFBFBD>С<EFBFBD><D0A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>Լ<EFBFBD><D4BC>ܹ<EFBFBD><DCB9>Ժ<EFBFBD><D4BA>ٴ<EFBFBD><D9B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD>ṩһ<E1B9A9><D2BB>Retry-Afterͷ<72><CDB7>HTTP 1.1<EFBFBD>£<EFBFBD><EFBFBD><EFBFBD>
'<27><><EFBFBD><EFBFBD> 414 - Request URI Too Long URI̫<49><CCAB><EFBFBD><EFBFBD>HTTP 1.1<EFBFBD>£<EFBFBD><EFBFBD><EFBFBD>
'<27><><EFBFBD><EFBFBD> 415 <20>C <20><>֧<EFBFBD>ֵ<EFBFBD>ý<EFBFBD><C3BD><EFBFBD><EFBFBD><EFBFBD>͡<EFBFBD>
'<27><><EFBFBD><EFBFBD> 416 <20>C Requested Range Not Satisfiable <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD>Rangeͷ<65><CDB7><EFBFBD><EFBFBD>HTTP 1.1<EFBFBD>£<EFBFBD>
'<27><><EFBFBD><EFBFBD> 417 <20>C ִ<><D6B4>ʧ<EFBFBD>ܡ<EFBFBD>
'<27><><EFBFBD><EFBFBD> 423 <20>C <20><><EFBFBD><EFBFBD><EFBFBD>Ĵ<EFBFBD><C4B4><EFBFBD><EFBFBD><EFBFBD>
'
'5 xx -<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɸ<EFBFBD><C9B8><EFBFBD><EFBFBD><EFBFBD>?
'
'<27><><EFBFBD><EFBFBD> 500 - Internal Server Error <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϲ<EFBFBD><CFB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɿͻ<C9BF><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'<27><><EFBFBD><EFBFBD> 500.12 - Ӧ<>ó<EFBFBD><C3B3><EFBFBD><EFBFBD><EFBFBD>æ<EFBFBD><C3A6><EFBFBD><EFBFBD> Web <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'<27><><EFBFBD><EFBFBD> 500.13 - Web <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̫æ<CCAB><C3A6>
'<27><><EFBFBD><EFBFBD> 500.15 - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֱ<EFBFBD><D6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Global.asa<73><61>
'<27><><EFBFBD><EFBFBD> 500.16 <20>C UNC <20><>Ȩƾ<C8A8>ݲ<EFBFBD><DDB2><EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ IIS 6.0 <20><>ר<EFBFBD>á<EFBFBD>
'<27><><EFBFBD><EFBFBD> 500.18 <20>C URL <20><>Ȩ<EFBFBD>洢<EFBFBD><E6B4A2><EFBFBD>ܴ򿪡<DCB4><F2BFAAA1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ IIS 6.0 <20><>ר<EFBFBD>á<EFBFBD>
'<27><><EFBFBD><EFBFBD> 500.100 - <20>ڲ<EFBFBD> ASP <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'<27><><EFBFBD><EFBFBD> 501 - Not Implemented <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֧<EFBFBD><D6A7>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD>Ĺ<EFBFBD><C4B9>ܣ<EFBFBD>ҳüֵָ<D6B5><D6B8><EFBFBD><EFBFBD>δʵ<CEB4>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD>á<EFBFBD><C3A1><EFBFBD><EFBFBD>磬<EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֧<EFBFBD>ֵ<EFBFBD>PUT<55><54><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'<27><><EFBFBD><EFBFBD> 502 - Bad Gateway <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>ػ<EFBFBD><D8BB>ߴ<EFBFBD><DFB4><EFBFBD>ʱ<EFBFBD><CAB1>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˷Ƿ<CBB7><C7B7><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD> <20><>˵Web <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ػ<EFBFBD><D8BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD>յ<EFBFBD><D5B5><EFBFBD><EFBFBD><EFBFBD>Ч<EFBFBD><D0A7>Ӧ<EFBFBD><D3A6>
'<27><><EFBFBD><EFBFBD> 502.1 - CGI Ӧ<>ó<EFBFBD><C3B3><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>
'<27><><EFBFBD><EFBFBD> 502.2 - CGI Ӧ<>ó<EFBFBD><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'<27><><EFBFBD><EFBFBD> 503 - Service Unavailable <20><><EFBFBD>񲻿<EFBFBD><F1B2BBBF>ã<EFBFBD><C3A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ά<EFBFBD><CEAC><EFBFBD><EFBFBD><EFBFBD>߸<EFBFBD><DFB8>ع<EFBFBD><D8B9><EFBFBD>δ<EFBFBD><CEB4>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>磬Servlet<65><74><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD><EFBFBD>ӳ<EFBFBD><D3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD><C2B7><EFBFBD>503<30><33><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>503ʱ<33><CAB1><EFBFBD><EFBFBD><EFBFBD>ṩһ<E1B9A9><D2BB>Retry-Afterͷ<72><CDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ IIS 6.0 <20><>ר<EFBFBD>á<EFBFBD>
'<27><><EFBFBD><EFBFBD> 504 - Gateway Timeout <20><><EFBFBD>س<EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>صķ<D8B5><C4B7><EFBFBD><EFBFBD><EFBFBD>ʹ<EFBFBD>ã<EFBFBD><C3A3><EFBFBD>ʾ<EFBFBD><CABE><EFBFBD>ܼ<EFBFBD>ʱ<EFBFBD>ش<EFBFBD>Զ<EFBFBD>̷<EFBFBD><CCB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD>𡣣<EFBFBD>HTTP 1.1<EFBFBD>£<EFBFBD> <20><>
'<27><> 505 - HTTP Version Not Supported <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֧<EFBFBD><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD>HTTP<54>汾<EFBFBD><E6B1BE><EFBFBD><EFBFBD>HTTP 1.1<EFBFBD>£<EFBFBD><EFBFBD><EFBFBD>
Option Explicit
Public Enum DataEnum
ResponseText = 1
ResponseBody = 2
ResponseBodyToText = 3
End Enum
Private Type TGUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
'// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Internet<65>ϵ<EFBFBD>ͼƬ
Private Declare Function OleLoadPicturePath Lib "oleaut32.dll" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As TGUID, ByRef ppvRet As IPicture) As Long
Public Function GetData(ByVal url As String, Optional ByVal DataStic As DataEnum) As Variant
'On Error GoTo ERR:
Dim XmlHttp As Object
Dim DataS As String
Dim DataB() As Byte
Dim DataB2S As String
Set XmlHttp = CreateObject("Msxml2.XMLHTTP")
If Not IsObject(XmlHttp) Then
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
If Not IsObject(XmlHttp) Then Exit Function
End If
XmlHttp.Open "get", url, True
XmlHttp.Send
While XmlHttp.ReadyState <> 4
DoEvents
Wend
'--------------------------------------<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Select Case DataStic
Case ResponseText
'----------------------------------ֱ<>ӷ<EFBFBD><D3B7><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>
DataS = XmlHttp.ResponseText
GetData = DataS
Case ResponseBody
'----------------------------------ֱ<>ӷ<EFBFBD><D3B7>ض<EFBFBD><D8B6><EFBFBD><EFBFBD><EFBFBD>
DataB = XmlHttp.ResponseBody
GetData = DataB
Case ResponseBodyToText
'----------------------------------<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ת<EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>[ֱ<>ӷ<EFBFBD><D3B7><EFBFBD><EFBFBD>ִ<EFBFBD><D6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD>]
DataB2S = BytesToStr(XmlHttp.ResponseBody)
GetData = DataB2S
Case Else
'----------------------------------<2D><>Ч<EFBFBD>ķ<EFBFBD><C4B7><EFBFBD>
GetData = ""
End Select
'--------------------------------------<2D>ͷſռ<C5BF>
Set XmlHttp = Nothing
Exit Function
ERR:
GetData = ""
End Function
Public Function PostData(ByVal strURL As String, ByVal StrData As String, ByVal DataStic As DataEnum, _
Optional ByVal DataType As String = "application/x-www-form-urlencoded", Optional ByVal UrlCode As Boolean) As Variant
On Error GoTo ERR:
Dim XmlHttp As Object
Dim DataS As String
Dim DataB() As Byte
Dim DataB2S As String
Set XmlHttp = CreateObject("Msxml2.XMLHTTP")
If Not IsObject(XmlHttp) Then
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
If Not IsObject(XmlHttp) Then Exit Function
End If
XmlHttp.Open "POST", strURL, True
XmlHttp.SetRequestHeader "Content-Length", Len(PostData)
XmlHttp.SetRequestHeader "CONTENT-TYPE", DataType
If UrlCode Then StrData = URLEncode(StrData)
XmlHttp.Send (StrData)
Do Until XmlHttp.ReadyState = 4
DoEvents
Loop
'------------------------------------<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Select Case DataStic
Case ResponseText
'--------------------------------ֱ<>ӷ<EFBFBD><D3B7><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>
DataS = XmlHttp.ResponseText
PostData = DataS
Case ResponseBody
'--------------------------------ֱ<>ӷ<EFBFBD><D3B7>ض<EFBFBD><D8B6><EFBFBD><EFBFBD><EFBFBD>
DataB = XmlHttp.ResponseBody
PostData = DataB
Case ResponseBodyToText
'--------------------------------<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ת<EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>[ֱ<>ӷ<EFBFBD><D3B7><EFBFBD><EFBFBD>ִ<EFBFBD><D6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD>]
DataB2S = BytesToStr(XmlHttp.ResponseBody)
PostData = DataB2S
Case Else
'--------------------------------<2D><>Ч<EFBFBD>ķ<EFBFBD><C4B7><EFBFBD>
PostData = ""
End Select
'------------------------------------<2D>ͷſռ<C5BF>
Set XmlHttp = Nothing
Exit Function
ERR:
PostData = ""
End Function
'================<3D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>IP======================
Public Function GetWanIp()
On Error Resume Next
Dim Temp
Temp = GetData("http://members.3322.org/dyndns/getip", ResponseBodyToText)
Debug.Print Temp
If Temp = "" Then
GetWanIp = ""
Else
GetWanIp = Temp
End If
End Function
'// <20><>Internet<65>ϼ<EFBFBD><CFBC><EFBFBD>ͼƬ
Public Function LoadPicture(ByVal strFileName As String) As Picture
Dim IID As TGUID
With IID
.Data1 = &H7BF80980
.Data2 = &HBF32
.Data3 = &H101A
.Data4(0) = &H8B
.Data4(1) = &HBB
.Data4(2) = &H0
.Data4(3) = &HAA
.Data4(4) = &H0
.Data4(5) = &H30
.Data4(6) = &HC
.Data4(7) = &HAB
End With
On Error GoTo LocalErr
OleLoadPicturePath StrPtr(strFileName), 0&, 0&, 0&, IID, LoadPicture
Exit Function
LocalErr:
Set LoadPicture = VB.LoadPicture(strFileName)
ERR.Clear
End Function
Private Function BytesToStr(Bytes)
Dim Unicode As String
If IsUTF8(Bytes) Then '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>UTF-8<><38><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>GB2312<31><32><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Unicode = "UTF-8"
Else
Unicode = "GB2312"
End If
Dim objstream As Object
Set objstream = CreateObject("ADODB.Stream")
With objstream
.Type = 1
.Mode = 3
.Open
.Write Bytes
.Position = 0
.Type = 2
.Charset = Unicode
BytesToStr = .ReadText
.Close
End With
End Function
'<27>ж<EFBFBD><D0B6><EFBFBD>ҳ<EFBFBD><D2B3><EFBFBD>뺯<EFBFBD><EBBAAF>
Private Function IsUTF8(Bytes) As Boolean
On Error Resume Next
Dim i As Long, AscN As Long, Length As Long
Length = UBound(Bytes) + 1
If Length < 3 Then
IsUTF8 = False
Exit Function
ElseIf Bytes(0) = &HEF And Bytes(1) = &HBB And Bytes(2) = &HBF Then
IsUTF8 = True
Exit Function
End If
Do While i <= Length - 1
If Bytes(i) < 128 Then
i = i + 1
AscN = AscN + 1
ElseIf (Bytes(i) And &HE0) = &HC0 And (Bytes(i + 1) And &HC0) = &H80 Then
i = i + 2
ElseIf i + 2 < Length Then
If (Bytes(i) And &HF0) = &HE0 And (Bytes(i + 1) And &HC0) = &H80 And (Bytes(i + 2) And &HC0) = &H80 Then
i = i + 3
Else
IsUTF8 = False
Exit Function
End If
Else
IsUTF8 = False
Exit Function
End If
Loop
If AscN = Length Then
IsUTF8 = False
Else
IsUTF8 = True
End If
End Function
'<27><><EFBFBD>뺯<EFBFBD><EBBAAF>
Public Function URLEncode(ByRef strURL As String) As String
Dim i As Long
Dim tempStr As String
For i = 1 To Len(strURL)
If Asc(Mid(strURL, i, 1)) < 0 Then
tempStr = "%" & Right(CStr(Hex(Asc(Mid(strURL, i, 1)))), 2)
tempStr = "%" & Left(CStr(Hex(Asc(Mid(strURL, i, 1)))), Len(CStr(Hex(Asc(Mid(strURL, i, 1))))) - 2) & tempStr
URLEncode = URLEncode & tempStr
ElseIf (Asc(Mid(strURL, i, 1)) >= 65 And Asc(Mid(strURL, i, 1)) <= 90) Or (Asc(Mid(strURL, i, 1)) >= 97 And Asc(Mid(strURL, i, 1)) <= 122) Then
URLEncode = URLEncode & Mid(strURL, i, 1)
Else
URLEncode = URLEncode & "%" & Hex(Asc(Mid(strURL, i, 1)))
End If
Next
End Function
'<27><><EFBFBD>뺯<EFBFBD><EBBAAF>
Public Function URLDecode(ByRef strURL As String) As String
Dim i As Long
If InStr(strURL, "%") = 0 Then URLDecode = strURL: Exit Function
For i = 1 To Len(strURL)
If Mid(strURL, i, 1) = "%" Then
If Val("&H" & Mid(strURL, i + 1, 2)) > 127 Then
URLDecode = URLDecode & Chr(Val("&H" & Mid(strURL, i + 1, 2) & Mid(strURL, i + 4, 2)))
i = i + 5
Else
URLDecode = URLDecode & Chr(Val("&H" & Mid(strURL, i + 1, 2)))
i = i + 2
End If
Else
URLDecode = URLDecode & Mid(strURL, i, 1)
End If
Next
End Function
'UTF-8 URL<52><4C><EFBFBD><EFBFBD>
Public Function UTF8_URLEncoding(ByVal szInput As String)
Dim wch, uch, szRet
Dim X
Dim nAsc, nAsc2, nAsc3
If szInput = "" Then
UTF8_URLEncoding = szInput
Exit Function
End If
For X = 1 To Len(szInput)
wch = Mid(szInput, X, 1)
nAsc = AscW(wch)
If nAsc < 0 Then nAsc = nAsc + 65536
If (nAsc And &HFF80) = 0 Then
szRet = szRet & wch
Else
If (nAsc And &HF000) = 0 Then
uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)
szRet = szRet & uch
Else
uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _
Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _
Hex(nAsc And &H3F Or &H80)
szRet = szRet & uch
End If
End If
Next
UTF8_URLEncoding = szRet
End Function
'UTF-8 URL<52><4C><EFBFBD><EFBFBD>
Public Function UTF8_URLDecode(ByVal url As String)
Dim B, ub ''<27><><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD>Unicode<64><65>(2<>ֽ<EFBFBD>)
Dim UtfB ''Utf-8<><38><EFBFBD><EFBFBD><EFBFBD>ֽ<EFBFBD>
Dim UtfB1, UtfB2, UtfB3 ''Utf-8<><38><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֽ<EFBFBD>
Dim i, n, S
n = 0
ub = 0
For i = 1 To Len(url)
B = Mid(url, i, 1)
Select Case B
Case "+"
S = S & " "
Case "%"
ub = Mid(url, i + 1, 2)
UtfB = CInt("&H" & ub)
If UtfB < 128 Then
i = i + 2
S = S & ChrW(UtfB)
Else
UtfB1 = (UtfB And &HF) * &H1000 ''ȡ<><C8A1>1<EFBFBD><31>Utf-8<>ֽڵĶ<DAB5><C4B6><EFBFBD><EFBFBD>ƺ<EFBFBD>4λ
UtfB2 = (CInt("&H" & Mid(url, i + 4, 2)) And &H3F) * &H40 ''ȡ<><C8A1>2<EFBFBD><32>Utf-8<>ֽڵĶ<DAB5><C4B6><EFBFBD><EFBFBD>ƺ<EFBFBD>6λ
UtfB3 = CInt("&H" & Mid(url, i + 7, 2)) And &H3F ''ȡ<><C8A1>3<EFBFBD><33>Utf-8<>ֽڵĶ<DAB5><C4B6><EFBFBD><EFBFBD>ƺ<EFBFBD>6λ
S = S & ChrW(UtfB1 Or UtfB2 Or UtfB3)
i = i + 8
End If
Case Else ''Ascii<69><69>
S = S & B
End Select
Next
UTF8_URLDecode = S
End Function

31
JsonUtils.bas Normal file
View File

@@ -0,0 +1,31 @@
Attribute VB_Name = "JsonUtils"
Option Explicit
Public Function CreateJson(JsonFile As String) As Object
Dim JsonLine As String
Dim S As String
Dim js
Open JsonFile For Input As 1
Do Until EOF(1)
Line Input #1, S
JsonLine = JsonLine & S
Loop
Close #1
Set js = CreateObject("ScriptControl")
js.Language = "JScript"
js.AddCode "function j(s) { return eval('(' + s + ')'); }"
Set CreateJson = js.Run("j", JsonLine)
Set js = Nothing
End Function
Public Function StrToJson(ByVal jsonstring As String) As Object
On Error Resume Next
Dim S As String
Dim js
Set StrToJson = Nothing
Set js = CreateObject("ScriptControl")
js.Language = "JScript"
js.AddCode "function j(s) { return eval('(' + s + ')'); }"
Set StrToJson = js.Run("j", jsonstring)
Set js = Nothing
End Function

237
System.bas Normal file
View File

@@ -0,0 +1,237 @@
Attribute VB_Name = "System"
'#######################################<23>û<EFBFBD><C3BB>ؼ<EFBFBD>˵<EFBFBD><CBB5>#########################################
'<27><><EFBFBD><EFBFBD>:ϵͳ<CFB5>ؼ<EFBFBD>
'<27><><EFBFBD><EFBFBD>:<3A><>ȡϵͳ<CFB5><CDB3>Ϣ
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:2014<31><34>12<31><32>8<EFBFBD><38>
'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'<27><>λ:<3A>Ϻ<EFBFBD><CFBA>ж<EFBFBD><D0B6><EFBFBD>ˮ<EFBFBD>繤<EFBFBD>̰<EFBFBD>װ<EFBFBD><D7B0><EFBFBD>޹<EFBFBD>˾
''====================================<3D>û<EFBFBD><C3BB>ؼ<EFBFBD>ʹ<EFBFBD><CAB9>˵<EFBFBD><CBB5>=======================================
Option Explicit
''================================API<50><49><EFBFBD>ô<EFBFBD><C3B4><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>=========================================
'<27><><EFBFBD>á<EFBFBD><C3A1>򿪡<EFBFBD><F2BFAAA1><EFBFBD><EFBFBD><EFBFBD>
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long 'API<50><49><EFBFBD>ô<EFBFBD><C3B4><EFBFBD>
Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long 'API<50><49><EFBFBD>ô<EFBFBD><C3B4><EFBFBD>
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
Flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type 'API<50><49><EFBFBD>ô<EFBFBD><C3B4><EFBFBD>
Private Const MAX_PATH As Long = 260
''================================<3D><><EFBFBD>ý<EFBFBD><C3BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8>=========================================
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const PROCESS_ALL_ACCESS = &H1F0FFF 'ȫȨ<C8AB>򿪽<EFBFBD><F2BFAABD><EFBFBD>
''================================ɾ<><C9BE><EFBFBD>ļ<EFBFBD>=========================================
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAborted As Boolean
hNameMaps As Long
sProgress As String
End Type
Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40 ' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>վ
Private Const FOF_CONFIRMMOUSE = &H2 ' ɾ<><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>վ
Private Const FOF_NOCONFIRMATION = &H10 ' û<><C3BB><EFBFBD><EFBFBD>ʾ
''#####################################################ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>#####################################################
'#############################################<23>ؼ<EFBFBD><D8BC><EFBFBD><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>#################################################
'**********************************************************************************************************
'***<2A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>DeleteFolder
'***<2A><> <20><> <20><>ɾ<EFBFBD><C9BE>һ<EFBFBD><D2BB><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC>С<EFBFBD><D0A1>ù<EFBFBD><C3B9>̿<EFBFBD><CCBF><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD>ǿյ<C7BF><D5B5>ļ<EFBFBD><C4BC><EFBFBD>
'***<2A><><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5>(<28>ļ<EFBFBD><C4BC>л<EFBFBD><D0BB>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD> As String)
'***<2A><><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5>NULL
'***˵ <20><><EFBFBD><EFBFBD>NULL
'**********************************************************************************************************
Public Sub DeleteFolder(sObject As String)
Dim SHFileOp As SHFILEOPSTRUCT
With SHFileOp
.wFunc = FO_DELETE
.pFrom = sObject
.fFlags = FOF_CONFIRMMOUSE Or FOF_NOCONFIRMATION
End With
SHFileOperation SHFileOp
End Sub
'**********************************************************************************************************
'***<2A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>GetFilePath
'***<2A><> <20><> <20><>API<50><49><EFBFBD>ô򿪴<C3B4><F2BFAAB4><EFBFBD>
'***<2A><><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5>(PID As Long)
'***<2A><><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5>String
'***˵ <20><><EFBFBD><EFBFBD>NULL
'**********************************************************************************************************
Public Function GetFilePath(ByVal hWnd As Long, _
Optional ByVal DefaultFile As String, _
Optional ByVal DefaultFilterStr As String, _
Optional ByVal DefaultFilter As String, _
Optional ByVal DefaultTitle As String, Optional ByVal DefaultPath As String) As String
Dim ofn As OPENFILENAME
Dim rtn As Long
ofn.lStructSize = Len(ofn)
ofn.hwndOwner = hWnd
ofn.hInstance = App.hInstance
If DefaultFilter & DefaultFilterStr <> "" Then
ofn.lpstrFilter = DefaultFilterStr & "(" & DefaultFilter & ")" + Chr$(0) + DefaultFilter + Chr$(0) + _
"<22><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD> (*.*)" + Chr$(0) + "*.*" + Chr$(0) + Chr$(0)
Else
ofn.lpstrFilter = "<22><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD> (*.*)" + Chr$(0) + "*.*" + Chr$(0) + Chr$(0)
End If
ofn.lpstrFile = DefaultFile + Space(255 - Len(DefaultFile)) '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ը<EFBFBD>һ<EFBFBD><D2BB>Ĭ<EFBFBD>ϵ<EFBFBD><CFB5>ļ<EFBFBD><C4BC><EFBFBD>
ofn.nMaxFile = MAX_PATH
ofn.lpstrFileTitle = Space(255)
ofn.nMaxFileTitle = MAX_PATH
ofn.lpstrInitialDir = DefaultPath
ofn.lpstrTitle = DefaultTitle
ofn.Flags = 6148
rtn = GetOpenFileName(ofn)
If rtn >= 1 Then GetFilePath = ofn.lpstrFile Else GetFilePath = ""
End Function
'**********************************************************************************************************
'***<2A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>CheckPid
'***<2A><> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>PID<49>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
'***<2A><><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5>(PID As Long)
'***<2A><><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5>Boolean
'***˵ <20><><EFBFBD><EFBFBD>NULL
'**********************************************************************************************************
Public Function CheckPid(ByVal PID As Long) As Boolean
Dim info As Long
info = OpenProcess(PROCESS_ALL_ACCESS, &O0, PID)
If info = 0 Then
CheckPid = False
Else
CloseHandle CheckPid
CloseHandle PID
CheckPid = True
End If
End Function
Public Function GetSystemPath() As String
Dim aa$, jj%
aa = Environ("ComSpec")
jj = InStrRev(aa, "\")
GetSystemPath = Mid(aa, 1, jj - 1)
End Function
Public Function IsX86() As Boolean
'If Environ("PROCESSOR_ARCHITECTURE") = "x86" Then IsX86 = True: Exit Function
If Dir(Left(Environ("ComSpec"), 1) & ":\Windows\SysWOW64", vbDirectory) = "" Then
IsX86 = True
Else
IsX86 = False
End If
End Function
Public Function FileCheck(ByVal FileName As String, Optional ByVal Reg As Boolean) As Boolean
Dim FileData() As Byte
Dim FileInfo() As String
Dim SystemPath As String
SystemPath = GetSystemPath
If Dir(SystemPath & "\" & FileName) = "" Then
FileInfo = Split(FileName, ".")
If UBound(FileInfo) < 1 Then MsgBox "<22>ļ<EFBFBD>" & FileName & "<22><><EFBFBD>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD><EFBFBD>", vbCritical
FileData = LoadResData(UCase(FileInfo(0)), UCase(FileInfo(1)))
Open SystemPath & "\" & FileName For Binary As #1 '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>Ʒ<EFBFBD>ʽд<CABD><D0B4><EFBFBD><EFBFBD><EFBFBD>ɣ<EFBFBD><C9A3>ؼ<EFBFBD><D8BC><EFBFBD>kjmc.kjlx<6C><78><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڵ<EFBFBD>Ŀ¼
Put #1, , FileData
Close #1
If Reg Then Shell "regsvr32 \s " & SystemPath & "\" & FileName, vbHide
End If
End Function
Public Sub MkMulDirs(ByVal Path As String)
Dim FilePath As String
Dim Index As Long
Index = InStr(1, Path, "\")
Debug.Print Index
Do While Index > 0
FilePath = Left(Path, Index)
If Dir(FilePath, vbDirectory) = "" Then _
MkDir FilePath
Index = InStr(Index + 1, Path, "\")
Loop
Debug.Print "<22><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>: " & Path
End Sub
Public Function FindPath(ByVal AppName As String) As String
On Error Resume Next
Dim PathDir As String
Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
' ע<><D7A2><EFBFBD><EFBFBD>д<EFBFBD><D0B4>
' WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
' ע<><D7A2><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>
' WshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName
' ע<><D7A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȡ
FindPath = WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\" & AppName & "\Path")
Set WshShell = Nothing
' PathDir = Left(Environ("ComSpec"), 1)
' If Dir(PathDir & ":\Program Files\Java\jre6\bin\java.exe") <> "" Then
' FindJava = PathDir & ":\Program Files\Java\jre6\bin\java.exe"
' ElseIf Dir(PathDir & ":\Program Files (x86)\Java\jre6\bin\java.exe") <> "" Then
' FindJava = PathDir & ":\Program Files (x86)\Java\jre6\bin\java.exe"
' ElseIf Dir(PathDir & ":\Program Files\Java\jre7\bin\java.exe") <> "" Then
' FindJava = PathDir & ":\Program Files\Java\jre7\bin\java.exe"
' ElseIf Dir(PathDir & ":\Program Files (x86)\Java\jre7\bin\java.exe") <> "" Then
' FindJava = PathDir & ":\Program Files (x86)\Java\jre7\bin\java.exe"
' ElseIf Dir(PathDir & ":\Program Files\Java\jre8\bin\java.exe") <> "" Then
' FindJava = PathDir & ":\Program Files\Java\jre8\bin\java.exe"
' ElseIf Dir(PathDir & ":\Program Files (x86)\Java\jre8\bin\java.exe") <> "" Then
' FindJava = PathDir & ":\Program Files (x86)\Java\jre8\bin\java.exe"
' Else
' FindJava = ""
' End If
End Function
Public Function FindJar() As String
If Dir(App.Path & "/*.jar") <> "" Then
FindJar = Dir(App.Path & "/*.jar")
End If
End Function
Public Function GetMaxMem() As String
Dim strComputer
Dim strNameSpace
Dim strClass
Dim objSWbemObject
Dim objSWbemServices
Dim objSWbemObjectSet
Dim MaxMemN
MaxMemN = 0
Set objSWbemServices = GetObject("winmgmts:")
Set objSWbemObjectSet = objSWbemServices.ExecQuery("select Capacity from Win32_PhysicalMemory where CreationClassName='Win32_PhysicalMemory'")
For Each objSWbemObject In objSWbemObjectSet
MaxMemN = objSWbemObject.Capacity + MaxMemN
Next
GetMaxMem = Int(MaxMemN / 1024 / 1024)
GetMaxMem = Trim(Str(GetMaxMem))
Set objSWbemObject = Nothing
Set objSWbemServices = Nothing
Set objSWbemObjectSet = Nothing
End Function