[ابو روضة]

السلام عليكم اخوتى

عامل برنامج يقوم باختيار ملف exe فيقوم بتشغيلة  يعنى

انا حاطط زر وبمجرد ان اضغط عليه يتم تنصيبه اى برنامج وضعته فى الريسورس بطريقة عادية

ليست مبرمجة منى بل من برنامج الexe ذاته كأى برنامج تقوم بتنصيبه على جهازك

لكنى حاطط أمر واحد فقط فى الزر وهو بعد انتهاء الملف من التنصيب يظهر رسالة مفادها

" تم الانتهاء من تنصيب البرنامج بنجاح " لكنى اريد اخفاء ظهور ايقونة ملف ال exe من على سطح المكتب

وتظهر فقط حينما تظهر الرسالة " تم الانتهاء من تنصيب البرنامج بنجاح " وجزاكم الله خيرا

[سعود الشامان]

وعليكم السلام ورحمة الله

لا اعتقد انك تستطيع ذالك

لان عملية التسطيب منفصلة, تكون من ملف منعزل ( اي لا تسطيع وضع كود الرسالة داخل اكواد التسطيب )

اعتقد الحل الوحيد لديك هو فرط البرنامج الموضوع في الريسورس وتحزيمة مرة اخرى والغاء خيار اظهار الايقونة من على سطح المكتب
ثم بعد الانتهاء من التنصيب تضع كود الرسالة ثم كود اظهار ايقونة البرنامج



مجرد فكرة ربما هنالك طريقة اخرى .

[ابو روضة]

(07-11-17, 02:17 AM)سعود الشامان كتب : وعليكم السلام ورحمة الله

لا اعتقد انك تستطيع ذالك

لان عملية التسطيب منفصلة, تكون من ملف منعزل ( اي لا تسطيع وضع كود الرسالة داخل اكواد التسطيب )

اعتقد الحل الوحيد لديك هو فرط البرنامج الموضوع في الريسورس وتحزيمة مرة اخرى والغاء خيار اظهار الايقونة من على سطح المكتب
ثم بعد الانتهاء من التنصيب تضع كود الرسالة ثم كود اظهار ايقونة البرنامج



مجرد فكرة ربما هنالك طريقة اخرى .

لا اخى كلامك مظبوط وهذا هو المنطقى لكن قولت اكيد هناك طريقة او كود يقوم

بطلبى هذا لكن اظن فعلا انها لا تجوز والله اعلم.

[a.ahmed]

PHP كود :

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    DeleteShortcut("software name.lnk")
End Sub 


PHP كود :

Sub DeleteShortcut(ByVal shortcut As String)
    Dim ext As String = IO.Path.GetExtension(shortcut).ToLower
    If ext <> ".lnk" Then
        MsgBox("Not shortcut.", MsgBoxStyle.Exclamation)
        Return
    End If
    Dim userShortuct As String = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\\" & shortcut
    If IO.File.Exists(userShortuct) Then IO.File.Delete(userShortuct)
    Dim publicShortuct As String = Environment.GetFolderPath(Environment.SpecialFolder.CommonDesktopDirectory) & "\\" & shortcut
    If IO.File.Exists(publicShortuct) Then IO.File.Delete(publicShortuct)
End Sub 


[ابو روضة]

(08-11-17, 02:19 AM)a.ahmed كتب :

PHP كود :

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    DeleteShortcut("software name.lnk")
End Sub 


PHP كود :

Sub DeleteShortcut(ByVal shortcut As String)
    Dim ext As String = IO.Path.GetExtension(shortcut).ToLower
    If ext <> ".lnk" Then
        MsgBox("Not shortcut.", MsgBoxStyle.Exclamation)
        Return
    End If
    Dim userShortuct As String = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\\" & shortcut
    If IO.File.Exists(userShortuct) Then IO.File.Delete(userShortuct)
    Dim publicShortuct As String = Environment.GetFolderPath(Environment.SpecialFolder.CommonDesktopDirectory) & "\\" & shortcut
    If IO.File.Exists(publicShortuct) Then IO.File.Delete(publicShortuct)
End Sub 


هناك خطا اخى أحمد

[a.ahmed]

+ Framework 4.0

PHP كود :

Dim publicShortuct As String = Environment.GetFolderPath(Environment.SpecialFolder.CommonDesktopDirectory) & "\\" & shortcut 


- Framework 3.5

PHP كود :

Dim publicShortuct As String = System.Environment.GetEnvironmentVariable("Public") & "\Desktop\\" & shortcut 


[ابو روضة]

(08-11-17, 10:43 PM)a.ahmed كتب : + Framework 4.0

PHP كود :

Dim publicShortuct As String = Environment.GetFolderPath(Environment.SpecialFolder.CommonDesktopDirectory) & "\\" & shortcut 


- Framework 3.5

PHP كود :

Dim publicShortuct As String = System.Environment.GetEnvironmentVariable("Public") & "\Desktop\\" & shortcut 


مش عارف استخدمه ازاى اخى احمد وهذا هو كود التصطيب وهذه الصورة

PHP كود :

 Dim black = IO.Path.GetTempPath & "\" & "Pristy_Tools_Installer_silent.exe"
        IO.File.WriteAllBytes(black, My.Resources.Pristy_Tools_Installer_silent)
        Process.Start(black) 


[a.ahmed]

PHP كود :

Dim black = IO.Path.GetTempPath & "\" & "Pristy_Tools_Installer_silent.exe"
IO.File.WriteAllBytes(black, My.Resources.Pristy_Tools_Installer_silent)
Dim proc As New Process() With {.StartInfo = New ProcessStartInfo() With {.FileName = black}}
proc.Start()
proc.WaitForExit()
DeleteShortcut("Pristy Tools" & ".lnk") '  .lnk = shortcut 


     Updated

[ابو روضة]

(09-11-17, 12:28 AM)a.ahmed كتب :

PHP كود :

Dim black = IO.Path.GetTempPath & "\" & "Pristy_Tools_Installer_silent.exe"
IO.File.WriteAllBytes(black, My.Resources.Pristy_Tools_Installer_silent)
Dim proc As New Process() With {.StartInfo = New ProcessStartInfo() With {.FileName = black}}
proc.Start()
proc.WaitForExit()
DeleteShortcut("Pristy Tools" & ".lnk") '  .lnk = shortcut 


     Updated

بس ده بيحذف شورت كت الايقونة خالص وانا عاوزها تظهر لكن لما يتم تصطيبه يعنى ينتظر الى حين

ينتهى من تنصيبه ومن ثم تظهر الايقونة عادى على سطح المكتب.. أعتذر لك اخى تعبتك

[a.ahmed]

DeleteShortcut("Pristy Tools" & ".lnk") '  .lnk = shortcut