منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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



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

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

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

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

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



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

(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 


+ Framework 4.0

- Framework 3.5

(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 


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

     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