PropertyBag در vb.net2005

[yeketaz]

من از اساتید یک سوال داشتم

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

اما من نتونستم اونو توی vb.net 2005 پیدا کنم

با VBUpgrade هم جواب نداد

چه جوری این کد ها را می خوهیم در vb.net باز نویسی کنیم :

[/align]

Dim Data As New PropertyBag
Dim Temp As Variant
Data.WriteProperty "FName", "Iranvig"
Data.ReadProperty "LName"
Temp = Data.Contents

[yeketaz]

کسی بلد نیست؟؟؟؟

مهمه!!!

[yeketaz]

حرفه ای های VB.NET جواب بدهند

[arashrj]

سلام
در وی بی دات PropertyBag وجود نداره
در نتیجه باید از serialization استفاده کنی.

موفق باشی

[arashrj]

برای استفاده از این روش می تونی از کد زیر استفاده کنی :

ابتدا یک پروژه از نوع ClassLibrary بساز با اسم LoadClass
بعد کد زیر رو بنویس :

کد:

<Serializable()> Public Class classLoad
    Public MyDataRJ As String = "Arash RJ"
End Class

پروژه رو کامپایل کن (Build > Build LoadClass)


حالا یه پروژه جدید بساز و در پنجره پروژه روی نام پروژه راست کلیک کن و add Reference رو انتخاب کن .
از پنجره باز شده از سر برگ Projects یا Browse فایل dll که در مرحله قبل ساختی رو باز کن

روی فرم یک تکست باکس قرار بده و کد زیر رو در محل کد نویسی بنویس (راست کلیک رو فرم و انتخاب view code):

کد:

Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary

Public Class Form1
    Private myLoan As New LoanClass.classLoad

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If File.Exists("SavedRJ.bin") Then
            Dim myFileS As Stream = File.OpenRead("SavedRJ.bin")
            Dim deser As New BinaryFormatter()
            myLoan = CType(deser.Deserialize(myFileS), LoanClass.classLoad)
            myFileS.Close()
        End If
        TextBox1.Text = myLoan.MyDataRJ.ToString
    End Sub

    Private Sub Form1_Closing(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        myLoan.MyDataRJ = TextBox1.Text
        Dim myFileS As Stream = File.Create("SavedRJ.bin")
        Dim ser As New BinaryFormatter()
        ser.Serialize(myFileS, myLoan)
        myFileS.Close()
    End Sub
End Class

موفق باشی

[yeketaz]

من زیاد از این کدها چیزی نفهمیدم

مثلا اینا رو چه جوری می تونیم توی یک ویروس میکر و ویروسش استفاده کنیم

[arashrj]

سلام
این کد که خیلی ساده بود و کاملا مشخصه چه کاری انجام میده.
البته تو این روش حتما باید یه فایل کمکی در کنار برنامه قرار بگیره .
فکر نکنم روش دیگه ایی وجود داشته باشه (چون تو وی بی راحت میشه اطلاعات رو به فایل چسبوند اما تو دات نت ....)

واقعا می خوای ویروس رو به زبان دات نت بنویسی ؟!!

موفق باشی

[yeketaz]

واقعا می خوای ویروس رو به زبان دات نت بنویسی ؟!!

مگه مشکلی داره؟؟؟؟؟

[arashrj]

سلام
یادش به خیر یه زمون ویروس رو با زبان اسمبل و سی می نوشتن . بعد وی بی اومد . حالا دات نت !!!!!
به نظر من دات نت به درد تنها کاری که نمی خوره ویروس نویسیه
حتما می خوای رو سیستم طرف Framework هم نصب کنی

موفق باشی

[yeketaz]

ممنون از راهنمای!

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

استفاده می کنم البته کدهای اسمبلی را در ++VC می نویسم.

ولی سادگی Net آدمو جذب می کنه

[arashrj]

امیدوارم ویروس خوبی باشه !
نوشتی به من هم بده تا آنتی شو بنویسم
البته من فقط نظرم رو در مورد دات نت گفتم .(که بهتره برای ویروس نویسی ازش استفاده نشه )

موفق باشی