<pre>
Received: from ALAAPS01.servers.alaplaya.net ([172.16.1.252])
by smtp.alaplaya.net (8.14.2/8.13.8) with ESMTP id pAN90fn9013721
for <[email protected]>; Wed, 23 Nov 2011 10:00:41 +0100
Received: from localhost.localdomain (localhost [127.0.0.1])
by ALAAPS01.servers.alaplaya.net (8.14.4/8.14.4) with ESMTP id pAN90fBq084373
for <[email protected]>; Wed, 23 Nov 2011 10:00:41 +0100 (CET)
(envelope-from [email protected])
Date: Wed, 23 Nov 2011 10:00:41 +0100
From: alaplaya Team <[email protected]>
To: [email protected]
Message-Id: <[email protected]>
Subject: Your alaplaya.net activation link!
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Hi xixzv,
You are receiving this after you registered with the E-Mail [email protected] for alaplaya.net. Your Loginname: xixz
Please click here to verify your account:
<bv>http://en.alaplaya.net/v/23465421/NmcAAZ3puG<bv>
If you did not register with alaplaya.net and this message has been sent to you by accident, you can unsubscribe below.
Have fun!
Your alaplaya Team
alaplaya.net
ProSiebenSat.1 Games GmbH
Arabellastr. 23, D-81925 Munich, Germany
Phone: +49 (0) 89 / 9250 - 3971
E-Mail: [email protected]
NO GAME OR PAYMENT SUPPORT
Company Registration: Amtsgericht M&uuml;nchen, HRB 119657
Employer Identification Number (EIN) 98-0689987
Germany: UID DE182196509 / Switzerland: UID 19765 879
Managing Directors: Ingo Griebl, Achim Kaspers
If you would like to annul your subscription to this alaplaya.net email, please click on this link:
http://en.alaplaya.net/vc/23465421/NmcAAZ3puG
</pre>
#include <Array.au3>
$sText = FileRead(@ScriptDir & '\test.txt')
$aHref = StringRegExp($sText, '(?si)(http://.*?)\s', 3)
If @error Then
MsgBox(16, 'Error', 'StringRegExp')
Else
_ArrayDisplay($aHref)
EndIf
Из сети Вы его как-то получаете? Когда получите, используйте его как $sText.А если этот текст не у меня на компе а в сети?
А я (и не только я) должен был догадаться, что это так происходит?я его не получаю. Я захожу в маил. там жму на письмо. Внутри жму на ссылку посмотреть письмо(содержимое) и на те во всплывающем окне открывается данный текст.
$sUrl = 'http://shitmail.me/mail/raw/1223377'
$oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
$oHTTP.Open('GET', $sUrl)
$oHTTP.Send('')
$oHTTP.WaitForResponse
$sHTML = $oHTTP.ResponseText
$r=StringRegExp($sHTML,"http\S+\b",3)
ConsoleWrite($r[0]&@CRLF)
$sUrl = 'http://shitmail.me/mail/raw/1223377'
$oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
$oHTTP.Open('GET', $sUrl)
$oHTTP.Send('')
$oHTTP.WaitForResponse
$sHTML = $oHTTP.ResponseText
$r=StringRegExp($sHTML,"http\S+\b",3)
MsgBox(0,"",$r[0])
#include <IE.au3>
$sLink = ''
$oIE = _IECreate('http://shitmail.me/mail/read/plain/1223377')
$oLinks = _IELinkGetCollection($oIE)
For $oLink In $oLinks
If $oLink.innertext == 'RAW' Then
$sLink = $oLink.href
ExitLoop
EndIf
Next
If $sLink Then
_IENavigate($oIE, $sLink)
$sText = _IEBodyReadText($oIE)
If Not @error Then
$aHref = StringRegExp($sText, '(?si)(http://.*?)\s', 3)
If @error Then
MsgBox(16, 'Error', 'StringRegExp')
Else
MsgBox(64, 'Info', $aHref[0])
_IENavigate($oIE, $aHref[0])
EndIf
Else
MsgBox(16, 'Error', '_IEBodyReadText')
EndIf
Else
MsgBox(16, 'Error', '$oLink.href')
EndIf
#include <IE.au3>
$sUrl = 'http://shitmail.me/mail/raw/1223377'
$oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
$oHTTP.Open('GET', $sUrl)
$oHTTP.Send('')
$oHTTP.WaitForResponse
$sHTML = $oHTTP.ResponseText
$r=StringRegExp($sHTML,"http\S+\b",3)
_IECreate($r[0])