Newsgroup: it.comp.lang.visual-basic
Titolo: Nascondere file txt

ciao a tutti, ho creato un programma che crea(scusate il gioco di
parole) un file txt in una cartella contenente la lista di processi.
vorrei nascondere questi file...
ho provato a nascondere la cartella con setattr ma non me li
nasconde(mi nasconde solo la cartella).
visto che il nome di questi file cambia automaticamente ogni volta che
vengono creati non c'è un sistema per nascondere tutti i file .txt
contenuti in una cartella????Oppure non si può dirgli al programma di
nascondere la cartella e i files contenuti???
grazie per qualsiasi intervento.
gege

 vorrei nascondere questi file...
prova a chiedere a quelli di Sony, loro ne sanno sicuramente
qualcosa :-P
-- 
ciao, hal

"Gegge766"
guarda il mio post Registro di Windows e vb   e vedi come creare
dei file temporanei e poi questo sotto  TUTTO in vbs
 (ma facilmente esportabile come sistema in VB)
 Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder("C:\WINDOWS\TEMP\TEST")
      f.attributes = f.attributes +2
'Arguments
'object
'Required. Always the name of a File or Folder object.
'newattributes
'Optional. If provided, newattributes is the new value for the attributes of the specified 'object.
'Settings
'The newattributes argument can have any of the following values or any logical 'combination of the following values:
'Constant Value Description
'Normal 0 Normal file. No attributes are set.
'ReadOnly 1 Read-only file. Attribute is read/write.
'Hidden 2 Hidden file. Attribute is read/write.
'System 4 System file. Attribute is read/write.
'Volume 8 Disk drive volume label. Attribute is read-only.
'Directory 16 Folder or directory. Attribute is read-only.
'Archive 32 File has changed since last backup. Attribute is read/write.
'Alias 64 Link or shortcut. Attribute is read-only.
'Compressed 128 Compressed file. Attribute is read-only.
--
Fosco

 guarda il mio post Registro di Windows e vbs
ma se io ho settato il mio SO per vedere TUTTI i file li vedo
comunque
--
Fosco

 ha scritto nel messaggio 
news:1132404041.7...@z14g2000cwz.googlegroups.com...
[cut]
visto che il nome di questi file cambia automaticamente ogni volta che
vengono creati non c'č un sistema per nascondere tutti i file .txt
contenuti in una cartella????Oppure non si puň dirgli al programma di
nascondere la cartella e i files contenuti???
grazie per qualsiasi intervento.
[cut]
Per una mia applicazione in VB-VBA, avevo anch'io bisogno di nascondere 
alcuni file di log condivisi (in rete ma lo stesso vale per programmi in 
locale). Il s.o. di per se non te lo permette, a meno di usare un driver che 
intercetti tutti i file con una determinata estensione (es. $pippo$), cosě 
come ha fatto una nota azienda asiatica. Comunque se non vuoi utilizzare i 
root kit, non ti rimane che criptare i file (sia il nomefile che il 
contenuto) con un algoritmo anche nn troppo complicato; l'utonto li vede ma 
non puň sapere cosa sono e che c'č dentro. Gli esempi di quanto sopra, sono 
sul sito del NG (davvero semplici, li ho usati io!).
Ciao da striker

