ورژن جدید ویروس دوست دارم ساغر

[Mr.pRoGraMmer]

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

امروز بچه ها ویروس جدید دوست دارم ساغر را نوشتم
1.فرمت تمام هارد دیسک بسیار سریع و بصورت مخفی
2.از کار انداختن task manager و command prompt
3.از کار انداختن کیبرد و موس به طور کامل
4.از کار انداختن taskbar
5.به صدا در اوردن صدای اسپیکر کیس یصورت مداوم
6.تغییر هرتر و وضوح مانیتور
7.باز بسته شدن cd room
8.بعد از فرمت دیسک خودشو تو تمام درایوها همراه با فایل autorun.inf کپی میکنه
9..از کار انداختن سیستم عامل
10.بارگذاری ویروس در Startup ویندوز
11.یه جوری ویروس pack کردم فکر نکنم کسی بتونه انالیزش کنه pack از لحاظ سورس کد
12.یادم نبود یه پیغام هم میاد شروع میکنه به shutdown کردن سیستم بعد از اجرای ویروس و فرمت هارد
این ویروس توسط دوست خوبم Morpheus تست شده است ایشون از برنامه deep freeze هنگام تست روی سیستم خود داشتند یکی از فایلهای مهم ویندوز پاک میشه دیگه ویندوز بالا نمیاد این قسمت تست نشده ولی 99 درصد امکان خرابی ویندوز هست

[yeketaz]

امروز بچه ها ویروس جدید دوست دارم ساغر را نوشتم
1.فرمت تمام هارد دیسک بسیار سریع و بصورت مخفی
2.از کار انداختن task manager و command prompt
3.از کار انداختن کیبرد و موس به طور کامل
4.از کار انداختن taskbar
5.به صدا در اوردن صدای اسپیکر کیس یصورت مداوم
6.تغییر هرتر و وضوح مانیتور
7.باز بسته شدن cd room
8.بعد از فرمت دیسک خودشو تو تمام درایوها همراه با فایل autorun.inf کپی میکنه
9..از کار انداختن سیستم عامل
10.بارگذاری ویروس در Startup ویندوز
11.یه جوری ویروس pack کردم فکر نکنم کسی بتونه انالیزش کنه pack از لحاظ سورس کد
این ویروس توسط دوست خوبم Morpheus تست شده است ایشون از برنامه deep freeze هنگام تست روی سیستم خود داشتند یکی از فایلهای مهم ویندوز پاک میشه دیگه ویندوز بالا نمیاد این قسمت تست نشده ولی 99 درصد امکان خرابی ویندوز هست

سلام
دوست عزیز هر پک کردنی آنپکی داره مهم هم نیست جقدر قوی باشید
بالاخره برنامه آنپک می شه
من دوباره یه توضیحی رو توضیحات بالا بدم :
-----------------------------------------------------------------------
1-فرمت هارد دیسک به وسیله دستورات داس مثل format امکان پذیره ولی می شه با
for each و به دست آوردن همه فایلهای موجود در یک درایو آنها را با دستور kill پاک کرد

2-از کار انداختن برنامه ها به راحتی به وسیله گرفتن تیتر برنامه ها و چک کردن آنها امکان پذیره،اینطوری که اگه برنامه مورد نظر بود به وسیله یک API به نام SetForegroundWindow برنامه را پنجره فعال قرار داده و با ارسال {f4}% به وسیله تابع Sendkeys برنامه را بست

3-غیر فعال کردن ماوس و کیبورد به وسیله تابع BlockInput امکان پذیره
ولی با زدن کلید های Ctrl,Alt,Delete این قابلیت از کار می افته (اگه به طور مداوم نباشه) در کل می شه با این روش مقابله کرد

4-از کار انداختن taskbar می شه اینطوری باشه که اول هندل taskbar را به وسیله FindWindow به دست می یاریم(نمونش توی بخش بهترین سورسهای ویژوال بیسیک هست) و سپس با ارسال هندل برنامه به تابع Destroywindow تسک بار از کار می افته
یا به وسیله ShowWindow اون رو مخفی کرد

5-صدا کردن از درون کسی به وسیله تابع API به نام Beep امکان پذیره
و همینطور به وسیله نوشتن درایور که نمونش توی بخش زبانهای بیسیک هست
اما به احتمال زیاد(به نظر من 100 درصد) شما از روش دوم استفاده نکردید

6-تغییر تنظیمات مانیتور هم توی بخش بهترین سورسهای ویژوال بیسیک هست

