免服务器验证QQ号注册の东拼西凑源代码

yanshengjiang

有些程序使用本地保存注册信息，有的程序使用加密狗验证，有的程序绑定QQ号或者QQ群。

这里我探讨一种方式进行网络在线验证。

该方式用到了大海老师的获取网页内容的代码。

判断用户是否是注册的验证代码为：(try-get-url "https://gitee.com/yan1986/zhucema/raw/master/README.en.md")
                                                   (wcmatch (try-get-url "https://gitee.com/yan1986/zhucema/raw/master/README.en.md")"*1987*")

原理：在https://gitee.com内新建仓库，将用户的机器码写入README.en.md。不需要计算、转换注册码，单纯判断程序所有者有没有把用户的机器码保存在仓库内。

不知道有没有bug，希望能得到大佬的指点。

kozmosovia

直接读取原始数据对应的连接地址即可获得内容.

不需要给每个用户建仓库，自己建一个仓库，一个文件保存所有数据就行了。

yanshengjiang

糅合各位大佬的程序，现在可以用QQ号来注册程序了。

1. (DEFUN MAI_LISTTOSTREAM  (OUT_FILE INTLIST / ADODB)
   
2. (setq  INTLIST  
   
3.    (vlax-make-variant
   
4.      (vlax-safearray-fill
   
5.        (vlax-make-safearray 17 (CONS 0 (1- (LENGTH INTLIST))))
   
6.        INTLIST ) 8209 ))
   
7. (setq ADODB (vlax-get-or-create-object "adodb.stream"))
   
8. (vlax-put-property ADODB 'TYPE 1)
   
9. (vlax-invoke ADODB 'OPEN)
   
10. (vlax-put ADODB 'POSITION 0)
    
11. (vlax-invoke-method ADODB 'WRITE INTLIST)
    
12. (vlax-invoke ADODB 'SAVETOFILE OUT_FILE 2)
    
13. (AND ADODB (vlax-invoke ADODB 'CLOSE))
    
14. (AND ADODB (vlax-release-object ADODB))
    
15. (PRINC))
    
16. (if(null(findfile "d:/ReadTencentqqId.dll"))
    
17. (MAI_LISTTOSTREAM   "d:/ReadTencentqqId.dll" (append  '( 077 090 144  003    004    255 255   184        064                                    128    014 031 186 014  180 009 205 033 184 001 076 205 033 084 104 105 115 032 112 114 111 103 114 097 109 032 099 097 110 110 111 116 032 098 101 032 114 117 110 032 105 110 032 068 079 083 032 109 111 100 101 046 013 013 010 036        080 069   076 001 003  242 013 099 094         224  002 033 011 001 011   020    006       062 051    032    064      016  032    002   004        004         128    002       003  064 133   016   016     016   016       016            240 050   075     064   192 002                    096   012    184 049   028                                             032   008            008 032   072            046 116 101 120 116    068 019    032    020    002               032   096 046 114 115 114 099    192 002    064    004    022               064   064 046 114 101 108 111 099   012     096    002    026               064   066                 032 051       072    002  005  144 036   040 013   001                                                        027 048 006  093 002   001   017  040 006   010 111 007   010 010 006 111 008   010 011 006 111 009   010 012 114 001   112 115 010   010 013 009 114 053   112 111 011   010  009 208 016   001 040 012   010 023 111 013   010  008 009 111 014   010 019 004 017 004 111 015   010 032 236 019   254 001 019 011 017 011 045 005 056 247 001   008 111 016   010 019 005 007 111 017   010 111 018   010 019 006  017 006 017 004 111 019   010 023 111 020   010 116 016   001 019 007 017 007 018 005 040 021   010 111 022   010  017 007 111 023   010 019 008 115 024   010 019 009  017 009 022 018 008 040 025   010 019 012 018 012 040 026   010 018 008 040 025   010 019 012 018 012 040 027   010 115 028   010 035         035         035         111 029   010  017 009 023 018 008 040 030   010 019 012 018 012 040 026   010 018 008 040 025   010 019 012 018 012 040 027   010 115 028   010 035         035         035         111 029   010  017 009 024 018 008 040 030   010 019 012 018 012 040 026   010 018 008 040 030   010 019 012 018 012 040 027   010 115 028   010 035         035         035         111 029   010  017 009 025 018 008 040 025   010 019 012 018 012 040 026   010 018 008 040 030   010 019 012 018 012 040 027   010 115 028   010 035         035         035         111 029   010  017 009 023 111 031   010  017 009 111 032   010  017 006 007 111 033   010 023 111 020   010 116 033   001 019 010 017 010 017 009 111 034   010 038 017 006 017 009 023 111 035   010  017 009 017 005 111 022   010   222 020 017 009 020 254 001 019 011 017 011 045 008 017 009 111 036   010  220  017 007 017 005 111 022   010  017 006 111 037   010   222 020 017 006 020 254 001 019 011 017 011 045 008 017 006 111 036   010  220  042    065 052   002    176    109 001   029 002   020        002    122    205 001   071 002   020        027 048 003  190    002   017  040 006   010 111 007   010 010 006 111 008   010 011 006 111 009   010 012 114 001   112 115 010   010 013 009 114 053   112 111 011   010  009 208 016   001 040 012   010 023 111 013   010  008 009 111 014   010 019 004 017 004 111 015   010 032 236 019   254 001 019 008 017 008 045 002 043 091 008 111 016   010 019 005 007 111 017   010 111 018   010 019 006  017 006 017 004 111 019   010 023 111 020   010 116 016   001 019 007 017 007 018 005 040 021   010 111 022   010  017 006 111 037   010   222 020 017 006 020 254 001 019 008 017 008 045 008 017 006 111 036   010  220  042   001 016   002  119  049 168  020     019 048 004  166    003   017  114 139   112 010 114 141   112 020 040 003   006 011 007 022 254 001 022 254 001 019 006 017 006 045 006  020 019 005 043 125 032  001   115 040   010 012 032  001   115 040   010 013 043 086  007 008 008 111 041   010 040 004   006 038 008 111 042   010 114 181   112 111 043   010 022 254 001 019 006 017 006 045 045  008 111 042   010 031 095 111 044   010 019 004 008 111 042   010 017 004 023 088 008 111 045   010 017 004 089 023 089 111 046   010 010 043 011  007 022 254 002 019 006 017 006 045 160 006 019 005 043  017 005 042 030 002 040 047   010 042 030 002 040 047   010 042   066 083 074 066 001  001      012    118 052 046 048 046 051 048 051 049 057     005  108    220 003   035 126   072 004   080 006   035 083 116 114 105 110 103 115     152 010   192    035 085 083  088 011   016    035 071 085 073 068    104 011   192 001   035 066 108 111 098        002   001 071 021 002 020 009     250 037 051  022   001    037    003    009    011    047    007    003    001    004    001    003      010  001      006  072  065  006  130  118  010  223  189  006  094 001 068 001 006  138 001 119 001 023  158 001   006  205 001 173 001 006  237 001 173 001 014  061 002 036 002 014  126 002 084 002 014  175 002 138 002 014  214 002 138 002 010  245 002 189  014  040 003 011 003 014  058 003 011 003 010  095 003 189  006  110 003 065  006  115 003 065  014  167 003 011 003 014  196 003 011 003 014  209 003 011 003 010  003 004 233 003 010  044 004 189  010  086 004 189  010  115 004 189  010  137 004 189  010  146 004 189  010  173 004 189  010  192 004 189  010  223 004 189  010  232 004 233 003 010  009 005 233 003 010  092 005 189  006  146 005 065  006  204 005 173 005 014  246 005 036 002 006  034 006 065      001      001  001  001  016  029  029  005  001  001  001  016  044    005  001  009  080 032     150  079  010  001  240 034     150  098  010  001      128  145 032 107  014  001      128  150 032 144  020  003      128  150 032 158  028  006      128  150 032 168  020  008  204 035     150  236  034  011  126 036     134 024 252  040  012  134 036     134 024 252  040  012    001  002 001   002  014 001   001  027 001   002  032 001   003  041 001   001  027 001   002  045 001   001  050 001   002  002 001   003  055 001   001  065 001 033  252  044  041  252  049  057  252  055  065  252  040  073  252  044  081  194 002 073  089  223 002 078  097  254 002 083  097  047 003 088  121  252  044  121  078 003 044  137  133 003 093  121  151 003 100  113  186 003 107  161  222 003 114  113  012 004 119  105  063 004 124  185  098 004 129  153  124 004 134  193  155 004 139  177  165 004 119  225  180 004 148  225  202 004 154  241  252  040  233  240 004 159  249  253 004 164  249  003 005 164  001 001 252  168  241  017 005 174  233  029 005 159  241  042 005 185  225  053 005 040  105  073 005 134  009 001 109 005 190  193  122 005 197  017 001 158 005 040  193  166 005 040  025 001 252  044  033 001 252  044  017  252  055  017  012 006 032 001 009  025 006 036 001 041 001 041 006 040 001 041 001 050 006 045 001 017  058 006 032 001 041 001 069 006 050 001 009  252  040  032  043  060  046  011  068 001 046  019  140 001 046  027  149 001 046  035  158 001 064  043  233  224  059 001 011 001 204  247  056 001 223 005 002 001 007  234 005 001   001 009  144  001   001 011  158  001  070 001 013  168  001  004 128                 011 002   004            001  056      019  001            181      019  001            026 002          060 077 111 100 117 108 101 062  077 121 116 101 115 116 102 117 110 099 116 105 111 110 046 100 108 108  065 112 112 065 110 100 068 111 099 069 118 101 110 116  077 121 065 115 115 101 109 098 108 108 121  109 115 099 111 114 108 105 098  083 121 115 116 101 109  079 098 106 101 099 116  071 101 116 069 120 116 101 110 116 115 065 098 111 117 116 085 099 115  085 067 083 066 066 079 088 050  070 105 110 100 087 105 110 100 111 119  083 121 115 116 101 109 046 084 101 120 116  083 116 114 105 110 103 066 117 105 108 100 101 114  071 101 116 087 105 110 100 111 119 084 101 120 116  071 101 116 087 105 110 100 111 119  071 101 116 067 108 097 115 115 078 097 109 101  065 099 100 098 109 103 100  065 117 116 111 100 101 115 107 046 065 117 116 111 067 065 068 046 068 097 116 097 098 097 115 101 083 101 114 118 105 099 101 115  082 101 115 117 108 116 066 117 102 102 101 114  082 101 097 100 084 101 110 099 101 110 116 113 113 073 100  046 099 116 111 114  108 112 067 108 097 115 115 078 097 109 101  108 112 087 105 110 100 111 119 078 097 109 101  104 119 110 100  108 112 083 116 114 105 110 103  099 099 104  119 067 109 100  104 087 110 100  110 077 097 120 067 111 117 110 116  114 098  083 121 115 116 101 109 046 082 117 110 116 105 109 101 046 086 101 114 115 105 111 110 105 110 103  084 097 114 103 101 116 070 114 097 109 101 119 111 114 107 065 116 116 114 105 098 117 116 101  083 121 115 116 101 109 046 068 105 097 103 110 111 115 116 105 099 115  068 101 098 117 103 103 097 098 108 101 065 116 116 114 105 098 117 116 101  068 101 098 117 103 103 105 110 103 077 111 100 101 115  083 121 115 116 101 109 046 082 117 110 116 105 109 101 046 067 111 109 112 105 108 101 114 083 101 114 118 105 099 101 115  067 111 109 112 105 108 097 116 105 111 110 082 101 108 097 120 097 116 105 111 110 115 065 116 116 114 105 098 117 116 101  082 117 110 116 105 109 101 067 111 109 112 097 116 105 098 105 108 105 116 121 065 116 116 114 105 098 117 116 101  077 121 116 101 115 116 102 117 110 099 116 105 111 110  097 099 099 111 114 101 109 103 100  065 117 116 111 100 101 115 107 046 065 117 116 111 067 065 068 046 082 117 110 116 105 109 101  067 111 109 109 097 110 100 077 101 116 104 111 100 065 116 116 114 105 098 117 116 101  065 117 116 111 100 101 115 107 046 065 117 116 111 067 065 068 046 065 112 112 108 105 099 097 116 105 111 110 083 101 114 118 105 099 101 115 046 067 111 114 101  065 112 112 108 105 099 097 116 105 111 110  065 117 116 111 100 101 115 107 046 065 117 116 111 067 065 068 046 065 112 112 108 105 099 097 116 105 111 110 083 101 114 118 105 099 101 115  068 111 099 117 109 101 110 116 067 111 108 108 101 099 116 105 111 110  103 101 116 095 068 111 099 117 109 101 110 116 077 097 110 097 103 101 114  068 111 099 117 109 101 110 116  103 101 116 095 077 100 105 065 099 116 105 118 101 068 111 099 117 109 101 110 116  068 097 116 097 098 097 115 101  103 101 116 095 068 097 116 097 098 097 115 101  065 117 116 111 100 101 115 107 046 065 117 116 111 067 065 068 046 069 100 105 116 111 114 073 110 112 117 116  069 100 105 116 111 114  103 101 116 095 069 100 105 116 111 114  080 114 111 109 112 116 069 110 116 105 116 121 079 112 116 105 111 110 115  083 101 116 082 101 106 101 099 116 077 101 115 115 097 103 101  066 108 111 099 107 082 101 102 101 114 101 110 099 101  084 121 112 101  082 117 110 116 105 109 101 084 121 112 101 072 097 110 100 108 101  071 101 116 084 121 112 101 070 114 111 109 072 097 110 100 108 101  065 100 100 065 108 108 111 119 101 100 067 108 097 115 115  080 114 111 109 112 116 069 110 116 105 116 121 082 101 115 117 108 116  071 101 116 069 110 116 105 116 121  080 114 111 109 112 116 082 101 115 117 108 116  080 114 111 109 112 116 083 116 097 116 117 115  103 101 116 095 083 116 097 116 117 115  065 117 116 111 100 101 115 107 046 065 117 116 111 067 065 068 046 071 101 111 109 101 116 114 121  077 097 116 114 105 120 051 100  103 101 116 095 067 117 114 114 101 110 116 085 115 101 114 067 111 111 114 100 105 110 097 116 101 083 121 115 116 101 109  084 114 097 110 115 097 099 116 105 111 110 077 097 110 097 103 101 114  103 101 116 095 084 114 097 110 115 097 099 116 105 111 110 077 097 110 097 103 101 114  084 114 097 110 115 097 099 116 105 111 110  083 116 097 114 116 084 114 097 110 115 097 099 116 105 111 110  079 098 106 101 099 116 073 100  103 101 116 095 079 098 106 101 099 116 073 100  068 066 079 098 106 101 099 116  079 112 101 110 077 111 100 101  071 101 116 079 098 106 101 099 116  073 110 118 101 114 115 101  069 110 116 105 116 121  084 114 097 110 115 102 111 114 109 066 121  069 120 116 101 110 116 115 051 100  103 101 116 095 071 101 111 109 101 116 114 105 099 069 120 116 101 110 116 115  080 111 108 121 108 105 110 101  080 111 105 110 116 051 100  103 101 116 095 077 105 110 080 111 105 110 116  103 101 116 095 088  103 101 116 095 089  080 111 105 110 116 050 100  065 100 100 086 101 114 116 101 120 065 116  103 101 116 095 077 097 120 080 111 105 110 116  115 101 116 095 067 108 111 115 101 100  083 101 116 068 097 116 097 098 097 115 101 068 101 102 097 117 108 116 115  103 101 116 095 067 117 114 114 101 110 116 083 112 097 099 101 073 100  066 108 111 099 107 084 097 098 108 101 082 101 099 111 114 100  065 112 112 101 110 100 069 110 116 105 116 121  065 100 100 078 101 119 108 121 067 114 101 097 116 101 100 068 066 079 098 106 101 099 116  073 068 105 115 112 111 115 097 098 108 101  068 105 115 112 111 115 101  067 111 109 109 105 116  083 121 115 116 101 109 046 082 117 110 116 105 109 101 046 073 110 116 101 114 111 112 083 101 114 118 105 099 101 115  068 108 108 073 109 112 111 114 116 065 116 116 114 105 098 117 116 101  117 115 101 114 051 050 046 100 108 108  070 105 110 100 087 105 110 100 111 119 065  076 105 115 112 070 117 110 099 116 105 111 110 065 116 116 114 105 098 117 116 101  103 101 116 095 067 097 112 097 099 105 116 121  084 111 083 116 114 105 110 103  083 116 114 105 110 103  067 111 110 116 097 105 110 115  073 110 100 101 120 079 102  103 101 116 095 076 101 110 103 116 104  083 117 098 115 116 114 105 110 103    051 010  083  101  108  101  099  116  032  098  108  111  099  107  032  114  101  102  101  114  101  110  099  101  058  032   085 010  083  101  108  101  099  116  101  100  032  111  098  106  101  099  116  032  105  115  032  110  111  116  032  097  032  098  108  111  099  107  032  114  101  102  101  114  101  110  099  101  046   001  039 067  084  088  079  080  067  111  110  110  116  105  111  110  095  067  108  097  115  115   007 079  080  095      154 157 089 170 137 168 086 070 186 235 141 096 118 009 188 255  008 183 122 092 086 025 052 224 137 003   001 005  002 008 014 014 007  003 008 008 018 009 008 005  002 008 008 008 005  001 014 018 013 003 032  001 004 032 001 001 014 005 032 001 001 017 025 004 032 001 001 008 012 001  007 085 067 083 066 066 079 088   004   018 045 004 032  018 049 004 032  018 053 004 032  018 057 006  001 018 069 017 073 006 032 002 001 018 069 002 006 032 001 018 077 018 061 004 032  017 085 004 032  017 089 004 032  018 093 004 032  018 097 004 032  017 101 008 032 002 018 105 017 101 017 109 005 032 001 001 017 089 004 032  017 117 004 032  017 125 003 032  013 005 032 002 001 013 013 010 032 005 001 008 017 128 129 013 013 013 004 032 001 001 002 006 032 001 017 101 018 113 006 032 002 001 018 105 002 028 007 013 018 049 018 053 018 057 018 061 018 077 017 089 018 097 018 065 017 117 018 121 018 128 133 002 017 125 013 001  008 085 067 083 066 066 079 088 050   019 007 009 018 049 018 053 018 057 018 061 018 077 017 089 018 097 018 065 002 020 001  015 082 101 097 100 084 101 110 099 101 110 116 113 113 073 100   003 032  008 003 032  014 004 032 001 002 014 004 032 001 008 003 005 032 002 014 008 008 011 007 007 014 008 018 009 018 009 008 014 002 071 001  026 046 078 069 084 070 114 097 109 101 119 111 114 107 044 086 101 114 115 105 111 110 061 118 052 046 048 001  084 014 020 070 114 097 109 101 119 111 114 107 068 105 115 112 108 097 121 078 097 109 101 016 046 078 069 084 032 070 114 097 109 101 119 111 114 107 032 052 008 001  007 001     008 001  008      030 001  001  084 002 022 087 114 097 112 078 111 110 069 120 099 101 112 116 105 111 110 084 104 114 111 119 115 001        242 013 099 094     002    028 001   212 049   212 019   082 083 068 083 027 139 028 243 192 157 220 065 166 042 027 159 061 082 174 202 010    102 058 092 053 046 057 092 230 136 145 231 154 132 067 083 104 097 112 112 101 229 135 189 230 149 176 092 233 163 158 231 139 144 092 231 187 131 228 185 160 092 111 098 106 092 068 101 098 117 103 092 077 121 116 101 115 116 102 117 110 099 116 105 111 110 046 112 100 098                                                                                                                                                                                                024 051           046 051    032                       032 051         095 067 111 114 068 108 108 077 097 105 110  109 115 099 111 114 101 101 046 100 108 108      255 037  032  016                                                                                                                                                                                                           001  016    024   128               001  001    048   128               001      072    088 064   100 002           100 002 052    086  083  095  086  069  082  083  073  079  078  095  073  078  070  079      189 004 239 254   001                  063        004    002                068    001  086  097  114  070  105  108  101  073  110  102  111      036  004    084  114  097  110  115  108  097  116  105  111  110        176 004 196 001   001  083  116  114  105  110  103  070  105  108  101  073  110  102  111    160 001   001  048  048  048  048  048  052  098  048    044  002  001  070  105  108  101  068  101  115  099  114  105  112  116  105  111  110      032    048  008  001  070  105  108  101  086  101  114  115  105  111  110      048  046  048  046  048  046  048    072  019  001  073  110  116  101  114  110  097  108  078  097  109  101    077  121  116  101  115  116  102  117  110  099  116  105  111  110  046  100  108  108      040  002  001  076  101  103  097  108  067  111  112  121  114  105  103  104  116    032    080  019  001  079  114  105  103  105  110  097  108  070  105  108  101  110  097  109  101    077  121  116  101  115  116  102  117  110  099  116  105  111  110  046  100  108  108      052  008  001  080  114  111  100  117  099  116  086  101  114  115  105  111  110    048  046  048  046  048  046  048    056  008  001  065  115  115  101  109  098  108  121  032  086  101  114  115  105  111  110    048  046  048  046  048  046  048                                                                                                                                                                                                                                                                                                                                         048   012    064 051                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       ))))
    
18.   (if(findfile "d:/ReadTencentqqId.dll")(vl-cmdf "netload" (findfile "d:/ReadTencentqqId.dll")))；生成、加载dll
    
19. (if(ReadTencentqqId)(print(ReadTencentqqId)))
    
20.    (if(null(ReadTencentqqId))
    
21.      (progn(princ"\n未检测到QQ号")(exit))
    
22.      (if(null(wcmatch (try-get-url "https://gitee.com/yan1986/zhucema/raw/master/README.en.md")(strcat"*"(ReadTencentqqId)"*")))(progn(princ"\nQQ号未注册到本插件")(exit)))
    
23.      )
    
24.    ;;;上面是检测QQ在线的

(DEFUN MAI_LISTTOSTREAM  (OUT_FILE INTLIST / ADODB)<br /> (setq  INTLIST  <br />    (vlax-make-variant <br />      (vlax-safearray-fill <br />        (vlax-make-safearray 17 (CONS 0 (1- (LENGTH INTLIST))))<br />        INTLIST ) 8209 )) <br /> (setq ADODB (vlax-get-or-create-object "adodb.stream")) <br /> (vlax-put-property ADODB 'TYPE 1) <br /> (vlax-invoke ADODB 'OPEN) <br /> (vlax-put ADODB 'POSITION 0) <br /> (vlax-invoke-method ADODB 'WRITE INTLIST) <br /> (vlax-invoke ADODB 'SAVETOFILE OUT_FILE 2) <br /> (AND ADODB (vlax-invoke ADODB 'CLOSE)) <br /> (AND ADODB (vlax-release-object ADODB)) <br /> (PRINC))<br /> (if(null(findfile "d:/ReadTencentqqId.dll"))<br /> (MAI_LISTTOSTREAM   "d:/ReadTencentqqId.dll" (append  '( 077 090 144  003    004    255 255   184        064                                    128    014 031 186 014  180 009 205 033 184 001 076 205 033 084 104 105 115 032 112 114 111 103 114 097 109 032 099 097 110 110 111 116 032 098 101 032 114 117 110 032 105 110 032 068 079 083 032 109 111 100 101 046 013 013 010 036        080 069   076 001 003  242 013 099 094         224  002 033 011 001 011   020    006       062 051    032    064      016  032    002   004        004         128    002       003  064 133   016   016     016   016       016            240 050   075     064   192 002                    096   012    184 049   028                                             032   008            008 032   072            046 116 101 120 116    068 019    032    020    002               032   096 046 114 115 114 099    192 002    064    004    022               064   064 046 114 101 108 111 099   012     096    002    026               064   066                 032 051       072    002  005  144 036   040 013   001                                                        027 048 006  093 002   001   017  040 006   010 111 007   010 010 006 111 008   010 011 006 111 009   010 012 114 001   112 115 010   010 013 009 114 053   112 111 011   010  009 208 016   001 040 012   010 023 111 013   010  008 009 111 014   010 019 004 017 004 111 015   010 032 236 019   254 001 019 011 017 011 045 005 056 247 001   008 111 016   010 019 005 007 111 017   010 111 018   010 019 006  017 006 017 004 111 019   010 023 111 020   010 116 016   001 019 007 017 007 018 005 040 021   010 111 022   010  017 007 111 023   010 019 008 115 024   010 019 009  017 009 022 018 008 040 025   010 019 012 018 012 040 026   010 018 008 040 025   010 019 012 018 012 040 027   010 115 028   010 035         035         035         111 029   010  017 009 023 018 008 040 030   010 019 012 018 012 040 026   010 018 008 040 025   010 019 012 018 012 040 027   010 115 028   010 035         035         035         111 029   010  017 009 024 018 008 040 030   010 019 012 018 012 040 026   010 018 008 040 030   010 019 012 018 012 040 027   010 115 028   010 035         035         035         111 029   010  017 009 025 018 008 040 025   010 019 012 018 012 040 026   010 018 008 040 030   010 019 012 018 012 040 027   010 115 028   010 035         035         035         111 029   010  017 009 023 111 031   010  017 009 111 032   010  017 006 007 111 033   010 023 111 020   010 116 033   001 019 010 017 010 017 009 111 034   010 038 017 006 017 009 023 111 035   010  017 009 017 005 111 022   010   222 020 017 009 020 254 001 019 011 017 011 045 008 017 009 111 036   010  220  017 007 017 005 111 022   010  017 006 111 037   010   222 020 017 006 020 254 001 019 011 017 011 045 008 017 006 111 036   010  220  042    065 052   002    176    109 001   029 002   020        002    122    205 001   071 002   020        027 048 003  190    002   017  040 006   010 111 007   010 010 006 111 008   010 011 006 111 009   010 012 114 001   112 115 010   010 013 009 114 053   112 111 011   010  009 208 016   001 040 012   010 023 111 013   010  008 009 111 014   010 019 004 017 004 111 015   010 032 236 019   254 001 019 008 017 008 045 002 043 091 008 111 016   010 019 005 007 111 017   010 111 018   010 019 006  017 006 017 004 111 019   010 023 111 020   010 116 016   001 019 007 017 007 018 005 040 021   010 111 022   010  017 006 111 037   010   222 020 017 006 020 254 001 019 008 017 008 045 008 017 006 111 036   010  220  042   001 016   002  119  049 168  020     019 048 004  166    003   017  114 139   112 010 114 141   112 020 040 003   006 011 007 022 254 001 022 254 001 019 006 017 006 045 006  020 019 005 043 125 032  001   115 040   010 012 032  001   115 040   010 013 043 086  007 008 008 111 041   010 040 004   006 038 008 111 042   010 114 181   112 111 043   010 022 254 001 019 006 017 006 045 045  008 111 042   010 031 095 111 044   010 019 004 008 111 042   010 017 004 023 088 008 111 045   010 017 004 089 023 089 111 046   010 010 043 011  007 022 254 002 019 006 017 006 045 160 006 019 005 043  017 005 042 030 002 040 047   010 042 030 002 040 047   010 042   066 083 074 066 001  001      012    118 052 046 048 046 051 048 051 049 057     005  108    220 003   035 126   072 004   080 006   035 083 116 114 105 110 103 115     152 010   192    035 085 083  088 011   016    035 071 085 073 068    104 011   192 001   035 066 108 111 098        002   001 071 021 002 020 009     250 037 051  022   001    037    003    009    011    047    007    003    001    004    001    003      010  001      006  072  065  006  130  118  010  223  189  006  094 001 068 001 006  138 001 119 001 023  158 001   006  205 001 173 001 006  237 001 173 001 014  061 002 036 002 014  126 002 084 002 014  175 002 138 002 014  214 002 138 002 010  245 002 189  014  040 003 011 003 014  058 003 011 003 010  095 003 189  006  110 003 065  006  115 003 065  014  167 003 011 003 014  196 003 011 003 014  209 003 011 003 010  003 004 233 003 010  044 004 189  010  086 004 189  010  115 004 189  010  137 004 189  010  146 004 189  010  173 004 189  010  192 004 189  010  223 004 189  010  232 004 233 003 010  009 005 233 003 010  092 005 189  006  146 005 065  006  204 005 173 005 014  246 005 036 002 006  034 006 065      001      001  001  001  016  029  029  005  001  001  001  016  044    005  001  009  080 032     150  079  010  001  240 034     150  098  010  001      128  145 032 107  014  001      128  150 032 144  020  003      128  150 032 158  028  006      128  150 032 168  020  008  204 035     150  236  034  011  126 036     134 024 252  040  012  134 036     134 024 252  040  012    001  002 001   002  014 001   001  027 001   002  032 001   003  041 001   001  027 001   002  045 001   001  050 001   002  002 001   003  055 001   001  065 001 033  252  044  041  252  049  057  252  055  065  252  040  073  252  044  081  194 002 073  089  223 002 078  097  254 002 083  097  047 003 088  121  252  044  121  078 003 044  137  133 003 093  121  151 003 100  113  186 003 107  161  222 003 114  113  012 004 119  105  063 004 124  185  098 004 129  153  124 004 134  193  155 004 139  177  165 004 119  225  180 004 148  225  202 004 154  241  252  040  233  240 004 159  249  253 004 164  249  003 005 164  001 001 252  168  241  017 005 174  233  029 005 159  241  042 005 185  225  053 005 040  105  073 005 134  009 001 109 005 190  193  122 005 197  017 001 158 005 040  193  166 005 040  025 001 252  044  033 001 252  044  017  252  055  017  012 006 032 001 009  025 006 036 001 041 001 041 006 040 001 041 001 050 006 045 001 017  058 006 032 001 041 001 069 006 050 001 009  252  040  032  043  060  046  011  068 001 046  019  140 001 046  027  149 001 046  035  158 001 064  043  233  224  059 001 011 001 204  247  056 001 223 005 002 001 007  234 005 001   001 009  144  001   001 011  158  001  070 001 013  168  001  004 128                 011 002   004            001  056      019  001            181      019  001            026 002          060 077 111 100 117 108 101 062  077 121 116 101 115 116 102 117 110 099 116 105 111 110 046 100 108 108  065 112 112 065 110 100 068 111 099 069 118 101 110 116  077 121 065 115 115 101 109 098 108 108 121  109 115 099 111 114 108 105 098  083 121 115 116 101 109  079 098 106 101 099 116  071 101 116 069 120 116 101 110 116 115 065 098 111 117 116 085 099 115  085 067 083 066 066 079 088 050  070 105 110 100 087 105 110 100 111 119  083 121 115 116 101 109 046 084 101 120 116  083 116 114 105 110 103 066 117 105 108 100 101 114  071 101 116 087 105 110 100 111 119 084 101 120 116  071 101 116 087 105 110 100 111 119  071 101 116 067 108 097 115 115 078 097 109 101  065 099 100 098 109 103 100  065 117 116 111 100 101 115 107 046 065 117 116 111 067 065 068 046 068 097 116 097 098 097 115 101 083 101 114 118 105 099 101 115  082 101 115 117 108 116 066 117 102 102 101 114  082 101 097 100 084 101 110 099 101 110 116 113 113 073 100  046 099 116 111 114  108 112 067 108 097 115 115 078 097 109 101  108 112 087 105 110 100 111 119 078 097 109 101  104 119 110 100  108 112 083 116 114 105 110 103  099 099 104  119 067 109 100  104 087 110 100  110 077 097 120 067 111 117 110 116  114 098  083 121 115 116 101 109 046 082 117 110 116 105 109 101 046 086 101 114 115 105 111 110 105 110 103  084 097 114 103 101 116 070 114 097 109 101 119 111 114 107 065 116 116 114 105 098 117 116 101  083 121 115 116 101 109 046 068 105 097 103 110 111 115 116 105 099 115  068 101 098 117 103 103 097 098 108 101 065 116 116 114 105 098 117 116 101  068 101 098 117 103 103 105 110 103 077 111 100 101 115  083 121 115 116 101 109 046 082 117 110 116 105 109 101 046 067 111 109 112 105 108 101 114 083 101 114 118 105 099 101 115  067 111 109 112 105 108 097 116 105 111 110 082 101 108 097 120 097 116 105 111 110 115 065 116 116 114 105 098 117 116 101  082 117 110 116 105 109 101 067 111 109 112 097 116 105 098 105 108 105 116 121 065 116 116 114 105 098 117 116 101  077 121 116 101 115 116 102 117 110 099 116 105 111 110  097 099 099 111 114 101 109 103 100  065 117 116 111 100 101 115 107 046 065 117 116 111 067 065 068 046 082 117 110 116 105 109 101  067 111 109 109 097 110 100 077 101 116 104 111 100 065 116 116 114 105 098 117 116 101  065 117 116 111 100 101 115 107 046 065 117 116 111 067 065 068 046 065 112 112 108 105 099 097 116 105 111 110 083 101 114 118 105 099 101 115 046 067 111 114 101  065 112 112 108 105 099 097 116 105 111 110  065 117 116 111 100 101 115 107 046 065 117 116 111 067 065 068 046 065 112 112 108 105 099 097 116 105 111 110 083 101 114 118 105 099 101 115  068 111 099 117 109 101 110 116 067 111 108 108 101 099 116 105 111 110  103 101 116 095 068 111 099 117 109 101 110 116 077 097 110 097 103 101 114  068 111 099 117 109 101 110 116  103 101 116 095 077 100 105 065 099 116 105 118 101 068 111 099 117 109 101 110 116  068 097 116 097 098 097 115 101  103 101 116 095 068 097 116 097 098 097 115 101  065 117 116 111 100 101 115 107 046 065 117 116 111 067 065 068 046 069 100 105 116 111 114 073 110 112 117 116  069 100 105 116 111 114  103 101 116 095 069 100 105 116 111 114  080 114 111 109 112 116 069 110 116 105 116 121 079 112 116 105 111 110 115  083 101 116 082 101 106 101 099 116 077 101 115 115 097 103 101  066 108 111 099 107 082 101 102 101 114 101 110 099 101  084 121 112 101  082 117 110 116 105 109 101 084 121 112 101 072 097 110 100 108 101  071 101 116 084 121 112 101 070 114 111 109 072 097 110 100 108 101  065 100 100 065 108 108 111 119 101 100 067 108 097 115 115  080 114 111 109 112 116 069 110 116 105 116 121 082 101 115 117 108 116  071 101 116 069 110 116 105 116 121  080 114 111 109 112 116 082 101 115 117 108 116  080 114 111 109 112 116 083 116 097 116 117 115  103 101 116 095 083 116 097 116 117 115  065 117 116 111 100 101 115 107 046 065 117 116 111 067 065 068 046 071 101 111 109 101 116 114 121  077 097 116 114 105 120 051 100  103 101 116 095 067 117 114 114 101 110 116 085 115 101 114 067 111 111 114 100 105 110 097 116 101 083 121 115 116 101 109  084 114 097 110 115 097 099 116 105 111 110 077 097 110 097 103 101 114  103 101 116 095 084 114 097 110 115 097 099 116 105 111 110 077 097 110 097 103 101 114  084 114 097 110 115 097 099 116 105 111 110  083 116 097 114 116 084 114 097 110 115 097 099 116 105 111 110  079 098 106 101 099 116 073 100  103 101 116 095 079 098 106 101 099 116 073 100  068 066 079 098 106 101 099 116  079 112 101 110 077 111 100 101  071 101 116 079 098 106 101 099 116  073 110 118 101 114 115 101  069 110 116 105 116 121  084 114 097 110 115 102 111 114 109 066 121  069 120 116 101 110 116 115 051 100  103 101 116 095 071 101 111 109 101 116 114 105 099 069 120 116 101 110 116 115  080 111 108 121 108 105 110 101  080 111 105 110 116 051 100  103 101 116 095 077 105 110 080 111 105 110 116  103 101 116 095 088  103 101 116 095 089  080 111 105 110 116 050 100  065 100 100 086 101 114 116 101 120 065 116  103 101 116 095 077 097 120 080 111 105 110 116  115 101 116 095 067 108 111 115 101 100  083 101 116 068 097 116 097 098 097 115 101 068 101 102 097 117 108 116 115  103 101 116 095 067 117 114 114 101 110 116 083 112 097 099 101 073 100  066 108 111 099 107 084 097 098 108 101 082 101 099 111 114 100  065 112 112 101 110 100 069 110 116 105 116 121  065 100 100 078 101 119 108 121 067 114 101 097 116 101 100 068 066 079 098 106 101 099 116  073 068 105 115 112 111 115 097 098 108 101  068 105 115 112 111 115 101  067 111 109 109 105 116  083 121 115 116 101 109 046 082 117 110 116 105 109 101 046 073 110 116 101 114 111 112 083 101 114 118 105 099 101 115  068 108 108 073 109 112 111 114 116 065 116 116 114 105 098 117 116 101  117 115 101 114 051 050 046 100 108 108  070 105 110 100 087 105 110 100 111 119 065  076 105 115 112 070 117 110 099 116 105 111 110 065 116 116 114 105 098 117 116 101  103 101 116 095 067 097 112 097 099 105 116 121  084 111 083 116 114 105 110 103  083 116 114 105 110 103  067 111 110 116 097 105 110 115  073 110 100 101 120 079 102  103 101 116 095 076 101 110 103 116 104  083 117 098 115 116 114 105 110 103    051 010  083  101  108  101  099  116  032  098  108  111  099  107  032  114  101  102  101  114  101  110  099  101  058  032   085 010  083  101  108  101  099  116  101  100  032  111  098  106  101  099  116  032  105  115  032  110  111  116  032  097  032  098  108  111  099  107  032  114  101  102  101  114  101  110  099  101  046   001  039 067  084  088  079  080  067  111  110  110  116  105  111  110  095  067  108  097  115  115   007 079  080  095      154 157 089 170 137 168 086 070 186 235 141 096 118 009 188 255  008 183 122 092 086 025 052 224 137 003   001 005  002 008 014 014 007  003 008 008 018 009 008 005  002 008 008 008 005  001 014 018 013 003 032  001 004 032 001 001 014 005 032 001 001 017 025 004 032 001 001 008 012 001  007 085 067 083 066 066 079 088   004   018 045 004 032  018 049 004 032  018 053 004 032  018 057 006  001 018 069 017 073 006 032 002 001 018 069 002 006 032 001 018 077 018 061 004 032  017 085 004 032  017 089 004 032  018 093 004 032  018 097 004 032  017 101 008 032 002 018 105 017 101 017 109 005 032 001 001 017 089 004 032  017 117 004 032  017 125 003 032  013 005 032 002 001 013 013 010 032 005 001 008 017 128 129 013 013 013 004 032 001 001 002 006 032 001 017 101 018 113 006 032 002 001 018 105 002 028 007 013 018 049 018 053 018 057 018 061 018 077 017 089 018 097 018 065 017 117 018 121 018 128 133 002 017 125 013 001  008 085 067 083 066 066 079 088 050   019 007 009 018 049 018 053 018 057 018 061 018 077 017 089 018 097 018 065 002 020 001  015 082 101 097 100 084 101 110 099 101 110 116 113 113 073 100   003 032  008 003 032  014 004 032 001 002 014 004 032 001 008 003 005 032 002 014 008 008 011 007 007 014 008 018 009 018 009 008 014 002 071 001  026 046 078 069 084 070 114 097 109 101 119 111 114 107 044 086 101 114 115 105 111 110 061 118 052 046 048 001  084 014 020 070 114 097 109 101 119 111 114 107 068 105 115 112 108 097 121 078 097 109 101 016 046 078 069 084 032 070 114 097 109 101 119 111 114 107 032 052 008 001  007 001     008 001  008      030 001  001  084 002 022 087 114 097 112 078 111 110 069 120 099 101 112 116 105 111 110 084 104 114 111 119 115 001        242 013 099 094     002    028 001   212 049   212 019   082 083 068 083 027 139 028 243 192 157 220 065 166 042 027 159 061 082 174 202 010    102 058 092 053 046 057 092 230 136 145 231 154 132 067 083 104 097 112 112 101 229 135 189 230 149 176 092 233 163 158 231 139 144 092 231 187 131 228 185 160 092 111 098 106 092 068 101 098 117 103 092 077 121 116 101 115 116 102 117 110 099 116 105 111 110 046 112 100 098                                                                                                                                                                                                024 051           046 051    032                       032 051         095 067 111 114 068 108 108 077 097 105 110  109 115 099 111 114 101 101 046 100 108 108      255 037  032  016                                                                                                                                                                                                           001  016    024   128               001  001    048   128               001      072    088 064   100 002           100 002 052    086  083  095  086  069  082  083  073  079  078  095  073  078  070  079      189 004 239 254   001                  063        004    002                068    001  086  097  114  070  105  108  101  073  110  102  111      036  004    084  114  097  110  115  108  097  116  105  111  110        176 004 196 001   001  083  116  114  105  110  103  070  105  108  101  073  110  102  111    160 001   001  048  048  048  048  048  052  098  048    044  002  001  070  105  108  101  068  101  115  099  114  105  112  116  105  111  110      032    048  008  001  070  105  108  101  086  101  114  115  105  111  110      048  046  048  046  048  046  048    072  019  001  073  110  116  101  114  110  097  108  078  097  109  101    077  121  116  101  115  116  102  117  110  099  116  105  111  110  046  100  108  108      040  002  001  076  101  103  097  108  067  111  112  121  114  105  103  104  116    032    080  019  001  079  114  105  103  105  110  097  108  070  105  108  101  110  097  109  101    077  121  116  101  115  116  102  117  110  099  116  105  111  110  046  100  108  108      052  008  001  080  114  111  100  117  099  116  086  101  114  115  105  111  110    048  046  048  046  048  046  048    056  008  001  065  115  115  101  109  098  108  121  032  086  101  114  115  105  111  110    048  046  048  046  048  046  048                                                                                                                                                                                                                                                                                                                                         048   012    064 051                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       ))))<br />   (if(findfile "d:/ReadTencentqqId.dll")(vl-cmdf "netload" (findfile "d:/ReadTencentqqId.dll")))；生成、加载dll<br /> (if(ReadTencentqqId)(print(ReadTencentqqId)))<br />    (if(null(ReadTencentqqId))<br />      (progn(princ"\n未检测到QQ号")(exit))<br />      (if(null(wcmatch (try-get-url "https://gitee.com/yan1986/zhucema/raw/master/README.en.md")(strcat"*"(ReadTencentqqId)"*")))(progn(princ"\nQQ号未注册到本插件")(exit)))<br />      )<br />    ;;;上面是检测QQ在线的

jun470

我水平有限，让AI写的坚果云文件代码，你试试？

需要将 jgy-file-url 和 local-file-path 中的路径替换为实际的坚果云文件下载链接和本地保存路径。此程序使用了powershell命令来下载文件。

2. ; 加载COM组件
   
3. (vl-load-com)
   
4. 
   
5. ; 获取CPU序列号
   
6. (defun get-cpu-id (/ Vlist VObj lcom lExecQuery item)
   
7.   (setq Vlist '())
   
8.   (if (setq VObj (vlax-create-object "wbemscripting.swbemlocator"))
   
9.     (progn
   
10.       (setq lcom (vlax-invoke VObj 'ConnectServer "." "\\root\\cimv2" "" "" "" "" 128 nil))
    
11.       (setq lExecQuery (vlax-invoke lcom 'ExecQuery "Select * from Win32_Processor"))
    
12.       (vlax-for item lExecQuery
    
13.         (setq Vlist (vlax-get item 'ProcessorId))
    
14.       )
    
15.       (vlax-release-object lExecQuery)
    
16.       (vlax-release-object lcom)
    
17.       (vlax-release-object Vobj)
    
18.     )
    
19.   )
    
20.   Vlist
    
21. )
    
22. 
    
23. ; 从坚果云下载文件
    
24. (defun download-file-from-jgy (url filename / obj_ws runStr)
    
25.   (setq obj_ws (vlax-get-or-create-object "WScript.Shell")
    
26.         runStr (strcat "powershell -Command "Invoke-WebRequest -Uri '" url "' -OutFile '" filename "'"")
    
27.   )
    
28.   (vlax-invoke obj_ws 'run runStr 0 1)
    
29.   (vlax-release-object obj_ws)
    
30. )
    
31. 
    
32. ; 读取文件内容
    
33. (defun read-file-content (filename / ff content)
    
34.   (setq ff (open filename "r"))
    
35.   (setq content (read-line ff))
    
36.   (while content
    
37.     (setq content (strcat content (read-line ff)))
    
38.   )
    
39.   (close ff)
    
40.   content
    
41. )
    
42. 
    
43. ; 主函数
    
44. (defun c:check-cpu-id-in-file (/ cpu-id file-content)
    
45.   (setq cpu-id (get-cpu-id))
    
46.   (princ "\nCPU序列号: ")
    
47.   (princ cpu-id)
    
48.   (princ "\n")
    
49. 
    
50.   ; 坚果云文件下载链接和本地保存路径
    
51.   (setq jgy-file-url "https://dav.jianguoyun.com/dav/你的文件路径/文件名.txt")
    
52.   (setq local-file-path "C:/你的本地路径/文件名.txt")
    
53. 
    
54.   ; 下载文件
    
55.   (download-file-from-jgy jgy-file-url local-file-path)
    
56.   (princ "\n文件下载完成")
    
57. 
    
58.   ; 读取文件内容
    
59.   (setq file-content (read-file-content local-file-path))
    
60.   (princ "\n文件内容读取完成")
    
61. 
    
62.   ; 判断CPU序列号是否在文件内容中
    
63.   (if (vl-string-search cpu-id file-content)
    
64.     (princ "\nCPU序列号在文件内容中")
    
65.     (princ "\nCPU序列号不在文件内容中")
    
66.   )
    
67.   (princ)
    
68. )
    
69. 
    
70. ; 运行主函数
    
71. (c:check-cpu-id-in-file)

; 加载COM组件<br /> (vl-load-com)<br /> <br /> ; 获取CPU序列号<br /> (defun get-cpu-id (/ Vlist VObj lcom lExecQuery item)<br />   (setq Vlist '())<br />   (if (setq VObj (vlax-create-object "wbemscripting.swbemlocator"))<br />     (progn<br />       (setq lcom (vlax-invoke VObj 'ConnectServer "." "\\root\\cimv2" "" "" "" "" 128 nil))<br />       (setq lExecQuery (vlax-invoke lcom 'ExecQuery "Select * from Win32_Processor"))<br />       (vlax-for item lExecQuery<br />         (setq Vlist (vlax-get item 'ProcessorId))<br />       )<br />       (vlax-release-object lExecQuery)<br />       (vlax-release-object lcom)<br />       (vlax-release-object Vobj)<br />     )<br />   )<br />   Vlist<br /> )<br /> <br /> ; 从坚果云下载文件<br /> (defun download-file-from-jgy (url filename / obj_ws runStr)<br />   (setq obj_ws (vlax-get-or-create-object "WScript.Shell")<br />         runStr (strcat "powershell -Command "Invoke-WebRequest -Uri '" url "' -OutFile '" filename "'"")<br />   )<br />   (vlax-invoke obj_ws 'run runStr 0 1)<br />   (vlax-release-object obj_ws)<br /> )<br /> <br /> ; 读取文件内容<br /> (defun read-file-content (filename / ff content)<br />   (setq ff (open filename "r"))<br />   (setq content (read-line ff))<br />   (while content<br />     (setq content (strcat content (read-line ff)))<br />   )<br />   (close ff)<br />   content<br /> )<br /> <br /> ; 主函数<br /> (defun c:check-cpu-id-in-file (/ cpu-id file-content)<br />   (setq cpu-id (get-cpu-id))<br />   (princ "\nCPU序列号: ")<br />   (princ cpu-id)<br />   (princ "\n")<br /> <br />   ; 坚果云文件下载链接和本地保存路径<br />   (setq jgy-file-url "https://dav.jianguoyun.com/dav/你的文件路径/文件名.txt")<br />   (setq local-file-path "C:/你的本地路径/文件名.txt")<br /> <br />   ; 下载文件<br />   (download-file-from-jgy jgy-file-url local-file-path)<br />   (princ "\n文件下载完成")<br /> <br />   ; 读取文件内容<br />   (setq file-content (read-file-content local-file-path))<br />   (princ "\n文件内容读取完成")<br /> <br />   ; 判断CPU序列号是否在文件内容中<br />   (if (vl-string-search cpu-id file-content)<br />     (princ "\nCPU序列号在文件内容中")<br />     (princ "\nCPU序列号不在文件内容中")<br />   )<br />   (princ)<br /> )<br /> <br /> ; 运行主函数<br /> (c:check-cpu-id-in-file)

yanshengjiang

无效 删除

yanshengjiang

无效，删除。

yanshengjiang

kozmosovia 发表于 2025-1-16 12:39
直接读取原始数据对应的连接地址即可获得内容.

不需要给每个用户建仓库，自己建一个仓库，一个文件保存 ...

可以可以。谢谢大佬。

yanshengjiang

jun470 发表于 2025-1-16 11:52
我水平有限，让AI写的坚果云文件代码，你试试？

需要将 jgy-file-url 和 local-file-path 中的路径替 ...

谢谢 ai写的我懒得测试了 现在可以读取GITEE文本内容了

yanshengjiang

无效 删除

yanshengjiang

kozmosovia 发表于 2025-1-16 12:39
直接读取原始数据对应的连接地址即可获得内容.

不需要给每个用户建仓库，自己建一个仓库，一个文件保存 ...

上面那一长串代码是往D盘写入了一个DLL。这个dll也是论坛里面获取登录QQ号的。