VB建立宽带连接
vb建无线wifi热点(附图)

vb建无线wifi热点(附图)本程序是利用vb读写文件来实现的,再通过调用计算机中的explorer运行新建的文件,程序思想是通过dos命令建立虚拟无线热点,因此你的计算机必须要求带无线网卡,如果你的计算机有无线网卡但不能运行,请尝试升级网卡驱动。
由于运行当中会调用explorer程序,和某些计算机病毒的投放方法有所相同,所以程序在运行时会引起一些安全软件的误判。
程序运行时会在C:\Users\Administrator\Documents目录下生成文件。
原程序已上传到我的百度网盘上/netdisk/singlepublic?fid=52019_1022037011还有许多不足,希望大家指出改进!程序源码如下:Public a As Integer, e As Integer, f As Integer, b As String, c As String, d As StringPrivate Sub Command2_Click()b = Text1.Textc = Text2.Textd = "netsh wlan set hostednetwork mode=allow"If b = "" Or c = "" ThenMsgBox "请填写新建无线网络名称或密码!", 48, "错误!"ElseIf Len(c) = 8 ThenOpen "C:\Users\Administrator\Documents\wifibuild.bat" For Output As #1Print #1, "netsh wlan set hostednetwork mode=allow", "ssid="; b, "key="; cPrint #1, "netsh wlan start hostednetwork"Close #1Shell "explorer.exe " & "C:\Users\Administrator\Documents\wifibuild.bat", 1Label5.Caption = "已连接"Timer1.Enabled = TrueElseMsgBox "密码长度应为8位!", 48, "错误!"End IfEnd IfEnd SubPrivate Sub Command3_Click()If Dir("C:\Users\Administrator\Documents\wifibuild.bat") <> "" ThenOpen "C:\Users\Administrator\Documents\wifiend.bat" For Output As #1Print #1, "netsh wlan set hostednetwork mode=disallow"Shell "explorer.exe " & "C:\Users\Administrator\Documents\wifiend.bat", 1Close #1Timer1.Enabled = FalseElseMsgBox "您还没有创建wifi热点!", 48, "错误!"End IfEnd SubPrivate Sub Form_Load()a = 0e = 0f = 0End SubPrivate Sub Form_Unload(Cancel As Integer)If Dir("C:\Users\Administrator\Documents\wifibuild.bat") <> "" Then Kill "C:\Users\Administrator\Documents\wifibuild.bat"End IfIf Dir("C:\Users\Administrator\Documents\wifiend.bat") <> "" Then Kill "C:\Users\Administrator\Documents\wifiend.bat"End IfEnd SubPrivate Sub Option1_Click()Text2.PasswordChar = ""End SubPrivate Sub Option2_Click()Text2.PasswordChar = "*"End SubPrivate Sub Timer1_Timer()r: a = a + 1If a = 60 Thene = e + 1a = -1GoTo rEnd IfIf e = 60 Thenf = f + 1e = 0End IfLabel6.Caption = f & "小时" & e & "分钟" & a & "秒"End Sub附图:1.未连接2.已连接3.4.打开网络和共享中心——》更改适配器设置,会发现多了个无线网络连接25.设置宽带共享之后你就可以用你的手机连接你的电脑共享网络上网,再也不怕月末流量报警了有木有!注意:程序运行点击创建wifi时会出现如下情况点允许执行就行了,我试过用cmd.exe直接打开新建的文件,好像不行,所以只能用explorer 了。
vb mswinsock注册方法

vb mswinsock注册方法Mswinsock控件是VB语言中的一个重要组件,它提供了与网络通信相关的功能。
通过使用Mswinsock控件,我们可以实现与其他计算机的网络通信,例如发送和接收数据等。
要使用Mswinsock控件进行注册,首先需要在VB项目中添加Mswinsock控件。
在VB的工具箱中,可以找到Mswinsock控件,并将其拖放到窗体上。
接下来,需要对Mswinsock控件进行一些设置。
在控件的属性窗口中,可以设置Mswinsock控件的一些属性,例如协议类型、监听端口、远程主机IP地址等。
根据实际需求,可以根据需要进行设置。
需要注意的是,IP地址必须是有效的IP地址。
注册的第一步是创建一个Socket对象,用于与远程主机进行通信。
可以使用以下代码创建一个Socket对象:Dim WithEvents Socket1 As MSWinsockLib.Winsock接下来,可以使用以下代码进行Socket对象的初始化:Set Socket1 = New MSWinsockLib.Winsock在Socket对象初始化完成后,可以通过设置Socket对象的属性来进行注册。
例如,可以使用以下代码设置Socket对象的协议类型为TCP:Socket1.Protocol = MSWinsockLib.ProtocolConstants.sckTCPProtocol然后,可以使用以下代码设置Socket对象的监听端口:Socket1.LocalPort = 8888接下来,可以使用以下代码设置Socket对象的远程主机IP地址:Socket1.RemoteHost = "192.168.0.1"在完成以上设置后,可以使用以下代码启动Socket对象的监听:Socket1.Listen通过以上步骤,就可以成功注册Mswinsock控件,并开始进行网络通信。
在实际使用中,可能还需要编写相应的事件处理程序,以处理接收到的数据或其他操作。
用VBWinsock控件创建TCPIP客户机服务器程序

