⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 3934.html

📁 VB技巧问答10000例 VB技巧问答10000例
💻 HTML
字号:
<html>
  <head>
    <title>Re: Service 不可以有使用者介面</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: Service 不可以有使用者介面</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:wangkai@nease.net">kiingkong</a> on July 16, 1998 at 11:20:04:<p>
In Reply to: <a href="3922.html">Service 不可以有使用者介面</a> posted by 小吴 on July 16, 1998 at 07:32:20:<p>
<html><p><head><br></head><p><body bgcolor="#FFFFFF"><p><p><font size="2">我照您&#35828;的方法去做了,&#36824;是不行,具体步&#39588;是:</font></p><p><p><font size="2">'frmserver的ShowOnTaskBar&#20026;false</font></p><p><p><font size="2">sub form_load()</font></p><p><p><font size="2">With frmserver </font></p><p><blockquote><br>    <p><font size="2">If Command = "-install" Then </font></p><br>    <blockquote><br>        <p><font size="2">.NTService1.StartMode<br>        =svcStartAutomatic </font></p><br>        <p><font size="2">.NTService1.Interactive = True </font></p><br>        <p><font size="2">.NTService1.Install </font></p><br>    </blockquote><br>    <p><font size="2">End If </font></p><br>    <p><font size="2">If Command = "-uninstall" Then </font></p><br>    <blockquote><br>        <p><font size="2">.NTService1.Uninstall </font></p><br>        <p><font size="2">Unload frmserver </font></p><br>    </blockquote><br>    <blockquote><br>        <p><font size="2">End </font></p><br>    </blockquote><br>    <p><font size="2">End If </font></p><br>    <p><font size="2">.NTService1.ControlsAccepted<br>    =svcCtrlPauseContinue</font></p><br>    <p><font size="2">.NTService1.StartService </font></p><br></blockquote><p><p><font size="2">End With</font></p><p><p><font size="2">End Sub</font></p><p><p><font size="2">然后,在NT上&#25191;行程式 server.exe<br>-install ,&#36825;&#26102;通&#36807;"Control Panel/Service"可以看到我的程式已&#32463;install成&#20026;一&#20010;service,但&#36824;&#27809;有start,于是我&#36873;start按&#38062;,&#36825;&#26102;系&#32479;&#25253;&#38169;:"Address<br>is in use". 看起&#26469;象是winsock&#32534;程上面的&#38169;,但如果不是作&#20026;service&#36816;行&#21017;一切正常,&#35828;明程序是&#27809;有&#38382;&#39064;的。</font></p><p><p><font size="2">另外,我想&#38382;:NTService1.StartService&#36825;&#20010;&#35821;句,&#24212;&#35813;就是start&#36825;&#20010;service的意思吧,&#20026;什么每次install我的service之后,&#24635;要在"Control<br>panel/service"里面通&#36807;手&#21160;&#26469;start它?</font></p><p><p><font size="2">我最后的解&#20915;方法是放&#24323;了&#36825;&#20010;OCX,我down了一&#20010;小程式,可以把任何程式&#35774;置成NT<br>service, &#36825;&#20010;方法最初也不行,但后&#26469;用您介&#32461;的方法:ShowOnTaskBar&#20026;false,&#32456;于成功了.</font></p><p><p><font size="2">我&#36824;是希望我可以直接使用哪&#20010;OCX,而不用什么外部程式,是不是我做的步&#39588;不&#23545;?<br>我的程式是有界面的,但那只是&#20026;了debug,去掉它毫&#26080;影&#21709;.</font></p><p><p><font size="2">敬&#35831;指正!! </font></p><p><p><font size="2">kingkong</font></p><p><p><font size="2">wangkai@nease.net</font></p><br></body><br></html><br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 3934-->
<!--top: 3981--><li><a href="3981.html">程式写错了啦!</a> <b>小吴</b> <i>07:54:04 7/17/98</i>
(<!--responses: 3981-->0)
<ul><!--insert: 3981-->
</ul><!--end: 3981-->
</ul><!--end: 3934-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -