+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدةفي طريقة و كود لاضافة ملف (exe و reg) الى المشروع واستخراجة عند التشغيل (/showthread.php?tid=11966)
مساعدةفي طريقة و كود لاضافة ملف (exe و reg) الى المشروع واستخراجة عند التشغيل - a.v.b - 05-04-15
السلام عليكم
الرجاء في المساعدة في اضافة ملفات من نوع reg او exe واسخراجه في مكان ما ثم استخدامة ...
RE: مساعدةفي طريقة و كود لاضافة ملف (exe و reg) الى المشروع واستخراجة عند التشغيل - الدريساوي - 05-04-15
وعليكم السلام
تفضل
Public Class Form1
Declare Auto Function SetParent Lib "user32.dll" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As Integer
Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Private Const WM_SYSCOMMAND As Integer = 274
Private Const SC_MAXIMIZE As Integer = 61488
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Dim proc As Process
proc = Process.Start("C:\Windows\system32\notepad.exe")
proc.WaitForInputIdle()
SetParent(proc.MainWindowHandle, Me.Handle)
SendMessage(proc.MainWindowHandle, WM_SYSCOMMAND, SC_MAXIMIZE, 0)
Me.BringToFront()
End Sub
End Class
RE: مساعدةفي طريقة و كود لاضافة ملف (exe و reg) الى المشروع واستخراجة عند التشغيل - a.v.b - 06-04-15
الله لا يهينك لكن المقصد هو انا عندي كود اضافة ملف الى المشروع واستخراجة في مكان معين :
مثال
(استدعاء واستخراج الملف في مكان ما)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
Dim value As Byte()
My.Computer.FileSystem.DirectoryExists("c:\test")
value = My.Resources.test
My.Computer.FileSystem.WriteAllBytes("c:\test", value, True)
Dim NewProcess As Process = New Process
End Sub
( نقل الملف )
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fi As New FileInfo("c:\test")
fi.MoveTo("d:\test")
End Sub
الكود لا يقبل ملفات اخرى مثل reg او exe او اي صيغة اخرى ، اريد كود يتعامل مع هذا النوع من الملفات .
RE: مساعدةفي طريقة و كود لاضافة ملف (exe و reg) الى المشروع واستخراجة عند التشغيل - a.v.b - 07-04-15
ارجو المساعدة يا اهل الخبرة
RE: مساعدةفي طريقة و كود لاضافة ملف (exe و reg) الى المشروع واستخراجة عند التشغيل - es5s930 - 07-04-15
تقصدك أضافتها فين بالضبط ؟
بالريسورس ؟
انا عن نفسي م فهمت السؤال
RE: مساعدةفي طريقة و كود لاضافة ملف (exe و reg) الى المشروع واستخراجة عند التشغيل - a.v.b - 08-04-15
ايه نعم ..
انا اتعامل بالريسورس ...
اذا فيه طريقة ثانية تفي بالغرض يا ليت المساعدة , اهم شي الاقي حل سواء بالريسورس او غيره ...
RE: مساعدةفي طريقة و كود لاضافة ملف (exe و reg) الى المشروع واستخراجة عند التشغيل - حكيم ياشيخ - 08-04-15
نشكركم على طرح الموضوع
RE: مساعدةفي طريقة و كود لاضافة ملف (exe و reg) الى المشروع واستخراجة عند التشغيل - a.v.b - 09-04-15
في انتظار المساعدة يا اخوان ....
RE: مساعدةفي طريقة و كود لاضافة ملف (exe و reg) الى المشروع واستخراجة عند التشغيل - a.v.b - 10-04-15
ما زلت في انتظار المساعدة لا تبخلوا علينا
RE: مساعدةفي طريقة و كود لاضافة ملف (exe و reg) الى المشروع واستخراجة عند التشغيل - silverlight - 10-04-15
راجع الموضوع التالي
اللينـــــــــــــــــــــــــــك