大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb点虐 程序开机自启 vb系统自动执行启动窗体

求高手给一个VB.NET的程序开机启动和关闭开机启动的示例代码

Private Sub 开机自动启动_Click(sender As Object, e As EventArgs) Handles 开机自动启动.Click

创新互联建站坚持“要么做到,要么别承诺”的工作理念,服务领域包括:做网站、成都做网站、企业官网、英文网站、手机端网站、网站推广等服务,满足客户于互联网时代的奉新网站设计、移动媒体设计的需求,帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴!

Dim a As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Run")

a.SetValue("查看.exe", Application.StartupPath "\查看.exe")

End Sub

Private Sub 关闭开机自启_Click(sender As Object, e As EventArgs) Handles 关闭开机自启.Click

Dim a As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Run")

a.DeleteValue("查看.exe")

End Sub

VB中怎么让自己写的程序在开机时自动启动?

给你提供我用到的代码:\x0d\x0a'初始化全局变量\x0d\x0aOption Explicit\x0d\x0aPublic pathini As String\x0d\x0aPublic mark As Integer '控制是否自启动的标志变量(1自启动,0不自启动)\x0d\x0a'添加删除自启动项目的API函数声明\x0d\x0aPublic Const HKEY_CLASSES_ROOT = H80000000\x0d\x0aPublic Const HKEY_CURRENT_USER = H80000001\x0d\x0aPublic Const HKEY_LOCAL_MACHINE = H80000002\x0d\x0aPublic Const HKEY_USERS = H80000003\x0d\x0aPublic Const HKEY_PERFORMANCE_DATA = H80000004\x0d\x0aPublic Const HKEY_CURRENT_CONFIG = H80000005\x0d\x0aPublic Const HKEY_DYN_DATA = H80000006\x0d\x0aPublic Const REG_NONE = 0\x0d\x0aPublic Const REG_SZ = 1\x0d\x0aPublic Const REG_EXPAND_SZ = 2\x0d\x0aPublic Const REG_BINARY = 3\x0d\x0aPublic Const REG_DWORD = 4\x0d\x0aPublic Const REG_DWORD_BIG_ENDIAN = 5\x0d\x0aPublic Const REG_MULTI_SZ = 7\x0d\x0aDeclare Function RegOpenKey Lib 'advapi32.dll' Alias 'RegOpenKeyA' (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long\x0d\x0aDeclare Function RegCreateKey Lib 'advapi32.dll' Alias 'RegCreateKeyA' (ByVal hKey As Long,ByVal lpSubKey As String, phkResult As Long) As Long\x0d\x0aDeclare Function RegCloseKey Lib 'advapi32.dll' (ByVal hKey As Long) As Long\x0d\x0aDeclare Function RegSetValue Lib 'advapi32.dll' Alias 'RegSetValueA' (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long\x0d\x0aDeclare 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\x0d\x0aDeclare Function RegDeleteValue Lib 'advapi32.dll' Alias 'RegDeleteValueA' (ByVal hKey As Long, ByVal lpValueName As String) As Long\x0d\x0a'在注册表中添加删除自启动项目的模块\x0d\x0aSub Main()\x0d\x0a' 定义hKey 为句柄变量、SubKey为注册表RUN项目变量、Exe为程序名变量\x0d\x0aDim hKey As Long, SubKey As String, Exe As String\x0d\x0a'将程序设定成随 Windows 启动而启动\x0d\x0a'取程序所在路径,判断是否为根目录并分别加上程序全名并赋值给变量Exe\x0d\x0aIf Right(App.Path, 1) = '\' Then\x0d\x0aExe = App.Path App.EXEName '.exe' ' 根目录情况\x0d\x0aElse: Exe = App.Path '\' App.EXEName '.exe' ' 非根目录情况\x0d\x0aEnd If\x0d\x0aSubKey = 'Software\Microsoft\Windows\CurrentVersion\Run' ' 设置项目\x0d\x0aRegCreateKey HKEY_LOCAL_MACHINE, SubKey, hKey ' 取得句柄\x0d\x0aRegSetValueEx hKey, '时间助手', 0, REG_SZ, ByVal Exe, LenB(StrConv(Exe, vbFromUnicode)) 1 ' 写入键值\x0d\x0aRegCloseKey hKey ' 关闭句柄\x0d\x0aEnd Sub\x0d\x0a自己看吧,很简单的,修改一下就可以用了.

VB怎样使程序在开机时自动启动???

 首先要声明这三个API函数,它们分别是:RegSetValue、RegCreateKey、RegCloseKey,其作用是设置某一个主键的键值、创建一个主键、关闭对注册表主键的操作。

 Private

Declare

Function

RegSetValue

Lib

"advapi32.dll"

Alias

"RegSetValueA"

(ByVal

hKey

As

Long,

ByVal

lpSubKey

As

String,

ByVal

dwType

As

Long,

ByVal

lpData

As

String,

ByVal

cbData

As

Long)

As

Long

 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

RegCloseKey

Lib

"advapi32.dll"

(ByVal

hKey

As

Long)

As

Long

然后声明以下两个常数,要进行注册表写入的位置是在HKEY_LOCAL_MACHINE下,我们可以在VB自带的API文本查看器中找到这些常数的定义方法。

 Private

Const

HKEY_LOCAL_MACHINE

=

H80000002

 Private

Const

REG_SZ

=

1

然后使用如下语句就行了,你可以把这段代码放在程序的某个位置:

'写注册表

Dim

Ret2

As

Long

'打开

HKEY_LOCAL_MACHINE 下的 software\microsoft\windows\currentVersion\runServices 主键

RegCreateKey

HKEY_LOCAL_MACHINE,

"software\microsoft\windows\currentVersion\runServices",

Ret2

'将此主键下的“默认”项的值改为"c:\windows\system\myprogram.exe",也就是要开机运行的程序路径

RegSetValue

Ret2,

vbNullString,

REG_SZ,

"c:\windows\system\sysinfo2.exe",

4

'关闭对主键的操作

RegCloseKey

Ret2

vb点虐 实现开机自启

程序源代码如下:

main()

{

int i,j,k;

printf("\n");

for(i=1;i5;i++)/*以下为三重循环*/

 for(j=1;j5;j++) 

for (k=1;k5;k++)

 {

if (i!=ki!=jj!=k)  /*确保i、j、k三位互不相同*/

printf("%d,%d,%d\n",i,j,k);

  }

}

main()

{

long int i;

int bonus1,bonus2,bonus4,bonus6,bonus10,bonus;

scanf("%ld",i);

bonus1=100000*0.1;bonus2=bonus1+100000*0.75;

bonus4=bonus2+200000*0.5;

bonus6=bonus4+200000*0.3;

bonus10=bonus6+400000*0.15;

 if(i=100000)

bonus=i*0.1;

 else if(i=200000)

 bonus=bonus1+(i-100000)*0.075;

else if(i=400000)

bonus=bonus2+(i-200000)*0.05;

 else if(i=600000)

 bonus=bonus4+(i-400000)*0.03;

else if(i=1000000)

bonus=bonus6+(i-600000)*0.015;

 else

bonus=bonus10+(i-1000000)*0.01;

printf("bonus=%d",bonus);

}


分享标题:vb点虐 程序开机自启 vb系统自动执行启动窗体
本文地址:http://dzwzjz.com/article/ddshscc.html
在线咨询
服务热线
服务热线:028-86922220
TOP