软件下载 | 资讯教程 | 最近更新 | 下载排行 | 一键转帖 | 发布投稿
您的位置:最火下载站 > 电脑教程 > 编程开发 > vb开发 > VB实现adsl宽带自动换IP的代码

VB实现adsl宽带自动换IP的代码

VB实现adsl宽带自动换IP的代码,有需要的拿去吧,小编在某大牛的博客看到的,貌似没有实现暂停功能。

Private Sub Command1_Click()

Shell "rasdial /DISCONNECT"

Command2.Value = True

End Sub

Private Sub Command2_Click()

Show

DoEvents

Shell "rasdial ""宽带连接"" " & Text1.Text & " " & Text2.Text

End Sub

Private Sub Command3_Click()

MsgBox "宽带名称一般是宽带连接,如果您不是adsl 用户,那么本程序对您没有作用!"

Shell "EXPLORER.EXE ::{7007ACC7-3202-11D1-AAD2-00805FC1270E}", vbNormalFocus

End Sub

Private Sub Command4_Click()

Timer1.Interval = Text4 * 1000

Timer1.Enabled = True

End Sub

Private Sub Command6_Click()

MsgBox "感谢您对最火软件站的支持,您目前使用的是免费版,没有任何功能限制,只是需要设置账号。商业版具有定制账号和暂停功能!同时具有手动执行功能!"

End Sub

Private Sub Form_Load()

Timer1.Enabled = False

Command2.Visible = False

MsgBox "请先设置您的上网账号和密码,以及宽带名称!"

End Sub

Private Sub Timer1_Timer()

Command1.Value = True

End Sub

*************注意~**************

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '此句写入模块

上一篇:VB定时5分钟复制文件并实现开机自启动
下一篇:没有了
    相关阅读
    网友评论