下面我們來對Unix telnet的命令設(shè)置的一些內(nèi)容進(jìn)行一下講解。當(dāng)中的一些命令和代碼，我們已經(jīng)為大家進(jìn)行了分析。那么這段代碼做了一個監(jiān)控程序,觸發(fā)事件后實現(xiàn)telnet到Sco unix執(zhí)行命令并取得命令結(jié)果,想了幾天終于完成,特和大家分享:

Unix telnet VFP代碼部分:

LOCAL telnet1  
telnet1=CREATEOBJECT("Dart.Telnet.1")  
Telnet1.Timeout = 100 
Telnet1.TermType = "vt100" 
False=.t.  
True=.t.  
vbCrLf=CHR(13)+CHR(10)  
** logfile = "Host" + HostIP + ".log"  
** Telnet1.Trace(logfile, False, True, vbCrLf + "---> ", vbCrLf + "<--- ")  
thisform.AddLog(Tsys_kind,"正在連接主機(jī) " + HostIP + " ..." + vbCrLf)  
ok = Telnet1.Connect(HostIP, 23)  
IF ok="" 
thisform.AddLog(Tsys_kind,"銀聯(lián)前置["+HostIP+"]連接失敗!同銀聯(lián)中心鏈路無法檢查.")  
thisform.showinfo("99","錯誤:銀聯(lián)前置連接失敗!")  
thisform.warn  
thisform.command4.Picture="deng3.gif" 
thisform.command4.refresh  
telnet1.close  
RETURN  
ELSE  
telnet1.close  
Telnet1.Timeout = 10000 
Telnet1.Connect(HostIP, 23)  
ENDIF  
thisform.AddLog(Tsys_kind,"已連接" + vbCrLf)  
Data = "" 
Telnet1.Search (@Data, "login:")  
* thisform.AddLog( Tsys_kind,Data)  
Telnet1.Send(User_name + vbCrLf)  
Data = "" 
Telnet1.Search(@Data, "Password:")  
*  thisform.AddLog(Tsys_kind,Data)  
Telnet1.Send (User_pwd + vbCrLf)  
Data = "" 
Telnet1.Search(@Data, ">")  
*thisform.AddLog(Tsys_kind,Data)  
Telnet1.Send ("su" + vbCrLf)  
Telnet1.Search (@Data, "Password:")  
*  thisform.AddLog(Tsys_kind,data)  
Telnet1.Send(root_pwd + vbCrLf)  
Telnet1.Search(@Data, "#")  
* thisform.AddLog(Tsys_kind,Data)  
Telnet1.Send(shell_cmd + vbCrLf)  
Telnet1.Search(@Data, "#")  
* thisform.AddLog(Tsys_kind,data)  
***************取出的數(shù)據(jù)  
ok = VAL(STREXTRACT(data,"/","/",3))  
IF ok>WP04 && Warn Point  
thisform.showinfo("01","★警告:銀聯(lián)中心網(wǎng)絡(luò)延時[9.234.12.21]!當(dāng)前值:"+ALLTRIM(STR(ok,10,2))+"設(shè)定值:"+ALLTRIM(STR(WP04,10,2)))  
thisform.addlog(Tsys_kind,"★警告:銀聯(lián)中心網(wǎng)絡(luò)延時[9.234.12.21]!當(dāng)前值:"+ALLTRIM(STR(ok,10,2))+"設(shè)定值:"+ALLTRIM(STR(WP04,10,2)))  
......&&觸發(fā)事件  
ENDIF 

以上Unix telnet的設(shè)置內(nèi)容就完成了。