ساخت ویروس

[ariama]

سلام
من می خوام یه ویروس بسازم که هربار که سیستم با لا می آد یه عکس رو نشون بده و نشه عکسو ببندی بالاخره هی نشونش بده
اگه میشه در محیط باشهvb 6
لطفا راهمایی کنید خیر ببینید

[ariama]

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

[ariama]

یکی نیست جواب بده این همه بحث در مورد ویروس

[Di Di]

دوست عزيز

خودت داري مي گي اين همه بحث در مورد ويروس ، خوب داخل همون بحث ها توضيحات لازم همراه با سورس كامل

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

دوستان راهنمائيت كنن.

[ariama]

ممنون از جواب شما
اون سورسی رو که یهئ چیزی می نویسه رو پیدا نکردم
مشه بدین؟

[Di Di]

خوب مگه قرار دادن يه فرم كوچيك بالاي صفحه كه توش يه متني نوشته شده باشه چه نكته خاصي داره؟؟ كسي كه VB هم

بلد نباشه مي تونه اينو بسازه!!!

[mohamadpk]

برای قرار دادن عکس روی صفحه که نشه حذفش کرد راه زیاده ولی بهترینش کشیدن عکس روی desktop هست.

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

کد:

Private Type BITMAP
bmType As Long
bmWidth As Long
bmHeight As Long
bmWidthBytes As Long
bmPlanes As Integer
bmBitsPixel As Integer
bmBits As Long
End Type
Dim hbit As Long
Dim bmp As BITMAP
Dim hdc As Long
Dim hdc2 As Long
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
'Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal dwImageType As Long, ByVal dwDesiredWidth As Long, ByVal dwDesiredHeight As Long, ByVal dwFlags As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
''''''''''''
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0 'X Size of screen
Const SM_CYSCREEN = 1 'Y Size of Screen
''''''''''''
Public Function SetFristDataOfSetImage(img As Image)
hdc = GetDC(0)
hdc2 = CreateCompatibleDC(hdc)
hbit = img.Picture
GetObject hbit, Len(bmp), bmp
End Function




Public Function SetBitBlt(img As Image)
SelectObject hdc2, hbit
'''''''''''''''''''
Dim prx As Double
Dim pry As Double
prx = GetSystemMetrics(SM_CXSCREEN)
pry = GetSystemMetrics(SM_CYSCREEN)
'''''''''''''''''
BitBlt hdc, pry / 2, prx / 2 - 200, bmp.bmWidth, bmp.bmHeight, hdc2, 0, 0, vbSrcCopy

End Function

این کد رو تو ماژولش ضمیمه کردم.از زیر دانلود کن.

  SetBitBlt.rar (اندازه: 737 bytes / تعداد دفعات دریافت: 91)
استفاده ازش هم راحته. کافیه عکست رو که تو ریسورس گذاشتی بخونی بریزی تو یه object از image بعد مثل کد زیر یه تایمر بزاری هی این کد رو صدا بزنی.

کد:

Private Sub tmSetPic_Timer()
SetBitBlt.SetBitBlt Image1
End Sub

[siberi.iran]

سلام و عرض ادب خسته نباشد به دوستان عزيز
من يك مدت نزديك به 3 ماه هست كه دارم دونبال يك سورس كد ويژوال بيسيك ميگردم كه براي من اطلاعات رو به صورت كلي (يعني Attachments) به جميل و ftpسرور بفرسته.خودم يك كد دارم ولي فقط يك فايل ميشه ارسال كرد(يعني فقط يك فايل ميتونيم همراه با ايميل ارسال كنم. هنوز موفق به دريافت چنين سورسي نشدن از شما تقاضا دارم اگر سورسي در اين زمينه داريد كه بشه چندين فايل رو همزمان ارسال كرد رو در اختيار اين بنده حقير قرار بدهيد.ممنون ميشم
با كمال تشكر.
اينم جميل من هست: navid.rajai@gmail.com

[AminE]

کدی که به زبان vb6 که دو ویروس و قتی یکی شون end p میشه اون یکی بفهمه

---

من یه ویروس دیدم که وقتی end p میکردی باز میگشت لطفا کدشو بزارید vb6

[kimiafars]

تمام این بحثها شده لطفا سرچ کنید