bj17209 发表于 2009-6-17 00:46:16

如何同时激活2个窗口以上的窗口啊!!帮帮忙啊

如何同时激活2个窗口以上的窗口啊!!帮帮忙啊
帮帮我,怎么解决啊!!!
#include <Process.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3> ;导入一个AU3自带文件,主要用其防止重复运行程序的函数
_Singleton("TheNameOfMy") ;这个函数就是用来检测是否有相同程序在运行如果有则退出,就是只运行一次
Break(0) ;禁止退出!
Send("{NUMLOCK on}")
#NoTrayIcon
HotKeySet("!x", "Terminate") ;esc键退出程序!

FileInstall("SkinCrafterDll.dll", @TempDir & "\SkinCrafterDll.dll", 1)
FileInstall("vista.skf", @TempDir & "\vista.skf", 1)


$I_admin = @ScriptDir & "\公告.ini"
$I_mss = IniRead($I_admin, "公告配置", "mss", "")
$netbar = IniRead($I_admin, "公告配置", "netbar", "")
$HIDE = GUICreate("", "", "", "", "", "", $ws_popup, $WS_EX_TOOLWINDOW)
$hwnd = GUICreate("", 300, 200, (@DesktopWidth) - 320, (@DesktopHeight) - 300, $HIDE, $WS_EX_TOOLWINDOW)
_SkinGUI(@TempDir & "\SkinCrafterDll.dll", @TempDir & "\vista.skf", $hwnd) ;皮肤
GUICtrlCreateLabel($netbar, 80, 0, 300, 40)
GUICtrlSetFont(-1, 16, 800)
GUICtrlCreateLabel(" " & @ComputerName & "号顾客 欢迎您来到本网吧!", 0, 30, 300, 40)
GUICtrlSetFont(-1, 14, 800)
GUICtrlCreateLabel(" " & $I_mss, 0, 50, 300, 100)
GUICtrlSetFont(-1, 14, 800)
GUISetState()
winsetstate("", "", @SW_DISABLE) ;禁止窗体移动



While 1
      ;$I_admin = @ScriptDir & "\公告.ini"
      ;$I_mss = IniRead($I_admin, "公告配置", "mss", "")
      ;$netbar = IniRead($I_admin, "公告配置", "netbar", "")
      ;GUICtrlCreateLabel(" " & $I_mss, 0, 50, 300, 100)
      ;GUICtrlSetFont(-1, 14, 800)
      ;GUISetState()
      sleep(10000)
WEnd



;窗体调用
Func _SkinGUI($SkincrafterDll, $SkincrafterSkin, $Handle)
      $Dll = DllOpen($SkincrafterDll)
      DllCall($Dll, "int:cdecl", "InitLicenKeys", "wstr", "1", "wstr", "", "wstr", "1@1.com", "wstr", "1")
      DllCall($Dll, "int:cdecl", "InitDecoration", "int", 1)
      DllCall($Dll, "int:cdecl", "LoadSkinFromFile", "wstr", $SkincrafterSkin)
      DllCall($Dll, "int:cdecl", "DecorateAs", "int", $Handle, "int", 25)
      DllCall($Dll, "int:cdecl", "ApplySkin")
EndFunc   ;==>_SkinGUI

Func Terminate()
      Exit 0
EndFunc   ;==>Terminate
页: [1]
查看完整版本: 如何同时激活2个窗口以上的窗口啊!!帮帮忙啊