کارگاه افکار جدید بشر
درباره سایت
آخرین مطالب
- بهترین انتخاب برای بازیسازی با اکشن اسکریپت؟ کتابخانه ها، موتورها و ...
- چگونه نام دامنه ای مناسب انتخاب کنیم ؟
- مشکل در نمونه دریافت کد سیستم
- چگونه ذخیره یک موی کلیپ بصورت عکس در موبایل را انجام بدیم
- همه چیز در مورد چیدمان و دکوراسیون
- مراکز زیبایی
- آموزش حسابداری و کامپیوتر
- مشکل در نمونه دریافت کد سیستم
- اپلیکیشن اندرویدی " جانِ نرگس "
- شرکت فناوران پویان هزارنویس 2 ساله شد !
امکانات وب
سلام .خسته نباشین.من میخواستم یک کدی رو که خودم کار باهاش رو بلدم و مربوط به کار با فایلهاست روعینا در vb.net پیاده کنم ولی نمیشه.در واقع قسمتی از یک برنامه هست که دارم تبدیل به پروژه دات نت میکنم ولی این قسمت ارور میده اگه دوستان عینان تبدیل کنن ممنون میشم
کد PHP:
Dim patched As String, Archivo As StringIf txtarchivo.Text = vbNullString Then
MsgBox "First : Select Your File!", vbExclamation, Me.Caption
Exit Sub
ElseOpen App.Path & "patched.exe" For Binary As #1
patched = Space(LOF(1))
Get #1, , patched
Close #1Open txtarchivo.Text For Binary As #1
Archivo = Space(LOF(1))
Get #1, , Archivo
Close #1With CD
.DialogTitle = "Select The Path To Save The Encrypted File!"
.****** = "Aplicaciones EXE|*.exe"
.ShowSave
End With
If Not CD.FileName = vbNullString Then
Archivo = RCpatch(Archivo, txtkey.Text)
Open CD.FileName For Binary As #1
Put #1, , patched & "##$$##" & Archivo & "##$$##" & txtkey.Text & "##$$##"
Close #1
MsgBox "Properly File patch!", vbInformation, Me.Caption
End IfEnd If
- - , .
برچسب:
نویسنده: محمد رضا جوادیان