Au3简单CS菜单 菜单

似水年华

1. 
   
2. #NoTrayIcon
   
3. If FileExists(@ScriptDir&"\bxwl.ini") = 0 Then
   
4. MsgBox(4096,"提示","配置文件不存在,程序即将退出.请联系管理员!")
   
5. Exit
   
6. EndIf
   
7. dim $1,$2,$3,$4,$5,$6,$7,$8,$9,$11,$12,$13,$14
   
8. $1 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","程序名字","")
   
9. $2 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","图片","")
   
10. $3 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","游戏名称1","")
    
11. $4 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","游戏名称2","")
    
12. $5 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","游戏名称3","")
    
13. $6 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","游戏名称4","")
    
14. $7 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","游戏名称5","")
    
15. $8 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","游戏名称6","")
    
16. $9 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","游戏名称7","")
    
17. $10 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","游戏名称8","")
    
18. $11 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","游戏名称9","")
    
19. $12 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","游戏名称10","")
    
20. $13 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","游戏名称11","")
    
21. $14 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","游戏名称12","")
    
22. dim $15,$16,$17,$18,$19,$20,$21,$22,$23,$24,$25,$26,$27
    
23. $15 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","执行文件1","")
    
24. $16 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","执行文件2","")
    
25. $17 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","执行文件3","")
    
26. $18 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","执行文件4","")
    
27. $19 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","执行文件5","")
    
28. $20 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","执行文件6","")
    
29. $21 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","执行文件7","")
    
30. $22 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","执行文件8","")
    
31. $23 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","执行文件9","")
    
32. $24 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","执行文件10","")
    
33. $25 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","执行文件11","")
    
34. $26 = IniRead(@ScriptDir &"\bxwl.ini","冰心痴","执行文件12","")
    
35. #include <GUIConstants.au3>
    
36. $Form1_1 = GUICreate($1, 633, 579, 193, 115, -1, $WS_EX_ACCEPTFILES)
    
37. $Pic1 = GUICtrlCreatePic($2, 40, 32, 545, 257, BitOR($SS_NOTIFY,$WS_GROUP))
    
38. $Button2 = GUICtrlCreateButton($3, 40, 336, 107, 41, 0)
    
39. $Button3 = GUICtrlCreateButton($4, 176, 336, 107, 41, 0)
    
40. $Button4 = GUICtrlCreateButton($5, 320, 336, 107, 41, 0)
    
41. $Button5 = GUICtrlCreateButton($6, 456, 336, 107, 41, 0)
    
42. $Button6 = GUICtrlCreateButton($7, 40, 402, 107, 41, 0)
    
43. $Button7 = GUICtrlCreateButton($8, 178, 401, 107, 41, 0)
    
44. $Button8 = GUICtrlCreateButton($9, 319, 399, 107, 41, 0)
    
45. $Button9 = GUICtrlCreateButton($10, 460, 403, 107, 41, 0)
    
46. $Button10 = GUICtrlCreateButton($11, 41, 477, 107, 41, 0)
    
47. $Button11 = GUICtrlCreateButton($12, 180, 474, 107, 41, 0)
    
48. $Button12 = GUICtrlCreateButton($13, 323, 475, 107, 41, 0)
    
49. $Button13 = GUICtrlCreateButton($14, 460, 472, 107, 41, 0)
    
50. GUISetState(@SW_SHOW)
    
51. #EndRegion ### END Koda GUI section ###
    
52. While 1
    
53. $nMsg = GUIGetMsg()
    
54. Select
    
55.   Case $nMsg = $GUI_EVENT_CLOSE
    
56.    Exit
    
57.   Case $nMsg = $Button2
    
58.    run($15)
    
59.   Case $nMsg = $Button3
    
60.    run($16)
    
61.   Case $nMsg = $Button4
    
62.    run($17)
    
63.   Case $nMsg = $Button5
    
64.    run($18)
    
65.   Case $nMsg = $Button6
    
66.    run($19)
    
67.   Case $nMsg = $Button7
    
68.    run($20)
    
69.   Case $nMsg = $Button8
    
70.    run($21)
    
71.   Case $nMsg = $Button9
    
72.    run($22)
    
73.   Case $nMsg = $Button10
    
74.    run($23)
    
75.   Case $nMsg = $Button11
    
76.    run($24)
    
77.   Case $nMsg = $Button12
    
78.    run($25)
    
79.   Case $nMsg = $Button13
    
80.    run($26)
    
81. EndSelect
    
82. WEnd

复制代码

By冰心痴