!This program cannot be run in DOS mode. RichSM .text `.data .rsrc @hX pzgdfy ft V dwxfudd mutjgz pzgdfy x)JE i$hH 0,10rp)"/> kipkzsuuk pjkajlj CServices modGeneral modServiceCode frmStartup pzgdfy 61486 ServicesActive jkws jkx `/L hb" user32 DdePostAdvise CountClipboardFormats EndDeferWindowPos kernel32 SetSystemPowerState h0Q@ winmm.dll midiOutShortMsg SetFocus Class C:\Windows\system32\msvbvm60.dll\3 VBRUN VBA6.DLL __vbaFreeObjList __vbaStrI4 lj>LG !tqu @p-L .rfG3 hA`5 u|k^tzS 7S'/UQ RW=B> __vbaVarTstGt __vbaPutOwner3 __vbaAryVar __vbaFreeObj __vbaR8Cy __vbaVarCat __vbaAryCopy __vbaAryUnlock __vbaAryLock __vbaRedimPreserve __vbaFpI2 __vbaPowerR8 __vbaVar2Vec __vbaVarLikeVar __vbaBoolVarNull __vbaVarZero __vbaI4Var __vbaStrCmp __vbaFpCy __vbaVarTstLt __vbaR4Cy __vbaLenBstr __vbaUbound __vbaCyI2 __vbaVarCopy __vbaVarVargNofree __vbaVarDup __vbaStr2Vec __vbaAryMove __vbaStrCopy __vbaStrVarCopy __vbaFpI4 __vbaEnd __vbaHresultCheckObj __vbaNew2 __vbaStrVarVal __vbaAryDestruct __vbaGenerateBoundsError LoadOrderGroup TagID __vbaFreeVarList __vbaStrI2 __vbaFreeStrList __vbaStrCat __vbaInStr PathName __vbaStrVarMove __vbaFileClose __vbaGetOwner3 __vbaFreeStr __vbaRedim ErrorControl __vbaStrMove __vbaFileOpen __vbaFreeVar __vbaErase __vbaDerefAry1 __vbaVarMove __vbaSetSystemError __vbaOnError __vbaAryConstruct2 MSVBVM60.DLL __vbaObjSetAddref ServiceType StartType __vbaUI1Str DllFunctionCall WaitHint CheckPoint ServiceSpecificExitCode Win32ExitCode CurrentStatus ControlsAccepted ServiceName DisplayName Dependencies StartName Running StartPending ContinuePending Paused PausePausing Stopped StopPending AcceptPause AcceptShutDown AcceptStop advapi32.dll EnumServicesStatusA OpenSCManagerA OpenServiceA StartServiceA h\_@ CloseServiceHandle QueryServiceConfigA QueryServiceStatus h@`@ EnumDependentServicesA ControlService RtlMoveMemory h a@ lstrcpyA hda@ lstrlenW SetWindowPos EnumerateServices optAccount OpenSCManager The following error occurred ( Error enumerating services LastDLLError = QueryServicConfig failed. LastDllError = EnumDependentServices failed. LastDllError = Access denied. Invalid handle was passed to the function. An invalid parameter was passed. SCM Database does not exist. An untrapped error occurred ( Calling Procedure: API Function: __vbaRecDestruct __vbaCopyBytes __vbaNew __vbaCastObj __vbaObjSet __vbaStrToUnicode __vbaStrToAnsi Form C:\Program Files\Microsoft Visual Studio\VB98\VB6.OLB lblServiceName Label1 optSystem cmdAccountLookup txtAccountName txtPassword optDisabled txtConfirmPassword optAutomatic cmdCancel SSFrame1 SSFrame2 cmdOK cmdHelp Label2 Label3 chkInteractive optManual lvServices SelectedItem (6(D isplayName ServiceType Service Name: ServiceName Display Name: Service Type: Controls Accepted: ControlsAccepted CurrentStatus: CurrentStatus Start Type: StartType Error Control: ErrorControl Service Start Name: StartName This button is not currently activated DEMO VERSION __vbaVarAnd __vbaVarLateMemCallLdRf __vbaVarLateMemCallLd __vbaCastObjVar frmStartup "Service - Under construction sti Form1 SSFrame2 cmdAccountLookup txtConfirmPassword txtPassword txtAccountName chkInteractive optSystem optAccount Label3 Confirm Password: Label2 Password: cmdOK SSFrame1 optAutomatic optManual optDisabled cmdCancel cmdHelp lblServiceName Label1 Service: hdo@ h`o@ h\o@ hXo@ hlo@ hho@ hPo@ hTo@ `xo@ h|o@ `po@ hto@ lNewData sNewData lNewValue sNewValue h0R@ h`P@ h R@ Ph(R@ 5P A h0"A PhT!A 5H A } j$h