سلام . امروز یه invisible cheker که خودم نوشتم رو براتو میزارم. یه سورس ساده هم واستون قرار دادم که روال کار بیاد دستتون که چطور yahoo checker از طریق سایت به را حتی میسازن
فقط شما کافیه با دستور زیر سورس سایتو بدست بیارین و از تو سورس کلمات invisible و online یا offline رو بکشین بیرون
عکس برنامهdim source
Dim objDocument As HTMLDocument
Set objDocument = web.Document
Source = objDocument.body.innerHTML
پاسخ با نقل قول