czl1378

额。。好像不支持or运算...好想让CMD的黑色透明。。可惜..

czl1378

7楼的不懂...下了，好像只支持String?
能不能高诉下用法。

czl1378

好像又更新了。
额、、帮俺问下。。怎么使cmd的背景透明。。俺英语不大好。

VB中使窗体透明的代码：

VB 窗口透明调节2007-01-07 04:56添加Slider控键.用于调节透明度

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
  
   
   
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_LAYERED = &H80000
Public Const LWA_ALPHA = &H2

Public Function TranslucentForm(frm As Form, TranslucenceLevel As Byte) As Boolean
SetWindowLong frm.hwnd, GWL_EXSTYLE, WS_EX_LAYERED
SetLayeredWindowAttributes frm.hwnd, 0, TranslucenceLevel, LWA_ALPHA
TranslucentForm = Err.LastDllError = 0
End Function


TranslucentForm 窗口名(me), 透明度大小(0-255)
TranslucentForm Me, Slider1.Value(例子)

改为批处理之后。。。

@echo off&&setlocal EnableDelayedExpansion
set GWL_EXSTYLE=-20
set /a WS_EX_LAYERED =80000
set /a LWA_ALPHA=2
set /a LWA_COLORKEY=1
ext\func.dll user32.dll GetForegroundWindow
::返回当前窗口句柄
set "hnd=%errorlevel%"
ext\func.dll user32.dll SetWindowLongA -d %hnd% -d %GWL_EXSTYLE% -x %WS_EX_LAYERED%
echo %errorlevel%
pause>nul
复制代码

返回句柄很正常。。可是下面就遇到了问题。。