18-01-17, 10:25 PM
19-01-17, 12:43 AM
وعليكم السلام ورحمة الله وبركاته
استخدم الكود التالي
جرب وبالتوفيق
لازم التجربة بعد ما تنشيء exe
استخدم الكود التالي
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
19-01-17, 02:34 AM
ممتاز ابو عمر
الله يبارك فيك
الله يبارك فيك