代码搜索: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