Trash-Mail.com

1. offizieller Beitrag

    Hallo ich mal wieder

    ich wollte mir heute (da ich den service ab und zu benutze :D) ein Script machen welches die Mails von https://autoit.de/www.trash-mail.com abruft
    code sieht so aus:

    Spoiler anzeigen
    [autoit]


    #include <IE.au3>
    #include <GuiConstantsEx.au3>
    $Form1 = GUICreate("Form1", 1042, 766, -1, -1)
    $Label1 = GUICtrlCreateLabel("E-Mail-Adresse:", 10, 10, 77, 17)
    $Input1 = GUICtrlCreateInput("", 10, 30, 121, 21)
    $Label2 = GUICtrlCreateLabel("@trash-mail.com", 130, 30, 105, 20)
    GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif")
    $Button1 = GUICtrlCreateButton("&Go", 240, 20, 165, 35, 0)
    $IE = ObjCreate("Shell.Explorer.2")
    $IEObject = GUICtrlCreateObj($IE, 10, 70, 1011, 681)
    GUISetState(@SW_SHOW)
    While 1
    $titel = WinSetTitle($Form1, "", "Padmak's Trash-Mail.com E-Mail Checker "&$IE.LocationURL()&"")
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $tm = "www.trash-mail.com"
    $name = GUICtrlRead($Input1)
    $oIE = $IE.Navigate($tm)
    Sleep(5000)
    _IEFormGetCollection($oIE, 1)
    $oForm = _IEFormGetObjByName ($oIE, "mail")
    MsgBox(0, "", $oForm)
    _IEFormElementSetValue($oForm, " ")
    MsgBox(0, "", @error)
    EndSwitch
    WEnd

    [/autoit]


    Ja ich weiß etwas verwirrt^^
    Nun meine Frage:
    Warum passiert nix bzw warum krieg ich die Fehlermeldungen hier:

    Code
    --> IE.au3 V2.4-0 Error from function _IEFormGetCollection, $_IEStatus_InvalidDataType
--> IE.au3 V2.4-0 Error from function _IEFormGetObjByName, $_IEStatus_InvalidDataType
--> IE.au3 V2.4-0 Error from function _IEFormElementSetValue, $_IEStatus_InvalidDataType


    Ich kenn mich leider nicht so aus mit der IE.au3 und ihren tücken
    In der Forumssuche hab ich nix gefunden...

    Padmak

    So?

    [autoit]


    #include <IE.au3>
    #include <GuiConstantsEx.au3>
    $Form1 = GUICreate("Form1", 1042, 766, -1, -1)
    $Label1 = GUICtrlCreateLabel("E-Mail-Adresse:", 10, 10, 77, 17)
    $Input1 = GUICtrlCreateInput("", 10, 30, 121, 21)
    $Label2 = GUICtrlCreateLabel("@trash-mail.com", 130, 30, 105, 20)
    GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif")
    $Button1 = GUICtrlCreateButton("&Go", 240, 20, 165, 35, 0)
    $IE = _IECreateEmbedded()
    $IEObject = GUICtrlCreateObj($IE, 10, 70, 1011, 681)
    GUISetState(@SW_SHOW)
    While 1
    $titel = WinSetTitle($Form1, "", "Padmak's Trash-Mail.com E-Mail Checker "&$IE.LocationURL()&"")
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $tm = "www.trash-mail.com"
    $name = GUICtrlRead($Input1)
    $oIE = $IE.Navigate($tm)
    Sleep(5000)
    _IEFormGetCollection($oIE, 1)
    $oForm = _IEFormGetObjByName ($oIE, "mail")
    MsgBox(0, "", $oForm)
    _IEFormElementSetValue($oForm, " ")
    MsgBox(0, "", @error)
    EndSwitch
    WEnd

    [/autoit]
    • Offizieller Beitrag

    Hallo

    Och Leute...
    Guckt doch einfach in der Hilfe nach, da wird alles ganz genau beschrieben:

    Spoiler anzeigen
    [autoit]

    #include <IE.au3>
    #include <GuiConstantsEx.au3>
    $Form1 = GUICreate("Form1", 1042, 766, -1, -1)
    $Label1 = GUICtrlCreateLabel("E-Mail-Adresse:", 10, 10, 77, 17)
    $Input1 = GUICtrlCreateInput("", 10, 30, 121, 21)
    $Label2 = GUICtrlCreateLabel("@trash-mail.com", 130, 30, 105, 20)
    GUICtrlSetFont(-1, 11, 400, 0, "MS Sans Serif")
    $Button1 = GUICtrlCreateButton("&Go", 240, 20, 165, 35, 0)
    $IE = _IECreateEmbedded()
    $IEObject = GUICtrlCreateObj($IE, 10, 70, 1011, 681)
    GUISetState(@SW_SHOW)
    While 1
    $titel = WinSetTitle($Form1, "", "Padmak's Trash-Mail.com E-Mail Checker " & $IE.LocationURL() & "")
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $tm = "www.trash-mail.com?ln=p"
    $name = GUICtrlRead($Input1)
    _IENavigate($IE, $tm)
    $oForm = _IEFormGetObjByName($IE, "sendmail")
    $oObj = _IEFormElementGetObjByName($oForm, "mail")
    _IEFormElementSetValue($oObj, $name)
    MsgBox(0, "", @error)
    EndSwitch
    WEnd

    [/autoit]

    Mfg Spider

    hey dankeschön
    jetzt funktionierts
    nur das absenden haut noch nicht...
    aber GtaSpider:
    in welcher hilfe meinst du?
    ich hab weder in der online noch in der offline hilfe IRGENDWAS gefunden...
    und die IE.au3 hilft mir auch nicht weiter...
    es wäre nett wenn du mir zumindest sagen würdest welche hilfe du meinst...

    Padmak

    Sorry fürs pushen, aber ich wollte nicht extra nen neuen Thread aufmachen...

    Wie kann man denn die Form dann auch noch Bestätigt, weil mit _IEFormSubmit($oForm)
    geht das nicht...

    [autoit]

    #include <IE.au3>

    [/autoit][autoit][/autoit][autoit]

    $IE = _IECreate("www.trash-mail.com")
    $name = "Autoit.de"
    $oForm = _IEFormGetObjByName($IE, "sendmail")
    $oObj = _IEFormElementGetObjByName($oForm, "mail")
    _IEFormElementSetValue($oObj, $name)

    _IEFormSubmit($oForm)

    [/autoit]