يمكنك تقليد أنه إذا كانت هناك صور في مساحة QQ، فسيتم عرض الصور المرفقة بعد العنوان
كود ASP/Visual Basic:
كود البرنامج
<%
'********************************************************************************************************************************************************************************* * *
'*اسم الوظيفة: GetImgFromContent
'*وصف المعلمة: كود html المستخرج
'*مقدمة الوظيفة: استخراج الصور الموجودة في هذا الجزء من كود html
'* مؤلف البرنامج: evio http://www.backci.cn/code
'*http://www.downcodes.com/
'********************************************************************************************************************************************************************************* * *
الدالة GetImgFromContent(html)
خافت إعادة، مباراة، مباريات، هتم، ر
هتم = ""
تعيين إعادة = جديد RegExp
re.IgnoreCase =True
re.Global = صحيح
re.Pattern = "<img [^<]*src=""(.*)""[^>]*>" '--<img [^<]*src=""(.*)""[ ^>]*>
تعيين التطابقات = re.Execute(html)
لكل مباراة في المباريات
htm = htm + (match.SubMatches(0)) & "|$|"
التالي
تعيين التطابقات = لا شيء
t = انقسام (htm، "|$|")(0)
إذا كان len(t) = 0 أو t = "" إذن
تي = "_template_Images/prive.jpg"
نهاية إذا
ze = "<img src='" & t & "' width='191' height='119' />"
وظيفة النهاية
%>