سوال در مورد ران شدن يه سرويس

[Payman62]

سلام.
يه سوال در مورد سرويس ها.
اگه يه سرويس آدرس برنامه من رو داشته باشه و من سرويس رو استارت كنم بعد از چند ثانيه دوباره سرويس استاپ ميشه.
عكس پيغامش رو هم گذاشتم.
به نظر ميرسه فايلي كه ران ميشه بايد موقع استارت شدن جواب بده. وگرنه استاپ ميشه. حالا كسي ميدونه چه طور ميشه جلوي استاپ شدن سرويس رو گرفت؟ چه طور بايد جواب ران كننده سرويس رو داد؟

[ashkan]

فكر كنم برنامه سرويس تو سايت هست ميتوني يه نگاه بهش بندازي(بگردي پيدا ميشه)

[Payman62]

راستش سرچ كردم تو فروم كه چيزي پيدا نكردم. تو سايتم چند مورد كه ممكن بود كمي ربط داشته باشه پيدا كردم ولي دانلود نميشه. ممنون ميشم آدرسشو برام بذاري.

[ashkan]

اين لينك شايد به كارت بياد
http://www.iranvig.com/modules.php?name=...=0&thold=0

[Iron_Fist]

اشکان جان این لینک رو که باز می کنم می ره رو ایندکس اول سایت !

و در جواب شما پیمان خان باید بگم که شما باید از تابع StartServiceCtrlDispatcher استفاده کنی
من هم هنوز موفق به استفاده ازش نشدم چون دوتا روتین
نیاز داره به نام های ServiceMain , HandlerEx که متنش باید
به طور دستی نوشته بشه که کار سخت و وقت گیریه
ردیفش که کردم بهت خبر می دم !

ماکروسافت درباره این تابع می گه :

When the service control manager starts a service process, it waits for the process to call the StartServiceCtrlDispatcher function. The main thread of a service process should make this call as soon as possible after it starts up. If StartServiceCtrlDispatcher succeeds, it connects the calling thread to the service control manager and does not return until all running services in the process have terminated. The service control manager uses this connection to send control and service start requests to the main thread of the service process. The main thread acts as a dispatcher by invoking the appropriate HandlerEx function to handle control requests, or by creating a new thread to execute the appropriate ServiceMain function when a new service is started

[amirjan]

اشکان جان این لینک رو که باز می کنم می ره رو ایندکس اول سایت !

آره آقا اشكان ! منم گاهي اين طوري ميشم ! ولي گاهي ! رو بعضي لينك ها كه ميزنم فوري ميره صفحه اول رو مياره . نميدونم چرا

[Payman62]

و در جواب شما پیمان خان باید بگم که شما باید از تابع StartServiceCtrlDispatcher استفاده کنی
من هم هنوز موفق به استفاده ازش نشدم چون دوتا روتین
نیاز داره به نام های ServiceMain , HandlerEx که متنش باید
به طور دستی نوشته بشه که کار سخت و وقت گیریه
ردیفش که کردم بهت خبر می دم !

نهههههههه.
من با فايل هاي سيستمي ويندوز خيلي ور رفته بودم و به اين نتيجه رسيده بودم كه اونايي كه تو ليست سرويس ها هستند از تابع StartServiceCtrlDispatcher استفاده ميكنند. بعد كه خواستم از اين تابع استفاده كنم ديدم يه پارامتر نا آشنا داره. تعريف SERVICE_TABLE_ENTRY رو از API viwer پيدا كردم. lpServiceProc در SERVICE_TABLE_ENTRY يه پوينتر به ServiceMain هست. تعريف ServiceMain رو نتونستم تو API viewr پيدا كنم. با مراجعه به MSDN و سايت هاي مختلف به اين نتيجه رسيدم كه كار با اين تابع به اين سادگي ها هم نيست. با توجه به مطالبي كه سرچ كرده بودم و يه چيزاي گنگي كه فهميده بودم و كمي هم شانسي چند تا كد نوشـم كه شايد جواب بده. نمونش.

کد:

Private Type ServiceMain
    dwArgc As Long
    lpszArgv As String
End Type

Private Type SERVICE_TABLE_ENTRY
    lpServiceName As String
    lpServiceProc As Long
End Type

Private Declare Function StartServiceCtrlDispatcher Lib "advapi32.dll" Alias "StartServiceCtrlDispatcherA" (lpServiceStartTable As SERVICE_TABLE_ENTRY) As Long

Dim a As SERVICE_TABLE_ENTRY, b As ServiceMain

Private Sub Form_Load()
    b.dwArgc = 5
    b.lpszArgv = "Payman"
    a.lpServiceName = ""
    o = StartServiceCtrlDispatcher(a)
End Sub

