代码搜索:msgbox

找到约 3,543 项符合「msgbox」的源代码

代码结果 3,543
www.eeworm.com/read/358177/10194995

vbs yx-gettime.vbs

set oEc = Wscript.CreateObject("EasyCics.App") r = oEc.ConnectServer("SUNYX", "TEST", "TEST") if r0 then MsgBox "can't connect" Wscript.Quit r end if oEc.CallProgramAndCommit "GETT
www.eeworm.com/read/358177/10194996

vbs callx_ins_x.vbs

set oEc = Wscript.CreateObject("EasyCics.App") r = oEc.ConnectServer("CICSNT01", "TEST", "TEST") if r0 then MsgBox "can't connect" Wscript.Quit r end if oEc.BeginWrite oEc.SetV
www.eeworm.com/read/358177/10194997

vbs ec04.vbs

set oEc = Wscript.CreateObject("EasyCics.App") r = oEc.ConnectServer("CICSNT01", "TEST", "TEST") if r0 then MsgBox "can't connect" Wscript.Quit r end if 'oEc.SetEciTimeOut 5 oEc.C
www.eeworm.com/read/358177/10194998

vbs yx-g.vbs

set oEc = Wscript.CreateObject("EasyCics.App") r = oEc.ConnectServer("SUNYX", "TEST", "TEST") if r0 then MsgBox "can't connect" Wscript.Quit r end if oEc.CallProgramAndCommit "G"
www.eeworm.com/read/358177/10194999

vbs gettimev5.vbs

set oEc = Wscript.CreateObject("EasyCics.App") r = oEc.ConnectServer("CICSV5", "TEST", "TEST") if r0 then MsgBox "can't connect" Wscript.Quit r end if oEc.CallProgramAndCommit "GET
www.eeworm.com/read/358177/10195001

vbs session.vbs

set oEc = Wscript.CreateObject("EasyCics.App") r = oEc.EpiConnectServer( "CICSNT01" ) if r0 then MsgBox "can't connect" Wscript.Quit r end if oEc.EpiStartTran "SESS" if oEc.GetErr
www.eeworm.com/read/358177/10195002

vbs gettime.vbs

set oEc = Wscript.CreateObject("EasyCics.App") r = oEc.ConnectServer("CICSNT01", "TEST", "TEST") if r0 then MsgBox "can't connect" Wscript.Quit r end if oEc.CallProgramAndCommit "G
www.eeworm.com/read/358177/10195004

vbs getreplywait.vbs

set oEc1 = Wscript.CreateObject("EasyCics.App") set oEc2 = Wscript.CreateObject("EasyCics.App") r = oEc1.ConnectServer("CICSNT01", "TEST", "TEST") if r0 then MsgBox "can't connect" Wsc
www.eeworm.com/read/358177/10195006

vbs yx-ctr.vbs

set oEc = Wscript.CreateObject("EasyCics.App") r = oEc.ConnectServer("SUNYX", "TEST", "TEST") if r0 then MsgBox "can't connect" Wscript.Quit r end if s = InputBox( "请输入查询名称:", "C
www.eeworm.com/read/358177/10195011

vbs getreply.vbs

set oEc1 = Wscript.CreateObject("EasyCics.App") set oEc2 = Wscript.CreateObject("EasyCics.App") r = oEc1.ConnectServer("CICSNT01", "TEST", "TEST") if r0 then MsgBox "can't connect" Wsc