解除網蟲心病VB做定時斷線程序

2019-11-18 17:28:56

字體：大中小

來源：轉載

供稿：網友

運行VB6，向窗體添加7個Label控件、1個Timer控件、3個Text文本輸入框以及4個Command按鈕。

　　原理簡介：用Timer控件的True或者False值，控制倒計時的開始，當到達設定時間的時候，彈出對話框提示斷開連接。

　　OptionExplicit

　　DimHoursAsInteger

　　DimMinutesAsInteger

　　DimSecondsAsInteger

　　DimtimeAsDate

　　
　　DimlngRetCodeAsLong

　　DimlpcbAsLong

　　DimlpcConnectionsAsLong

　　DimintArraySizeAsInteger

　　DimintLo OperasInteger

　　ReDimlprasconn95(intArraySize)AsRASCONN95

　　lprasconn95(0).dwSize=412

　　lpcb=256*lprasconn95(0).dwSize

　　lngRetCode=RasEnumConnections(lprasconn95(0),lpcb,lpcConnections)

　　IflngRetCode=0Then

　　IflpcConnections〉0Then

　　ForintLooper=0TolpcConnections-1

　　RasHangUplprasconn95(intLooper).hRasConn

　　NextintLooper

　　UnloadMe

　　Else

　　MsgBox"時間到了，沒有撥號網絡連接"

　　UnloadMe

　　EndIf

　　EndIf

　　EndIf

　　EndSub

　　其實，這個程序還可以進一步的完善，比如添加暫停功能、或者經過改造，適用于寬帶的，等等。這不，笨笨拿著電話單正偷著樂呢！笨笨已經利用這個小程序省下了不少網費，你呢？->

上一篇：無框窗體移動最簡法（程序）

下一篇：用VisualBasic自編小游戲