changeip.sca

用WINSOCK做的数据传送程序,分客户端与服务器端,非常实用,与您共享

SCCTEXT 版本 4.0.0.2
PLATFORM C(8,0),UNIQUEID C(10,0),TIMESTAMP N(10,0),CLASS M(4,0),CLASSLOC M(4,0),BASECLASS M(4,0),OBJNAME M(4,0),PARENT M(4,0),PROPERTIES M(4,0),PROTECTED M(4,0),METHODS M(4,0),OBJCODE M(4,0),OLE M(4,0),OLE2 M(4,0),RESERVED1 M(4,0),RESERVED2 M(4,0),RESERVED3 M(4,0),RESERVED4 M(4,0),RESERVED5 M(4,0),RESERVED6 M(4,0),RESERVED7 M(4,0),RESERVED8 M(4,0),USER M(4,0)
936

[ RECORD]
[PLATFORM] COMMENT 
[UNIQUEID] Screen    
[START RESERVED1]
VERSION =   3.00[END RESERVED1]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _S9N0OD449
[CLASS] dataenvironment
[BASECLASS] dataenvironment
[OBJNAME] Dataenvironment
[START PROPERTIES]
Left = 1
Top = 220
Width = 520
Height = 200
Name = "Dataenvironment"
[END PROPERTIES]
[START RESERVED2]
2[END RESERVED2]
[START RESERVED4]
1[END RESERVED4]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _02Q0ZL7JS
[CLASS] cursor
[BASECLASS] cursor
[OBJNAME] Cursor1
[PARENT] Dataenvironment
[START PROPERTIES]
Left = 10
Top = 20
Width = 100
Height = 90
Alias = "sock"
BufferModeOverride = 5
Database = ..\message_data\gold_message.dbc
CursorSource = "sock"
Name = "Cursor1"
[END PROPERTIES]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _S9N0OD44C
[CLASS] app_form
[CLASSLOC] ..\libs\appuse.vcx
[BASECLASS] form
[OBJNAME] SHEZDYKL
[START PROPERTIES]
Height = 204
Width = 403
DoCreate = .T.
author = 吴兴兴
Name = "SHEZDYKL"
Cmdreturn1.Top = 155
Cmdreturn1.Left = 225
Cmdreturn1.Name = "Cmdreturn1"
Stu_caption1.FontSize = 24
Stu_caption1.Caption = "服务器设置"
Stu_caption1.Left = 31
Stu_caption1.Top = 17
Stu_caption1.Name = "Stu_caption1"
Shape1.Top = 141
Shape1.Left = 24
Shape1.Width = 300
Shape1.Name = "Shape1"
Shape2.Width = 300
Shape2.Name = "Shape2"
[END PROPERTIES]
[START METHODS]
PROCEDURE Cmdreturn1.Click
THISFORM.REFRESH ()
ENDPROC
[END METHODS]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _S9N0OD449
[CLASS] app_edit_esc
[CLASSLOC] ..\libs\appuse.vcx
[BASECLASS] container
[OBJNAME] App_edit_esc1
[PARENT] SHEZDYKL
[START PROPERTIES]
Top = 153
Left = 12
Name = "App_edit_esc1"
Cmdsave1.Name = "Cmdsave1"
Cmdedit1.Name = "Cmdedit1"
Cmdcancle1.Name = "Cmdcancle1"
[END PROPERTIES]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _01X176ODR
[CLASS] bas_textbox
[CLASSLOC] ..\libs\baseclass.vcx
[BASECLASS] textbox
[OBJNAME] txtIp2
[PARENT] SHEZDYKL
[START PROPERTIES]
Comment = ""
ControlSource = "sock.ip"
Height = 21
Left = 144
MaxLength = 15
TabIndex = 11
Top = 82
Width = 113
Name = "txtIp2"
[END PROPERTIES]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _01X176ODS
[CLASS] label
[BASECLASS] label
[OBJNAME] lblIp2
[PARENT] SHEZDYKL
[START PROPERTIES]
AutoSize = .T.
FontSize = 12
WordWrap = .T.
BackStyle = 0
Caption = "服务器地址"
Height = 20
Left = 48
Top = 82
Width = 80
TabIndex = 10
ForeColor = 0,0,0
Name = "lblIp2"
[END PROPERTIES]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _01X176ODT
[CLASS] bas_textbox
[CLASSLOC] ..\libs\baseclass.vcx
[BASECLASS] textbox
[OBJNAME] txtPort2
[PARENT] SHEZDYKL
[START PROPERTIES]
Comment = ""
ControlSource = "sock.port"
Height = 21
Left = 144
MaxLength = 4
TabIndex = 13
Top = 118
Width = 39
Name = "txtPort2"
[END PROPERTIES]

[ RECORD]
[PLATFORM] WINDOWS 
[UNIQUEID] _01X176ODU
[CLASS] label
[BASECLASS] label
[OBJNAME] lblPort2
[PARENT] SHEZDYKL
[START PROPERTIES]
AutoSize = .F.
FontSize = 12
WordWrap = .T.
BackStyle = 0
Caption = "端      口"
Height = 16
Left = 48
Top = 120
Width = 84
TabIndex = 12
ForeColor = 0,0,0
Name = "lblPort2"
[END PROPERTIES]

[ RECORD]
[PLATFORM] COMMENT 
[UNIQUEID] RESERVED  
[START PROPERTIES]
隶书, 16, 12, 8, 18, 14, 16, 2, 2
宋体, 1, 9, 7, 14, 10, 13, 2, 2
宋体, 0, 10, 7, 15, 11, 13, 2, 2
[END PROPERTIES]
[EOF]