设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › lisp执行远程下载文件方法大一统
返回列表 发新帖
查看: 899|回复: 9

[每日一码] lisp执行远程下载文件方法大一统

[复制链接]
dcl1214
发表于 2021-1-17 21:24:17 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
本帖最后由 newer 于 2021-1-18 11:10 编辑

LISP下载文件方法非常多，这里仅分享四种方法；如果缺少函数请见我的其他帖子，实在找不到了在下面回帖


方法一：借助系统组件
  1. (defun xiazai-web (url              path         rename            /
  2.                    objHttp    chrlist         listi            liststring
  3.                    httpstr    totalstring            resultstr
  4.                    value WriteBinaryStream
  5.                   )
  6.                                         ;下载文件到本地(这个函数主要是替换上面的util:get_file函数的)
  7.                                         ;url为可以下载的文件地址包含http
  8.                                         ;path为本地路径，可以包含文件名
  9.                                         ;rename为重命名的文件名，也就是说下载后对文件重命名，可以为空
  10.   (defun WriteBinaryStream (filename data / ADOStream result xzjg)
  11.                                         ;        读取远程文件  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  12.     (if        (setq ADOStream        (vl-catch-all-apply
  13.                           'vlax-create-object
  14.                           (list "ADODB.Stream")
  15.                         )
  16.         )
  17.       (progn
  18.         (setq result
  19.                (vl-catch-all-apply
  20.                  (function
  21.                    (lambda ()
  22.                      (vl-catch-all-apply
  23.                        'vlax-put-property
  24.                        (list ADOStream 'type 1)
  25.                      )
  26.                      (vl-catch-all-apply 'vlax-invoke (list ADOStream 'open))
  27.                      (vl-catch-all-apply
  28.                        'vlax-invoke-method
  29.                        (list ADOStream 'write data)
  30.                      )
  31.                      (vl-catch-all-apply
  32.                        'vlax-invoke
  33.                        (list ADOStream 'savetofile filename 2)
  34.                      )
  35.                    )
  36.                  )
  37.                )
  38.         )
  39.         (vl-catch-all-apply
  40.           'vlax-invoke-method
  41.           (list stream 'close)
  42.         )                                ;关闭文件流
  43.         (if ADOStream
  44.           (vlax-release-object ADOStream)
  45.         )
  46.         (if (not (vl-catch-all-error-p result))
  47.           (setq xzjg filename)
  48.         )
  49.       )
  50.       (if (not ADOStream)
  51.         (if (and nil)
  52.           (progn
  53.             (alert "Wen10系统bug，请查看命令行，或者联系开发人员")
  54.             (mapcar
  55.               'print
  56.               (list
  57.                 "Windows Registry Editor Version 5.00" ""
  58.                 "[HKEY_CLASSES_ROOT\\Wow6432Node\\CLSID\\{00000566-0000-0010-8000-00AA006D2EA4}]"
  59.                 "@=\"ADODB.Stream\"" ""
  60.                 "[HKEY_CLASSES_ROOT\\Wow6432Node\\CLSID\\{00000566-0000-0010-8000-00AA006D2EA4}\\InprocServer32]"
  61.                 "@=hex(2):25,00,43,00,6f,00,6d,00,6d,00,6f,00,6e,00,50,00,72,00,6f,00,67,00,72,\\"
  62.                 "  00,61,00,6d,00,46,00,69,00,6c,00,65,00,73,00,28,00,78,00,38,00,36,00,29,00,\\"
  63.                 "  25,00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,5c,00,61,00,64,00,6f,00,5c,\\"
  64.                 "  00,6d,00,73,00,61,00,64,00,6f,00,31,00,35,00,2e,00,64,00,6c,00,6c,00,00,00"
  65.                 "\"ThreadingModel\"=\"Apartment\""
  66.                 "\"Assembly\"=\"ADODB, Version=7.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a\""
  67.                 "\"Class\"=\"ADODB.StreamClass\""
  68.                 "\"RuntimeVersion\"=\"v1.0.3705\"" ""
  69.                 "[HKEY_CLASSES_ROOT\\Wow6432Node\\CLSID\\{00000566-0000-0010-8000-00AA006D2EA4}\\InprocServer32\\7.0.3300.0]"
  70.                 "\"Assembly\"=\"ADODB, Version=7.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a\""
  71.                 "\"Class\"=\"ADODB.StreamClass\""
  72.                 "\"RuntimeVersion\"=\"v1.0.3705\"" ""
  73.                 "[HKEY_CLASSES_ROOT\\Wow6432Node\\CLSID\\{00000566-0000-0010-8000-00AA006D2EA4}\\ProgID]"
  74.                 "@=\"ADODB.Stream.6.0\"" ""
  75.                 "[HKEY_CLASSES_ROOT\\Wow6432Node\\CLSID\\{00000566-0000-0010-8000-00AA006D2EA4}\\VersionIndependentProgID]"
  76.                 "@=\"ADODB.Stream\"")
  77.             )
  78.           )
  79.           (progn
  80.             (alert
  81.               "
  82. Error:                                                                              
  83.                    Msado15.DLL has not started
  84.                   
  85.                    Conventional path of this file are as follows:                  
  86.                    \"C:\\Program Files\\Common Files\\System\\ado\\msado15.dll\"
  87.                   
  88.                    Method is to launch the system components                  
  89.                      regsvr32 \"C:\\Program Files\\Common Files\\System\\ado\\msado15.dll\"

  91.                    "
  92.             )
  93.             (IF        (FINDFILE (STRCAT ""
  94.                                   (getenv "systemdrive")
  95.                                   "\\"
  96.                                   (getenv "%zxcadazml%")
  97.                                   "\\CURL"
  98.                           )
  99.                 )
  100.               (SETENV "ZX-Download-t" "CURL")
  101.               (exit)
  102.             )
  103.           )
  104.         )
  105.       )
  106.     )
  107.     xzjg
  108.   )
  109.   (if (and url
  110.            (wcmatch url "http://*")
  111.            path
  112.            (not (and (vl-file-directory-p path) (= rename "")))
  113.       )                                        ;传入进来的参数做条件判断
  114.     (progn
  115.       (cond
  116.         ((and (not (vl-file-directory-p path)) (= rename ""))
  117.          (setq rename (strcat (vl-filename-base path)
  118.                               (vl-filename-extension path)
  119.                       )
  120.          )
  121.          (setq path (vl-filename-directory path))
  122.         )                                ;path带有文件名，同时rename为空(重置rename 和path)
  123.         ((and (not (vl-file-directory-p path)) (/= rename ""))
  124.          (setq path (vl-filename-directory path)
  125.          )
  126.         )                                ;path带有文件名，同时rename不为空(重置path)
  127.       )
  128.       (if (/= (substr path (- (strlen path) 2) 2) "\\")
  129.         (setq path (strcat path "\\"))
  130.       )                                        ;防止path后面没有斜杠
  131.       (setq path (strcat path rename))
  132.       (setq objHttp (vlax-create-object "Msxml2.XMLHTTP"))
  133.       (vla-open        objHttp
  134.                 "GET"
  135.                 url
  136.                 0
  137.       )
  138.       (vlax-invoke-method objHttp "send")
  139.       (while (/= (vlax-get-property objHttp "readyState") 4)
  140.         (repeat 100)
  141.       )
  142.       (if (= (vlax-get-property objHttp "readyState") 4)
  143.         (progn
  144.           (setq value (vlax-get-property objHttp 'responsebody))
  145.           (WriteBinaryStream path value)
  146.         )
  147.       )
  148.       (vlax-release-object objHttp)        ;释放
  149.     )
  150.     (progn (print "xiazai-web 函数遇到参数不足") nil)
  151.   )
  152. )





方法二：借助curl
  1. (defun $CURL远程下载$ (WEB-f-NAME           FILE-LOC  lst
  2.                        /         arg           curl.exe-path
  3.                        exe         exe-32?64 h             ip
  4.                        shell         xzjg           zt             wjm
  5.                        dir-w
  6.                       )
  7.                                         ;借助第三方CURL下载文件
  8.                                         ;FILE-LOC 本地目录
  9.                                         ;OK-BIT 字节数判断，小于这个字节数的文件就不要了，视为无效文件
  10.                                         ;示例：($CURL远程下载$ "222.jpg" nil)
  11.                                         ;注意 curl下载是需要执行urlencode转码的，下面有代码已经执行了这个操作
  12.   (if (and WEB-f-NAME
  13.            (= (type WEB-f-NAME) 'str)
  14.            (or (and FILE-LOC (= (type FILE-LOC) 'str)) t)
  15.                                         ;要么没有，要有值就必须是字串模式
  16.       )
  17.     (progn
  18.       (if (and WEB-f-NAME
  19.                (vl-filename-base WEB-f-NAME)
  20.                (vl-filename-extension WEB-f-NAME)
  21.           )
  22.         (progn
  23.           (setq        wjm (strcat (vl-filename-base WEB-f-NAME)
  24.                             (vl-filename-extension WEB-f-NAME)
  25.                     )
  26.           )
  27.         )
  28.       )
  29.       (if (and FILE-LOC
  30.                (vl-filename-base FILE-LOC)
  31.                (vl-filename-extension FILE-LOC)
  32.           )
  33.         ()
  34.         (and wjm
  35.              (setq FILE-LOC (strcat FILE-LOC "\\" wjm))
  36.         )
  37.       )
  38.       (setq curl.exe-path (FINDFILE "CURL"))
  39.       (if (and ($判断操作系统是不是64位$))
  40.         (setq exe-32?64 "64")
  41.         (setq exe-32?64 "32")
  42.       )
  43.       (if exe-32?64
  44.         (setq exe (strcat exe-32?64 "\\" "curl.exe"))
  45.         (setq exe (strcat "32" "\\" "curl.exe"))
  46.       )
  47.       (if (or (not curl.exe-path)
  48.               (not (findfile (STRCAT curl.exe-path "\\" exe)))
  49.           )
  50.         (progn
  51.           (alert (strcat
  52.                    "找不到下载组件！\n\n当前操作系统是："
  53.                    exe-32?64
  54.                    "位，\n对应的curl文件是："
  55.                    exe
  56.                    " 请检查组件是否被删除了\n\n该文件一般放在： "
  57.                    (getenv "%zxcadazml%")
  58.                    "\\"
  59.                    exe-32?64
  60.                    "  目录"
  61.                  )
  62.           )
  63.         )
  64.       )
  65.       (SETQ IP (GETENV "数据库地址"))
  66.       (if (= (GETENV "ZX-DB-TUNNEL") "GO")
  67.         (setq h        (strcat        (数据库支持的post方法名
  68.                           "报文头标题"
  69.                         )
  70.                         ":"
  71.                         (getenv "ComputerName")
  72.                 )
  73.         )
  74.         (setq h "")
  75.       )
  76.       (or FILE-LOC
  77.           (SETQ FILE-LOC (strcat (GETENV "ZX-HCML") "\\" WEB-f-NAME))
  78.       )
  79.       (if (and curl.exe-path exe h FILE-LOC IP WEB-f-NAME)
  80.         (progn
  81.           (SETQ WEB-f-NAME ($URLencode$ WEB-f-NAME))
  82.                                         ;对文件名进行一次转码操作（服务器上可能存在有目录结构，一起转码）
  83.           (setq arg (strcat curl.exe-path
  84.                               "\\"
  85.                               exe
  86.                               " "
  87.                               "-o"
  88.                               " "
  89.                               (vl-prin1-to-string FILE-LOC)
  90.                                         ;防止本地的文件夹名字有空格，所以这么写
  91.                               " "
  92.                               IP
  93.                               "/"
  94.                               (数据库支持的post方法名 "下载文件")
  95.                               WEB-f-NAME
  96.                                         ;防止文件名有空格，必须这么写
  97.                               " -m 10"        ;10秒超时设定
  98.                       )
  99.             )
  100.         )
  101.       )
  102.       (IF (and
  103.             exe        FILE-LOC IP WEB-f-NAME arg)
  104.         (PROGN
  105.           (or (and lst
  106.                    (setq dd (cdr (assoc "是否等待" lst)))
  107.                                         ;是否需要等待下载结束？
  108.                    (member (type dd) (list 'int))
  109.                    (or (= dd 0) (= dd 1))
  110.               )
  111.               (setq dd 1)
  112.           )
  113.           (IF (setq Shell
  114.                      (vl-catch-all-apply
  115.                        (FUNCTION
  116.                          (LAMBDA () (vlax-create-object "wscript.shell"))
  117.                        )
  118.                      )
  119.               )
  120.             (PROGN
  121.               (if (not
  122.                     (vl-catch-all-error-p
  123.                       (setq zt
  124.                              (vl-catch-all-apply
  125.                                'vlax-invoke
  126.                                (list
  127.                                  Shell 'run arg
  128. ;;;                   "C:\\Changli_harness_software\\SERVER\\curl\\curl.exe -H \"Client-Auth:xiaomi;qazwsxedc;192.168.0.0\" -o C:/Changli_harness_software/SERVER/curl/22.jpg
    \"\"
  129.                                
               (or (and FILE-LOC (= (type FILE-LOC) 'str)) t)
                                            ;要么没有，要有值就必须是字串模式
          )
        (progn
          (if (and WEB-f-NAME
                   (vl-filename-base WEB-f-NAME)
                   (vl-filename-extension WEB-f-NAME)
              )
            (progn
              (setq        wjm (strcat (vl-filename-base WEB-f-NAME)
                                (vl-filename-extension WEB-f-NAME)
                        )
              )
            )
          )
          (if (and FILE-LOC
                   (vl-filename-base FILE-LOC)
                   (vl-filename-extension FILE-LOC)
              )
            ()
            (and wjm
                 (setq FILE-LOC (strcat FILE-LOC "\\" wjm))
            )
          )
          (setq curl.exe-path (FINDFILE "CURL"))
          (if (and ($判断操作系统是不是64位$))
            (setq exe-32?64 "64")
            (setq exe-32?64 "32")
          )
          (if exe-32?64
            (setq exe (strcat exe-32?64 "\\" "curl.exe"))
            (setq exe (strcat "32" "\\" "curl.exe"))
          )
          (if (or (not curl.exe-path)
                  (not (findfile (STRCAT curl.exe-path "\\" exe)))
              )
            (progn
              (alert (strcat
                       "找不到下载组件！\n\n当前操作系统是："
                       exe-32?64
                       "位，\n对应的curl文件是："
                       exe
                       " 请检查组件是否被删除了\n\n该文件一般放在： "
                       (getenv "%zxcadazml%")
                       "\\"
                       exe-32?64
                       "  目录"
                     )
              )
            )
          )
          (SETQ IP (GETENV "数据库地址"))
          (if (= (GETENV "ZX-DB-TUNNEL") "GO")
            (setq h        (strcat        (数据库支持的post方法名
                              "报文头标题"
                            )
                            ":"
                            (getenv "ComputerName")
                    )
            )
            (setq h "")
          )
          (or FILE-LOC
              (SETQ FILE-LOC (strcat (GETENV "ZX-HCML") "\\" WEB-f-NAME))
          )
          (if (and curl.exe-path exe h FILE-LOC IP WEB-f-NAME)
            (progn
              (SETQ WEB-f-NAME ($URLencode$ WEB-f-NAME))
                                            ;对文件名进行一次转码操作（服务器上可能存在有目录结构，一起转码）
              (setq arg (strcat curl.exe-path
                                  "\\"
                                  exe
                                  " "
                                  "-o"
                                  " "
                                  (vl-prin1-to-string FILE-LOC)
                                            ;防止本地的文件夹名字有空格，所以这么写
                                  " "
                                  IP
                                  "/"
                                  (数据库支持的post方法名 "下载文件")
                                  WEB-f-NAME
                                            ;防止文件名有空格，必须这么写
                                  " -m 10"        ;10秒超时设定
                          )
                )
            )
          )
          (IF (and
                exe        FILE-LOC IP WEB-f-NAME arg)
            (PROGN
              (or (and lst
                       (setq dd (cdr (assoc "是否等待" lst)))
                                            ;是否需要等待下载结束？
                       (member (type dd) (list 'int))
                       (or (= dd 0) (= dd 1))
                  )
                  (setq dd 1)
              )
              (IF (setq Shell
                         (vl-catch-all-apply
                           (FUNCTION
                             (LAMBDA () (vlax-create-object "wscript.shell"))
                           )
                         )
                  )
                (PROGN
                  (if (not
                        (vl-catch-all-error-p
                          (setq zt
                                 (vl-catch-all-apply
                                   'vlax-invoke
                                   (list
                                     Shell 'run arg
    ;;;                   "C:\\Changli_harness_software\\SERVER\\curl\\curl.exe -H \"Client-Auth:xiaomi;qazwsxedc;192.168.0.0\" -o C:/Changli_harness_software/SERVER/curl/22.jpg
    \"\"
                                   
  130.                       (or (= dd 0) (= dd 1))
  131.                  )
  132.                  (setq dd 1)
  133.              )
  134.              (PROGN (IF        (setq Shell
  135.                                (vl-catch-all-apply
  136.                                  (FUNCTION
  137.                                    (LAMBDA () (vlax-create-object "wscript.shell"))
  138.                                  )
  139.                                )
  140.                         )
  141.                       (PROGN
  142.                         (vl-catch-all-error-p
  143.                           (setq        zt (vl-catch-all-apply
  144.                                      'vlax-invoke
  145.                                      (list
  146.                                        Shell 'run str 0        dd)
  147.                                    )
  148.                           )
  149.                         )
  150.                       )
  151.                     )
  152.                     (and shell (vlax-release-object shell))
  153.              )
  154.       )
  155.     )
  156.     (if        (= zt 0)
  157.       (setq XZJG (findfile FILE-LOC))
  158.     )
  159.     XZJG
  160.   )
  161. ($aria2c_exe远程下载$ web-file2 local-file nil)


方法四：借助vbs
  1. (defun $VBS远程下载$ (url loc lst / code *SCR DATA File L R G B)
  2.                                         ;url 远程地址
  3.                                         ;loc本地存储文件名，包含后缀的
  4.                                         ;lst 预留
  5.                                         ;注意：vbs调用下载数据库文件，不需要做urlencode转码
  6.   (if (and url loc)
  7.     (PROGN
  8.       (setq url        (strcat        (getenv "数据库地址")
  9.                         "/"
  10.                         (数据库支持的post方法名 "下载文件")
  11.                         url
  12.                 )
  13.       )
  14.       (if (or (setq
  15.                 *SCR (vlax-create-object
  16.                        "Aec32BitAppServer.AecScriptControl.1"
  17.                      )
  18.               )
  19.               (setq *SCR (vlax-create-object "ScriptControl"))
  20.           )
  21.         (progn
  22.           (vlax-put *SCR 'language "VBScript")
  23.           (setq        code
  24.                  "Function Download(url,target)
  25. Const adTypeBinary = 1
  26. Const adSaveCreateOverWrite = 2
  27. Dim http,ado
  28. Set http = CreateObject(\"Msxml2.ServerXMLHTTP\")
  29. http.open \"GET\",url,False
  30. http.send
  31. Set ado = createobject(\"Adodb.Stream\")
  32. ado.Type = adTypeBinary
  33. ado.Open
  34. ado.Write http.responseBody
  35. ado.SaveToFile target,2
  36. ado.Close
  37. End Function"
  38.           )
  39.           (if (and
  40.                 (not (vl-catch-all-error-p
  41.                        (vl-catch-all-apply
  42.                          'vlax-invoke
  43.                          (list *SCR
  44.                                'addcode
  45.                                code
  46.                          )
  47.                        )
  48.                      )
  49.                 )
  50.                 (not (vl-catch-all-error-p
  51.                        (setq DATA (vl-catch-all-apply
  52.                                     'vlax-invoke
  53.                                     (list *SCR 'run "Download" url loc)
  54.                                   )
  55.                        )
  56.                      )
  57.                 )
  58.                 (findfile loc)
  59.               )
  60.             ()
  61.             (setq loc nil)
  62.           )
  63.           (if *SCR
  64.             (vlax-release-object *SCR)
  65.           )
  66.         )
  67.       )
  68.     )
  69.   )
  70.   loc
  71. )
  72. ($VBS远程下载$ web-file2 local-file nil)





评分

参与人数 3D豆 +15 收起 理由
hh_lj007 + 5 很给力!经验；技术要点；资料分享奖！
Lisphk + 5 很给力!经验；技术要点；资料分享奖！
marting + 5 很给力!经验；技术要点；资料分享奖！

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

yangjian001

已领礼包: 3904个

财富等级: 富可敌国
发表于 2021-1-18 09:01:16 | 显示全部楼层
做一个热心并受欢迎的人
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Lisphk

已领礼包: 19个

财富等级: 恭喜发财
发表于 2021-1-18 11:13:16 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
大师，能实现有进度提示的吗
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hh_lj007

已领礼包: 756个

财富等级: 财运亨通
发表于 2021-1-18 11:20:23 | 显示全部楼层
谢谢分享，学习中
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

huangpc27

已领礼包: 676个

财富等级: 财运亨通
发表于 2021-1-18 11:45:48 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
好代码，消化消化才行
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

renyonghua2014

已领礼包: 418个

财富等级: 日进斗金
发表于 2021-1-18 14:09:58 | 显示全部楼层
学习学习，谢谢提供。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

SHUNDocker

已领礼包: 375个

财富等级: 日进斗金
发表于 2021-1-19 09:34:49 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
感谢楼主分享，学习中！！！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

原地踏步

已领礼包: 5188个

财富等级: 富甲天下
发表于 2021-1-19 19:42:32 | 显示全部楼层
太高深了，先做个记号。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lisp小白白
发表于 2021-1-19 20:12:47 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

谢谢分享，学习中
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

muwind
发表于 2021-1-19 22:49:15 | 显示全部楼层
要不叫全家桶
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-15 08:39 , Processed in 0.196085 second(s), 51 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表