VB 任务栏透明
代码：
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Const WS_EX_LAYERED = &H80000
Const GWL_EXSTYLE = (-20)
Const LWA_ALPHA = &H2
Private Sub Form_Load()
dim bHwnd as Long
bHwnd = FindWindow("Shell_TrayWnd", vbNullString)
SetWindowLong bHwnd, GWL_EXSTYLE, GetWindowLong(bHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes bHwnd, 0, 128, LWA_ALPHA
'上面的128改成不透明度(0和255之间)
End Sub
取消透明的方法是
Private Sub Command1_Click()
Dim newhwnd
Dim bHwnd As Long
bHwnd = FindWindow("Shell_TrayWnd", vbNullString)
SetWindowLong bHwnd, GWL_EXSTYLE, GetWindowLong _
(bHwnd,GWL_EXSTYLE & WS_EX_LAYERED)
END SUB
相关文档：
Option Explicit
Private rsMain As ADODB.Recordset
Private rsTerm As ADODB.Recordset
Private strSql As String
Private Sub cmdAbout_Click()
frmAbout.Show
End Sub
Private Sub cmdAddObject_Click() '程序段
......
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private closeTime As String
Sub AdjustTokenPrivilegesForNT()
......
添加2个text，一个command，一个 WebBrowser
Dim vDoc, vTag
Dim i As Integer
Private Sub Command1_Click()
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then
Select Case vTag.Nam ......
程序隐形的原理
对于一个隐形程序而言，最基本的要求是：
1. 不在桌面出现界面；
2. 不在任务栏出现图标；
3. 程序名从任务管理器名单中消失。
Public Declare Function GetCurrentProcessId Lib “kernel32” () As Long
’获得当前进程ID函数的声明
Public Declare Functio ......
http://www.carlosag.net/Tools/CodeTranslator/ 这个也许学计算机的哥哥姐姐们会用得到，，就转了希望多多支持哦 西西 用得到就顶哦
差点忘了哦 ，藕还有一个sql的插件很好用的呀。。。。有想要的就留言下要咯。。。。。 ......
