private declare function inte.nethangup lib "win.net.dll" _
(byval dwconnection as long, _
byval dwreserved as long) as long
private declare function inte.netautodial lib "win.net.dll" _
(byval dwflags as long, byval dwreserved as long) as long
private declare function inte.netautodialhangup lib "win.net.dll" _
(byval dwreserved as long) as long private sub check1_click()
判断用户的选择
if check1.value = 0 then
text2.enabled = false
check2.value = 0
else
text2.enabled = true
end if
end sub private sub check2_click()
判断用户的选择
if check2.value = 0 then
text3.enabled = false
else
text3.enabled = true
end if
end sub private sub command1_click()
使设置生效并显示设置信息
dim alert1, alert2
if check1.value = 1 and check2.value = 1 then
if not isdate(text2.text) or not isdate(text3.text) then
msgbox ("你输入的不是时间格式,请重试!")
else
alert1 = text2.text
alert2 = text3.text
label2.caption = "注意：计算机将在" + text2.text + "登陆网络"
label3.caption = "注意：计算机将在" + text3.text + "断开网络"
timer1.enabled = true
end if
else
if check1.value = 1 then
if not isdate(text2.text) then
msgbox ("你输入的不是时间格式,请重试!")
else
alert1 = text2.text
label2.caption = "注意：计算机将在" + text2.text + "登陆网络"
timer1.enabled = true
end if
end if
end if
end sub private sub command2_click()
取消设置并显示取消信息
if check1.value = 1 and check2.value = 1 then
text2.text = "00:00:00"
text3.text = "00:00:00"
timer1.enabled = false
label2.caption = "注意：你已取消了定时登陆网络"
label3.caption = "注意：你已取消了定时断开网络"
else
if check1.value = 1 then
text2.text = "00:00:00"
timer1.enabled = false
label2.caption = "注意：你已取消了定时登陆网络"
end if
end if
end sub private sub command3_click()
这里默认以163拨号方式实现登陆，其它拨号方式只需修改一下参数就可以了。
inte.netdial me.hwnd, "163", inte.net_autodial_force_unattended, ihandle, 0
end sub private sub form_load()
初始化上网和下网的时间格式
text2.text = "00:00:00"
text3.text = "00:00:00"
end sub private sub timer1_timer()
根据用户的选择来判断实现定时上下网
dim a
if check1.value = 1 and check2.value = 1 then
text1.text = time
a = timevalue(text1.text)
if text2.text = a then
inte.netdial me.hwnd, "163", inte.net_autodial_force_unattended, ihandle, 0
else
if text3.text = a then
if ihandle <> 0 then
inte.nethangup ihandle, 0
ihandle = 0
end if
end if
end if
else
if check1.value = 1 then
text1.text = time
a = timevalue(text1.text)
if text2.text = a then
inte.netdial me.hwnd, "163", inte.net_autodial_force_unattended, ihandle, 0
end if
end if
end if
end sub private sub timer2_timer()
显示当前时间
text1.text = time
end sub | 