用VBWinsock控件创建TCPIP客户机/服务器程序摘要本文介绍了如何使用VBWinsock控件来创建基于TCP/IP协议的客户机/服务器程序。
通过VBWinsock控件,我们可以通过互联网或局域网上的计算机之间进行通信。
本文将分为以下几个部分来说明如何创建并使用VBWinsock控件来实现客户机/服务器应用程序。
1.VBWinsock控件是Visual Basic的一个强大的网络编程控件,用于与其他计算机进行网络通信。
它通过提供一系列的事件和方法,使得我们可以轻松地创建客户机/服务器应用程序。
2. 创建服务器端程序要创建一个服务器端程序,我们需要首先添加VBWinsock控件到我们的项目中。
进入Visual Basic的设计界面,单击“工具箱”窗口上的“组件”选项卡,然后选择VBWinsock控件,拖放到我们的窗体或模块中。
现在我们可以开始编写服务器端程序的代码。
以下是一个简单的VBWinsock服务器端程序的示例:Private Sub Form_Load()Winsock1.LocalPort = 5000 ' 设置服务器监听的端口号Winsock1.Listen ' 启动服务器监听End SubPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long) If Winsock1.State <> sckClosed ThenWinsock1.Close ' 如果当前有连接,则关闭它End IfWinsock1.Accept requestID ' 接受客户端的连接请求End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim receivedData As StringWinsock1.GetData receivedData ' 接收数据' 处理接收到的数据End Sub在上述代码中,我们首先在Form_Load()事件中设置了服务器监听的端口号。
vb联网操作技巧

