#Region AutoIt3Wrapper 编译参数
#AutoIt3Wrapper_UseAnsi=y ;编码
#AutoIt3Wrapper_Icon= ;图标
#AutoIt3Wrapper_OutFile= ;输出文件名
#AutoIt3Wrapper_OutFile_Type=exe ;文件类型
#AutoIt3Wrapper_Compression=4 ;压缩等级
#AutoIt3Wrapper_UseUpx=y ;使用压缩
#AutoIt3Wrapper_Res_Comment= ;注释
#AutoIt3Wrapper_Res_Description= ;详细信息
#AutoIt3Wrapper_Res_Fileversion= ;文件版本
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=p ;自动更新版本
#AutoIt3Wrapper_Res_LegalCopyright= ;版权
;#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer% ;自定义资源段
;#AutoIt3Wrapper_Run_Tidy= ;脚本整理
;#AutoIt3Wrapper_Run_Obfuscator= ;代码迷惑
;#AutoIt3Wrapper_Run_AU3Check= ;语法检查
;#AutoIt3Wrapper_Run_Before= ;运行前
;#AutoIt3Wrapper_Run_After= ;运行后
#EndRegion AutoIt3Wrapper 编译参数设置完成
#cs ____________________________________
AutoIt 版本: 3.2.10.0(第一版)
脚本作者:
Email:
QQ/TM:
脚本版本:
脚本功能:
#ce _______________脚本开始_________________
#include <GUIConstants.au3>
Opt( "RunErrorsFatal", 0 ) ;防止执行程序出错被冲止
Opt("TrayIconHide",1) ;隐藏
#Region ### START Koda GUI section ### Form=c:\documents and settings\administrator\桌面\form1.kxf
$tenor = ProcessList(@ScriptName)
If $tenor[0][0] > 1 Then
msgbox(0,"提示","已经有一个程序在运行",10)
Exit
EndIf
if @OSTYPE <> "WIN32_NT" then
MsgBox(0,"提示","本程序只支持NT/2000/XP/2003系统")
exit
EndIf
If Not FileExists(@ScriptDir&"\"&"config.ini") Then
MsgBox(48,'提示','没有找到配置文件')
Exit
EndIf
$lq=( IniRead(@ScriptDir&"\"&"config.ini",'参数','调用路径','') )
If FileExists($lq) Then
FileCopy($lq&'\config.ini',@ScriptDir&"\config.ini",1)
EndIf
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=c:\documents and settings\administrator\桌面\form1.kxf
$Form1_1 = GUICreate("网吧比赛报名程序", 613, 428, 225, 160)
GUISetIcon("E:\down\ico\QQ对战平台.ico")
$Pic1 = GUICtrlCreatePic("E:\wjserver\update\换桌面\005.jpg", 0, 0, 612, 81, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Group1 = GUICtrlCreateGroup("可参加比赛游戏", 0, 88, 289, 337)
$Label1 = GUICtrlCreateLabel("游戏名称", 8, 112, 52, 17)
$Label2 = GUICtrlCreateLabel("比赛时间", 96, 112, 52, 17)
$Label3 = GUICtrlCreateLabel("类别", 176, 112, 28, 17)
$Label4 = GUICtrlCreateLabel("详细情况", 224, 112, 52, 17)
$Radio1 = GUICtrlCreateRadio("Radio1", 8, 136, 17, 17)
$yxmc1 = GUICtrlCreateLabel("", 40, 136, 52, 17)
$Input3 = GUICtrlCreateInput("", 88, 136, 65, 21)
$bssj1 = GUICtrlCreateLabel("", 168, 136, 52, 17)
$Button1 = GUICtrlCreateButton("详情", 224, 136, 49, 20, 0)
$Button2 = GUICtrlCreateButton("我要报名", 176, 392, 73, 25, 0)
GUICtrlCreateInput("", 77, 341, 81, 21)
GUICtrlCreateInput("", 77, 367, 81, 21)
GUICtrlCreateInput("", 77, 393, 81, 21)
$Label14 = GUICtrlCreateLabel("姓名", 16, 344, 28, 17)
$Label15 = GUICtrlCreateLabel("卡号", 16, 368, 28, 17)
$Label16 = GUICtrlCreateLabel("联系电话", 8, 392, 52, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("详情", 296, 88, 177, 337)
$Label5 = GUICtrlCreateLabel("游戏名称", 304, 112, 52, 17)
$Label6 = GUICtrlCreateLabel("比赛日期", 304, 144, 52, 17)
$Label7 = GUICtrlCreateLabel("比赛规则", 305, 171, 52, 17)
GUICtrlCreateInput("", 360, 112, 89, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateInput("", 360, 143, 89, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input1 = GUICtrlCreateInput("", 306, 192, 153, 100)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label8 = GUICtrlCreateLabel("奖品", 304, 296, 28, 17)
$Input2 = GUICtrlCreateInput("", 306, 316, 153, 100)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("最近排名", 480, 88, 129, 337)
$Label9 = GUICtrlCreateLabel("NO", 488, 104, 20, 17)
$Label10 = GUICtrlCreateLabel("角色名称", 520, 104, 52, 17)
$Label11 = GUICtrlCreateLabel("得分", 576, 104, 28, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Case $Button2
Case $Input1
Case $Input2
EndSwitch
WEnd
$yxmc1=IniRead(@ScriptDir &"\config.ini","游戏1","游戏名称1","")
$bssj1=IniRead(@ScriptDir &"\config.ini","游戏1","游戏时间1","")
[ 本帖最后由 wj6025 于 2008-5-24 15:58 编辑 ] |