Gå til innhold

Kan man få svar på e-mail, fra BAT "virus"?


Anbefalte innlegg

Videoannonse
Annonse
Kan man få svar på e-mail, fra BAT "virus"?

Om man f.eks lager en liten bat greie...å spørr personen som åpner bat'en om noe, går det da an å få den personen skriver i svar på mail?

Jeg å en kompis trenger svar... :!:

7922528[/snapback]

 

Nei det går ikke

 

ville også lest Punkt 11

7923175[/snapback]

 

 

Takk for svaret :D

Kan ikke så mye om BAT enda... :blush:

Lenke til kommentar
Kan man få svar på e-mail, fra BAT "virus"?

Om man f.eks lager en liten bat greie...å spørr personen som åpner bat'en om noe, går det da an å få den personen skriver i svar på mail?

Jeg å en kompis trenger svar... :!:

7922528[/snapback]

 

Nei det går ikke

 

ville også lest Punkt 11

7923175[/snapback]

 

 

 

Leste punkt 11...har fjerna bilde nå, men bildet var da ikke såå ille? :blush::whistle:

Lenke til kommentar

Her er et enkelt vbs-script jeg har laget som på windows xp sender mail:

 

Do

melding = InputBox("Hva heter du?") 'spørmålet

If melding <> "" Then Exit Do

loop

set x = createobject("cdo.message")

x.from = "[email protected]" 'en eller annen mail adresse

x.to = "[email protected]" 'til der mail skal sendes

x.subject = "Veldig viktig, hehe" 'Tema

x.textbody = melding 'Meldingen som skal sendes

x.configuration.fields.item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

x.configuration.fields.item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.zzz.no" 'smtp server til internettleverandøren

x.configuration.fields.item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

x.configuration.fields.update

x.send

Endret av backup
Lenke til kommentar

Den virker nok kun for dem som har internett fra Telenor. Er det lurt å forandre på SMTP instillingene? Kan du ikke bruke dem som allerede ligger på maskinen?

 

 

Her er et enkelt vbs-script jeg har laget som på windows xp sender mail:

 

Do

melding = InputBox("Hva heter du?") 'spørmålet

If melding <> "" Then Exit Do

loop

set x = createobject("cdo.message")

x.from = "[email protected]" 'en eller annen mail adresse

x.to = "[email protected]" 'til der mail skal sendes

x.subject = "Veldig viktig, hehe" 'Tema

x.textbody = melding 'Meldingen som skal sendes

x.configuration.fields.item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

x.configuration.fields.item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.online.no"

x.configuration.fields.item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

x.configuration.fields.update

x.send

7940091[/snapback]

Lenke til kommentar

Her er en forbedret versjon av scriptet. Det henter først navnet til brukerens smtp-server fra registeret gitt winXP. Dermed skulle det kunne brukes mer generelt:

 

Set WshShell = WScript.CreateObject("WScript.Shell")

smtpServer = WshShell.RegRead("HKCU\Software\Microsoft\Internet Account Manager\Accounts\00000001\SMTP Server")

Do

melding = InputBox("Hva heter du?") 'spørmålet

If melding <> "" Then Exit Do

loop

set x = createobject("cdo.message")

x.from = "[email protected]" 'en eller annen mail adresse

x.to = "[email protected]" 'til der mail skal sendes

x.subject = "Veldig viktig, hehe" 'Tema

x.textbody = melding 'Meldingen som skal sendes

x.configuration.fields.item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

x.configuration.fields.item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer

x.configuration.fields.item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

x.configuration.fields.update

x.send

Lenke til kommentar

Opprett en konto eller logg inn for å kommentere

Du må være et medlem for å kunne skrive en kommentar

Opprett konto

Det er enkelt å melde seg inn for å starte en ny konto!

Start en konto

Logg inn

Har du allerede en konto? Logg inn her.

Logg inn nå
  • Hvem er aktive   0 medlemmer

    • Ingen innloggede medlemmer aktive
×
×
  • Opprett ny...