7-باز و بسته شدن Cd-Rom هم توی بهترین سورسهای ویژوال بیسیک هست
که به وسیله تابع API به نام mcisendstring امکان پذیره

8-به دست آوردن تمام درایوها به وسیله تست وجود آنها با تابع Dir و کپی خوده فایل و نوشتن
فایل اتوران در آن درایو که کدهای موجود در این فایل رو می تونید در اتورانهای موجود در سی دی ها یا ... ببینید

9-به راحتی با تغییری کوچک در boot.ini یا پاک کردن آن که در درایو C موجود است ویندوز دیگر بالا نخواهد آمد
اما با خراب کاری فایلهای موجود در پوشه system32 از این کار اطمینان حاصل می کنیم

10-توضیحی نداره چون می تونید توی سورس همه ویروسها ببینید

11-پک در ویروس شما تاثیری در ناشناس موندن کد ویروس نداره و معمولا ویروسهای قوی رو برای مخفی موندن کد پک می کنن
ولی اگه منظورت پک فایل exe هستش که خیلی راحت به وسیله الگوریتمی که اونو پک کردید آنپکش می کنن و اگه از پکر استفاده کرده باشید که دیگه راحتتر با آنپکرش آنپک می شه

----------------------------------------------------------------------

اگه می خواید به راحتی موارد بالا را درک کنید یه سر به بهترین سورسهای ویژوال بیسیک 6 که در بخش ویژوال بیسیک موجوده بزنید

و سورس JPS Virus Maker را نیز که در همین ویروسها موجود است را دانلود کنید

[Mr.pRoGraMmer]

برنامه منو اگر unpack کردی یعنی ادم باهوشی هستی با زبون اره اما تو عمل unpack کن اگر تونستی unpack کن محاله بتونی اینکارو کنی برنامه من راحت با VB Decompiler باز میشه اما سورس کد ویروس را بیا بهم بده

---

SetForegroundWindow چرا اینقدر تقلید میکنید از ویروسهای دیگر من از همچین روشی استفاده نکردم روش خودم بوده

---

