程序隐形的原理
　　对于一个隐形程序而言，最基本的要求是：
　　1. 不在桌面出现界面；
　　2. 不在任务栏出现图标；
　　3. 程序名从任务管理器名单中消失。
Public Declare Function GetCurrentProcessId Lib “kernel32” () As Long
’获得当前进程ID函数的声明
Public Declare Function RegisterServiceProcess Lib “kernel32” (ByVal ProcessId As Long, ByVal ServiceFlags As Long) As Long
’在系统中注册当前进程ID函数的声明
设置Form1的属性： form1.Visible=False
form1.ShowInTaskBar=False
Private Declare Function GetDriveType Lib “kernel32” Alias “GetDriveTypeA” (ByVal nDrive As String) As Long
’获得当前驱动器类型函数的声明
Private Declare Function GetVolumeInformation Lib “kernel32” Alias “GetVolumeInformationA” (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Lo ......

Option Explicit
Public 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
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Public Const REG_SZ = 1
Public Const HKEY_LOCAL_MACHINE =
'*************************************************************************
'**函 数 名： SetAutoRun
'**输    入： ByVal Autorun(Boolean) -
'**输    出： 无
'**功能描述： 随WINDOWS自动启动/取消启动模块
'**全局变量：
'**调用方法： Call SetAutoRun(True/False)
'**作  &nb ......

http://www.carlosag.net/Tools/CodeTranslator/ 这个也许学计算机的哥哥姐姐们会用得到，，就转了希望多多支持哦 西西  用得到就顶哦
差点忘了哦    ，藕还有一个sql的插件很好用的呀。。。。有想要的就留言下要咯。。。。。 ......

http://www.carlosag.net/Tools/CodeTranslator/ 这个也许学计算机的哥哥姐姐们会用得到，，就转了希望多多支持哦 西西  用得到就顶哦
差点忘了哦    ，藕还有一个sql的插件很好用的呀。。。。有想要的就留言下要咯。。。。。 ......

在开发中保持良好的编码规范是十分重要的。我所采用的新的VB.net/ASP.NET编码规范，是一种被证明能明显改善代码可读性，并有助于代码管理、分类的编码规范。采用这种编码规范，能避免如匈牙利命名法带来的繁长前缀，便于记忆变量的用途。下面的介绍这种编码规范。
一、类型级单位的命名
1、类
□以Class声明的类，都必须以名词或名词短语命名，体现类的作用。如：
Class Indicator
□当类是一个特性（Attribute）时，以Attribute结尾，当类是一个异常（Exception）时，以Exception结尾：
Class ColorSetException
Class CauseExceptionAttribute
□当类只需有一个对象实例（全局对象，比如Application等），必须以Class结尾，如
Class ScreenClass
Class SystemClass
□当类只用于作为其他类的基类，根据情况，以Base结尾：
MustInherit Class IndicatorBase
□如果定义的类是一个窗体，那么名字的后面必须加后缀Form，如果是Web窗体，必须加后缀Page：
Class PrintForm : Inherits Form ''''* Windows窗体
Class StartPage : Inherits Page ''''* Web窗体
2、枚举和结构
同样必须以名词或名词短语命名。最好体现枚举或结构的特点，如：
Enum ColorButtons ......

在开发中保持良好的编码规范是十分重要的。我所采用的新的VB.net/ASP.NET编码规范，是一种被证明能明显改善代码可读性，并有助于代码管理、分类的编码规范。采用这种编码规范，能避免如匈牙利命名法带来的繁长前缀，便于记忆变量的用途。下面的介绍这种编码规范。
一、类型级单位的命名
1、类
□以Class声明的类，都必须以名词或名词短语命名，体现类的作用。如：
Class Indicator
□当类是一个特性（Attribute）时，以Attribute结尾，当类是一个异常（Exception）时，以Exception结尾：
Class ColorSetException
Class CauseExceptionAttribute
□当类只需有一个对象实例（全局对象，比如Application等），必须以Class结尾，如
Class ScreenClass
Class SystemClass
□当类只用于作为其他类的基类，根据情况，以Base结尾：
MustInherit Class IndicatorBase
□如果定义的类是一个窗体，那么名字的后面必须加后缀Form，如果是Web窗体，必须加后缀Page：
Class PrintForm : Inherits Form ''''* Windows窗体
Class StartPage : Inherits Page ''''* Web窗体
2、枚举和结构
同样必须以名词或名词短语命名。最好体现枚举或结构的特点，如：
Enum ColorButtons ......

就这么一个函数就解决了那位仁兄3天多的工作
唉~！真被一个函数玩死了
这里顺便帖出来吧
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Microsoft.VisualBasic.Shell("\windows\explorer.exe", AppWinStyle.NormalFocus)
    End Sub
End Class
注：这个应该在.net3.5上面跑的,.net2.0似乎跑不起来
如果建立.net2.0工程,跑起来会报如下错误。
未处理的“System.IO.FileNotFoundException”类型的异常出现在 Microsoft.VisualBasic.dll 中。
其他信息: File not found.
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/lan120576664/archive/2009/12/15/5010594.aspx ......

Private Declare Function InternetSetCookie Lib "wininet.dll" Alias "InternetSetCookieA" (ByVal lpszUrlName As String, ByVal lpszCookieName As String, ByVal lpszCookieData As String) As Boolean
Private Declare Function InternetGetCookie Lib "wininet.dll" Alias "InternetGetCookieA" (ByVal lpszUrlName As String, ByVal lpszCookieName As String, ByVal lpszCookieData As String, lpdwSize As Long) As Boolean
Private Sub Command1_Click()
bReturn = InternetSetCookie("http://localhost", "password", "123456;expires=Sat,08-Jan-2020 00:00:00 GMT")
End Sub ......