Gå til innhold

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


Anbefalte innlegg

Skrevet

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... :!:

Videoannonse
Annonse
Skrevet
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

Skrevet
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:

Skrevet
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:

Skrevet

Batch filer er ikke ment til å gjøre så mye avansert. Hvis du skal programmere "ordentlig" så burde du kanskje prøve på VBScript. Eller vente på PowerShell :)

Skrevet
Vente på PowerShell?

jeg har da vitterlig Windows PowerShell 1.0 på min maskin...

7937460[/snapback]

 

Ja, den er ute :) Men ikke veldig vanlig ennå. BAT og VBS kan kjøre på alle maskiner. PowerShell er alt for nytt, så det er veldig få som har det installert...

Skrevet (endret)

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
Skrevet

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]

Skrevet
Du var raskere enn jeg fikk oppdatert, så jeg hadde ikke tatt bort min egen internettleverandør. :)

7940130[/snapback]

 

Jeg er rask som lynet! :cool:

 

Og tøffere enn toget! :ph34r:

 

 

 

:)

Skrevet

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

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å
×
×
  • Opprett ny...