全自动创建网络连接

youxi01

全自动创建网络连接(原理:vbs发送按键)
源代码见6楼

linux1056

谢谢分享，能把原马发送过来吗？

a007147

谢谢分享！！　！！！

keen

如果9、10楼代码一样，请勿重复发帖。
如不一样，请说明不同，和功能。
谢谢！

dahual

感谢大家。
本来是来学习的，看过上面内容之后，很有启发，就写了下面的。。。

Private Sub SleepA()
	WScript.Sleep 100	'根据情况适当修改延迟时间
End Sub
Private Sub ADSL(ISP,UserName,PassWord)
	Dim WshShell
	set WshShell=WScript.CreateObject("WScript.Shell")
	Dim strCommandLine
	strCommandLine="rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,4"
	With WshShell
		.Run strCommandLine
		SleepA
		.AppActivate "Internet 属性"
		.SendKeys "%U"
		SleepA
		.SendKeys "{Enter}"
		SleepA
		.AppActivate "新建连接向导"
		SleepA
		.SendKeys "{Enter}"
		SleepA
		.SendKeys "%C"
		SleepA
		.SendKeys "{Enter}"
		SleepA
		.SendKeys "%M"
		SleepA
		.SendKeys "{Enter}"
		SleepA
		.SendKeys "%U"
		SleepA
		.SendKeys "{Enter}"
		SleepA
		.SendKeys ISP
		SleepA
		.SendKeys "{Enter}"
		SleepA
		.SendKeys UserName
		SleepA
		.SendKeys "{Tab}"
		SleepA
		.SendKeys PassWord
		SleepA
		.SendKeys "{Tab}"
		SleepA
		.SendKeys PassWord
		SleepA
		.SendKeys "{Enter}"
		SleepA
		.SendKeys "%S"
		SleepA
		.SendKeys "{Enter}"
	End With
	Set WshShell=Nothing
End Sub	
Private Sub CreateNetwork()
	Dim ISP,User,Pass
	ISP=InputBox("请输入宽带连接名称(汉字不行哟)：","创建新连接","vbs")
	User=InputBox ("请输入用户名：","创建新连接")
	Pass=InputBox ("请输入密码：","创建新连接")
	Call ADSL(ISP,User,Pass)
End Sub
Call CreateNetwork
复制代码

dahual

很抱歉，重修改下。
因为最近我这里网络质量较差，发贴刷新后我确实只看到有我的一个帖子。延迟了，看来。。。

[ 本帖最后由 dahual 于 2009-6-30 11:24 编辑 ]

jason588

新人报道，学习了 o(∩_∩)o...

tzl1

额~~~

  好东西 就应该拿出来分享分享  谢了

newxso

自动创建宽带连接原代码：

Set WshShell = CreateObject("WScript.Shell")
strCommandLine = "rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,4"
WshShell.Run(strCommandLine)   '启动Internet连接设置窗口
WScript.Sleep 1000   '延时 1 秒，等窗口启动
WshShell.AppActivate "Internet 属性"   '激活指定标题的窗口
WScript.Sleep 100    '延时 100 毫秒
WshShell.SendKeys "U"   '模拟按动“ U ”键
WScript.Sleep 500    '延时 500 毫秒
WshShell.SendKeys "{ENTER}"   '模拟按回车键
WScript.Sleep 100
WshShell.SendKeys "C"   '模拟按动“ C ”键
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "M"
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "U"
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "S"
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
Set  WshShell = Nothing 
复制代码

[ 本帖最后由 newxso 于 2008-9-26 08:57 编辑 ]

SmallK

youxi，有源码不？我很贪婪的！嘿嘿……

wydeai

要是有代码就更好了！！！！谢谢分享

123752619

新人报道，学习了 o(∩_∩)o...

卡鲁

学习 学习 哈 呵呵