VB显示透明FLASH效果
VB显示透明FLASH效果
演示效果：
代码如下：
公共声明区域
Option Explicit
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_COLORKEY = &H1
Dim rtn&
Private Sub Form_Load()
ShockwaveFlash1.BackgroundColor = RGB(255, 255, 255)
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hwnd, RGB(255, 255, 255), 0, LWA_COLORKEY
ShockwaveFlash1.Movie = App.Path & "\1.swf"
End Sub
相关文档：
这一段大家编写程序很多时候都在使用API,它给我们带来了强大的功能.让我们非常惊喜.
但是我们在调试程序的时候有时候总会奔溃.这样很不方便.
其中有些是api惹的祸
使用api注意事项:
首先我说说我的观点.
1:Api是很多系统也在用.我们在设置参数时如果和系统的参数有冲突.就可能引起软件出错
2.api很多都是c语言编写的, ......
这是一篇讲解如何使用XML实现Flash与通信的入门级实例教程。通过本例的学习，我们将了解使用XML开发Flash RIAs的基本流程。
从Flash Player 5开始，就可以使用XML对象来实现Flash与后台通信。Flash浏览器与XML数据之间的直接进行数据交换，并且同LoadVars函数一样，都是以字符串形式传递的。后台语言作为XML数据和数据库 ......
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()
......
经daquan提醒，发现听雨对于上传的flash文件的脚本没有处理，用户能够利用上传的flash的脚本功能（比如带有geturl动作的flash）实现自动跳转到某个站点。
到北邮人论坛参考了一下，发现他们有对flash脚本的禁用，于是借鉴北邮人的做法，对听雨的flash附件脚本动作进行了处理，具体做法如下：
改动之前的代码：
<objec ......
