sLong,phkResultAsLong)AsLong
PrivateDeclareFunctionRegQueryValueExLib"advapi32"Alias"RegQueryValueExA"(ByValhKeyAsLong,ByVallpValueNameAsString,ByVallpReservedAsLong,ByReflpTypeAsLong,ByValszDataAsString,ByReflpcbDataAsLong)AsLong
PrivateDeclareFunctionRegCloseKeyLib"advapi32"(ByValhKeyAsLong)AsLong
'常数
ConstHKEY_CURRENT_USER=&H80000001
ConstERROR_SUCCESS=0&
DimnetAsString
DimsumAsLong
Dimtime1AsLong
Dimtime2AsLong,time3AsLong
Dimday,hh,mm,ss,list
Dimtime4AsLong,time5AsLong
DimconnAsNewADODB.Connection
DimmrsAsNewADODB.Recordset
PrivateSubForm_Load()
Label8.Caption="OFFLAN"
Label8.ForeColor=&HFF&
StatusBar1.Panels(1).Text=StatusBar1.Panels(1).Text&LoginName
StatusBar1.Panels(2).Text=StatusBar1.Panels(2).Text&Date
Label3.Caption="已用时间:"
Timer1.Enabled=False
Text1.Text=ddd(subtime)
Label9.Caption=ddd(subtime)
Label12.Caption=money&"¥"
Setconn=NewADODB.Connection
conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\data\data.mdb;PersistSecurityInfo=False"
time4=0
Picture1.Width=2200
Picture1.Height=2000
Left=Screen.Width\2-2000
Top=(Screen.Height-Height)\2
EndSub
PrivateSuba1_Click(IndexAsInteger)
Callonline'调用网络联接程序
EndSub
PrivateSubA2_Click(IndexAsInteger)
Calloffline'调用断开网络程序
EndSub
PrivateSuba3_Click(IndexAsInteger)'恢复计时初始状态,重新计时
subtime=0
sum=sumtime*3600
Timer1.Enabled=False
Text1.Text=ddd(sum)
Option1.Value=True
EndSub
PrivateSuba4_Click(IndexAsInteger)
setnet.Show1'调用网络设置窗口
EndSub
PrivateSubb1_Click(IndexAsInteger)
lannote.Show1'调用上网络记录窗口
EndSub
PrivateSubb3_Click(IndexAsInteger)
setnet2.Show1'调用网页收藏窗口
EndSub
PrivateSubc1_Click(IndexAsInteger)
Form1.Show1'调用个人通讯录窗口
EndSub
PrivateSubc3_Click(IndexAsInteger)
txcx.Show1'调用通讯录查询窗口
EndSub
PrivateSube1_Click(IndexAsInteger)
setnet2.Show1'调用用户密码修改窗口
EndSub
PrivateSube2_Click(IndexAsInteger)
Login.Show1'调用登录窗口
EndSub
PrivateSubE3_Click(IndexAsInteger)
End'退出系统
EndSub
PrivateSubf1_Click(IndexAsInteger)
Form2.Show1'调用系统版本信息窗口
EndSub
PrivateSubOption1_Click()
Label3.Caption="已用时间:"
Text1.Text=ddd(subtime)
EndSub
PrivateSubOption2_Click()
Label3.Caption="剩余时间:"
Text1.Text=ddd(sumtime*3600-subtime)
EndSub
PrivateSubTimer1_Timer()
IfOption1.ValueThen
Label3.Caption="已用时间:"
Text1.Text=ddd(subtime)
ElseIfOption2.ValueThen
Label3.Caption="剩余时间:"
Text1.Text=ddd(sumtime*3600-subtime)
EndIf
Label9.Caption=ddd(subtime)
Label10.Caption=ddd(time4)
Label11.Caption=ddd(time5)
time4=time4+1
time5=time5+1
Iftime5=booktime*60Then'上网时间提示
MsgBox"已上网"&booktime&"分钟!",vbOKOnly+vbExclamation,"提示"
EndIf
subtime=subtime+1
EndSub
PrivateFunctionddd(sum1AsLong)AsString
hh=sum1\3600
mm=(sum1Mod3600)\60
ss=(sum1Mod3600)Mod60
ddd=hh&":"&mm&":"&ss
EndFunction
PrivateSubTimer2_Timer()'时钟计时器
StatusBar1.Panels(3).Text=time
ConstHourHand=0
ConstMinuteHand=13
ConstSecondHand=14
DimAngle
Angle=-0.5236*(15-(Hour(Now)+Minute(Now)/60))
linClock(HourHand).X1=0
linClock(HourHand).Y1=0
linClock(HourHand).X2=0.4*Cos(Angle)
linClock(HourHand).Y2=0.4*Sin(Angle)
Angle=-0.1047*(75-(Minute(Now)+Second(Now)/60))
linClock(MinuteHand).X1=0
linClock(MinuteHand).Y1=0
linClock(MinuteHand).X2=0.6*Cos(Angle)
linClock(MinuteHand).Y2=0.6*Sin(Angle)
Angle=-0.1047*(75-Second(Now))
linClock(SecondHand).X1=0
linClock(SecondHand).Y1=0
linClock(SecondHand).X2=0.8*Cos(Angle)
linClock(SecondHand).Y2=0.8*Sin(Angle)
EndSub
PrivateSubToolbar1_Butt(ByValButtonAsMSComctlLib.Button)
SelectCaseButton.Index
Case1
Callonline
Case2
Calloffline
Case3
setnet.Show1
Case4
EXIT1.Show1
Case5
Form1.Show1
Case6
Setnet3.Show1
Case7
setnet2.Show1
Case8
Form2.Show1
Case9
End
EndSelect
EndSub
PrivateSubPicture1_Resize()
Dimi,Angle
StaticFlagAsBoolean
IfFlag=FalseThen
Flag=True
Fori=0To14
Ifi>0ThenLoadlinClock(i)
linClock(i).Visible=True
linClock(i).BorderWidth=4
linClock(i).BorderColor=RGB(0,64,250)
Nexti
EndIf
Picture1.Scale(-1,-1)-(1,1)
Fori=0To14
Angle=i*2*Atn(1)/3
linClock(i).X1=0.9*Cos(Angle)
linClock(i).Y1=0.9*Sin(Angle)
linClock(i).X2=Cos(Angle)
linClock(i).Y2=Sin(Angle)
Nexti
EndSub
PublicSubonline()'上网连接程序
Shell"rundll32.exernaui.dll,RnaDial"+net,vbNormalFocus
SendKeys"{enter}",True
Label8.Caption="ONLAN"
Label8.ForeColor=&HFF00&
Timer1.Enabled=True
begintime=time
time1=subtime
time5=0
Label10.Caption=ddd(time4)
Label11.Caption=ddd(time5)
Label13.Caption=Winsock1.LocalIP'获取IP地址
EndSub
PublicSuboffline()'断开网络程序
Shell"rundll32.exernaui.dll,RnaDial"+net,vbNormalFocus
DoEvents
SendKeys"{tab}",True
DoEvents
SendKeys"{enter}",True
DoEvents
Label8.Caption="OFFLAN"
Label8.ForeColor=&HFF&
Timer1.Enabled=False
endtime=time
DimSqlAsString
time2=subtime
time3=time2-time1
txtSQL="insertintoadsl(登录日期,开始时间,结束时间,用户名称,连接时长,IP地址)values('"&Date&"','"&begintime&"','"&endtime&"','"&LoginName&"','"&time3&"','"&Label13.Caption&"')"
Setmrc=conn.Execute(txtSQL)
txtSQL="updateuserlistset上网用时='"&subtime&"'where"&"用户名称='"&LoginName&"'"
Setmrc=conn.Execute(txtSQL)
EndSub
PublicFunctionGetConnect()AsString
DimhKeyAsLong
DimSubKeyAsString
hKey=HKEY_CURRENT_USER'主键
SubKey="RemoteAccess"'子键
GetConnect=GetRegValue(hKey,SubKey,"Default")'取得默认连接名
EndFunction
PublicFunctionGetRegValue(hKeyAsLong,lpszSubKeyAsString,szKeyAsString)AsVariant
GoToErrorRoutineErr:
DimphkResultAsLong
DimlResultAsLong
DimszBufferAsString
DimlBuffSizeAsLong
szBuffer=Space(255)'创建缓冲区
lBuffSize=Len(szBuffer)
RegOpenKeyExhKey,lpszSubKey,0,1,phkResult'打开注册键
lResult=RegQueryValueEx(phkResult,szKey,0,0,szBuffer,lBuffSize)'查询结果
RegCloseKeyphkResult'关闭注册键
IflResult=ERROR_SUCCESSThen'返回结果
GetRegValue=Left(szBuffer,lBuffSize-1)
E
上一篇:
VB网吧计费系统AC(论文和程序)
下一篇:
关于企业电子商务网站的平安控制