| |
PA3BNX > ALL 30.12.07 23:12l 147 Lines 5110 Bytes #999 (0) @ WW
BID : 47687_PI8SHB
Read: GUEST
Subj: Show Hidden/system files src.
Path: IZ3LSV<IW2OAZ<IK2XDE<DB0RES<ON0AR<PI8ZAA<PI8SHB
Sent: 071209/1752Z @:PI8SHB.#NBO.NLD.EU #:47687 ['s-Hertogenbosch] $:47687_PI8S
From: PA3BNX@PI8SHB.#NBO.NLD.EU
To : ALL@WW
Hello all,
I did wrote a small tool to get all the hidden and system files
in a hidden.txt file.
I did wrote it in QB45 witch is with ms-dos6.22.
Program is free so enjoy.
Source in basic.
DECLARE SUB stripe ()
''Updated @ 09-12-2007
''Easy to understand software.
''Get all Hidden/System files from windows with QB45.
'Integer
DIM x AS INTEGER
DIM i AS INTEGER
DIM j AS INTEGER
'String
DIM drive AS STRING
DIM drive1 AS STRING
DIM myval AS STRING
CONST ve$ = "((C))PA3BNX Version 1.00"
CLS
PRINT "Searching hidden/system files.";
LOCATE 1, 80 - LEN(ve$)
PRINT ve$
CALL stripe
INPUT "Give drive letter to search c,d,e,f "; drive
INPUT "Give 1= All dirs ,2= Root+Windows+\System+\System32 ,3= Root+Windows /subs "; x
IF x < 1 OR x > 3 THEN x = 1
IF drive = "" THEN
drive = "c:"
ELSE
IF ASC(MID$(drive, 1, 1)) >= 65 AND ASC(MID$(drive, 1)) <= 122 THEN
drive = MID$(drive, 1, 1) + ":"
ELSE
SYSTEM
END IF
END IF
CALL stripe
PRINT "Searching Now !"
SELECT CASE x
CASE 1
SHELL "attrib " + drive + "\*.* /s > " + drive + "\tmpall"
CASE 2
SHELL "attrib " + drive + "\*.* > " + drive + "\tmp1"
SHELL "attrib " + drive + "\windows\*.* > " + drive + "\tmp2"
SHELL "attrib " + drive + "\windows\system\*.* /s > " + drive + "\tmp3"
SHELL "attrib " + drive + "\windows\system32\*.* /s > " + drive + "\tmp4"
SHELL "copy " + drive + "\tmp1 + " + drive + "\tmp2 + " + drive + "\tmp3 + " + drive + "\tmp4 " + drive + "\tmpall"
SHELL "del " + drive + "\tmp?"
CASE 3
SHELL "attrib " + drive + "\*.* > " + drive + "\tmp1"
SHELL "attrib " + drive + "\windows\*.* /s > " + drive + "\tmp2"
SHELL "copy " + drive + "\tmp1 + " + drive + "\tmp2 " + drive + "\tmpall"
SHELL "del " + drive + "\tmp?"
END SELECT
OPEN drive + "\tmpall" FOR INPUT AS #1
OPEN drive + "\hidden.txt" FOR OUTPUT AS #2
DO
LINE INPUT #1, myval
i = INSTR(1, myval, "H")
j = INSTR(1, myval, "S")
IF (i > 0 AND i < 9) OR (j > 0 AND j < 9) THEN
PRINT myval
PRINT #2, myval
END IF
LOOP UNTIL EOF(1)
CLOSE #2
CLOSE #1
SHELL "del " + drive + "\tmpall"
CALL stripe
PRINT "All files in " + drive + "\hidden.txt"
DO
LOOP UNTIL INKEY$ <> ""
SUB stripe
'Integer
DIM x AS INTEGER
FOR x = 1 TO 80
PRINT CHR$(196);
NEXT x
END SUB
----------------------------------------
7plus file: HIDDEN.7PL (3 kBytes) - 001/001
Read previous mail | Read next mail
| |
