Upload_File1_Brief as edittext 402,68, 38, 116, 12
Upload_File2_Name as edittext 403,68,58,116,12
Upload_File2_Brief as edittext 404,68, 73, 116, 12
Upload_File3_Name as edittext 405,68,93,116,12
Upload_File3_Brief as edittext 406,68, 108, 116, 12
Upload_File4_Name as edittext 407,68,128,116,12
Upload_File4_Brief as edittext 408,68, 143, 116, 12
Upload_File5_Name as edittext 409,68,163,116,12
Upload_File5_Brief as edittext 410,68, 178, 116, 12
Upload_File6_Name as edittext 411,68,198,116,12
Upload_File6_Brief as edittext 412,68, 213, 116, 12
defpushbutton "╚╖╢¿", IDOK, 36, 245, 50, 14
pushbutton "╚í╧√", IDCANCEL, 122, 245, 50, 14
end dialog
dialog Downloaddialog 100,25,208,183
caption "╧┬╘╪╚φ╝■╟σ╡Ñ"
FONT 9 , "╦╬╠σ"
groupbox "", 500, 12, 9, 184, 140
ltext "1 ╬─╝■╟°:",-1,24,27,36,8
ltext "╬─╝■├√:",-1,92,27,28,8
ltext "2 ╬─╝■╟°:",-1,24,47,36,8
ltext "╬─╝■├√:",-1,92,47,28,8
ltext "3 ╬─╝■╟°:",-1,24,67,36,8
ltext "╬─╝■├√:",-1,92,67,28,8
ltext "4 ╬─╝■╟°:",-1,24,87,36,8
ltext "╬─╝■├√:",-1,92,87,28,8
ltext "5 ╬─╝■╟°:",-1,24,107,36,8
ltext "╬─╝■├√:",-1,92,107,28,8
ltext "6 ╬─╝■╟°:",-1,24,127,36,8
ltext "╬─╝■├√:",-1,92,127,28,8
Download_File1_Area as edittext 501,64, 25, 12, 12
Download_File1_Name as edittext 502,124,25,56,12
Download_File2_Area as edittext 503,64, 45, 12, 12
Download_File2_Name as edittext 504,124,45,56,12
Download_File3_Area as edittext 505,64, 65, 12, 12
Download_File3_Name as edittext 506,124,65,56,12
Download_File4_Area as edittext 507,64, 85, 12, 12
Download_File4_Name as edittext 508,124,85,56,12
Download_File5_Area as edittext 509,64, 105, 12, 12
Download_File5_Name as edittext 510,124,105,56,12
Download_File6_Area as edittext 511,64, 125, 12, 12
Download_File6_Name as edittext 512,124,125,56,12
defpushbutton "╚╖╢¿", IDOK, 36, 159, 50, 14
pushbutton "╚í╧√", IDCANCEL, 122, 159, 50, 14
end dialog
dim Setup as setupdialog
dim About as aboutdialog
dim Brief as Briefdialog
dim Elses as Elsesdialog
dim Up as Uploaddialog
dim Down as DownLoaddialog
function SetupDialog.id(11) as integer
EnableWindow(GetDlgItem(HWindow, 13), true)
dim i as integer
if League_Member_Dues_AutoPay=1 then
for i=14 to 21
EnableWindow(GetDlgItem(HWindow, i), true)
next i
else
for i=14 to 21
EnableWindow(GetDlgItem(HWindow, i), false)
next i
end if
end function
function SetupDialog.id(13) as integer
dim i as integer
if League_Member_Dues_AutoPay=1 then
for i=14 to 21
EnableWindow(GetDlgItem(HWindow, i), true)
next i
else
for i=14 to 21
EnableWindow(GetDlgItem(HWindow, i), false)
next i
end if
end function
function SetupDialog.id(12) as integer
dim i as integer
for i=13 to 21
EnableWindow(GetDlgItem(HWindow, i), false)
next i
end function
function SetupDialog.id(31) as integer
EnableWindow(GetDlgItem(HWindow, 33), true)
dim i as integer
if Foundation_Wp_AutoSave=1 then
for i=34 to 42
EnableWindow(GetDlgItem(HWindow, i), true)
next i
else
for i=34 to 42
EnableWindow(GetDlgItem(HWindow, i), false)
next i
end if
end function
function SetupDialog.id(32) as integer
dim i as integer
for i=33 to 42
EnableWindow(GetDlgItem(HWindow, i), false)
next i
end function
function SetupDialog.id(33) as integer
dim i as integer
if Foundation_Wp_AutoSave=1 then
for i=34 to 42
EnableWindow(GetDlgItem(HWindow, i), true)
next i
else
for i=34 to 42
EnableWindow(GetDlgItem(HWindow, i), false)
next i
end if
end function
function SetupDialog.id(51) as integer
dim i as integer
if Xin_Liang_AutoSold=1 then
for i=52 to 57
EnableWindow(GetDlgItem(HWindow, i), true)
next i
else
for i=52 to 57
EnableWindow(GetDlgItem(HWindow, i), false)
next i
end if
end function
function SetupDialog.id(61) as integer
if XYD_AutoSold=1 then
EnableWindow(GetDlgItem(HWindow, 63),True)
EnableWindow(GetDlgItem(HWindow, 64),True)
EnableWindow(GetDlgItem(HWindow, 65),False)
EnableWindow(GetDlgItem(HWindow, 66),False)
XYD_AutoBuy=0
else
EnableWindow(GetDlgItem(HWindow, 63),False)
EnableWindow(GetDlgItem(HWindow, 64),False)
end if
end function
function SetupDialog.id(62) as integer
if XYD_AutoBuy=1 then
EnableWindow(GetDlgItem(HWindow, 65),True)
EnableWindow(GetDlgItem(HWindow, 66),True)
EnableWindow(GetDlgItem(HWindow, 63),False)
EnableWindow(GetDlgItem(HWindow, 64),False)
XYD_AutoSold=0
else
EnableWindow(GetDlgItem(HWindow, 65),False)
EnableWindow(GetDlgItem(HWindow, 66),False)
end if
end function
function SetupDialog.id(71) as integer
if Upload_Wanted=1 then
EnableWindow(GetDlgItem(HWindow, 72), true)
else
EnableWindow(GetDlgItem(HWindow, 72), False)
end if
end function
function SetupDialog.id(72) as integer
dim sr as searchrec
dim Count as integer
dim temp11 as string,temp12 as string
dim temp21 as string,temp22 as string
dim temp31 as string,temp32 as string
dim temp41 as string,temp42 as string
dim temp51 as string,temp52 as string
dim temp61 as string,temp62 as string
Temp11=Up.Upload_File1_Name
Temp12=Up.Upload_File1_Brief
Temp21=Up.Upload_File2_Name
Temp22=Up.Upload_File2_Brief
Temp31=Up.Upload_File3_Name
Temp32=Up.Upload_File3_Brief
Temp41=Up.Upload_File4_Name
Temp42=Up.Upload_File4_Brief
Temp51=Up.Upload_File5_Name
Temp52=Up.Upload_File5_Brief
Temp61=Up.Upload_File6_Name
Temp62=Up.Upload_File6_Brief
Again:
Count=0
if dialogbox(Up)= IDOK then
if ltrim(Up.Upload_File1_Name)="" then
Count=Count+1
Up.Upload_File1_Brief=""
else
if findfirst(Up.Upload_File1_Name , sr)<>0 then
msgbox ("╬─╝■1┬╖╛╢┤φ!")
goto again
end if
end if
if ltrim(Up.Upload_File2_Name)="" then
Count=Count+1
Up.Upload_File2_Brief=""
else
if findfirst(Up.Upload_File2_Name , sr)<>0 then
msgbox ("╬─╝■2┬╖╛╢┤φ!")
goto again
end if
end if
if ltrim(Up.Upload_File3_Name)="" then
Count=Count+1
Up.Upload_File3_Brief=""
else
if findfirst(Up.Upload_File3_Name , sr)<>0 then
msgbox ("╬─╝■3┬╖╛╢┤φ!")
goto again
end if
end if
if ltrim(Up.Upload_File4_Name)="" then
Count=Count+1
Up.Upload_File4_Brief=""
else
if findfirst(Up.Upload_File4_Name , sr)<>0 then
msgbox ("╬─╝■4┬╖╛╢┤φ!")
goto again
end if
end if
if ltrim(Up.Upload_File5_Name)="" then
Count=Count+1
Up.Upload_File5_Brief=""
else
if findfirst(Up.Upload_File5_Name , sr)<>0 then
msgbox ("╬─╝■5┬╖╛╢┤φ!")
goto again
end if
end if
if ltrim(Up.Upload_File6_Name)="" then
Count=Count+1
Up.Upload_File6_Brief=""
else
if findfirst(Up.Upload_File6_Name , sr)<>0 then
msgbox ("╬─╝■6┬╖╛╢┤φ!")
goto again
end if
end if
if Count=6 then
Setup.Upload_Wanted=0
EnableWindow(GetDlgItem(HWindow, 72), False)
end if
else
Up.Upload_File1_Name=Temp11
Up.Upload_File1_Brief=Temp12
Up.Upload_File2_Name=Temp21
Up.Upload_File2_Brief=Temp22
Up.Upload_File3_Name=Temp31
Up.Upload_File3_Brief=Temp32
Up.Upload_File4_Name=Temp41
Up.Upload_File4_Brief=Temp42
Up.Upload_File5_Name=Temp51
Up.Upload_File5_Brief=Temp52
Up.Upload_File6_Name=Temp61
Up.Upload_File6_Brief=Temp62
end if
end function
function SetupDialog.id(81) as integer
if DownLoad_Wanted=1 then
EnableWindow(GetDlgItem(HWindow, 82), true)
else
EnableWindow(GetDlgItem(HWindow, 82), False)
end if
end function
function SetupDialog.id(82) as integer
dim Count as integer
dim temp11 as string,temp12 as string
dim temp21 as string,temp22 as string
dim temp31 as string,temp32 as string
dim temp41 as string,temp42 as string
dim temp51 as string,temp52 as string
dim temp61 as string,temp62 as string
Temp11=Down.Download_File1_Area
Temp12=Down.Download_File1_Name
Temp21=Down.Download_File2_Area
Temp22=Down.Download_File2_Name
Temp31=Down.Download_File3_Area
Temp32=Down.Download_File3_Name
Temp41=Down.Download_File4_Area
Temp42=Down.Download_File4_Name
Temp51=Down.Download_File5_Area
Temp52=Down.Download_File5_Name
Temp61=Down.Download_File6_Area
Temp62=Down.Download_File6_Name
again:
Count=0
if dialogbox(down)= IDOK then
if ltrim(Down.Download_File1_Area)="" or ltrim(Down.Download_File1_Name)="" then
Down.Download_File1_Area=""
Down.Download_File1_Name=""
end if
if ltrim(Down.Download_File2_Area)="" or ltrim(Down.Download_File2_Name)="" then
Down.Download_File2_Area=""
Down.Download_File2_Name=""
end if
if ltrim(Down.Download_File3_Area)="" or ltrim(Down.Download_File3_Name)="" then
Down.Download_File3_Area=""
Down.Download_File3_Name=""
end if
if ltrim(Down.Download_File4_Area)="" or ltrim(Down.Download_File4_Name)="" then
Down.Download_File4_Area=""
Down.Download_File4_Name=""
end if
if ltrim(Down.Download_File5_Area)="" or ltrim(Down.Download_File5_Name)="" then
Down.Download_File5_Area=""
Down.Download_File5_Name=""
end if
if ltrim(Down.Download_File6_Area)="" or ltrim(Down.Download_File6_Name)="" then
Down.Download_File6_Area=""
Down.Download_File6_Name=""
end if
if ltrim(Down.Download_File1_Area)<>"" then
if Down.Download_File1_Area<>str(int(val(Down.Download_File1_Area))) then
msgbox ("╬─╝■1╡─╬─╝■╟°╕±╩╜┤φ!")
goto again
end if
else
Count=Count+1
end if
if ltrim(Down.Download_File2_Area)<>"" then
if Down.Download_File2_Area<>str(int(val(Down.Download_File2_Area))) then
msgbox ("╬─╝■2╡─╬─╝■╟°╕±╩╜┤φ!")
goto again
end if
else
Count=Count+1
end if
if ltrim(Down.Download_File3_Area)<>"" then
if Down.Download_File3_Area<>str(int(val(Down.Download_File3_Area))) then
msgbox ("╬─╝■3╡─╬─╝■╟°╕±╩╜┤φ!")
goto again
end if
else
Count=Count+1
end if
if ltrim(Down.Download_File4_Area)<>"" then
if Down.Download_File4_Area<>str(int(val(Down.Download_File4_Area))) then
msgbox ("╬─╝■4╡─╬─╝■╟°╕±╩╜┤φ!")
goto again
end if
else
Count=Count+1
end if
if ltrim(Down.Download_File5_Area)<>"" then
if Down.Download_File5_Area<>str(int(val(Down.Download_File5_Area))) then
msgbox ("╬─╝■5╡─╬─╝■╟°╕±╩╜┤φ!")
goto again
end if
else
Count=Count+1
end if
if ltrim(Down.Download_File6_Area)<>"" then
if Down.Download_File6_Area<>str(int(val(Down.Download_File6_Area))) then
msgbox ("╬─╝■6╡─╬─╝■╟°╕±╩╜┤φ!")
goto again
end if
else
Count=Count+1
end if
if Count=6 then
Setup.Download_Wanted=0
EnableWindow(GetDlgItem(HWindow, 82), False)
end if
else
Down.Download_File1_Area=Temp11
Down.Download_File1_Name=Temp12
Down.Download_File2_Area=Temp21
Down.Download_File2_Name=Temp22
Down.Download_File3_Area=Temp31
Down.Download_File3_Name=Temp32
Down.Download_File4_Area=Temp41
Down.Download_File4_Name=Temp42
Down.Download_File5_Area=Temp51
Down.Download_File5_Name=Temp52
Down.Download_File6_Area=Temp61
Down.Download_File6_Name=Temp62
end if
end function
function SetupDialog.id(90) as integer
dim sr as searchrec
dim temp1 as string,temp2 as string,temp3 as string, temp4 as string
temp1=elses.Pkzip_Dir
temp2=elses.Temp_Dir
temp3=Elses.Msg_Upload_dir
temp4=Elses.Msg_download_dir
Display:
if dialogbox(Elses)=IDOK then
if right(Elses.Pkzip_Dir,1)="\" then Elses.Pkzip_Dir=left(Elses.Pkzip_Dir,Len(Elses.Pkzip_Dir)-1)
if right(Elses.Temp_Dir,1)="\" then Elses.Temp_Dir=left(Elses.Temp_Dir,Len(Elses.Temp_Dir)-1)
if findfirst(elses.Pkzip_Dir+"\pkzip.exe", sr)<>0 then
MsgBox ("PKZIP.EXE┬╖╛╢┤φ╬≤!")
goto display
end if
if findfirst(elses.Temp_Dir, sr)<>0 then
MsgBox ("┴┘╩▒╬─╝■─┐┬╝┤φ╬≤!")
goto display
end if
if findfirst(Elses.Msg_Upload_dir,sr)<>0 then
MsgBox ("╔╧┤½╨┼░ⁿ┬╖╛╢┤φ╬≤!")
goto display
end if
if findfirst(Elses.Msg_download_dir,sr)<>0 then
MsgBox ("╧┬┤½╨┼░ⁿ┬╖╛╢┤φ╬≤!")
goto display
end if
else
elses.Pkzip_Dir=temp1
elses.Temp_Dir=temp2
Elses.Msg_Upload_dir=temp3
Elses.Msg_download_dir=temp4
end if
end function
function SetupDialog.id(91) as integer
if dialogbox(about)=idok then
end if
end function
function SetupDialog.id(92) as integer
if dialogbox(Brief)=idok then
end if
end function
sub SetupDialog.Init
dim i as integer
if setup.League_Member_true=1 then
EnableWindow(GetDlgItem(HWindow, 13), true)
if League_Member_Dues_AutoPay=1 then
for i=14 to 21
EnableWindow(GetDlgItem(HWindow, i), true)
next i
else
for i=14 to 21
EnableWindow(GetDlgItem(HWindow, i), false)
next i
end if
else
for i=13 to 21
EnableWindow(GetDlgItem(HWindow, i), false)
next i
end if
if setup.Foundation_Wp_True=1 then
EnableWindow(GetDlgItem(HWindow, 33), true)
if Foundation_Wp_AutoSave=1 then
for i=34 to 42
EnableWindow(GetDlgItem(HWindow, i), true)
next i
else
for i=34 to 42
EnableWindow(GetDlgItem(HWindow, i), false)
next i
end if
else
for i=33 to 42
EnableWindow(GetDlgItem(HWindow, i), false)
next i
end if
if Xin_Liang_AutoSold=1 then
for i=52 to 57
EnableWindow(GetDlgItem(HWindow, i), true)
next i
else
for i=52 to 57
EnableWindow(GetDlgItem(HWindow, i), false)
next i
end if
if XYD_AutoSold=0 then
for i=63 to 64
EnableWindow(GetDlgItem(HWindow, i), False)
next i
end if
if XYD_AutoBuy=0 then
for i=65 to 66
EnableWindow(GetDlgItem(HWindow, i), false)
next i
end if
if Up.Upload_File1_Name="" and Up.Upload_File2_Name="" and Up.Upload_File3_Name="" and Up.Upload_File4_Name="" and Up.Upload_File5_Name="" and Up.Upload_File6_Name="" then
EnableWindow(GetDlgItem(HWindow, 72), false)
Upload_Wanted=0
else
EnableWindow(GetDlgItem(HWindow, 72), true)
Upload_Wanted=1
end if
if Down.Download_File1_Name="" and Down.Download_File2_Name="" and Down.Download_File3_Name="" and Down.Download_File4_Name="" and Down.Download_File5_Name="" and Down.Download_File6_Name="" then
EnableWindow(GetDlgItem(HWindow, 82), false)
DownLoad_Wanted=0
else
DownLoad_Wanted=1
EnableWindow(GetDlgItem(HWindow, 82), true)
end if
end sub
sub Read_Data
dim Rectemp as string
dim temp as string
dim Item as string
dim value as string
open configscriptpath+"\westpont.ini" for input as #1
read_next:
receive #1,Rectemp
temp=ltrim(rectemp)
if instr(temp,"=")=0 or len(temp)=0 or left(temp,1)=chr(13) or left(temp,1)=";" then goto read_next
if instr(temp,";")<>0 then temp=left(temp,instr(temp,";")-1)