Shell “rundll rnaui.dll,RnaDial 163”,vbNormalFocus
上面假定了连接名称,但在实际编程中我们是不知道连接名称的。在窗体上放置一个命令按钮(cmdCallConnect),在其单击事件中进行连接处理。下面的代码介绍如何取得默认的连接名称并启动它:
End If
Exit Function
/*意外处理*/
ErrorRoutineErr:
GetRegvalue =“”
End Function
SubKey = “RemoteAccess”
/*取得默认连接名*/
GetConnect=GetRegvalue(hKey,SubKey, “Default”)
End Function
/*取得注册的函数(GetRegvalue)*/
Public Function GetRegvalue(hKey As Long,lpszSubKey As String,szKey As String) As Variant
On Error GoTo ErrorRoutineErr:
Dim phkResult As Long
Dim lResult As Long
Dim szBuffer As String
Dim lBuffSize As Long
/*创建缓冲区*/
szBuffer = Space(255)
Option Explicit
/*有关的API声明*/
Private Declare Function RegOpenKeyEx Lib “advapi32” Alias “RegOpenKeyExA” (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
用VB制网址链接器

用VB制网址链接器
周鹏达
【期刊名称】《黑龙江科技信息》
【年(卷),期】2004(000)001
【摘要】用过《东方网神》的朋友们都知道,《东方网神》内设有一个网址资源,分类存放了很多网址,你只要用鼠标单击要去的网址,就可把你带到该网站。
其实我们也可以自己设计一个网址链接器实现此功能。
下面就用 VB6.0编写一个简单的网址链接器,步骤如下:1.启动 VB6.0,新建一个标准 EXE 工程,系统自动创建一个窗体forml,设置其caption 属性为'创新搜索引擎'。
2.我们需要引用一个 API 函数ShellExecute。
【总页数】1页(P117)
【作者】周鹏达
【作者单位】哈尔滨理工大学2000级计算机系
【正文语种】中文
【中图分类】TP393.09
【相关文献】
1.用VB制作网址链接器 [J], 刘静春
2.用VB制作网址链接器 [J], 刘静春
3.用VB制作网址链接器 [J], 王霞;杨晓雯
4.用VB制作网址链接器 [J], 林梅
5.用VB
6.0生成网址链接器 [J], 黄磊
因版权原因,仅展示原文概要,查看原文内容请购买。
创建一个新的宽带连接

创建一个新的宽带连接1、打开“开始”“网络连接”
或者在运行里键入,点“确定”,即可以打开“网络连接”
2、点击“创建一个新的连接”,点下一步
3、选择连接到 Internet(C) ,点下一步
4、选择手动设置我的连接(M),点下一步
5、选择用要求用户名和密码的宽带连接来连接(U),点下一步
6、,可以输入 ISP名称,也可以为空,点下一步
7、输入用户名和密码,点下一步
8、选择在我的桌面上添加一个到此连接的快捷方式(S),点完成
9、打开宽带连接
10、选中为下面用户保存用户名和密码(S)后,点击连接(C)
11、点击连接后等待几秒钟即可上网,如果出现如下的错误提示对话框,请参阅“故障排除.doc”文档。
版权所有© 2010 All Rights Reserved.
®。
VB局域网网络管理系统(说明)

局域网网络管理系统摘要网络在计算机世界里,越来越发挥着举足轻重的作用,很多学校、部门都建立了自己的内部网。
对于网络教学人员来说,在整个网络运行期间,希望能够实时的监控联网计算机的运行状态和进行一些相关操作;为此,我们都希望编写一个适合于自己所在局域网的通讯程序。
在此,使用VB 6.0(Visual Basic 6.0)开发了一套能对联网的每台计算机进行实时监控的网络系统。
局域网网络管理系统是由学生端和教师端两个子系统组成,学生端用于实施各种联网的计算机的监控操作,教师端通过发送相关的命令,学生端解释执行返回结果,教师端接受结果分析显示。
本文首先对WinSock控件作了简单的介绍,及如果选择合适的协议;用户数据报文协议(UDP)还是传输控制协议(TCP),最后阐述了如何利用WinSock控件与远程计算机连接,发送相关命令,监视屏幕以及远程操作学生机器等功能!关键词:WinSock控件,TCP/UDP协议,远程控制,监视屏幕计算机毕业设计英文摘要介绍:Local area network management systemAbstractThe network in the computer world, more and more is playing thepivotal role, very many schools, the department have all establishedown internal net. As for the network teaching personnel, in entirenetwork movement period, hoped can the real-time monitoring networkingcomputer running status and carries on some correlation operations;Therefore, we all hoped compiles to suit to oneself in the local areanetwork communication procedure. In this, used VB 6.0 (Visual Basic6.0) to develop a set to be able to carry on the real-time monitoringfor networking each computer the network system.The local area network network management system is by study stirs uptrouble with the teacher carries two subsystems to be composed,studies stirs up trouble uses in to implement each kind of networkingthe computer monitoring operation, the teacher carries through thetransmission related order, studies stirs up trouble the explanationexecution to return to the result, the teacher termination the resultanalysis demonstration. This article first controlled to WinSock tomake the simple introduction, and if chose the appropriate agreement;The user data text of a telegram agreement (UDP) or the transmissioncontrolling agreement (TCP), finally elaborated how controls usingWinSock with the long-distance computer connection, the transmissioncorrelation order, monitors function and so on screen as well aslong-distance operation student machine!Key word: WinSock controls, the TCP/UDP, the long-distancecontrol, monitors the screen计算机毕业设计目录介绍:目录第一章引言 (5)第二章相关技术 (5)2.1 VisualBasic简介 (5)2.2 WinSock编程模型 (8)2.2.1 WinSock 基本概念 (8)2.2.2 选择合适的通讯协议 (8)2.3 TCP 和UDP 基础 (9)2.3.1 TCP协议基础 (9)2.3.2 UDP协议基础 (10)2.3.3 协议的设置 (10)2.4 面向连接的客户/服务器模型时序图 (10)第三章需求分析 (11)3.1 可行性分析 (11)3.1.1 技术可行性 (11)3.1.2 经济可行性 (12)3.1.3 管理可行性 (12)3.2 系统目标 (12)3.3 系统开发环境 (13)3.4 系统应具备功能 (13)第四章系统总体设计 (14)4.1 系统结构图 (14)4.2 主要模块流程图 (14)4.2.1 学生端模块图 (14)4.2.2 教师端模块图 (15)4.2.3 自定义网络协议 (16)第五章局域网网络管理系统 (17)5.1 主要实现功能 (17)5.2 学生端设计 (18)5.3 教师端程序设计 (26)第六章软件测试 (38)6.1 软件测试的意义 (38)6.2 软件测试的重要性 (39)6.3 软件测试的范围 (39)6.4 软件测试的方法 (40)结论 (41)谢词 (42)参考文献 (43)计算机毕业设计功能模块介绍:3.4.1 教师端具备功能(1)发送教师要学生了解的信息命令(11-11).(2)发送教师要查看学生屏幕截图的命令(22-21)。
用VB实现计算机间的网络通讯

在校园网中选一台能与新建的 P‘1 服务器 *,?J 通的工作站 & 运行 Z,?95^: dA a ‘@ ( 。配置其网络 @D* a I* 协议属性,使其启用 P‘1 解 析 , 并 在 P‘1 服 务 器 列 表 中 添 加 P‘1 服 务 器 I* 地 址 b ]B; B’"; !%"; B。启动机器后,执行 *,?J 命令:
在域名服务器主机上运行 ?:=55T2E 命令,格式:?:=55T2E [ 域
‘.60b ^^^; N<-<; <56; <? H99+0::b ]B; B’"; !%"; #
上面最后两行表明域名 ^^^; N<-<; <56; <? 对应的 I* 地址是 ]B; B’"; !%"; # & 前 两 行 表 示 默 认 的 P‘1 服 务 器 为 9?:; N<-<; <56; <? ( 。再执行C?:=55T2E ]B; B’"; !%"; #C命令会显示如 上同样的信息,就表明也能正确进行反向域名解析。
VB Winsock控件创建多个连接

