代码搜索:MsgBox
找到约 3,543 项符合「MsgBox」的源代码
代码结果 3,543
www.eeworm.com/read/358177/10195012
vbs gettime0x2.vbs
set oEc = Wscript.CreateObject("EasyCics.App")
r = oEc.ConnectServer0("CICSNT01", "TEST", "TEST")
if r0 then
MsgBox "can't connect"
Wscript.Quit r
end if
oEc.CallProgramAndCommit "
www.eeworm.com/read/358177/10195013
vbs test1- gettime.vbs
set oEc = Wscript.CreateObject("EasyCics.App")
r = oEc.ConnectServer("CICSTEST", "TEST", "TEST")
if r0 then
MsgBox "can't connect"
Wscript.Quit r
end if
oEc.CallProgramAndCommit "G
www.eeworm.com/read/358177/10195016
vbs ec26.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.
www.eeworm.com/read/358177/10195018
vbs yx-gettimex.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/10195020
vbs wtdq2.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 "W
www.eeworm.com/read/358177/10195023
vbs getspecreplywait.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/10195026
vbs getspecreply.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/10195027
vbs test2- gettime.vbs
set oEc = Wscript.CreateObject("EasyCics.App")
r = oEc.ConnectServer("CICSTEST", "CICSUSER", "")
if r0 then
MsgBox "can't connect"
Wscript.Quit r
end if
oEc.CallProgramAndCommit "G
www.eeworm.com/read/358177/10195029
vbs test.vbs
set oEc = Wscript.CreateObject("EasyCics.App")
r = oEc.ConnectServer("CICS851", "TEST", "TEST")
if r0 then
MsgBox "can't connect"
Wscript.Quit r
end if
oEc.CallProgramAndCommit "TE
www.eeworm.com/read/358177/10195030
vbs rtdq.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 "R