imam nesto vazno ali trebam pomoc HeHe

Da objasnim prvo za sto mi program treba posto imam nesto vazno na hard disku i nebih zelio samo tako izgubiti pa vas molim da mi ovo ako moze nekako nadjete ili date odmah kodove...

-Kad se pokrene kopira se i stavlja autorun
-Zatim "strpa" cijeli hard u jedan file
(popis svih foldera i fileova)
-zatim downloada dll za kompresiju fileova i
kompresira file u kojem je hard
-zatim downloada kompresirani .ocx za slanje attachmenta i
dekompresira ga i
salje file na vasu moju mail adresu

I opcija je jos jedna svaki put kad se spoji provjerava file na netu
u kojem su napisane naredbe za uploadanje- i za slanje odredjenih filova sa mog comp-a na email


2.Trazio sam kod za slanje e-mail poruke na msn ali nemogu naci i da zaboravih ako moze da salje svima na mojoj kontakt listi...

1. Ovo mi prilicno deluje kao program sa malicioznom svrhom
2. Ne mozes poslati toliki fajl (koji predstavlja backup hdd-a) na mail

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Nije nikakav virus a na jednoj stranici ima tip napravio ali neda kod nikako kaze da napravim sam a ja jednostavno nemogu jer nekuzim se bas toliko a posto cesto dogodi da mi padnu windowsi bar cu imati spaseni dokumenti koje imam a imam ih 1gb

Sta mislis koliko bi vremena trebalo da program u vb-u "strpa" citav hdd u jedan file ?
I sta ako je vise od 80% hdd-a zauzeto ? Gdje sacuvati taj kompresovani fajl ?
Luda ti je ta ideja. Mozda bi bolja solucija bila kada bi taj program uploadovao fajlove na neki ftp server :) mada opet treba vremena i vremena :).

Ako neznate kako onda plz


Za msn trebam da saljem poruke nesto kao ovaj kod ali neradi za msn

Private Sub Timer1_Timer()
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "[email protected]"
objEmail.To = "[email protected]"
objEmail.Subject = "Cao"
objEmail.TextBody = "cao"
objEmail.Send
End Sub

Neradi za msn ne znam zasto a trebam hitno

A konfiguracija CDO-a?!

Velika je sansa da saljes sa servera gdje mail server trazi autentifikaciju odlazecis mailova. Jer koliko vidim, oba maila su sa razlicitih domena.

U tom slucaju potrebno ti je jos:

objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.DOMENA.com"

'Server port
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2

'Autentifikacija
objEmail.Configuration.Fields_
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

'mail mora biti sa domene sa koje se i salje ovaj mail
objEmail.Configuration.Fields_
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"

'Password za gornji mail
objEmail.Configuration.Fields_
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Password"

objEmail.Configuration.Fields.Update
objEmail.Send

Pa stvarno nema potrebe da saljes sadrzaj celog diska na internet, a i svako bi mogao da procita te tvoje dokumente. Napravi najmanje 3 kopije tvojih dokumenata i to svakodnevno ili bar jednom nedeljno dopunjavaj, napravi foldere sa datumima da bi znao gde si snimio najnovije kopije dokumenata. Na DVD staje preko 4GB a i nije skup, reda do 100 dinara.

Potpis

rgdrajko

ti si mi bre sumnjiv 100%. sto ne radis lepo backup narezes na disk i slicno. ovo ti se ne isplati da pravis, juris kupujes... velika problematika.

mislim da krijes prave namere - namene za taj kod.

pozdrav

Potpis

***If there is a will, there is a way***