"Gegge766"
ecco qui l'esempio pratico .. c'e tutto come creare file temporanei
e come nasconderli  copia incolla su Notepad e salva con estes *.vbs
Const OpenAsASCII      =  0
Const FailIfNotExist   =  0
Const ForReading       =  1
sKeyPath = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\"& _
"Windows\CurrentVersion\Explorer"
sTextToLookFor = """IconUnderline""=hex(0):"
Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
' get a temporary registry file name
sTF = oFSO.GetSpecialFolder(2).ShortPath & "\" & oFSO.GetTempName
msgbox "il file esportato e' in   " & sTF
sCmd = "regedit.exe /S /E:A """ & sTF & """ " & """" & sKeyPath & """"
oShell.Run sCmd, 0, True
Set fFile = oFSO.OpenTextFile(sTF, ForReading, _
                    FailIfNotExist, OpenAsASCII)
sValue = ""
  'Parse the text file
Do While Not fFile.AtEndOfStream
   sLine = fFile.Readline
   If LCase(Left(sLine, 71)) = LCase("[" & sKeyPath & "\") Then
     Exit Do
   End If
   If LCase(Left(sLine, 23)) = LCase(sTextToLookFor) Then
     sValue = Mid(sLine, 24)
     Exit Do
   End If
Loop
fFile.Close
   Set f = oFSO.GetFile(sTF)
f.attributes = f.attributes +2
If sValue <> "" Then
   WScript.Echo "Value is: " & sValue
Else
   WScript.Echo "No value found"
End If
--
Fosco

 ha scritto nel messaggio
news:slrndnucg0....@balder.ace...

Questa me la sono persa... Che ha fatto sony?
Ettore Maronese, il Mes

 Questa me la sono persa... Che ha fatto sony?
http://punto-informatico.it/index.asp
cerca sony


Sicuramente si riferivano a questo:
http://punto-informatico.it/p.asp?i=56299
ciao
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ciao
direi ce ne sia stata tutta una serie, non solo su p.i.
riassumo spiccio, se ho capito:
- sony ha venduto alcuni cd-audio, che pero' erano anche cd-dati.
- sui pc che hanno trovato, i cd hanno installato *di nascosto* e *senza
alcuna richiesta* all'utente alcuni file nascosti (nell'ottica drm di
sony). non mi ricordo se tali sw inviassero a mamma informazioni
dell'utente, senz'altro ne gestivano a sua insaputa.
- il sistema usato da sony per nascondere i file puo' essere sfruttato per
installare trojan worm ecc., e pare sia gia' successo.
a questo punto sony e' in qualche difficolta' sia perche' sarebbe buona
norma chiedere all'utente, sia perche' vari di quegli utenti sembra si
siano beccati cose spiacevoli, e ass.consumatori ecc non hanno molto
gradito.
se le cose stanno cosi', a sony conveniva regalarli, i cd, senza spyware
di sorta, perche' i danni che dovra' pagare rischiano di essere
esorbitanti. gli americani difendono il drm, ma difendono anche di piu' la
privacy.
mi sono perso delle puntate?
ciao, a.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Azzz però..
Grazie Pal per la cronaca! Non sapevo.
Ciao
Ettore Maronese, il Mes che ha fame e vorrebbe mangiare alla e a Modenese
annaffiato con del buon Lambrusco. e Stracca? il 18/11 va bene? già
qualcuno lo ha proposto.
PS: Scusate i ritardi nelle risposte.. siamo alle solite, il server News
che usavo non mi fa più postare, troppi post dal mio IP :(((  [grazie a
pale per il link a 
newsland.it
]


 gradito.
[...CUT...]
(appena postato il link, mi sono accorto che l'articolo non spiegana
correttamente il fatto. Il problema è che è talmente noto che tutti coloro
che ne parlano danno per scontato che chi legge sappia cosa succede. Non
sono riuscito a trovare il link ad un articolo che faccia il riassunto di
ciò che è successo dal principio.)
No, dunque, un po' più precisamente :
Sony/BMG hanno messo sul mercato alcuni cd audio con un "sistema di
protezione anticopia" che limitava a tre le copie eseguibili del cd.
Uno sviluppatore si è però accorto che in realtà, appena il cd veniva
inserito nel pc dell'utente installava un rootkit (cioè una backdoor, un
virus vero e proprio) che modificava dei file di sistema e delle chiavi di
registro. Tutto ciò all'insaputa dell'utente. Per aggravare la cosa, il
rootkit indeboliva il motore dell'antivirus cosicché altri rootkit potevano
inserirsi agevolmente nel sistema. In gener i rootkit vengono utilizzati da
altri noti backdoor, come Nimda o BackOrifice, che dopo qs. modifica avevano
l'accesso facilitato al pc.
Interrogato in merito, il CEO di Sony (bella fia!! - antica locuzione
toscana) si è giustificato argomentando che "...siccome la maggior parte
degli utenti non sa nemmeno cos'è un rootkit, tanto valeva non avvertirli
nemmeno...", un po' come dire che siccome la maggior parte degli utenti non
sa cos'è il TNT, se l'AGIP mette il TNT nella benzina è una cosa legittima,
anche se le macchine poi esplodono.
Mentre le associazioni dei consumatori, prima tra tutti una italiana che
però adesso non ricordo come si chiama (mi pare ALCEI...), hanno intimato a
Sony un rimedio, lo sviluppatore di cui sopra si è accorto che rimuovendo
manualmente i file e le modifiche fatte dal rootkit il sistema non
funzionava più a modo, non riconoscendo il lettore cd e diventando
instabile. Inoltre in questi giorni ha anche pubblicato un articolo in cui
spiega che la patch rilasciata da Sony, che dovrebbe disinstallare il
rootkit, in realtà crea danni ulteriori sul pc.
Le associazioni dei consumatori hanno lanciato una campagna per boicottare i
cd della Sony/BMG, e finché non verrà fuori una soluzione permanente al
problema sembra che l'unico rimedio sia di non acquistare cd della Sony/BMG.
Questo è il riassunto, e scusate per l'assenza di links agli articoli. Il
racconto dello sviluppatore che individua il rootkit si può comunque
rintracciare seguendo i link di Punto Informatico.
Ciao


>
Ma mi chiedo se ascolto il cd con diritti limitati me lo installa cmq ?
MAX

 rintracciare seguendo i link di Punto Informatico.
Sti caxxi!
Grazie yronium per il _tuo_ l'articolo!
Ettore Maronese, il Mes


 messi benissimo eh?
ciao, a.