+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] كيف انشي ملف exe عند إغلاقة يحذف نفسة ؟؟ (/showthread.php?tid=18862)
كيف انشي ملف exe عند إغلاقة يحذف نفسة ؟؟ - Microformt - 18-01-17
الاخوه الكرام
السلام عليكم ورحمة وبراكاته
كيف انشي ملف exe عند إغلاقة يحذف نفسة ؟؟
نامل من الله المساعده والله يحفظكم ويرعاكم
RE: كيف انشي ملف exe عند إغلاقة يحذف نفسة ؟؟ - أبو عمر - 19-01-17
وعليكم السلام ورحمة الله وبركاته
استخدم الكود التالي
PHP كود :
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Function GetDosPath(LongPath As String) As String
Dim s As String, i As Long
Dim PathLength As Long
i = Len(LongPath) + 1
s = String(i, 0)
PathLength = GetShortPathName(LongPath, s, i)
GetDosPath = Left$(s, PathLength)
End Function
Private Sub Command1_Click()
Dim Mm As String
Mm = Replace(App.Path & "\", "", "")
Open Mm & "killMe.bat" For Output As #1
Print #1, "@echo"
Print #1, "del " & GetDosPath(Mm & App.EXEName & ".exe")
Print #1, "del " & GetDosPath(Mm & "KillMe.bat")
Close #1
Shell Mm & "killMe.bat"
End
End Sub
جرب وبالتوفيق
لازم التجربة بعد ما تنشيء exe
RE: كيف انشي ملف exe عند إغلاقة يحذف نفسة ؟؟ - sendbad100 - 19-01-17
ممتاز ابو عمر
الله يبارك فيك