真不想浪费分数！！！(100分)

吕

吕洞宾

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-29

• #1

问了好几贴，都是答非所愿。白白浪费了分数，大富翁里真就没有高手吗？下面问题有谁能回答呀？
1。如何获得局域网里所有的SQL SERVER服务器名
2。如何控制另一台机子上在运行的程序，比如
我写了个应用程序。两个机子都在运行，我现在想通过一台机子上的程序来关闭另外一台上的应用
程序并且弹出一个对话框提示既将关闭该程序？

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-29

• #2

1.
来自：夜黑风高, 时间：2002-5-8 14:40:00, ID：1089201
----------------------------------------------------------
uses comobj;

procedure TForm1.Button1Click(Sender: TObject);
var
SQLServer:Variant;
ServerList:Variant;
i,nServers:integer;
sRetValue:String;
begin
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList:= SQLServer.ListAvailableSQLServers;
nServers:=ServerList.Count;
for i := 1 to nservers do
ListBox1.Items.Add(ServerList.Item(i));
SQLServer:=NULL;
serverList:=NULL;
end;

2.写一个Client/Server程序，可以用TCP或UDP

 

吕

吕洞宾

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-29

• #3

回去试一下

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-30

• #4

啊,来晚了.
第二个问题,相当于写木马啦!

 

A

abc_xp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-30

• #5

1，不会
2，写木马

 

N

naughtboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-30

• #6

1。同zw84611
2。用udp或tcp写木马，一server一client

 

D

delphifans_hx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-02

• #7

最笨的办法：
先枚举局域网内所有机器，
然后让CLIENT 与所列机器内的SQLSERVER端口通讯（具体通讯规则见SQL SERVER吧）
如果能正常通讯则成功
我的 My SQL连接也就是这样实现的
（不好意思冒充了一回高手了）

 

D

delphifans_hx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-02

• #8

（有两个）
第二个是木马呀

 

爱

爱元元的哥哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-21

• #9

C/S模式的控制很简单哦，就是聊天软件的衍变版本

 

K

karxios

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-22

• #10

2 既然你有数据库了 通过一个表来控制程序的关闭都可以 连网络协议都不用懂