ولي هيچ كدوم جواب ندادن. آخرشم با خودم گفتم احتمالا من اشتباه كرده بودم و شايد اصلا اين تابع ربطي به مشكل من نداره. اين بود كه اومدم و اين جا مطرح كردم تا شايد راهي جلو پام بذاريد. ولي با توجه به فرمايشات Iron_Fist حالم گرفته شد.
Iron_Fist ميشه كمي در مورد ServiceMain توضيح بدي تا خودمم دست به كار شم و بي كار نشينم تا شما بنويسي. من تعدادي مثال در مورد تابع StartServiceCtrlDispatcher پيدا كرده بودم. ولي همشون به زبان C بودن و چون كمي پيچيده بودن تبديلشون مشكل بود. نمونش.

کد:

#include <windows.h>

SERVICE_STATUS          MyServiceStatus;
SERVICE_STATUS_HANDLE   MyServiceStatusHandle;

VOID SvcDebugOut(LPSTR String, DWORD Status);
VOID  WINAPI MyServiceCtrlHandler (DWORD opcode);
VOID  MyServiceStart (DWORD argc, LPTSTR *argv);
DWORD MyServiceInitialization (DWORD argc, LPTSTR *argv,
        DWORD *specificError);

void main( )
{
   SERVICE_TABLE_ENTRY   DispatchTable[] =
   {
      { "MyService", MyServiceStart      },
      { NULL,              NULL          }
   };

   if (!StartServiceCtrlDispatcher( DispatchTable))
   {
      SvcDebugOut(" [MY_SERVICE] StartServiceCtrlDispatcher (%d)\n",
         GetLastError());
   }
}

VOID SvcDebugOut(LPSTR String, DWORD Status)
{
   CHAR  Buffer[1024];
   if (strlen(String) < 1000)
   {
      sprintf(Buffer, String, Status);
      OutputDebugStringA(Buffer);
   }
}

اشکان جان این لینک رو که باز می کنم می ره رو ایندکس اول سایت !

منم همين مشكلو داشتم. واسه همين بود كه گفتم برنامه ها دانلود نميشدن. تو سايت كه ميره با يوزر خودم نميره و با Anonymous ميره. اشكان خان اگه اون برنامه مشكلمو حل ميكنه ميشه يه جوري سريع تر بهم برسونيدش. مثلا جايي آپ كنيد. ممنون ميشم. نزديكه 3 هفته است سر اين مشكل گيرم. آخه كار برنامم هم هست. اگه اين رو ياد بگيرم ديگه برنامم آماده ميشه.

[Iron_Fist]

Iron_Fist ميشه كمي در مورد ServiceMain توضيح بدي تا خودمم دست به كار شم و بي كار نشينم تا شما بنويسي

بی رودرواسی من خودمم توش موندم

شما فقط مثال های C++ رو دیدی در حالی که من با وجود پیدا کردن مثال
های وی بی چیز جالبی توش ندیدم
چیز که من تو این بررسی ها دیدم این بود که تو مباحث تخصصی مثال های
وی بی کم هست عوضش C++ زیاد و تو گوگل که بیای و مثلا همین سوال رو
سرچ کنی مطمعن باش که 10 مثال اول به زبان C++ هست
حتی MSDN هم مثال هاش به زبان C++ هست
من که خودم تصمیم گرفتم به زبان C++ روی بیارم
توصیه ای هم که به شما می کنم اینه که از سیستم من برای یافتن جواب
سوالاتتون کمک بگیرید :
روش کارم اینه که وقتی به جواب نمی رسم برای اینکه از سوال و برنامه نویسی
زده نشم برای مثلآ مدت یک هفته بی خیال سواله می شم و بعد از اون مدت
اگه شرایط روحیم مساعد بود دوباره جستجو رو از سر می گیرم

ودر کلام آخر شاید من تا یک هفته دیگه تونستم به جواب برسم .

[Payman62]

ودر کلام آخر شاید من تا یک هفته دیگه تونستم به جواب برسم .

اين يعني چي. منظورت اينه كه به يه جاهايي رسيدي و ميشه اميدوار بود؟؟
راستي مثال هاي vb رو داري بذاري يه نگاه بكنم.

[Iron_Fist]

منظورت اينه كه به يه جاهايي رسيدي

نه هنوز

ميشه اميدوار بود؟؟

یجوری می گی انگار شدنی نیست
بلاخره یاد می گیریم

راستي مثال هاي vb رو داري بذاري يه نگاه بكنم

همشون اومدن و از یجا کپی برداری کردن فقط یکم تغییرش دادن
ولی در کل همشون یکیه و هیچکدوم هم کار نمی کنه !
ایراد منطقی داره !
http://www.devparadise.com/technoweb/code/vb/a165.php
http://www.vbfrance.com/forum.v2.aspx?ID=302454
این صفحات به زبان فرانسوی توضیحاتش که برای تر جمه به
انگلیسی از این لینک استفاده کن :
http://www.google.com/language_tools?hl=en

[Payman62]

به جايي نرسيدي. من هنوز لنگه اينما.