e-mail senden via tcp ->code geht nciht
Übersicht BlitzBasic Allgemein
globecrashBetreff: e-mail senden via tcp ->code geht nciht |
Mo, Jul 05, 2004 18:55 Antworten mit Zitat |
|
---|---|---|
hi
Zuerst einmal wollte ich sagen das ich die suchfunktion benutzt habe , und auch ein guten eintrag gefunden habe, trotzdem funktioniert der code nicht. hier mal der alte thread : https://www.blitzforum.de/view...ight=email nicht das ihr sagt ich hab nicht geguckt . Und dann wollte ich nich sagen das der code nicht von mir direkt ist Code: [AUSKLAPPEN] server$ = "mail.wild-storm.de" user$ = "xxx" pass$ = "xxy" login$ = popAccountLogin$(server$, user$, pass$) com1=OpenTCPStream( "server$ ",25 ) If Not com1 RuntimeError( "Error connecting" ) WriteLine com1,"HELO fu" WriteLine com1,"MAIL FROM: <fu@wild-storm.de>" WriteLine com1,"RCPT TO: <sektion_ddr@hotmail.com>" WriteLine com1,"DATA" WriteLine com1,"das isch e versuceh" WriteLine com1,"franky" WriteLine com1,"" WriteLine com1,"." WriteLine com1,"QUIT" Print "Done. Press any key...":WaitKey ; ************************************************************************** ; Connect and login Function popAccountLogin$(server$, user$, pass$) com = OpenTCPStream(server$, 110) If com = 0 Then Return "-ERR connection failed" Else i$ = ReadLine(com) ; Intercept the greeting WriteLine com, "USER " + user$ i$ = ReadLine(com) If Mid(i$, 1, 1) = "-" Then Return "-ERR no such user" Else WriteLine com, "PASS " + pass$ i$ = ReadLine(com) If Mid(i$, 1, 1) = "-" Then Return "-ERR password wrong" Else Return "+OK logged in EndIf EndIf EndIf End Function ;******************************************************************************* ; Disconnect from server. After that the mails get really deleted Function popAccountLogout$() WriteLine com, "QUIT" ; Disconnect-Commando r$ = ReadLine(com) ; Get Returnstring If Mid(r$, 1, 3) = "+OK" Then Return "+OK disconnected" If Mid(r$, 1, 4) = "-ERR" Then Return "-ERR not disconnected. waaah!" End Function ; ************************************************************************* und dan wollte ich sagen das ich kein script-kiddi bin, nur will ich schauen wie man über tcp ne mail schickt und anhand von dem selber was coden. ich hoffe ihr könnt mir helfen. an dem router liegt es nicht das weis ich inzwischen. mfg Fu |
||
(\__/)
(O.o ) (> < ) This is Bunny. Copy Bunny into your signature to help him on his way to world domination User posted image |
- Zuletzt bearbeitet von globecrash am Di, Jul 06, 2004 17:51, insgesamt einmal bearbeitet
Retro |
Mo, Jul 05, 2004 23:26 Antworten mit Zitat |
|
---|---|---|
Wenn nicht am Router, dann vielleicht an der Firewall?
Hast Du einen eigenen Server zum Testen? Was kommt denn genau als Fehlermeldung vom Server? |
||
globecrash |
Di, Jul 06, 2004 14:23 Antworten mit Zitat |
|
---|---|---|
hi
nein an der firewall liegt es nicht,denn ich hab keine . ich habs schon gestestet mit einem code vom bb codearchiv, und da hats funktioniert. nein ich hab kein server nur ein pc. es muss etwas mit dem code nicht stimmen. kann mir irgend jemand helfen? bitte mfg Fu |
||
(\__/)
(O.o ) (> < ) This is Bunny. Copy Bunny into your signature to help him on his way to world domination User posted image |
Retro |
Di, Jul 06, 2004 14:48 Antworten mit Zitat |
|
---|---|---|
"ich habs schon gestestet mit einem code vom bb codearchiv, und da hats funktioniert."
Kannst mal den Link dazu posten? Dann kann man das ev. ja anpassen... |
||
globecrash |
Di, Jul 06, 2004 17:50 Antworten mit Zitat |
|
---|---|---|
ganz oben steht ein link , in dem thread stehen dann 4 links zu diesem thema .ich habs nicht klickbar gemacht, das werde ich jetz nachhohlen.
bemerkung: was ich wissen will , ist es wie ich mitmöglichst wenig code via tcp eine e-mail senden kann.I mfg Fu |
||
(\__/)
(O.o ) (> < ) This is Bunny. Copy Bunny into your signature to help him on his way to world domination User posted image |
Übersicht BlitzBasic Allgemein
Powered by phpBB © 2001 - 2006, phpBB Group