PDA

View Full Version : چه جوری میتونم برنامه ای بنویسم که یه سایت رو Refresh کنه


javid_debugger
دوشنبه 20 خرداد 1387, 22:49 عصر
چه جوری میتونم برنامه ای بنویسم که یه سایت رو Refresh کنه

مثلا یه تکس باکس داشته باشه که وقتی توش سایت رو زدم ودکمه رو فشار دادم سایت رو رفرش کنه منظور اینکه به امار سایت یه دونه بیافزاید
.:KeihanCPU:.
دوشنبه 20 خرداد 1387, 23:05 عصر
یه Browser رو فرمت قرار بده و توسط یه تایمر اونو به سایت مورد نظر هدایت کن
مهران رسا
سه شنبه 21 خرداد 1387, 09:47 صبح
ضمن تشکر از keihancpu .

این هم یک نمونه ساده ...
javid_debugger
جمعه 08 شهریور 1387, 20:05 عصر
اقای M8Spy آین برنامهت جواب نمیده خودت تست کردی
mpmsoft
جمعه 08 شهریور 1387, 20:31 عصر
دوست عزیز شما کافی هستش فقط اون Script رو اجرا کنی

نیازی نیست کل سایتو رفرش کنی

برای آماره سایتت از webgozar استفاده کردی ؟
mansour01
جمعه 08 شهریور 1387, 21:16 عصر
نکته : بسیاری از کونتورها در هر روز فقط یک شماره برای هر آی پی می ندازن
راه حل : وصل شدن با پروکسی های متعدد
نمونه : تو آرشیوم اون قبلاها نوشته بودم ، می گردم اینجا آپلود می کنم
r0ot$harp
جمعه 08 شهریور 1387, 21:53 عصر
اقای M8Spy آین برنامهت جواب نمیده خودت تست کردی

دوست عزیز بهتره لینکی که می خوای Refresh کنی رو در اینجا قرار دهی تا سریعتر به حوابت برسی .



باتشکر احسان
scarce
شنبه 09 شهریور 1387, 07:14 صبح
این کد از کد های secret خودم هست که به هیشکی ندادم یعنی اگه کسی هم بلد باشه نمیده ولی اینجا بحث فرق داره این کد بدردت می خورده .


[
LTR]Public Function MySite(URL As String)
On Error Resume Next
Dim ie As Object
Set ie = CreateObject("internetexplorer.application")

ie.navigate URL
Do Until ie.ReadyState = 4
DoEvents
Loop
End Function[/LTR]


حالا یک تایمر به فرم اضافه کن و بعد فانکشن رو به صورت زیر فراخوانی کن.



Call MySite("www.Barnamenevis.org")


اگه به جواب سوالت رسیدی یک تشکر بکن.!!!!!!
Netsky
شنبه 09 شهریور 1387, 13:01 عصر
ولی فکر کنم با کدهای جاوا باید این کار رو انجام بدید .
javid_debugger
یک شنبه 10 شهریور 1387, 08:27 صبح
اقای Scarse ممنون یه سوال با این برنامه میشه امار سایت رو بالا برد
اینتروال تامرو رو چند بزارم خوبه
از کنترل Webbrowser استفاده کردی ؟
scarce
یک شنبه 10 شهریور 1387, 09:32 صبح
اینتروال تایمر رو 1000یا 1 بزاری فرقی نمی کنه . از کنترل Webbrowser استفاده نکردم. راستی در یک قسمتی از کد نوشته

Do Until ie.ReadyState = 4
DoEvents
Loop

این قسمت از کد بررسی می کنه که آیا صفحه به طور کامل لود شده یا نه . وزمانی که لود شده باشه تایمر دوباره این فانکشن رو فراخوانی می کنه که به قول معروف Refresh میکنه.
javid_debugger
دوشنبه 11 شهریور 1387, 07:44 صبح
پس عزیز از چه کنترلی استفاده کردی
یعنی از هیچ ActiveX ی استفاده نکردی
.:KeihanCPU:.
دوشنبه 11 شهریور 1387, 08:00 صبح
پس عزیز از چه کنترلی استفاده کردی
یعنی از هیچ ActiveX ی استفاده نکردی

نه دیگه در کدی که scarce (http://barnamenevis.org/forum/member.php?u=63081) معرفی کرد از هیچ Activex استفاده نشده
r0ot$harp
دوشنبه 11 شهریور 1387, 17:24 عصر
پس عزیز از چه کنترلی استفاده کردی
یعنی از هیچ ActiveX ی استفاده نکردی

از طریق تابع CreateObject و CreateObject("internetexplorer.application") یه آبجکت از IE ساختن و ازش استفاده کردن مثل .

Set FSO = CreateObject("Script.filesystemobject")


با استفاده از خط بالا شما می تونید با فایل ها ارتباط پیدا کنید .


باتشکر احسان