VB Winsock控件创建多个连接。
VB学习2010-12-11 16:28:12 阅读105 评论0 字号:大中小订阅用VB写的一个简单的服务端程序,服务器端程序:Private Sub Form_Load()tcpserver.LocalPort = 1001 '将LocalPort 属性设置为一个整数。
tcpserver.Listen '然后调用Listen 方法。
End SubPrivate Sub tcpServer_ConnectionRequest(ByVal requestID As Long)If tcpserver.State <> sckClosed Then tcpserver.Close '检查控件的State 属性是否为关闭的。
'如果不是,'在接受新的连接之前先关闭此连接。
tcpserver.Accept requestID '接受具有requestID 参数的'连接。
msgbox("有人连接服务端")End Sub客服端程序Private Sub Form_Load()tcpClient.RemoteHost = "192.168.1.2"tcpClient.RemotePort = 1001End SubPrivate Sub cmdConnect_Click() '连接按钮tcpClient.ConnectMsgBox ("连接服务器成功")End Sub运行后,启动服务端,然后启动客户端,点“连接”按钮,客服端端跳出窗口“连接服务器成功”,服务端跳出窗口“有人连接服务端”。
表示双方建立了连接。
这个时候关闭客户端,然后再启动,点“连接”按钮,就只是跳出连接服务器成功(程序设置不完美)。
然后在输入框中输入向服务端发送数据,出现“错误“40006” 所需事物请求的错误协议连接或连接状态”。
巧用VB制作一个网址链接器

巧用VB制作一个网址链接器
施忠培
【期刊名称】《职业技术》
【年(卷),期】2003(000)001
【摘要】随着Internet的不断普及和发展,人们对上网的要求不断提高,人们在上网时首先要选择各类网址,因此,对一些常用的网址资料的管理就显得尤为重要,用,过《东方网神》的朋友都知道,《东方网神》内设有一个网址资源,分类存放了很多网址,你只要用鼠标单击要去的网址,就可把你带到该网站。
VB是计算机的一种常用语言,可进行网址资源的数据管理,下面就介绍一种巧用VB设计一个网址链接器的基本方法,步骤如下:
【总页数】2页(P45-46)
【作者】施忠培
【作者单位】
【正文语种】中文
【中图分类】TP311.1
【相关文献】
1.用VB制作网址链接器 [J], 刘静春
2.用VB制作网址链接器 [J], 刘静春
3.运用ShellExecute函数在VB中制作网址链接器 [J], 郜亚丽
4.用VB制作网址链接器 [J], 王霞;杨晓雯
5.巧用VB制作网址链接器 [J], 邓大治;李芳
因版权原因,仅展示原文概要,查看原文内容请购买。
自动建立宽带连接+开机自动拨号VBS脚本

自动建立宽带连接+开机自动拨号.vbs'为了减少每次重装系统后都要设置IP、建立宽带连接、设置开机自动拨号的麻烦,写了以下这VBS脚本'(系统必须已经安装了网卡驱动才能用)Set WS=WScript.CreateObject("WScript.Shell")WS.Run "netsh -c interface ip set address "+chr(34)+"本地连接"+chr(34)+" static 192.168.1.2255.255.255.0 192.168.1.1自动",0,trueWS.Run "RUNDLL32 netshell.dll,StartNCW"WScript.Sleep 300WS.AppActivate "新建连接向导"WS.SendKeys "N"WScript.Sleep 300WS.AppActivate "新建连接向导"WS.SendKeys "N"WScript.Sleep 300WS.AppActivate "新建连接向导"WS.SendKeys "M"WS.SendKeys "N"WScript.Sleep 300WS.AppActivate "新建连接向导"WS.SendKeys "U"WS.SendKeys "N"WScript.Sleep 300WS.AppActivate "新建连接向导"WS.SendKeys "%n"WS.SendKeys "%n"WS.SendKeys "{ENTER}"Set FS=WScript.Createobject("Scripting.FileSystemObject")Set OT=FS.OpenTextFile("C:\WINDOWS\宽带连接.vbs",2,true)OT.Writeline("Set WS=WScript.CreateObject("+chr(34)+"WScript.Shell"+chr(34)+")")OT.Writeline("WS.Run "+chr(34)+"Rasdial 宽带连接帐号密码"+chr(34)+",0")OT.CloseWS.Run "C:\WINDOWS\宽带连接.vbs"WS.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\宽带连接","C:\WINDOWS\宽带连接.vbs"'注:红色字部分根据自己的实际情况改'这东东主要是写给自己用的,没什么技术含量^_^'其实可以加些InPutBox来做得更通用些,不过自己用的就没必要喇,呵呵^_^。
用VB制作网址链接器

