'加个timer控件Private Sub Command1_Click()If Timer1.Enabled = True ThenTimer1.Enabled = FalseMsgBox List1.Text &amp

有两种情况x0d1、有防火墙x0dvi etcsysconfigiptablesx0d-A INPUT -p tcp -m tcp --dport 1521 -j ACCEPT添加1521端口访问策略x0detci