close GP automatically if user is idle

[saif79]

السلام عليكم
لدي سؤال حيرني كثيرا. هل لدى احدكم اي فكرة عن كيفية اغلاق ال GP تلقائيا بعد فترة معينة من الزمن اذا كان اليوزر خامل ؟؟
مشكلتي هي عدد ال concurrent users عندي هو 50 فقط وفي كثير من الاحيان تستهلك جميع ال 50 وبنفس الوقت يكون لدي كثير المن ال يوسرز خاملين.

شكرا

[Monzer Osama]

يمكنك كتابة الكود التالي في الـ VBA لتجعل البرنامج يغلق بنفسه .....
بعد أن تضيف Dynamics Continuum Integration Library كـ references
اك

 
 
Dim CompilerApp As New Dynamics.Application
Dim CompilerMessage As String
Dim CompilerError As Integer
Dim Commands As String
 
Commands = ""
Commands = Commands & "local integer l_file_id; " & vbCrLf
Commands = Commands & "local string pathname; " & vbCrLf
Commands = Commands & "pathname = Path_GetForApp(1) + ""TEMP.MAC""; " &
vbCrLf
Commands = Commands & "l_file_id = TextFile_Open(pathname, 0, 0); " &
vbCrLf
Commands = Commands & "TextFile_WriteLine(l_file_id, ""CommandExec form
 
BuiLtin command cmdQuitApplication; " & vbCrLf
Commands = Commands & "TextFile_Close(l_file_id); " & vbCrLf
Commands = Commands & "if File_Probe(pathname) then " & vbCrLf
Commands = Commands & " run macro pathname; " & vbCrLf
Commands = Commands & "end if; " & vbCrLf
 
' Execute SanScript
 
CompilerError = CompilerApp.ExecuteSanscript(Commands, CompilerMessage)
If CompilerError <> 0 Then
MsgBox CompilerMessage
End If

جربه واخبرني بالنتيجة

[GreatPlains]

بس انا سؤالي استاز منذر
اين سوف اقوم بوضع هذا الكود داخل VB
تحت شاشه معينه أو module
انا ليس لي الخبره الكبيره داخل VB