+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: چگونه فایل exe با ویژوال بیسیک بسازیم ؟ (/showthread.php?tid=1013)
چگونه فایل exe با ویژوال بیسیک بسازیم ؟ - Amin_Mansouri - 10-09-2011
دورد
سوالهای مانند چگونه فایل exe با ویژوال بیسیک بسازیم ؟
یا اینکه چطوری یه ویروس میکر یه ویروس رو کامپایل میکنه و شما راحت حتی ایکون برای فایلتون انتخاب میکنید.
یا چطوری میشه ای برنامه ای نوشت که داخل تکست باکس فایک کامپایل شدمون دوباره نوشت ؟
به این خاصیت در ویژوال بیسیک بهش میگن PropertyBag
من در سورس زیر که به ساده ترین روش براتون اماده کردم کارایی این روش رو یاد میگیرید که چطوری میشه یه ویروس میکر و یا ... ساخت.
سورس زیر ساده و با مفهوم نوشتم
این سورس در واقع PropertyBag رو میخونه
سورس کد :
کد:
Dim PropBag As New PropertyBag
'Coder : Amin Mansouri
'My Forum: www.parsicoders.com
Private Sub Form_Load()
AminGet
End Sub
Public Function AminGet()
On Error Resume Next
Dim BeginPos As Long, varTemp As Variant, Infile As Integer, byteArr() As Byte
Infile = FreeFile
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #Infile
Get #1, LOF(1) - 3, BeginPos
Seek #1, BeginPos
Get #1, , varTemp
byteArr = varTemp
PropBag.Contents = byteArr
PropBag.WriteProperty "LOF", LOF(1)
PropBag.WriteProperty "BeginPos", BeginPos
Close #Infile
With PropBag
MsgBox .ReadProperty("Name1")
MsgBox .ReadProperty("Name2")
End With
End Functionدر سورس بالا ما یک name1 و name2 در برنامه تعریف کردیم.
و با msgbox به ترتیب انها رو نمایش میدهیم.
حالا فایل رو کامپایل کنید.
باید فایل رو با این نام کامپایل کنید.
کد:
edit.datحالا با سورس زیر میتونید در داخل همان edit.dat بنویسید.
الان میتونیم برای name1 و name2 رشته تعریف کنیم:
توجه سورس زیر رو باید کامپایل کنید و به exe ذخیره کنید بزارید در کنار فایل edit.dat
سورس کد :
کد:
Public Function WritePropertybag()
Dim PBag As New PropertyBag, Temp As Variant, StartPosition As Long
With PBag
.WriteProperty "Name1", "Amin Mansouri"
.WriteProperty "Name2", "www.parsicoders.com"
End With
FileCopy App.Path & "\Edit.dat", App.Path & "\" & "Parsicoders.com.exe"
Open App.Path & "\" & "Parsicoders.com.exe" For Binary As #1
StartPosition = LOF(1)
Temp = PBag.Contents
Seek #1, LOF(1)
Put #1, , Temp
Put #1, , StartPosition
Close #1
MsgBox "Executable file created successfully !", vbInformation, "www.parsicoders.com"
End Function
Private Sub Form_Load()
WritePropertybag
End Subحالا برنامه رو کامپایل کرده و بعد از ذخیره کردن اجرا کنید.
حالا فایل
کد:
Parsicoders.com.exeاز این ساده تر نمیتونستم توضیح بدهم.
نویسنده مقاله : امین منصوری
RE: چگونه فایل exe با ویژوال بیسیک بسازیم ؟ - as911 - 06-14-2014
سلام.
خیلی ممنون از مقالتون در مورد PropertyBag.
اگر امکانش هست در مورد PropertyBag با زبان ویژوال بیسیک در نرم افزار Visual Studio 2012 هم توضیحاتی ارائه کنید.
چیز زیادی راجب نحوه کار با PropertyBag با ورژن 2012 پیدا نکردم.
ممنون میشم راهنمایی کنید.
RE: چگونه فایل exe با ویژوال بیسیک بسازیم ؟ - moh.1 - 07-28-2014
برای ساختن فایل exe در visual basic 6 ، ساده ترین کار:
1.file
2.make project exe
به همین راحتی.
RE: چگونه فایل exe با ویژوال بیسیک بسازیم ؟ - google - 08-12-2015
می تونید یکم بیشتر توضیج بدید
که دقیقا بیشتر کجا مورد استفاده قرار می گیره
البته متن های بالا را کامل خوندم ولی .....
@^$!*@!
RE: چگونه فایل exe با ویژوال بیسیک بسازیم ؟ - Amin_Mansouri - 08-13-2015
درود
خوش امدید
برای ساخت کیلاگر ها و تورجان ها یا پس سندر ها
این چیزای مخرب