导航:首页 > 编程大全 > vbnet连接网络代码

vbnet连接网络代码

发布时间:2021-03-03 01:43:37

『壹』 vb.net 如何连接网络access

ACCSOURCE = "\\sever1\test.mdb" 'access的网路路经
Set conn = CreateObject("ADODB.Connection")
Set myrs = CreateObject("ADODB.Recordset")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123;Mode=;Data Source=" & ACCSOURCE '123为密码,access有密码时需版要输入正权确密码

『贰』 VB.NET如何判断电脑是否已连接到网络

If My.Computer.Network.IsAvailable Then
'如果可用
Else
'不可用
End If

『叁』 提问vb.net怎么网络远程连上MYSQL数据库

您好,请参考 MySQL 官方给出的相关解决方案

MySQL Connector Net

官方首页
http://www.mysql.com/procts/connector/
最新 .NET 驱动版程序官方下载地址
http://dev.mysql.com/downloads/connector/net/

下权载安装完成后,在安装目录下 Samples 文件夹中有详细示例。

『肆』 求vb.net 连接宽带和断开的代码

编写一个宽带连接的批处理脚本:
rasdial entryname [unseranamd 12345678]

编写一个宽带断开的批处理脚本版:权
rasphone -h entryname

在vb中调用这两个脚本执行就可以了;

『伍』 vb中如何实现网络连接

shell "http://www..com/ explorer"

『陆』 vb.net连接hana的代码

可以先创建对hana的ODBC连接ODBCNAME,然后:


