Lieber Besucher, herzlich willkommen bei: AutoIt.de - Das deutsche AutoIt-Forum. Falls dies dein erster Besuch auf dieser Seite ist, lies bitte die Hilfe durch. Dort wird dir die Bedienung dieser Seite näher erläutert. Darüber hinaus solltest du dich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutze das Registrierungsformular, um dich zu registrieren oder informiere dich ausführlich über den Registrierungsvorgang. Falls du dich bereits zu einem früheren Zeitpunkt registriert hast, kannst du dich hier anmelden.
Benutzerinformationen überspringen
Registrierungsdatum: 8. Dezember 2010
Wohnort: Winterthur (Schweiz)
Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von »supernova« (10. April 2012, 15:13)
Benutzerinformationen überspringen
Registrierungsdatum: 8. Dezember 2010
Wohnort: Winterthur (Schweiz)
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »supernova« (10. April 2012, 15:14)
Benutzerinformationen überspringen
Registrierungsdatum: 8. Dezember 2010
Wohnort: Winterthur (Schweiz)
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »supernova« (10. April 2012, 15:16)
Benutzerinformationen überspringen
Registrierungsdatum: 8. Dezember 2010
Wohnort: Winterthur (Schweiz)
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von »supernova« (10. April 2012, 15:24)
Benutzerinformationen überspringen
Registrierungsdatum: 8. Dezember 2010
Wohnort: Winterthur (Schweiz)
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »supernova« (10. April 2012, 15:17)
Spoiler
![]()
AutoIt-Quellcode
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 ;;login_gmail.au3 äöü 12.04.02 local $i local $oTCP local $cIP local $cAntwort="" ;;gmail $cIP="74.125.79.108" ;;74.125.79.108 74.125.79.109 supernova ;$cIP="74.125.43.108" ;;74.125.43.108 74.125.43.109 ;;hotmail ;$cIP="207.46.46.181" ;;207.46.46.181 ? ;;einfach ;$cIP="213.133.103.20" ;;213.133.103.20 80.74.152.40 ;;;;; ;;;;;quasi Main, läuft nur einmal durch ConsoleWrite($cIP & @CRLF) ;;Modul erst laden/starten TCPStartup() ;;verbinden $oTCP=TCPConnect($cIP,"995") ;;<================= 110 995 ;;laufend abfragen For $i = 1 to 40 ;;40x bei 50m" = 2" $cAntwort=TCPRecv($oTCP,512) If $cAntwort=="" Then $cAntwort=f_PadL(4,"0",$i) & ":-" Else $cAntwort=f_PadL(4,"0",$i) & $cAntwort EndIf ;;anzeigen ConsoleWrite(StringStripWS($cAntwort,2) & @CRLF) Sleep(50) Next ;;Verbindung schliessen/abmelden TCPCloseSocket($oTCP) ;;Modul entladen TCPShutdown() ;;;;; ;;;;; Func f_PadL($pnLang,$pcFueller,$pcZuManip) While StringLen($pcZuManip)<$pnLang $pcZuManip=$pcFueller & $pcZuManip WEnd Return $pcZuManip EndFunc ;;ende
Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von »gango« (10. April 2012, 15:30)
Benutzerinformationen überspringen
Registrierungsdatum: 8. Dezember 2010
Wohnort: Winterthur (Schweiz)
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »supernova« (10. April 2012, 15:18)
Benutzerinformationen überspringen
Registrierungsdatum: 8. Dezember 2010
Wohnort: Winterthur (Schweiz)
ich denke, das TCPconnect müsste noch einen weiteren parameter senden oder sogar gleich senden, über welchen port man selbst senden wird. die 995 ist ja die vom mailer und nicht der port von uns sendenden.
Spoiler
![]()
AutoIt-Quellcode
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 ;;login_gmail_2.au3 äöü 12.04.06 local $i local $oTCP local $cIPname,$cIPzahl,$cIPport local $cAntwort="" local $aMailer[2]=["pop.gmail.com","995"] ;;google ;local $aMailer[2]=["pop3.live.com","995"] ;;hotmail ;local $aMailer[2]=["pop.bluewin.ch","110"] ;;so leichter verständlich $cIPname=$aMailer[0] $cIPport=$aMailer[1] ;;Modul erst laden/starten TCPStartup() ;;in IP konvertieren $cIPzahl=TCPNameToIP($cIPname) ConsoleWrite("|" & $cIPname & "|" & $cIPzahl & "|" & $cIPport & "|" & @CRLF) ;;verbinden $oTCP=TCPConnect($cIPzahl,$cIPport) ;;laufend (20x) abfragen For $i = 1 to 20 ;;20x bei 50m" = 1" $cAntwort=TCPRecv($oTCP,512) If $cAntwort=="" Then $cAntwort=f_PadL(4,"0",$i) & ":-" Else $cAntwort=f_PadL(4,"0",$i) & $cAntwort EndIf ;;anzeigen ConsoleWrite(StringStripWS($cAntwort,2) & @CRLF) Sleep(50) Next ;;Verbindung schliessen/abmelden TCPCloseSocket($oTCP) ;;Modul entladen TCPShutdown() ;;;;; ;;;;; Func f_PadL($pnLang,$pcFueller,$pcZuManip) While StringLen($pcZuManip)<$pnLang $pcZuManip=$pcFueller & $pcZuManip WEnd Return $pcZuManip EndFunc ;;ende
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »supernova« (10. April 2012, 15:20)
Benutzerinformationen überspringen
Registrierungsdatum: 8. Dezember 2010
Wohnort: Winterthur (Schweiz)
Benutzerinformationen überspringen
Registrierungsdatum: 8. Dezember 2010
Wohnort: Winterthur (Schweiz)