麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 學院 > 開發設計 > 正文

解除網蟲心病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

　　DimintLoOperasInteger

　　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

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 国产成人精品无人区一区 | 日韩黄色免费电影 | 毛片免费观看视频 | 毛片视频网站在线观看 | 福利免费在线观看 | 成人在线视频免费观看 | 亚洲一区二区在线视频 | 成人区一区二区 | 色播视频在线播放 | 欧美精品1区 | 一级一级一级一级毛片 | 福利在线免费 | 主播粉嫩国产在线精品 | 亚洲视频观看 | 爱视频福利 | 欧美高清视频一区 | 亚洲午夜视频 | 黄wwww| 九色 在线| 中文字幕精品在线播放 | 久久久无码精品亚洲日韩按摩 | 午夜噜噜噜 | 鲁丝一区二区二区四区 | 国产高清一区 | 成人在线视频免费播放 | 欧美日本免费一区二区三区 | 久久在线免费视频 | 成年免费大片黄在线观看岛国 | 久久人人97超碰国产公开结果 | 免费一级特黄做受大片 | 精品国产亚洲人成在线 | 国产精品一区二区手机在线观看 | 九色 在线 | 亚洲第一视频 | 免费黄色入口 | 久久久久久久久久美女 | 欧美日韩一区,二区,三区,久久精品 | 欧美a∨一区二区三区久久黄 | 日本欧美一区二区三区视频麻豆 | 毛片免费看电影 | 欧美三级欧美成人高清www |