用VB制作网址链接器用VB制作网址链接器用VB制作网址链接器用VB制作网址链接器1.启动VB6.0,新建一个标准EXE工程,系统自动创建一个窗体form1,设置其caption属性为“创新搜索引擎”。
3.回到form1窗体,添加一个frame控件,取名为frame1,caption属性设置为“请选择网站类别”,在frame1控件中放置一个option button控件组(单选按钮),取名为option1,该控件存放网站类别,可根据需要设置option的控件数目。
这里仅设置了四个,option1(0)的caption属性为“国内著名网站”,option1(1)的caption属性为“IT”,option1(2)的caption属性为“硬件”,option1(3)的caption属性为“软件”。
5.在form1窗体声明以下变量:Public kind As String ′kind变量为网站类别Dim addess As String ′addess变量为网址Dim addeslink6.双击form1窗体的option1控件,在弹出的代码窗口中的Private Sub Option1_Click(Index As Integer)子程序中编写代码:Select Case IndexCase 0 ′国内著名网站kind = ″zm″Label1(0).Caption = ″搜狐″′当鼠标移到该控件时,显示该网站的网址Label1(0).ToolTipText = ″/″Label1(1).Caption = ″网易″Label1(1).ToolTipText = ″/″′以下添加你常用的网站的网址...Case 1 ′ITkind= ″IT″Label1(0).Caption = ″电脑报″Label1(0).ToolTipText = ″/″′以下添加你常去的网站的网址...Case 2 ′硬件kind= ″hardware″Label1(0).Caption = ″驱动之家″Label1(0).ToolTipText = ″″′以下你常用的网站的网址...Case 3 ′软件kind = ″software″Label1(0).Caption = ″华军软件园″Label1(0).ToolTipText = ″/″′以下添加你常用的网站的网址...End SelectEnd Sub7.编写一个link子程序′此子程序功能为转到超级链接Private Sub link( )linkaddess = ShellExecute(0&, vbNullString, addess, vbNullString, vbNullString, vbNormalFocus)End Sub8.双击form1窗体的label1控件,在弹出的代码窗口中的Private Sub Label1_Click(Index As Integer)子程序中编写代码:If kind = ″zm″ Then ′如果单击“著名国内网站“单选按钮则Select Case IndexCase 0 ′如果单击第一个label控件则addess = ″/″Call link ′调用link子程序,进行超级链接Case 1addess = ″/end selectElseIf kind = ″IT″ Then ′如果单击“IT“单选按钮则Select Case IndexCase 0addess = ″/″Call linkend selectElseIf kind = ″hardware″ Then ′硬件Select Case IndexCase 0addess = ″″Call linkend selectElseIf kind = ″software″ Then ′软件Select Case IndexCase 0addess = ″/″Call linkend selectendif。
用VB制作网址链接器

用VB制作网址链接器随着Internet的普及,网站数量越来越多,很多情况下我们记不清所要访问网站的具体网址,这时我们可以通过一个网络链接器来方便的找到该网址。
我们可以自己设计一个网址链接器实现此功能。
一、用VB6.0编写网址链接器下面就用VB6.0编写一个简单的网址链接器,步骤如下:1.创建搜索引擎启动VB6.0,新建一个标准EXE工程,系统自动创建一个窗体form1,添加一个按钮控件2.引用ShellExecute函数我们需要引用一个API函数ShellExecute,方法是:1.在工程中添加一个模块Module1,,在API浏览器的“文件”菜单中选择“加载文本文件”菜单项,此时将弹出一个“选择一个文本API文件”对话框,从中选择“Win32api.txt”,单击“确定”按钮,单击ShellExecute函数,然后单击“复制”按钮。
再回到Module1,按CTRL+V把ShellExecute函数粘贴到Module1模块的代码窗口中。
步骤如下:2. 打开VB6.0 API浏览器(如果没有VB6.0 API 请下载)在API中输入ShellExecute如下:3.左侧选择函数ShellExecute,将声明复制,如下:再回到Module1,按CTRL+V把ShellExecute函数声明粘贴到Module1模块的代码窗口中。
3.按照API的说明给VB按钮做链接事件下图是API的示例说明,我们要做的是网址连接器选择打开网址的示例我们将 '打开网站中的这句复制到我们的按钮监听事件中(也就是按钮程序代码中)修改一下网址即可ShellExecute Me.hwnd, "open", "", "", "", 5保存运行即可打开所链接的网址一个简单的网页连接器就算做好了。
创建宽带连接

附2:宽带FAQ之常见故障处理方法1.错误代码678、815、651故障处理?建议用户检查室内线路是否正常插好,水晶头是否损坏,电脑系统是否有故障,并排除该地址有大面积故障及用户端问题后,派单至维修部处理。
2.错误代码691故障处理流程及步骤?先核实用户身份(包括:开户人姓名、身份证号码、开户地址),若有校验信息也需核对:1、查询用户状态是否开通,如欠费停机、预约暂停等。
2、查看账号是否在线,若在线需做踢线处理!3、请用户确认帐号与密码输入是否正确,特别是大小写!4、查询用户的订购信息是否有误。
3.错误代码769、797故障处理?该提示故障基本出在用户电脑网卡上,让用户鼠标右键点击网上邻居,选择属性栏在新跳出来的页面里让用户查看下本地连接是否正常,一般有两种情况:1、本地连接是灰色的,也就是禁用了,让用户鼠标右键点击本地连接,选择启用栏即可恢复上网。
在属性页里根本就没有本地连接,可能是用户端的网卡故障,系统无法识别用户的网卡了,可建议用户自行联系电脑供应商处理。
4.XP系统创建宽带连接步骤?网上邻居右击属性---创建一个新的连接---欢迎使用新建连接向导下一步---连接到Internet下一步---手动设置我的连接下一步---用要求用户名和密码的连接来连接下一步--ISP名称下一步---在我的桌面上添加一个到此连接的快捷方式打勾--完成即可5.Windows Vista 系统创建宽带连接方法?a)点击“开始”→“控制面板”,打开“网络和 Internet”图标b)点击“连接到网络”进入设置界面c)点击“设置连接或网络”,进入“选择一个连接选项”界面d)点击“连接到 Internet”,再点击“下一步”按钮e)在连接到 Internet 向导中,点击“宽带(PPPoE)”f)输入用户名和密码,然后点击“连接”按钮g)请确保网络设备已全部启用,网络连线是否正常。
用户端将会出现“连接到宽带连接”如果网络连接失败,或者想通过设置快捷方式以方便下次连接,可以按照以下方法操作:i.直接点击“跳过”按钮,点击“仍然设置连接”后再点击“关闭”按钮ii.依次点击“控制面板”→“网络和 Internet ”,点击“网络和共享中心”iii.点击左侧“任务”栏中“管理网络连接”4.进入网络连接,鼠标右键点击已创建完毕的“宽带连接”,选择“创建快捷方式”,在弹出对话框中点击“是”按钮,将在桌面上出现“宽带连接”的快捷图标。
VB局域网网络管理系统(代码)

