كود اعدم تشغيل اكثر من نسخه من البرنامج

Dim appproc() as process

dim strmodname,strprocname as string

strmodname = process.getcurrentprocess.mainmodule.modulename

strprocname = system.Io.path._

GetFileNamewithoutExtension(strModName)

appproc = process.getprocessesByName(strprocname)

if appproc.length > 1 then

messagebox.show(" this application running " )

end

end if

لمزيد من الاكواد يرجى زيارة هذا الموقع

http://mysterycodes.blogspot.com/