پیدا کردن یک لینک خواص در یک صفحه سورس

[xrezax]

دوستان من یک صفحه سورس دارم. چطور می تونم لینک زیرو استخراج کنم. ممنون میشم سورس بزارین

<td colspan="2" align="left"><strong>Type the two words </strong><br /><script type="text/javascript" src="http://www.google.com/recaptcha/api/challenge?k=6Le54cQSAAAAACk2hbUYJ6-vs0zyhJZzUMzYlYG6"></script>


اونجایی که با زنگ سبز نوشتم متغییره و هر صفحه تغییر میکنه. می خوام برنامه هر وقت تغییر کرد لینکو استخراج کنه

[xrezax]

کسی نمی تونه کمکی کنه؟؟؟؟
فقط می خوام لینکو توی یک تکست باکس استخراج کنم.

[kitcat_m18]

سلام،
دوست من یه جستجو کنی بد نیستا :چشمک:
خودم در این باره تو انجمن پست دادم بگرد دنبال عبارات با قاعده
موفق باشی :لبخندساده:

[xrezax]

ممنون میشم سورس بزاری واسم. آخه لنگ همین یه خط دستورم

اینو اینجــــــــــــــــا (http://barnamenevis.org/showthread.php?310404-%D8%AC%D8%B3%D8%AA%D8%AC%D9%88-text&highlight=%D8%B9%D8%A8%D8%A7%D8%B1%D8%A7%D8%AA+%D8 %A8%D8%A7+%D9%82%D8%A7%D8%B9%D8%AF%D9%87)پیدا کردم اما زیاد چیزی سردر نیوردم

[kitcat_m18]

سلام،
خوب بگردی پیدا می کنی :لبخندساده:
http://barnamenevis.org/showthread.php?309658-%D8%B3%D8%A7%D8%AE%D8%AA-%D8%A7%D8%B3%D9%BE%D9%85%D8%B1-%D9%88-%DA%AF%D8%B1%D8%A7%D8%A8%D8%B1-%D8%A8%D9%84%D8%A7%DA%AF%D9%81%D8%A7&highlight=regular

[vbhamed]

سلام

Dim s$, f$, p%

f$ = "http://www.google.com/recaptcha/api/challenge?k="
s = "رشته بالا"

p = InStr(s, f)
MsgBox Mid$(s, p + Len(f), InStr(p + 1, s, Chr$(34) & "></script>") - p - Len(f))

[xrezax]

"رشته بالا" یعنی چی ؟؟؟

کار نداد...


<td colspan="2" align="left"><strong>Type the two words </strong><br /><script type="text/javascript" src="http://www.google.com/recaptcha/api/challenge?k=6Le54cQSAAAAACk2hbUYJ6-vs0zyhJZzUMzYlYG6"></script>

من اینو توی یک تکست دارم. می خوام استخراجش کنم. آخرش هم که تغییر می کنه

[vbhamed]

سلام

رشته بالا يعني همون متن تكست باكس كه تو پست بالايي نوشته بودين ! :چشمک:

[xrezax]

کار نکرد!!!!!!!!!!!

[vbhamed]

سلام

لطفا كدي كه نوشتين و متن بالا رو توش جايگزين كردين قرار بدين

[xrezax]

Dim s$, f$, p%

f$ = "http://www.google.com/recaptcha/api/challenge?k="
s = text1.text

p = InStr(s, f)
MsgBox Mid$(s, p + Len(f), InStr(p + 1, s, Chr$(34) & "></script>") - p - Len(f))