'''<summary>
'''根据SQL语句查询数据
'''</summary>
'''<paramname="sql">SQL查询语句</param>
'''<returns>结果集</returns>
PublicFunctiongetDataSetBySql(sqlAs[String])AsDataSet
Try
DimdsAsNewDataSet()
DimcommandAsNewOdbcCommand(sql)
'command对象
DimconnstringAs[String]="dsn=ODBCNAME;uid=USERID;pwd=PASSWORD"
'ODBC连接字符串
(connstring)
'创建connection连接对象
command.Connection=connection
connection.Open()
'打开链接
(command)
'实例化dataadapter
adapter.Fill(ds)
'填充查询结果
Returnds
EndUsing
CatchexAsException
ThrowNewException(ex.Message)
EndTry
EndFunction

『柒』 用vb.net实现网络通信

用 vb.net socket通信

Dim th As Threading.Thread
2 Dim tcpl As System.Net.Sockets.TcpListener
3
4 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))
6 th.Start()
7 End Sub
8
9 Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)
10 Try
11 If IP <> "" Then
12 Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)
13 Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream
14 Dim reqStream As New IO.StreamWriter(tcpStream)
15 reqStream.Write(SendMsg)
16 reqStream.Flush()
17 tcpStream.Close()
18 tcpc.Close()
19 End If
20 Catch ex As Exception
21 MsgBox(ex.Message.ToString)
22 End Try
23 End Sub
24 Private Sub MyListen()Sub MyListen()
25 Try
26 Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)
27 tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)
28 tcpl.Start()
29 While True
30 Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()
31 Dim MyBuffer(1024) As Byte
32 Dim i As Integer
33 i = s.Receive(MyBuffer)
34 If i > 0 Then
35 Dim lstrRec As String
36 Dim j As Integer
37 For j = 0 To i - 1
38 TextBox1.Text += Chr(MyBuffer(j)) & ","
39 Next
40 End If
41 End While
42 Catch ex As Exception
43 MsgBox(ex.Message.ToString)
44 End Try
45 End Sub
46
47 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
48 SendMessage("192.168.0.61", TextBox2.Text)
49 End Sub

『捌』 vb中如何来实现连接网络盘

下记函数试一下。
a_MappedPath:映射路径
MappedDriveName :映射盘符
a_PathUserName:用户名
a_PathPassWord:口令

Public Function MapNetDrive(a_MappedPath As String, Optional a_MappedDriveName As String = "Z", Optional a_PathUserName As String = "", Optional a_PathPassWord As String = "") As Boolean
Dim NetR As NETRESOURCE
Dim ErrInfo As Long
With NetR
.dwScope = RESOURCE_GLOBALNET
.dwType = RESOURCETYPE_DISK
.dwDisplayType = RESOURCEDISPLAYTYPE_SHARE
.dwUsage = RESOURCEUSAGE_CONNECTABLE
.lpLocalName = Left(a_MappedDriveName, 1) & ":"
.lpRemoteName = a_MappedPath
End With
ErrInfo = WNetAddConnection2(NetR, a_PathPassWord, a_PathUserName, CONNECT_UPDATE_PROFILE)
MapNetDrive = IIf((ErrInfo = NO_ERROR), True, False)
End Function

用到的API和TYPE
Public Type NETRESOURCE
dwScope As Long
dwType As Long
dwDisplayType As Long
dwUsage As Long
lpLocalName As String
lpRemoteName As String
lpComment As String
lpProvider As String
End Type
Public Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long

『玖』 VB/.NET 如何检测本机是否已经连接上网络

新建工程,加入一模块,代码如下:
Option Explicit
Public isolerr As Boolean
Public Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long
Public Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long
'
Public Const RAS95_MaxEntryName = 256
Public Const RAS95_MaxDeviceType = 16
Public Const RAS95_MaxDeviceName = 32
'
Public Type RASCONN95
dwSize As Long
hRasCon As Long
szEntryName(RAS95_MaxEntryName) As Byte
szDeviceType(RAS95_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type
'
Public Type RASCONNSTATUS95
dwSize As Long
RasConnState As Long
dwError As Long
szDeviceType(RAS95_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type

Public Function IsConnected() As Boolean
Dim TRasCon(255) As RASCONN95
Dim lg As Long
Dim lpcon As Long
Dim RetVal As Long
Dim Tstatus As RASCONNSTATUS95
'
TRasCon(0).dwSize = 412
lg = 256 * TRasCon(0).dwSize
'
RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)
If RetVal <> 0 Then
MsgBox "出现错误!", vbCritical + vbDefaultButton1 + vbOKOnly, "错误!"
Form1.wangluozhuangkuang.Visible = False
isolerr = True
Exit Function
End If
'
isolerr = False
Tstatus.dwSize = 160
RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus)
If Tstatus.RasConnState = &H2000 Then
IsConnected = True
Else
IsConnected = False
End If

End Function

在窗体中添加一记时器(Timer),代码如下:
Private Sub Timer1_Timer()
checkonline
End Sub
然后在通用声明中添加如下代码
Sub checkonline()
If isolerr = False Then
If IsConnected = True Then
wangluozhuangkuang.Caption = "已经连接网络"
Else
wangluozhuangkuang.Caption = "尚未连接网络"
End If
End If
End Sub
最后在窗体上添加一Label,名字为wangluozhuangkuang

不懂再问我

『拾』 VB能用代码通过命令按钮来控制网络的连接和断开吗

小弟才疏学浅,想到了一个办法,禁用网络服务,禁用是好禁用,
但是启用后要内重新启动计算机才有效。
添加两容个按钮,直接输入下面的代码:

Option Explicit
Private Sub Command1_Click()
'禁用
Shell "cmd.exe /c net stop SharedAccess & net stop netman", vbHide
End Sub
Private Sub Command2_Click()
'启用
Shell "cmd.exe /c net start netman & net start SharedAccess", vbHide
End Sub

PS:若想实现的完美还是应该调用API函数。

阅读全文

与vbnet连接网络代码相关的资料

热点内容
电脑文件历史记录干什么用 浏览:136
如何去掉文件的只读属性 浏览:403
水沫缘浅的全部作品集下载 浏览:575
免费电影在线观看网站 浏览:697
涨奶挤出来的母乳电影 浏览:897
催眠控制类百合 浏览:13
编程属于哪个发票范围 浏览:207
ipadqq怎么下载群文件 浏览:272
投屏流畅的电影网站 浏览:506
手机书包网 浏览:694
版本的控制 浏览:2
编程中pls什么意思 浏览:891
窗体小程序发送给女生 浏览:219
win10字好模糊 浏览:694
win10宽带用户名和密码是什么 浏览:568
ipad如何下载花瓣邮箱app 浏览:488
红米note版本怎么安装软件 浏览:358
设置图标一样的视频app叫什么 浏览:635
盛势txt下载 浏览:98
小峰和方婷 浏览:248

友情链接