SET SYSMENU OFF
SET EXCLUSIVE OFF
SET TALK OFF
SET CONSOLE OFF
SET DELETED ON
SET EXACT ON
SET CENTURY ON
SET DATE TO ansi
SET SAFETY OFF
_SCREEN.visible = .T.
_SCREEN.caption = "猪猪小庄统计器 V6.8+ 软件设计：猪猪"
SET MESSAGE TO "**统计器,支持共享联网,正在登陆..."
SET MESSAGE OFF
ON ERROR do errormsg with program(),line(),message(),error()
PUBLIC pmaxv, pldt, pduser, pusn, pflmn, pmonx, runok, myplay, smm
smm = "ncksku14782"
myplay = .F.
runok = .F.
pflmn = "Data.ini"
pmaxv = INT(VAL(getiv(PFLMN,"Default","Max","49")))
pmonx = INT(VAL(rsob(getiv(PFLMN,"Default","MMX","CCDEF"))))
pduser = getiv(PFLMN,"Default","使用者","888888")
pusn = getiv(PFLMN,"Default","分隔符","")
pldt = DATE()
gxnn()
lvvs = ALLTRIM(SMM)
lvs = LVVS
tmpa = ALLTRIM(getiv("data.ini","Information","Descrip",""))
tmpb = TMPA
tmpa = ALLTRIM(RSTRG(TMPA))
lvs = ALLTRIM(rstrg(ALLTRIM(LXRS(LVS))))
IF LVS == TMPA
ltsv = TMPB
tmpa = ALLTRIM(getiv("Data.ini","NetConnectInfo","NetSR",""))
lvs = lxrs(RSTVF(LVVS)+RSTVF(LTSV))+rstvf(lxrs(RSTVF(LVVS)+RSTVF(LTSV)))
lvs = ALLTRIM(rstrg(ALLTRIM(LXRS(LVS))))
tmpa = ALLTRIM(RSTRG(TMPA))
IF LVS == TMPA
myplay = .T.
ELSE
myplay = .F.
ENDIF
ELSE
myplay = .F.
ENDIF
ON SHUTDOWN do onshutdown
_SCREEN.picture = getiv("data.ini","分析参数","背景","intwm.bmp")
lcigt = getiv("Data.ini","HELP","FirstUsed","0")
IF LCIGT = "0"
IF getiv("Data.ini","HELP","HTML","0") <> "0"
mie = CREATEOBJECT("internetexplorer.application")
mie.visible = .T.
lmgx = getiv("Data.ini","HELP","HTML","0")
IF NOT (SYS(5)+SYS(2003)) $ LMGX
IF LEFT(LMGX,1) = "\"
lmgx = SYS(5)+SYS(2003)+LMGX
ELSE
lmgx = SYS(5)+SYS(2003)+"\"+LMGX
ENDIF
ENDIF
MIE.NAVIGATE(LMGX)
ENDIF
putiv("Data.ini","HELP","FirstUsed","1")
ENDIF
_SCREEN.windowstate = 2
DO FORM getlogin
IF RUNOK
IF _SCREEN.width <= 800
MESSAGEBOX("分辨率太低",0,"猪猪统计器")
QUIT
ELSE
DO FORM intmainnc
ENDIF
DO SXINM6.MPR
SET MESSAGE TO "**统计器,欢迎使用... "
READ EVENTS
ENDIF
没人帮忙？？