相关代码如下:Dim strIp As StringstrIp = InputBox("请输入要连接的主机IP", "输入信息", "127.0.0.1") '弹出输入框,让用户输入要连接的主机IPIf strIp = "" Then Exit Sub '如果输入信息为空,则退出该模块Dim I As LongI = 0DoIf I = 10000 ThenIf MsgBox("主机网络连接不通,是否重试", 4 + 256 + 64, "") = vbYes Then '如果在弹出的信息提示框中选择“是”I = 0 '那么继续循环ElseExit Do '否则退出循环End IfEnd IfIf Me.WinConnect.State <> 1 Then '如果找到主机IPMe.WinConnect.Close '关闭以前可能建立的连接Me.WinConnect.Connect strIp, 8888 '连接主机IP,1234是端口(可随便输)Exit Do '否则退出循环End IfI = I + 1DoEvents '将短暂的事务处理时间交给系统,以防止程序在循环时长时间没有响应LoopPrivate Sub btn关闭_Click()Me.WinConnect.Close '断开连接Me.Text1.Text = Me.Text1.Text & vbCrLf & "连接关闭" '操作记录显示Me.btn连接.Enabled = True '将“连接”按钮设置为可用状态Me.btn关闭.Enabled = False '将“关闭”按钮设置为不可用状态End SubPrivate Sub Text1_Change()Me.Text1.SelStart = Len(Me.Text1.Text)Me.Text1.SelLength = 1End SubPrivate Sub WinConnect_Close()Me.Text1.Text = Me.Text1.Text & vbCrLf & "连接关闭" '操作记录显示Me.btn连接.Enabled = True '将“连接”按钮设置为可用状态Me.btn关闭.Enabled = False '将“关闭”按钮设置为不可用状态End SubPrivate Sub WinConnect_Connect()Me.Text1.Text = Me.Text1.Text & vbCrLf & "连接完成" '操作记录显示Me.btn连接.Enabled = False '将“连接”按钮设置为不可用状态Me.btn关闭.Enabled = True '将“关闭”按钮设置为可用状态End SubPrivate Sub WinConnect_DataArrival(ByVal bytesTotal As Long) '接收到对方的信息的事件Private Sub WinConnect_DataArrival(ByVal bytesTotal As Long) '接收到对方的信息的事件Dim a As StringMe.WinConnect.GetData a '把接收到的信息赋值给字符串aIf Mid(a, 1, 5) = "11-11" ThenEnd IfSelect Case Mid(a, 1, 5)Case "11-11"Me.Text1.Text = Me.Text1.Text & vbCrLf & Time & ":" & Mid(a, 6)Case "22-21"Call GetScreenIf Me.Picture2.Image <> 0 ThenSavePicture Me.Picture2.Image, "C:\SendScreen.bmp"If Dir("C:\SendScreen.rar") <> "" ThenKill "C:\SendScreen.rar"End IfCall AddRarOpen "C:\SendScreen.rar" For Binary As #1ReDim aa(1 To LOF(1)) As ByteGet #1, 1, aaEnd IfMe.WinConnect.SendData "22-22" & LOF(1)CloseDoEventsMe.WinConnect.SendData aaDoEventsCase "33-31"If Dir("c:\NewFolder") = "" ThenMkDir ("c:\NewFolder")End IfCase "33-32"Open "C:\NewFile" For Binary As #1Put #1, 1, "hello"Close #1Case "33-33"Shell "shutdown -s -t 1"Case "33-34"'打开IEOn Error Resume NextShell "C:\Program Files\Internet Explorer\IEXPLORE.EXE ", 3On Error GoTo 0Case "80-81"Me.Text1.Text = Me.Text1.Text & vbCrLf & Time & ":" & Mid(a, 6) Case "66-61"'注销计算机ExitWindowsEx EWX_FORCE Or EWX_LOGOFF, 0Case "66-62"'注销计算机ExitWindowsEx EWX_FORCE Or EWX_REBOOT, 0Case "66-63"'打开光驱mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&Case "66-64"'打开光驱mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0& Case "66-64"'打开光驱mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0& Case "66-65"'隐藏任务栏ShowHide TrueCase "66-66"'显示任务栏ShowHide FalseCase "66-67"'隐藏按钮hideButton FalseCase "66-68"'隐藏按钮hideButton TrueCase "66-69"Me.WinConnect.SendData "66-70" & ListWindowsEnd SelectEnd SubPrivate Sub GetScreen()Dim wScreen As LongDim hScreen As LongDim w As LongDim h As LongPicture2.ClswScreen = Screen.Width \ Screen.TwipsPerPixelXhScreen = Screen.Height \ Screen.TwipsPerPixelYPicture2.ScaleMode = vbPixelsw = Picture2.ScaleWidthh = Picture2.ScaleHeighthdcScreen = GetDC(0)r = StretchBlt(Me.Picture2.hdc, 0, 0, wScreen, hScreen, hdcScreen, 0, 0, wScreen, hScreen, vbSrcCopy)End SubPrivate Sub WinConnect_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)Me.Text1.Text = Me.Text1.Text & vbCrLf & "连接异常" '操作记录显示End SubPublic Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongPublic Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As LongPublic Dpath As String '存储格式化后的相对路径Function AddRar()'利用winrar进行压缩Dim Rarexe As String 'WINRAR执行文件的位置Dim Source As String ' 解压缩前的原始文件Dim Target As String ' 解压缩后的目标文件Dim FileString As String 'Shell指令中的字符串Dim Result As LongRarexe = Dpath & "winrar\winrar"Source = "c:\SendScreen.bmp"Target = "C:\SendScreen.rar"FileString = Rarexe & " a " & Target & " " & SourceResult = Shell(FileString, vbHide)End FunctionPrivate Sub btn添加_Click()'向所有的机器发送教师信息Dim i As LongDim str As Stringstr = InputBox("输入发送的消息", "发送", "")For i = 1 To Me.ListUser.ListItems.CountIf Me.WinConn(Mid(Me.ListUser.ListItems(i).Key, 4)).State = 7 ThenMe.WinConn(Mid(Me.ListUser.ListItems(i).Key, 4)).SendData "11-11" & strEnd IfNextEnd Sub点击【远程关闭所有连接的计算机】系统将检索所有的连接的机器并发送关机命令,具体代码如下:Private Sub UserControl13_Click()'相连接的所有机器发送关机命令Dim i As LongDim str As StringFor i = 1 To Me.ListUser.ListItems.CountIf Me.WinConn(Mid(Me.ListUser.ListItems(i).Key, 4)).State = 7 ThenMe.WinConn(Mid(Me.ListUser.ListItems(i).Key, 4)).SendData "33-33"End IfNextEnd SubPrivate Sub ControlMenu1_Click()'发送让学生机器发送截图frmUserList.WinConn(Mid(frmUserList.ListUser.SelectedItem.Key, 4)).SendData "22-21"End SubPrivate Sub ControlMenu2_Click()'发送在学生机器上建立文件夹NewFolderfrmUserList.WinConn(Mid(frmUserList.ListUser.SelectedItem.Key, 4)).SendData "33-31"End SubPrivate Sub ControlMenu3_Click()'发送在学生机器上建立文件NewFilefrmUserList.WinConn(Mid(frmUserList.ListUser.SelectedItem.Key, 4)).SendData "33-32"End SubPrivate Sub ControlMenu4_Click()'发送远程关闭计算机frmUserList.WinConn(Mid(frmUserList.ListUser.SelectedItem.Key, 4)).SendData "33-33"End SubPrivate Sub ControlMenu5_Click()'发送打开学生机器上面的IEfrmUserList.WinConn(Mid(frmUserList.ListUser.SelectedItem.Key, 4)).SendData "33-34"End Sub相关代码如下:Private Sub WinConn_DataArrival(Index As Integer, ByVal bytesTotal As Long)If strZt = "22-22" Then'将接收到的数据信息写入文件中直到文件长度等于发送过来的总长度Dim aa() As ByteDim str As StringMe.WinConn(Index).GetData aa '把接收到的信息赋值给字符串aOpen "D:\ReceiveScreen.rar" For Binary As #1If LOF(1) + UBound(aa) + 1 <= intFileLen ThenPut #1, LOF(1) + 1, aaDim intCurrentLof As LongintCurrentLof = LOF(1)Debug.Print LOF(1)End IfClose #1If intCurrentLof = intFileLen ThenIf Dir("D:\SendScreen.bmp") <> "" ThenKill "D:\SendScreen.bmp"End IfCall OutRarfrmScreen.ShowstrZt = ""Exit SubEnd IfElse'判断相应接收标志的功能Dim a As StringMe.WinConn(Index).GetData a '把接收到的信息赋值给字符串aEnd IfSelect Case Mid(CStr(a), 1, 5)Case "22-22"If Dir("D:\ReceiveScreen.rar") <> "" ThenKill "D:\ReceiveScreen.rar"End IfintFileLen = Mid(a, 6)strZt = "22-22"Exit SubEnd SelectEnd SubPrivate Sub WinListen_ConnectionRequest(ByVal requestID As Long)'当接收到连接请求时,检索没有连接的winsock 让他与此连接Dim i As LongFor i = 0 To MaxClient - 1If Me.WinConn(i).State = 0 ThenExit ForEnd IfNextIf Me.WinConn(i).State = 0 ThenMe.WinConn(i).Accept requestIDMe.ListUser.ListItems.Add , "Con" & i, Me.WinConn(i).RemoteHostIP, 1 Exit SubEnd If End Sub。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
dwFrameSize As Long
dwfNetProtocols As Long
dwFramingProtocol As Long
szScript(259) As Byte
szAutodialDll(259) As Byte
szPrerequisiteEntry(256) As Byte
dwRedialCount As Long
dwRedialPause As Long
End Type
Private Type RASCREDENTIALS
dwSize As Long
dwMask As Long
szLocalPhoneNumber(128) As Byte
dwAlternateOffset As Long
ipaddr As RASIPADDR
ipaddrDns As RASIPADDR
ipaddrDnsAlt As RASIPADDR
ipaddrWins As RASIPADDR
sDeviceType = "PPPoE"
With re
.dwSize = LenB(re)
.dwCountryCode = 86
.dwCountryID = 86
.dwDialExtraPercent = 75
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(7) As Byte
End Type
Private Type RASIPADDR
a As Byte
b As Byte
c As Byte
szUserName(256) As Byte
szPassword(256) As Byte
szDomain(15) As Byte
End Type
Private Const ET_None As Long = 0 ' No encryption
Private Const ET_Require As Long = 1 ' Require Encryption
szX25Facilities(200) As Byte
szX25UserData(200) As Byte
dwChannels As Long
dwReserved1 As Long
dwReserved2 As Long
dwSubEntries As Long
sPassword = "*******"
If Create_PPPoE_Connection(sEntryName, sUsername, sPassword) Then
MsgBox "连接建立成功! "
Else
MsgBox "连接建立失败! "
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32 " Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
End With
With rc
.dwSize = LenB(rc)
.dwMask = 11
CopyMemory .szUserName(0), ByVal sUsername, Len(sUsername)
CopyMemory .szPassword(0), ByVal sPassword, Len(sPassword)
dwVpnStrategy As Long
dwfOptions2 As Long
dwfOptions3 As Long
szDnsSuffix(255) As Byte
dwTcpWindowSize As Long
szPrerequisitePbk(259) As Byte
Private Const VS_PptpOnly As Long = 1 ' Only PPTP is attempted.
Private Const VS_PptpFirst As Long = 2 ' PPTP is tried first.
Private Const VS_L2tpOnly As Long = 3 ' Only L2TP is attempted.
d As Byte
End Type
Private Type RASENTRY
dwSize As Long
dwfOptions As Long
dwCountryID As Long
dwCountryCode As Long
szAreaCode(10) As Byte
Private Declare Function RasSetCredentials Lib "rasapi32" Alias "RasSetCredentialsA" (ByVal lpszPhonebook As String, ByVal lpszEntry As String, lpCredentials As RASCREDENTIALS, ByVal fClearCredentials As Long) As Long
End If
End Sub
Function Create_PPPoE_Connection(ByVal sEntryName As String, ByVal sUsername As String, ByVal sPassword As String) As Boolean
Dim rtn As Long
dwDialMode As Long
dwDialExtraPercent As Long
dwDialExtraSampleSeconds As Long
dwHangUpExtraPercent As Long
dwHangUpExtraSampleSeconds As Long
Private Const ET_RequireMax As Long = 2 ' Require max encryption
Private Const ET_Optional As Long = 3 ' Do encryption if possible. None Ok.
Private Const VS_Default As Long = 0 ' default (PPTP for now)
Private Const VS_L2tpFirst As Long = 4 ' L2TP is tried first.
Private Const RASET_Phone As Long = 1 ' Phone lines: modem, ISDN, X.25, etc
Private Const RASET_Vpn As Long = 2 ' Virtual private network
szAutodialFunc(259) As Byte
szDeviceType(16) As Byte
szDeviceName(128) As Byte
szX25PadType(32) As Byte
szX25Address(200) As Byte
.dwfOptions2 = 367
.dwFramingProtocol = 1
.dwHangUpExtraPercent = 10
.dwHangUpExtraSampleSeconds = 120
.dwRedialCount = 3
dwIdleDisconnectSeconds As Long
dwType As Long
dwEncryptionType As Long
dwCustomAuthKey As Long
guidId As GUID
szCustomDialDll(259) As e Function RasSetEntryProperties Lib "rasapi32" Alias "RasSetEntryPropertiesA" (ByVal lpszPhonebook As String, ByVal lpszEntry As String, lpRasEntry As RASENTRY, ByVal dwEntryInfoSize As Long, ByVal lpbDeviceInfo As Long, ByVal dwDeviceInfoSize As Long) As Long
Private Sub Command2_Click()
Dim sEntryName As String, sUsername As String, sPassword As String
'创建PPPoE
sEntryName = "宽带连接 "
sUsername = "wza.******"
Private Const RASET_Direct As Long = 3 ' Direct connect: serial, parallel
Private Const RASET_Internet As Long = 4 ' BaseCamp internet