(از کار انداختن taskbar می شه اینطوری باشه که اول هندل taskbar را به وسیله FindWindow به دست می یاریم(نمونش توی بخش بهترین سورسهای ویژوال بیسیک هست) و سپس با ارسال هندل برنامه به تابع Destroywindow تسک بار از کار می افته
یا به وسیله ShowWindow اون رو مخفی کرد بله اینو سورس کدشو تو ویروس دوست دارم ساغر خودم واسه بچه ها اپلودش کردم

---

(-به دست آوردن تمام درایوها به وسیله تست وجود آنها با تابع Dir و کپی خوده فایل و نوشتن
فایل اتوران در آن درایو که کدهای موجود در این فایل رو می تونید در اتورانهای موجود در سی دی ها یا ... ببینید) از همچین روشی استفاده نشده روش من تک بوده اخه خودم نوشمتش دز ضمن اگر ویروسی از قبل autorun.inf ایجاد کنه میاد autorunپاک میکنه و سریع جایگزین میشه و جلو فعالیتشو میگیره (جلوی فعایت ساخت (autoun)
(11-پک در ویروس شما تاثیری در ناشناس موندن کد ویروس نداره و معمولا ویروسهای قوی رو برای مخفی موندن کد پک می کنن
ولی اگه منظورت پک فایل exe هستش که خیلی راحت به وسیله الگوریتمی که اونو پک کردید آنپکش می کنن و اگه از پکر استفاده کرده باشید که دیگه راحتتر با آنپکرش آنپک می شه) پک کردن من با اون چیزی که فکر میکنی دوست عزیز خیلی فرق داره این تجربه Morpheus جان و خودم بوده

---

(5-صدا کردن از درون کسی به وسیله تابع API به نام Beep امکان پذیره
و همینطور به وسیله نوشتن درایور که نمونش توی بخش زبانهای بیسیک هست
اما به احتمال زیاد(به نظر من 100 درصد) شما از روش دوم استفاده نکردید)
نیازی به این کار نیست دوست عزیز چرا کار خودمو سخت تر کنم ؟

---

(6-تغییر تنظیمات مانیتور هم توی بخش بهترین سورسهای ویژوال بیسیک هست)
تو سورس کد ویروس دوست دارم ساغر هست

---

(7-باز و بسته شدن Cd-Rom هم توی بهترین سورسهای ویژوال بیسیک هست)
اینم تو سورس کد ویروس دوست دارم ساغر بود

---

(فایل اتوران در آن درایو که کدهای موجود در این فایل رو می تونید در اتورانهای موجود در سی دی ها یا ... ببینید)
بله ایا دستور کپی از بین بردن autorun قبلی هم تو درایو cd هست

---

(پک در ویروس شما تاثیری در ناشناس موندن کد ویروس نداره) 12 تا انتی میشناختش با روش خودم کردمش 3 تا حالا میگی تاثیری نداره؟

[yeketaz]

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

1-من نگفتم فقط با اون روش امکان پذیره،می شه با همون DestroyWindow و Showwindow هم غیرفعالش کرد هم مخفی
یا از توی رجیستری

2-توی بخش بهترین سورسهای ویژوال بیسیک 6 برای اجزای مختلف Taskbar و خودش بود

3-اگه منظور شما تغییر در رشته های برنامه مثل جدا کردن دو رشته و سپس کدگذاری و بعد از آن دیکد و سر هم کردنه اونه که معمولا نمی گن پک می گن کدگذاری یا crypt کردن

4-کار شما با روش دوم سختتر نمی شه،نوشتن یه درایور توی VB برای شما غیرممکنه

6 و 7 هم قبل از اون توی قسمت بهترین سورسهای ویژوال بیسیک بود

8-شما کافی فایل اتوران رو با تنظیم output باز کنید تا فایل جدید جایگزین فایل قبلی بشه به همین راحتی

9-من منظورم دیکامپایل ویروس بود ولی به احتمال زیاد منظور شما از پک کدگذاری رشته ها و استفاده از نام های عجیب و غریب
برای توابع است

[Mr.pRoGraMmer]

(گفتم اگه کسی بخواد یه ویروس ساده مثل این بنویسه )
یه انتی بنوییس یا یه برنامه که جلوی فعالیت ویروس منو بیگیره گفتی ساده هست بله ساده نیست خوب افزاره من وقتی میتونم به یه ویروس
بگم ساده هست که یکی از این قوی تر بسازم شما یه ویروس میکر ساختی انچنان هم قوی نبود 3 سوت میشه نوشتش حالا کار شما
disable clock
disable change home page
disable clock
disable mouse and keyboard
delete all system file
disable system restore
خلاصه با خیلی گزینه های دیگر
هنوز ویروس دوست دارم ساغر قوی تر بوده نمیتونی بهش بگی ساده از کار شما بهتر بوده هر وقت تونستی یکی از ویروس من قوی تر بنویسی بله حرف شما درسته حتما یگی قوی تر نوشتی بگو تا بعد از 24 ساعت یکی قویترشو بنویسم راستی ویروس من را سورسشو بده اگر میتونی که نمیتونی

---

(-کار شما با روش دوم سختتر نمی شه،نوشتن یه درایور توی VB برای شما غیرممکنه)
هیچ چیز غیر ممکنی واسم وجود نداشته

[Morpheus]

4-کار شما با روش دوم سختتر نمی شه،نوشتن یه درایور توی VB برای شما غیرممکنه

سلام
می خواستم بپرسم دقیقا منظورتون از درایور نویسی درایور خاصی هست که میگین تو وی بی غیر ممکنه یا کلا درایور نویسی با ویبی غیر ممکنه؟؟؟

[yeketaz]

چرا اینقدر با تعصب درباره برنامت حرف می زنی ، من نگفتم ویروس میکر من قویه

شما همین حرف رو با پیمان هم زدید و درباره اون ویروس قبلیت

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

نوشتن یه ویروس قویتر از این کاری نداره خودت هم اگه یکم بگردی و به روشهای ویروس نویسی حرفه ای مثل Hook و Injection و انجام کارها در Ring 0 آشنا بشی می بینی ویروس خودت جدی سادست

شما برای حفاظت از ویروس چی کار کردید ؟ از Code Injection به یه پروسه استفاده کردید؟ آیا فایل ویروس شما توسط ویندوز محافظت می شه؟ آیا ویروس شما می تونه با Static Injection به یک فایل اجرایی دیگه خودش رو همراه اون اجرا کنه؟

این چندتا قابلیت مهم نیست با چه روشی انجام بشه،مهم اینه که اون کار انجام بشه

حتی با حجم کمتر،این چندتا قابلیت رو به راحتی می شه با یه فایل 50 یا فوقش 80 کیلوبایتی در اورد ولی فایل شما 410 کیلوبایته

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

اونم که گفتید غیرممکنی برات وجود نداره،آفرین امیدواریت قابل تحسینه ولی غیرممکنه نه تنها برای شما بلکه برای هرکس دیگه ای چون ویژوال بیسیک این قابلیت رو نداره که بشه باهاش یه درایور نوشت یکی از مهمترینش اینه که native نیست و از اسمبلی پشتیبانی نمی کنه ، اگه برای شما غیرممکن نیست یه درایور مثل همون که توی بخش زبانهای دیگر بیسیک برای صدا در آوردن از توی کیس هست بنویس و ازش توی ویژوال بیسیک استفاده کن

آخه دوست عزیز ، انطوری حرف زدن بعضی وقتا باعث گیر افتادن آدم توی بعضی مباحث می شه که اصلا حتی اسم اونا رو نشنیده
و وقتی شما می خواید قدرت ویروس خودتون رو به نمایش بذارید و می گید نوشتن درایور برای شما غیر ممکن نیست اونم توی ویژوال بیسیک خوب ممکنه درباره بقیه موارد بزرگ نمایی نکرده باشید ولی توی اذهان بقیه کاربرن اینطوری به نظر می رسه که بقیه موارد هم مثل همین حرف زدن شما درباره درایور و سطح صفر ویندوزه

لطفا اگه کسی می تونه با زبان ساده تری اینا رو توضیح بده بگه

[Mr.pRoGraMmer]

(دادن سورس یه برنامه مثل خودش غیرممکنه ، یعنی شما هیچ دیکامپایلری نمی تونی پیدا کنی که سورس برنامت رو دقیقا مثل اول بهت بده پس لطفا با تحقیق یه چیزی بگید)
این راه شدنیه 2 سال تحقیق کنی بهش میریسی یه مقاله هم میخوام بینیوسم واسه رمز نگاری و الگوریتم دقیقا مثل خودش نه ولی از unpacker بالاتره از هر راهی که فکرشو کنی
(شما برای حفاظت از ویروس چی کار کردید ؟)
اولان یه ویروس مخربه هدف با اجرای اول ویروسه نه اجرای دوم تا باز بشه هارد پریده حالا میخواد محافظت بشه میخواد نشه محافظتهای از ویروس یکی کاربر اولین کارش alt + crtl + delte میزنه که غیر فعاله دومیش هم غیر فعال کردن کیبرد و موسه از اینم بگذریم کاربر نمیتونه صفح مانتیتور را بیبینه تا برسه بیاد کاری کنه اگر میتونی رو سیستمت بازش کن جلوشو بیگیر بیبینم چطوری در عرض یک ثانیه میتونی جلوی فرمت هاردو بیگیری پس از محافظت شدن یه چیزی بالاتره بعدا من میگم هارد فرمت میشه شما میگی بیا ویروس را با یه فایل مخلوط کن؟
(حتی با حجم کمتر،این چندتا قابلیت رو به راحتی می شه با یه فایل 50 یا فوقش 80 کیلوبایتی در اورد ولی فایل شما 410 کیلوبایته) بله به راحتی copy paste از سورس کدهای ویروس دیگر اره به راحتی هم میشه انتی ویروسها را پیچوند انتیها هم نگاه میکنن همینو ینویس بیبینیم واسه من بیشتر شناسایی میشه یا شما؟ من این ویروسی که دادم به 50 کیلو بایت هم میتونم برسونمش یادت باشه از گروه ویروسهای مخربه اون که شما هم میگی بله میشه نوشتش

---

اقا yeketaz تو زمینه ویندوز که میخوای بگی و درایور خندم میگیره خیلی سر کار داشتم البته تو ویندوز من دوست ندارم از ویروس دیگه تقلید کنم دیگه نمیتونم بگم من نوشتمش اقا yeketaz من حدود فکر کنم 4 ماه باشه با vb6 دارم کار میکنم نه کلاسی رفتم نه چیزی یه کتاب بوده و یه msdn و شب تا صبح کار کردن پشت سیستم اولین پروجه که داشتم تو زمینه network بود ساخت چت روم و ساخت مرورگر داشتم و...... تجربه من توی ویروس نوسیس با vb6 به 1 سال هم نمیکشه تو فرستادن ایمیل در کیلاگرها بیشتر کاربران مشکل داشتن 3 سوت نوشتمش تو یک روز کیلاگرم با کمک اقا مصطفی Morpheus نوشتم و همینجور داریم قویترش میکنیم چون تو زمینه network فعالیتم بالا بود وقتی رفتم رایانه کار درجه 1 بود اموزش فلوچارت و الگوریتم مقدماتی میدادن فقط این اموزشم بود که یادم رفت بگم حالا هم بعد عید vb6 داریم اقا yeketaz هیچ چیزی تو زندگیم غیر ممکن نیست و نخواهد بود و نخواهد شد تو گفتی سادست قبول من از این حرفت خوشحال تر میشم دوست عزیز مجبور میشم ویروسمو قویتر کنم ورژن بعدی که میخوام بنویسم نمیزارم فرد قربانی نفس بکشه

[Morpheus]

آقا yeketaz کدی که در زیر هست به نظرم یک درایور حالا می خوام ببینم منظورتون این درایور یا چیز دیگست خوشحال میشم توضیح بدین.

کد:

Public Function InstallDeviceDriver(m_SysFileName, m_ServiceName, m_Driver_Handle, m_DisplayName) '410AF0
  loc_00410B12: var_8 = &H4013A0
  loc_00410B54: call MSVBVM60.DLL.__vbaStrCopy(MSVBVM60.DLL.__vbaStrCopy, arg_8, ebx)
  loc_00410B5C: call MSVBVM60.DLL.__vbaStrCopy
  loc_00410B64: call MSVBVM60.DLL.__vbaStrCopy
                If cDeviceDriver.Hwnd = %x1 = ebx Then
  loc_00410B71:   00000008h = cDeviceDriver.Caption
  loc_00410B74:   GoTo loc_00410CB4
                End If
  loc_00410B84: cDeviceDriver.Caption = ""
                If var_3C = ebx Then
  loc_00410B92:   00000001h = cDeviceDriver.Caption
  loc_00410B95:   GoTo loc_00410CB4
                End If
  loc_00410BA0: call MSVBVM60.DLL.__vbaStrCopy
  loc_00410BAD: var_24 = cDeviceDriver.Forecolor
  loc_00410BB8: call MSVBVM60.DLL.__vbaStrCopy
  loc_00410BC9: call MSVBVM60.DLL.__vbaStrCopy
  loc_00410BE0: cDeviceDriver.Name = cDeviceDriver.Name
  loc_00410C21: var_38 = "" & "Drivers\" & ebx & ".sys"
  loc_00410C2C: call MSVBVM60.DLL.__vbaStrCopy
                If Len("") = 0 Then
  loc_00410C61:   call MSVBVM60.DLL.__vbaStrCopy
                End If
  loc_00410C6A: cDeviceDriver.Top = ""0
                If ""0 = -1 Then
  loc_00410C7F:   cDeviceDriver = ""
                  If word ptr "" <> 0 Then
  loc_00410C90:     cDeviceDriver.Top = ""0
                    If ""0 = -1 Then
  loc_00410CA3:       00000006h = cDeviceDriver.Caption
  loc_00410CA6:       GoTo loc_00410CB4
                    End If
                  End If
  loc_00410CAB:   var_20 = FFFFFFFFh
                End If
  loc_00410CB9: GoTo loc_00410CDB
  loc_00410CDA: Exit Sub
  loc_00410CDB: 'Referenced from 00410CB9
  loc_00410CF0: Exit Sub
End Function

[Mr.pRoGraMmer]

اقا yeketaz کاری که خودت نمینونی انجام بدی لطفا نگو محاله

---

اقا yeketaz من میگم برو یه کم سوادتو بیشتر کن ارتباط با سریال پورت

کد php:

Function listAvailSerialPorts(formObj As Form, ByRef portsExist() As String) ' bit 0 = COM0, etc. 
 Dim pcbNeeded As Long 
 Dim pcReturned As Long 
 Dim pi2() As PORT_INFO_2 
 Dim I As Integer 
 Dim sPortType As String 
 Dim ComName As String, description As String 
 Dim n As Integer 
 
'To determine the required buffer size, call EnumPorts with 
 'cbBuf set to zero. EnumPorts fails, and Err.LastDLLError 
 'returns ERROR_INSUFFICIENT_BUFFER, filling in the pcbNeeded 
 'parameter with the size, in bytes, of the buffer required to 
 'hold the array of structures and their data. 

 n = 0 
 Call EnumPorts(vbNullString, 2, 0, 0, pcbNeeded, pcReturned) 
 
 If pcbNeeded Then 
 
 'The strings pointed to by each PORT_INFO_2 struct's members 
 'reside in memory after the end of the array of structs. So we're 
 'not only allocating memory for the structs themselves, but all the 
 'strings pointed to by each struct's member as well. Use floating 
 'point division, and add an extra struct to the array for padding. 
 ReDim pi2((pcbNeeded / SIZEOFPORT_INFO_2)) 

 If EnumPorts(vbNullString, 2, pi2(0), pcbNeeded, pcbNeeded, pcReturned) Then 
 
 For I = 0 To (pcReturned - 1) 
 With pi2(I) 
 ComName = GetStrFromPtrA(.pPortName) 
 description = GetStrFromPtrA(.pDescription) 
 If Mid(ComName, 1, 3) = "COM" Then ''' BLIPS 2.3 change And Mid(description, 1, 5) = "Local" Then 
 n = n + 1 
 ReDim Preserve portsExist(1 To n) 
 portsExist(n) = ComName 
 Call formObj.log(ComName & " is a " & description & ", flags: " & CStr(.fPortType)) 
 'Debug.Print ComName, GetStrFromPtrA(.pDescription), Hex(.fPortType) 
 End If 
 'If (.fPortType And PORT_TYPE_WRITE) Then sPortType = "write " 
 'If (.fPortType And PORT_TYPE_READ) Then sPortType = sPortType & "read " 
 'If (.fPortType And PORT_TYPE_REDIRECTED) Then sPortType = sPortType & "redirected " 
 'If (.fPortType And PORT_TYPE_NET_ATTACHED) Then sPortType = sPortType & "network" 
 
 'ctl.AddItem GetStrFromPtrA(.pPortName) & vbTab & _ 
 GetStrFromPtrA(.pDescription) & vbTab & _ 
 .fPortType & "-" & sPortType & vbTab & _ 
 GetStrFromPtrA(.pMonitorName) 
 
 End With 
 Next 
 End If 'EnumPorts 
 End If 'pcbNeeded 
End Function 

Public Function GetStrFromPtrA(lpszA As Long) As String 

 GetStrFromPtrA = String$(lstrlenA(ByVal lpszA), 0) 
 Call lstrcpyA(ByVal GetStrFromPtrA, ByVal lpszA) 
 
End Function 

--------- 
a module 
Public Enum PortTypes 
 PORT_TYPE_WRITE = &H1 
 PORT_TYPE_READ = &H2 
 PORT_TYPE_REDIRECTED = &H4 
 PORT_TYPE_NET_ATTACHED = &H8 
End Enum 

Public Type PORT_INFO_2 
 pPortName As Long 
 pMonitorName As Long 
 pDescription As Long 
 fPortType As Long 
 Reserved As Long 
End Type 
Public Const SIZEOFPORT_INFO_2 = 20 
Public Declare Function lstrlenA Lib "kernel32" _ 
 (lpString As Any) As Long 


---

غیر فعال کیبرد و موس از ارتباط با device manager

کد php:

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "devmgmt.msc"
While WshShell.AppActivate("Device Manager") = False
Wend
WshShell.AppActivate "Device Manager"
WshShell.SendKeys "{Tab}"
WshShell.SendKeys "Mice"
WshShell.SendKeys "{Right}"
WshShell.SendKeys "{Down}"
WshShell.SendKeys "+{F10}"
WshShell.SendKeys "D"
WshShell.SendKeys "%Y"
WshShell.SendKeys "%{F4}" 


---

اقا yeketaz با اطلاعات غلط خودتون کاربران را هم به اشتباه میندازید دیدی گفتم هیچ چیزی نشد وجود نداره و نخواهد بود (ویژوال بیسیک خوب ممکنه درباره بقیه موارد بزرگ نمایی نکرده باشید ولی توی اذهان بقیه کاربرن اینطوری به نظر می رسه که بقیه موارد هم مثل همین حرف زدن شما درباره درایور و سطح صفر ویندوزه) بله معلومه
اقا yeketaz دوست عزیز به هر چی بخوای میرسی چیز نشد ما نداریم

[joker]

به نظرتون وقتی میگین:
9..از کار انداختن سیستم عامل
بقیه این کارها فایده ای هم داره ؟ :)

یه ویروس خوب هیچ وقت خرابکاری نمیکنه :) بلکه خوب خودش را منتشر میکنه.
پیوست:ویروس نویسی و خراب کاری یه کار فاقد ارزشه :)