请问如何编一个自动连接到bbs的程序？(100分)

S

scy_fjqz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-22

• #1

假如我想进入福大的bbs,(地址是bbs.fzu.edu.cn,ip是210.34.48.50)
一般是先打开在window中运行框打入 "telnet 210.34.48.50",
当出现login界面的时候，我们还继续输入"bbs",
等出现user name 时，我们输入我们在福大bbs注册的呢称，
这三步，我们如何编一个自动输入的程序，
请赐教！
很多分的，请大家过来拿分！

 

D

delphisnail

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-22

• #2

判断出现"xxx"字符时，输入"xxx"
用ICS的Telnet空间，看一下里面的例子，可以解决

 

X

xlf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-23

• #3

用ShellExecute

 

G

g622

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-23

• #4

cterm 在www.fanso.com上

 

S

scy_fjqz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-26

• #5

ics在那里啊？找不到啊，是5.0的吗：？

 

G

g622

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-26

• #6

那是第三方的控件
在http://vcl.vclxx.org 的通信子类里可以找到

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-26

• #7

如果你用下载工具也可以到这里下载
ftp://ftp.turbo.hit.edu.cn/pub/languge/delphi/Delphi_Controls/internet/ics.zip

 

S

scy_fjqz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-26

• #8

我不喜欢用第三方控件，那样的话，
别人用我们的程序，也要下载控件，或则打包，打包我也不会
请问一下，
delphy如何打包啊？

 

J

JohnsonGuo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-26

• #9

用ShellExecute运行
hWnd := ShellExecute('c:/windows/telnet ...', ...);
然后向该窗口发WM_CHAR消息：
s := 'bbs' + ^M + 'MyID' + ^M + 'MyPassword' + ^M;
for i := 1 to Length(s) do
SendMessage(hWnd, WM_CHAR, Ord(s), 0);

BTW: 悄悄告诉你，BBS的灌水机就是这个原理，呵呵。

 

J

JeffSY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-26

• #10

还不如使用delphi自带的telnet控件呢。
to scy_fjqz：基本常识，delphi的VCL控件在编译时
是可以编进应用程序的，这点与vb有很大不同，也是优势之一！
但如果用ocx控件，就不能享受这种优点了。
这里大虾们提供的，绝大多数是VCL，还有源码哦。

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-26

• #11

scy_fjqz:VCL可以不要打包的哦，不知道你为何老要打包 ^_^

 

D

delphisnail

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-26

• #12

delphi自带了telnet空间？
用ics/ indy(winshoes)吧

 

S

scy_fjqz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-26

• #13

这个控件在delphi那里啊，我怎么找不到啊？

 

B

BJ_QQ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-26

• #14

注意运行shellexecute的时候,要加上uses shellapi,呵呵

用shellexecute,

 

S

scy_fjqz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-27

• #15

hWnd := ShellExecute('c:/windows/telnet ...', ...);
hwnd 要定义成什么啊？还有， shellexecute 里面的 ...',... 各代表什么啊？

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-27

• #16

算了，你在帮助里输入 ShellExecute 不就什么都知道啦

 

S

scy_fjqz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-28

• #17

可是我试了好多次，，
假如要直接连接到福大bbs,
我这样写的shellexecute(handle,nil,"c:/windows/telnet bbs.fzu.edu.cn",nil,nil,wm_show)
怎么不行啊，请指教！

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-28

• #18

我分特&^%&^$%&
uses shellapi;
shellexecute(handle,nil,Pchar('telnet:bbs.fzu.edu.cn'),nil,nil,sw_shownormal)

 

S

scy_fjqz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-28

• #19

谢谢；