大家好。本人是新手。有个问题想问问大家！关于vba的。

login1986 · 发表于 2005-10-23 11:02:00

我想问一下各位。VBA有一个自带的加密工能，能不能把它加密完的DVB文件破解出来看到源代码呢？
如果有哪知道请回贴！谢谢！！！！

alin · 发表于 2005-10-23 15:05:00

既然是新手,就要好好学习,不要总想解密什么的.

haha9596 · 发表于 2005-10-23 18:34:00

登录/注册后可看大图

紧急[求助]——个小问题
请问各位“大虾”如何将cad中密密麻麻的数字快速求和？？？至盼。。。。。。。

yoursmile · 发表于 2005-11-6 10:54:00

哈哈，不知道，我也是新手！

cenyong · 发表于 2005-11-22 09:59:00

本人前几天找到一个计算单行文字的用LISP语言编的可实现+、-、*、/的程序，求和的功能试过了，其余的没试。加载后从命令行输入JS就行了，代码如下：
(defun *error* (ERROR)
   (princ "error:")
   (princ "CAO ZUO ERROE")
   (PRINC "\n please try a time")
   )
(defun getss(/ SS N I NAME0 NAME X0 X1)
   (INITGET (+ 1 2 4))
   (setq ss (ssget '((0 . "TEXT"))))
   (if (= ss nil) (setq ss (ssadd)))
   (setq ssa (ssadd))
   (while (/= (setq n (sslength ss)) 0)
         (progn
         (setq i 1)
         (setq name0 (ssname ss 0))
         (setq x0 (caddr (assoc 10 (entget name0))))
         (while (
(DEFUN C:JS(/  NN II ENT NAME TXT PP P0 PP0 NAME1
            P ST ZH ZW ANG I N W TEMP)
   (SETVAR "BLIPMODE" 0)
   (SETVAR "CMDECHO" 0)
   (PROMPT "\n FIRST-SSGET:")
   (INITGET (+ 1 2 4))
   (getss)
   (SETQ SS1 ssa)
   (PROMPT "\n SECOND-SSGET:")
   (getss)
   (SETQ SS2 ssa)

   (INITGET (+ 1 2 4))
   (IF (= (SSLENGTH SS2) 0)
      (SETQ JSF (GETSTRING "\n JI SUAN FU:?  "))
      (SETQ JSF (GETSTRING "\n JI SUAN FU:?  ")))
   (WHILE (AND (/= JSF "+") (/= JSF "-") (/= JSF "*") (/= JSF "/") (/= JSF ""))
         (GETSTRING "\n JI SUAN FU:?  "))
   (IF (AND (= (SSLENGTH SS2) 0) (= JSF "")) (SETQ JSF "+"))
   (IF (AND (/= (SSLENGTH SS2) 0) (= JSF "")) (SETQ JSF "*"))

   (SETQ P0 (CDR (ASSOC 10 (ENTGET (SSNAME SS1 0)))))
   (INITGET (+ 1 2 4))
   (SETQ PP0 (GETPOINT "\n TEXT-POINT:?"))
   (SETVAR "BLIPMODE" 0)
   (IF (= (SSLENGTH SS2) 0)
         (PROGN
               (SETQ XI (GETREAL "\n XU CHU DE XI SHU [/] :?"))
               (IF (= XI NIL) (SETQ XI 1)))
         (PROGN
               (SETQ XI (GETREAL "\n XU CHU DE XI SHU [/]:? "))
               (IF (= XI NIL) (SETQ XI 100))
         ))
   (SETQ WS (GETINT "\n XIAO SHU WEI:? "))
   (IF (= WS NIL) (SETQ WS 2))
   (SETQ NN1 (SSLENGTH SS1))
   (SETQ II 0)
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   (IF (= (SSLENGTH SS2) 0)(PROGN
      (WHILE (= NN1 NN2) (SETQ NN NN2) (SETQ NN NN1))
   (WHILE (  "))
   (WHILE (AND (/= JSF "+") (/= JSF "-") (/= JSF "*") (/= JSF "/") (/= JSF ""))
         (GETSTRING "JI SUAN FU:?  "))
   (IF (= JSF "") (SETQ JSF "*"))
   (SETQ XI (GETREAL "\n  XI SHU:?"))
   (SETQ P0 (CDR (ASSOC 10 (ENTGET (SSNAME SS 0)))))
   (SETVAR "BLIPMODE" 0)
   (INITGET (+ 1 2 4))
   (SETQ PP0 (GETPOINT "\n  TEXT-POINT:?"))
   (SETVAR "BLIPMODE" 0)
   (SETQ WS (GETINT "\n  XIAO SHU WEI:? "))
   (IF (= WS NIL) (SETQ WS 1))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   (SETQ NN (SSLENGTH SS))
   (SETQ II 0)
   (WHILE ("))
   (IF (= XI NIL) (SETQ XI 0.888))
   (SETVAR "BLIPMODE" 0)
   (SETQ WS (GETINT "\n XIAO SHU WEI:? "))
   (IF (= WS NIL) (SETQ WS 2))

   (SETQ NN1 (SSLENGTH SS1))
   (SETQ II 0)
   (SETQ TXT 0)
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   (IF (AND (/= SS2 NIL) (/= SS1 NIL)) (PROGN
   (SETQ NN2 (SSLENGTH SS2))
   (IF (>= NN1 NN2) (SETQ NN NN2) (SETQ NN NN1))
   (WHILE (
   (SETVAR "BLIPMODE" 0)
   (SETVAR "CMDECHO" 0)
   (PRINC)
         )

大家好。本人是新手。有个问题想问问大家！关于vba的。

发表回复

精选推荐