| 1 |
- Left = 12
Error in line 46: Statement is not in a procedure.
TabIndex = 1
Error in line 47: Statement is not in a procedure.
Top = 336
Error in line 48: Statement is not in a procedure.
Width = 420
Error in line 49: Statement is not in a procedure.
Name = "List1"
Error in line 50: Statement is not in a procedure.
Height = 25
Error in line 52: Statement is not in a procedure.
Left = 12
Error in line 53: Statement is not in a procedure.
Top = 204
Error in line 54: Statement is not in a procedure.
Width = 48
Error in line 55: Statement is not in a procedure.
TabIndex = 2
Error in line 56: Statement is not in a procedure.
Name = "Label1"
Error in line 57: Statement is not in a procedure.
Height = 25
Error in line 59: Statement is not in a procedure.
Left = 216
Error in line 60: Statement is not in a procedure.
Top = 204
Error in line 61: Statement is not in a procedure.
Width = 48
Error in line 62: Statement is not in a procedure.
TabIndex = 3
Error in line 63: Statement is not in a procedure.
Name = "Label2"
Error in line 64: Statement is not in a procedure.
Century = 2
Error in line 66: Statement is not in a procedure.
Alignment = 3
Error in line 67: Statement is not in a procedure.
Value = 139_
Error in line 68: Syntax error.
ControlSource = ""
Error in line 69: Statement is not in a procedure.
Format = ""
Error in line 70: Statement is not in a procedure.
Height = 25
Error in line 71: Statement is not in a procedure.
InputMask = ""
Error in line 72: Statement is not in a procedure.
Left = 72
Error in line 73: Statement is not in a procedure.
Margin = 0
Error in line 74: Statement is not in a procedure.
MaxLength = 11
Error in line 75: Statement is not in a procedure.
SelectOnEntry = .T.
Error in line 76: Statement is not in a procedure.
TabIndex = 4
Error in line 77: Statement is not in a procedure.
Top = 204
Error in line 78: Statement is not in a procedure.
Width = 97
Error in line 79: Statement is not in a procedure.
Name = "Text1"
Error in line 80: Statement is not in a procedure.
Value = aaaa
Error in line 82: Statement is not in a procedure.
Format = ""
Error in line 83: Statement is not in a procedure.
Height = 25
Error in line 84: Statement is not in a procedure.
Left = 264
Error in line 85: Statement is not in a procedure.
Margin = 0
Error in line 86: Statement is not in a procedure.
MaxLength = 6
Error in line 87: Statement is not in a procedure.
TabIndex = 5
Error in line 88: Statement is not in a procedure.
Top = 204
Error in line 89: Statement is not in a procedure.
Width = 97
Error in line 90: Statement is not in a procedure.
PasswordChar = "*"
Error in line 91: Statement is not in a procedure.
Name = "Text2"
Error in line 92: Statement is not in a procedure.
Value = 139_
Error in line 94: Syntax error.
Format = ""
Error in line 95: Statement is not in a procedure.
Height = 25
Error in line 96: Statement is not in a procedure.
Left = 72
Error in line 97: Statement is not in a procedure.
Margin = 0
Error in line 98: Statement is not in a procedure.
TabIndex = 6
Error in line 99: Statement is not in a procedure.
Top = 240
Error in line 100: Statement is not in a procedure.
Width = 97
Error in line 101: Statement is not in a procedure.
Name = "Text3"
Error in line 102: Statement is not in a procedure.
Value = 测试信息
Error in line 104: Statement is not in a procedure.
Format = ""
Error in line 105: Statement is not in a procedure.
Height = 25
Error in line 106: Statement is not in a procedure.
Left = 264
Error in line 107: Statement is not in a procedure.
TabIndex = 7
Error in line 108: Statement is not in a procedure.
Top = 240
Error in line 109: Statement is not in a procedure.
Width = 204
Error in line 110: Statement is not in a procedure.
Name = "Text4"
Error in line 111: Statement is not in a procedure.
Height = 25
Error in line 113: Statement is not in a procedure.
Left = 12
Error in line 114: Statement is not in a procedure.
Top = 240
Error in line 115: Statement is not in a procedure.
Width = 48
Error in line 116: Statement is not in a procedure.
TabIndex = 8
Error in line 117: Statement is not in a procedure.
Name = "Label3"
Error in line 118: Statement is not in a procedure.
Height = 25
Error in line 120: Statement is not in a procedure.
Left = 216
Error in line 121: Statement is not in a procedure.
Top = 240
Error in line 122: Statement is not in a procedure.
Width = 48
Error in line 123: Statement is not in a procedure.
TabIndex = 9
Error in line 124: Statement is not in a procedure.
Name = "Label4"
Error in line 125: Statement is not in a procedure.
commandbutton
Error in line 127: Unrecognized command verb.
commandbutton
Error in line 128: Unrecognized command verb.
Left = 96
Error in line 129: Statement is not in a procedure.
Height = 27
Error in line 130: Statement is not in a procedure.
Width = 73
Error in line 131: Statement is not in a procedure.
Caption = "发送"
Error in line 132: Statement is not in a procedure.
TabIndex = 11
Error in line 133: Statement is not in a procedure.
Name = "Command2"
Error in line 134: Statement is not in a procedure.
if clientsock >0
Error in line 136: Statement is not in a procedure.
retc=space(100)
Error in line 137: Statement is not in a procedure.
retu_state=MongateSendSingleSms(clientsock,thisform.Text3.value,thisform.Text4.value,@retc)
Error in line 138: Statement is not in a procedure.
if(retu_state>0)
Error in line 139: Statement is not in a procedure.
thisform.List1.AddItem ("发送成功，返回编号："+ retc)
Error in line 140: Statement is not in a procedure.
else
Error in line 141: Statement is not in a procedure.
thisform.List1.AddItem ("发送失败，返回错误编号："+retc)
Error in line 142: Statement is not in a procedure.
endif
Error in line 143: Statement is not in a procedure.
endif
Error in line 144: Statement is not in a procedure.
ENDPROC
Error in line 145: Nesting error.
commandbutton
Error in line 150: Unrecognized command verb.
commandbutton
Error in line 151: Unrecognized command verb.
Left = 180
Error in line 152: Statement is not in a procedure.
Height = 27
Error in line 153: Statement is not in a procedure.
Width = 73
Error in line 154: Statement is not in a procedure.
Caption = "接收"
Error in line 155: Statement is not in a procedure.
TabIndex = 12
Error in line 156: Statement is not in a procedure.
Name = "Command3"
Error in line 157: Statement is not in a procedure.
Buf=space(20*255)
Error in line 159: Statement is not in a procedure.
tmpStr=""
Error in line 160: Statement is not in a procedure.
If (clientsock > 0)
Error in line 161: Statement is not in a procedure.
Num=MongateGetSms(clientsock,@Buf)
Error in line 162: Statement is not in a procedure.
If (num > 0)
Error in line 163: Statement is not in a procedure.
For i = 0 To num - 1
Error in line 164: Statement is not in a procedure.
tmpStr=SubStr(Buf,1+i*255,254)
Error in line 165: Statement is not in a procedure.
thisform.List1.AddItem ("接收信息:(" + tmpStr+")")
Error in line 166: Statement is not in a procedure.
ENDFOR
Error in line 167: Statement is not in a procedure.
Else
Error in line 168: Statement is not in a procedure.
thisform.List1.AddItem ("接收无信息")
Error in line 169: Statement is not in a procedure.
EndIf
Error in line 170: Statement is not in a procedure.
EndIf
Error in line 171: Statement is not in a procedure.
ENDPROC
Error in line 173: Nesting error.
commandbutton
Error in line 180: Unrecognized command verb.
commandbutton
Error in line 181: Unrecognized command verb.
Left = 264
Error in line 182: Statement is not in a procedure.
Height = 27
Error in line 183: Statement is not in a procedure.
Width = 73
Error in line 184: Statement is not in a procedure.
Caption = "状态报告"
Error in line 185: Statement is not in a procedure.
TabIndex = 13
Error in line 186: Statement is not in a procedure.
Name = "Command4"
Error in line 187: Statement is not in a procedure.
Buf=space(200*255)
Error in line 189: Statement is not in a procedure.
tmpStr=""
Error in line 190: Statement is not in a procedure.
If (clientsock > 0)
Error in line 191: Statement is not in a procedure.
Num=MongateGetStatus(clientsock,@Buf)
Error in line 192: Statement is not in a procedure.
If (num > 0)
Error in line 193: Statement is not in a procedure.
For i = 0 To num - 1
Error in line 194: Statement is not in a procedure.
tmpStr=SubStr(Buf,1+i*255,254)
Error in line 195: Statement is not in a procedure.
thisform.List1.AddItem ("状态报告:(" + tmpStr+")")
Error in line 196: Statement is not in a procedure.
ENDFOR
Error in line 197: Statement is not in a procedure.
Else
Error in line 198: Statement is not in a procedure.
thisform.List1.AddItem ("无状态报告")
Error in line 199: Statement is not in a procedure.
EndIf
Error in line 200: Statement is not in a procedure.
EndIf
Error in line 201: Statement is not in a procedure.
ENDPROC
Error in line 203: Nesting error.
commandbutton
Error in line 209: Unrecognized command verb.
commandbutton
Error in line 210: Unrecognized command verb.
Left = 372
Error in line 211: Statement is not in a procedure.
Height = 27
Error in line 212: Statement is not in a procedure.
Width = 73
Error in line 213: Statement is not in a procedure.
Caption = "退出"
Error in line 214: Statement is not in a procedure.
TabIndex = 15
Error in line 215: Statement is not in a procedure.
Name = "Command6"
Error in line 216: Statement is not in a procedure.
thisform.release
Error in line 218: Statement is not in a procedure.
ENDPROC
Error in line 219: Nesting error.
Container1
Error in line 223: Unrecognized command verb.
Left = 12
Error in line 224: Statement is not in a procedure.
Width = 436
Error in line 225: Statement is not in a procedure.
Height = 32
Error in line 226: Statement is not in a procedure.
Name = "Container1"
Error in line 227: Statement is not in a procedure.
Left = 22
Error in line 229: Statement is not in a procedure.
Height = 25
Error in line 230: Statement is not in a procedure.
Width = 73
Error in line 231: Statement is not in a procedure.
Caption = "单向帐户"
Error in line 232: Statement is not in a procedure.
Value = 1
Error in line 233: Statement is not in a procedure.
Name = "CkSingle"
Error in line 234: Statement is not in a procedure.
Left = 171
Error in line 236: Statement is not in a procedure.
Height = 25
Error in line 237: Statement is not in a procedure.
Width = 95
Error in line 238: Statement is not in a procedure.
Caption = "增值双向帐户"
Error in line 239: Statement is not in a procedure.
Value = 0
Error in line 240: Statement is not in a procedure.
Name = "CkVas"
Error in line 241: Statement is not in a procedure.
Left = 339
Error in line 243: Statement is not in a procedure.
Height = 25
Error in line 244: Statement is not in a procedure.
Width = 108
Error in line 245: Statement is not in a procedure.
Caption = "客服双向帐户"
Error in line 246: Statement is not in a procedure.
Value = 0
Error in line 247: Statement is not in a procedure.
Name = "CkKf"
Error in line 248: Statement is not in a procedure.
Container2
Error in line 250: Unrecognized command verb.
Left = 12
Error in line 251: Statement is not in a procedure.
Width = 436
Error in line 252: Statement is not in a procedure.
Height = 66
Error in line 253: Statement is not in a procedure.
Name = "Container2"
Error in line 254: Statement is not in a procedure.
Height = 25
Error in line 256: Statement is not in a procedure.
Left = 24
Error in line 257: Statement is not in a procedure.
Top = 50
Error in line 258: Statement is not in a procedure.
Width = 48
Error in line 259: Statement is not in a procedure.
TabIndex = 2
Error in line 260: Statement is not in a procedure.
Name = "Label5"
Error in line 261: Statement is not in a procedure.
Height = 25
Error in line 263: Statement is not in a procedure.
Left = 181
Error in line 264: Statement is not in a procedure.
Top = 50
Error in line 265: Statement is not in a procedure.
Width = 48
Error in line 266: Statement is not in a procedure.
TabIndex = 3
Error in line 267: Statement is not in a procedure.
Name = "Label6"
Error in line 268: Statement is not in a procedure.
Century = 2
Error in line 270: Statement is not in a procedure.
Alignment = 0
Error in line 271: Statement is not in a procedure.
Value = 192.169.1.18
Error in line 272: Syntax error.
ControlSource = ""
Error in line 273: Statement is not in a procedure.
Format = ""
Error in line 274: Statement is not in a procedure.
Height = 25
Error in line 275: Statement is not in a procedure.
InputMask = ""
Error in line 276: Statement is not in a procedure.
Left = 64
Error in line 277: Statement is not in a procedure.
Margin = 0
Error in line 278: Statement is not in a procedure.
MaxLength = 20
Error in line 279: Statement is not in a procedure.
SelectOnEntry = .T.
Error in line 280: Statement is not in a procedure.
TabIndex = 4
Error in line 281: Statement is not in a procedure.
Top = 50
Error in line 282: Statement is not in a procedure.
Width = 106
Error in line 283: Statement is not in a procedure.
Name = "TxServer"
Error in line 284: Statement is not in a procedure.
Value = 8018
Error in line 286: Statement is not in a procedure.
Format = ""
Error in line 287: Statement is not in a procedure.
Height = 25
Error in line 288: Statement is not in a procedure.
Left = 218
Error in line 289: Statement is not in a procedure.
Margin = 0
Error in line 290: Statement is not in a procedure.
MaxLength = 6
Error in line 291: Statement is not in a procedure.
TabIndex = 5
Error in line 292: Statement is not in a procedure.
Top = 50
Error in line 293: Statement is not in a procedure.
Width = 97
Error in line 294: Statement is not in a procedure.
PasswordChar = ""
Error in line 295: Statement is not in a procedure.
Name = "TxPort"
Error in line 296: Statement is not in a procedure.
Height = 25
Error in line 298: Statement is not in a procedure.
Left = 24
Error in line 299: Statement is not in a procedure.
Top = 79
Error in line 300: Statement is not in a procedure.
Width = 48
Error in line 301: Statement is not in a procedure.
TabIndex = 2
Error in line 302: Statement is not in a procedure.
Name = "Label7"
Error in line 303: Statement is not in a procedure.
Height = 25
Error in line 305: Statement is not in a procedure.
Left = 181
Error in line 306: Statement is not in a procedure.
Top = 79
Error in line 307: Statement is not in a procedure.
Width = 48
Error in line 308: Statement is not in a procedure.
TabIndex = 3
Error in line 309: Statement is not in a procedure.
Name = "Label8"
Error in line 310: Statement is not in a procedure.
commandbutton
Error in line 312: Unrecognized command verb.
commandbutton
Error in line 313: Unrecognized command verb.
Left = 324
Error in line 314: Statement is not in a procedure.
Height = 25
Error in line 315: Statement is not in a procedure.
Width = 50
Error in line 316: Statement is not in a procedure.
Caption = "连接"
Error in line 317: Statement is not in a procedure.
TabIndex = 10
Error in line 318: Statement is not in a procedure.
Name = "CmdConn"
Error in line 319: Statement is not in a procedure.
myacc=trim(thisform.TxAcc.Value)
Error in line 321: Statement is not in a procedure.
mypwd=trim(thisform.TxPassword.Value)
Error in line 322: Statement is not in a procedure.
myserver=trim(thisform.TxServer.Value)
Error in line 323: Statement is not in a procedure.
myport=thisform.TxPort.Value
Error in line 324: Statement is not in a procedure.
clientsock = MongateConnect(myserver,myport,myacc,mypwd)
Error in line 325: Statement is not in a procedure.
IF clientsock > 0
Error in line 326: Statement is not in a procedure.
thisform.List1.AddItem ("连接成功" )
Error in line 327: Statement is not in a procedure.
thisform.cmddisconn.enabled=True
Error in line 328: Statement is not in a procedure.
thisform.cmdtest.enabled=True
Error in line 329: Statement is not in a procedure.
ELSE
Error in line 330: Statement is not in a procedure.
thisform.List1.AddItem( "连接失败，请检测帐号和密码是否正确" )
Error in line 331: Statement is not in a procedure.
ENDIF
Error in line 332: Statement is not in a procedure.
ENDPROC
Error in line 334: Nesting error.
commandbutton
Error in line 343: Unrecognized command verb.
commandbutton
Error in line 344: Unrecognized command verb.
CmdDisConn
Error in line 345: Unrecognized command verb.
Left = 379
Error in line 346: Statement is not in a procedure.
Height = 25
Error in line 347: Statement is not in a procedure.
Width = 50
Error in line 348: Statement is not in a procedure.
Caption = "断开"
Error in line 349: Statement is not in a procedure.
Enabled = .F.
Error in line 350: Statement is not in a procedure.
TabIndex = 14
Error in line 351: Statement is not in a procedure.
Name = "CmdDisConn"
Error in line 352: Statement is not in a procedure.
If (clientsock > 0)
Error in line 354: Statement is not in a procedure.
MongateDisConnect (clientsock)
Error in line 355: Statement is not in a procedure.
clientsock=0
Error in line 356: Statement is not in a procedure.
thisform.List1.AddItem ("断开连接")
Error in line 357: Statement is not in a procedure.
EndIf
Error in line 358: Statement is not in a procedure.
ENDPROC
Error in line 360: Nesting error.
commandbutton
Error in line 364: Unrecognized command verb.
commandbutton
Error in line 365: Unrecognized command verb.
Left = 324
Error in line 366: Statement is not in a procedure.
Height = 25
Error in line 367: Statement is not in a procedure.
Width = 105
Error in line 368: Statement is not in a procedure.
Caption = "测试连接"
Error in line 369: Statement is not in a procedure.
Enabled = .F.
Error in line 370: Statement is not in a procedure.
TabIndex = 10
Error in line 371: Statement is not in a procedure.
Name = "CmdTest"
Error in line 372: Statement is not in a procedure.
clientsock = MongateConnect('server1.montnets.com', 8018, thisform.Text1.Value,thisform.Text2.Value)
Error in line 374: Statement is not in a procedure.
IF clientsock > 0
Error in line 375: Statement is not in a procedure.
thisform.List1.AddItem ("连接成功" )
Error in line 376: Statement is not in a procedure.
ELSE
Error in line 377: Statement is not in a procedure.
thisform.List1.AddItem( "连接失败，请检测帐号和密码是否正确" )
Error in line 378: Statement is not in a procedure.
ENDIF
Error in line 379: Statement is not in a procedure.
ENDPROC
Error in line 381: Nesting error.
Century = 2
Error in line 384: Statement is not in a procedure.
Alignment = 0
Error in line 385: Statement is not in a procedure.
Value = 139_
Error in line 386: Syntax error.
ControlSource = ""
Error in line 387: Statement is not in a procedure.
Format = ""
Error in line 388: Statement is not in a procedure.
Height = 25
Error in line 389: Statement is not in a procedure.
InputMask = ""
Error in line 390: Statement is not in a procedure.
Left = 64
Error in line 391: Statement is not in a procedure.
Margin = 0
Error in line 392: Statement is not in a procedure.
MaxLength = 11
Error in line 393: Statement is not in a procedure.
SelectOnEntry = .T.
Error in line 394: Statement is not in a procedure.
TabIndex = 4
Error in line 395: Statement is not in a procedure.
Top = 79
Error in line 396: Statement is not in a procedure.
Width = 105
Error in line 397: Statement is not in a procedure.
Name = "TxAcc"
Error in line 398: Statement is not in a procedure.
TxPassword
Error in line 400: Unrecognized command verb.
Century = 2
Error in line 401: Statement is not in a procedure.
Alignment = 0
Error in line 402: Statement is not in a procedure.
Value = aaaa
Error in line 403: Statement is not in a procedure.
ControlSource = ""
Error in line 404: Statement is not in a procedure.
Format = ""
Error in line 405: Statement is not in a procedure.
Height = 25
Error in line 406: Statement is not in a procedure.
InputMask = ""
Error in line 407: Statement is not in a procedure.
Left = 218
Error in line 408: Statement is not in a procedure.
Margin = 0
Error in line 409: Statement is not in a procedure.
MaxLength = 6
Error in line 410: Statement is not in a procedure.
SelectOnEntry = .T.
Error in line 411: Statement is not in a procedure.
TabIndex = 4
Error in line 412: Statement is not in a procedure.
Top = 78
Error in line 413: Statement is not in a procedure.
Width = 97
Error in line 414: Statement is not in a procedure.
PasswordChar = "*"
Error in line 415: Statement is not in a procedure.
Name = "TxPassword"
Error in line 416: Statement is not in a procedure.
|
