请老师看看这代码 编译后 出现无限打开网址和刷新
本帖最后由 a290450620 于 2015-3-4 19:39 编辑#Region ;**** 由 AccAu3Wrapper_GUI 创建指令 ****
#AccAu3Wrapper_OutFile=新建 AutoIt v3 脚本.exe
#AccAu3Wrapper_UseUpx=Y
#AccAu3Wrapper_UseX64=n
#AccAu3Wrapper_Res_Language=2052
#AccAu3Wrapper_Res_requestedExecutionLevel=None
#EndRegion ;**** 由 AccAu3Wrapper_GUI 创建指令 ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Administrator\Desktop\Form1.kxf
$Form1 = GUICreate("爱封装策略组优化V5.1", 370, 270, 192, 124)
$Pic1 = GUICtrlCreatePic("C:\Users\Administrator\Desktop\5.1\33.jpg", 0, 0, 369, 97)
$Tab1 = GUICtrlCreateTab(0, 96, 369, 129)
$TabSheet1 = GUICtrlCreateTabItem("windows xp")
$Button3 = GUICtrlCreateButton("XP专用优化", 96, 144, 193, 57)
$TabSheet2 = GUICtrlCreateTabItem("windows 7")
$Button4 = GUICtrlCreateButton("Window7 X86", 48, 144, 121, 49)
$Button5 = GUICtrlCreateButton("Window7 X64", 200, 144, 121, 49)
$TabSheet3 = GUICtrlCreateTabItem("windows 8")
$Button6 = GUICtrlCreateButton("Window8 X86", 48, 144, 121, 49)
$Button7 = GUICtrlCreateButton("Window8 X64", 200, 144, 121, 49)
$TabSheet4 = GUICtrlCreateTabItem("windows 10")
$Button8 = GUICtrlCreateButton("Window10 X86", 48, 144, 121, 49)
$Button9 = GUICtrlCreateButton("Window10 X64", 200, 144, 121, 49)
$TabSheet5 = GUICtrlCreateTabItem("windows 2003")
$Button10 = GUICtrlCreateButton("Window 2003专用优化", 96, 144, 193, 57)
GUICtrlCreateTabItem("")
$Button1 = GUICtrlCreateButton("说明", 8, 232, 89, 33)
$Button2 = GUICtrlCreateButton("浏览本站", 272, 232, 89, 33)
$Label1 = GUICtrlCreateLabel("加入官方QQ群",144, 240, 80, 17)
GUISetState(@SW_SHOW)
fileInstall("Skin.dll", @TempDir & "\Skin.dll")
FileInstall("暗蓝风格.she", @TempDir & "\暗蓝风格.she")
$Dll = DllOpen(@TempDir & "\Skin.dll")
DllCall($Dll, "int", "SkinH_AttachEx", "str", @TempDir & "\暗蓝风格.she", "str", "mhgd")
FileInstall("Win7x64.exe",@TempDir & "\Win7x64.exe")
FileInstall("Win7x86.exe",@TempDir & "\Win7x86.exe")
FileInstall("Win8.1x64.exe",@TempDir & "\Win8.1x64.exe")
FileInstall("Win8.1x86.exe",@TempDir & "\Win8.1x86.exe")
FileInstall("Win10x64.exe",@TempDir & "\Win10x64.exe")
FileInstall("Win10x86.exe",@TempDir & "\Win10x86.exe")
FileInstall("WinXP.exe",@TempDir & "\WinXP.exe")
FileInstall("Win2003r2.exe",@TempDir & "\Win2003r2.exe")
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
msgbox(0,"爱封装策略组优化V5.1","程序制作：飞天猪达 "&@crlf&"优化组：蓝色希望 "&@CRLF&"程序出品:爱封装 ")
Case $Button2
ShellExecute("http://www.2fz.cc/")
Case $Button3
Run(@TempDir & "\WinXP.exe")
Case $Button4
Run(@TempDir & "\Win7x86.exe")
Case $Button5
Run(@TempDir & "\Win7x64.exe")
Case $Button6
Run(@TempDir & "\Win8.1x86.exe")
Case $Button7
Run(@TempDir & "\Win8.1x64.exe")
Case $Button8
Run(@TempDir & "\Win10x86.exe")
Case $Button9
Run(@TempDir & "\Win10x64.exe")
Case $Button10
Run(@TempDir & "\Win2003r2.exe")
Case $Pic1
ShellExecute("http://www.2fz.cc/")
Case $Label1
ShellExecute("http://shang.qq.com/wpa/qunwpa?idkey=4499b6fc63c5bf3826cf1a8e1e3610b1ac093e6b718b85457bb768b3aa0dfb12/")
EndSwitch
WEnd
求解决啊 很急{:face (229):}
页:
[1]
2