[教程源码] moakt临时邮箱

Import "zm.luae"
zm.Init 
Dim ck

初始化()
获取邮箱 ("")
Delay 10000
邮箱_取短信 ()

Function 初始化()
    ck = zm.FileTemp()
    zm.HttpGet ("https://www.moakt.com/", "UTF-8", ck, "", "")
    TracePrint (file.read(ck))
End Function

Function 获取邮箱(yx)
    dim url1= "https://www.moakt.com/zh/mail" 
    Dim buf = "mailhost=tmpbox.net&setemailaddress="& yx &"&random=%E8%8E%B7%E5%BE%97%E4%B8%80%E4%B8%AA%E9%9A%8F%E6%9C%BA%E9%82%AE%E7%AE%B1%E5%9C%B0%E5%9D%80"
    dim resp = zm.HttpPost  (url1,buf,"UTF-8","",ck,"")
    resp = zm.Httpget(url1, "UTF-8", "", ck, "")
    // TracePrint resp
    Dim data = zm.RegExMatchEx(resp, "email%-address"">(.-)<")
    If data then
        TracePrint data(0,0)
    Else
        TracePrint "未捕获到数据"
    End If
End Function
Function 邮箱_下线()
    dim url1= "https://www.moakt.com/zh/mail/logout"
    dim resp = zm.Httpget(url1, "UTF-8", "", ck, "")
    //    TracePrint resp
End Function
Function 邮箱_取短信()	
    Dim ret(),信息ID
    dim url1= "https://www.moakt.com/zh/mail" 
    Do
        Dim 返回信息 = zm.Httpget(url1, "UTF-8", "", ck, "")
        TracePrint 返回信息
        Dim data = zm.RegExMatchEx (返回信息, "href=""/zh/msg/([a-zA-Z0-9%-]-)"">(.-)</a></td>%s+.*'([email protected])'", ret)
        If data then
            信息ID = data[1][1]
            TracePrint "信息ID："&data[1][1]
            TracePrint "信息标题："&data[1][2]
            TracePrint "发件人："&data[1][3]
            Exit Do 
        Else
            TracePrint "未捕获到数据"
        End If
        Delay 1000
    Loop
    url1 = "https://www.moakt.com/msg/" & 信息ID & "/content"
    返回信息 = zm.HttpGet(url1, "gb2312", "", ck, { "referer" : "https://www.moakt.com/zh/msg/" & 信息ID })
    TracePrint 返回信息
End Function