AutoIt Install Win 8 窓辺ゆう (Win8娘) For Win7 SRC

rictirse

1. 
   
2. #Region
   
3. #AutoIt3Wrapper_icon=C:NewDang.ico
   
4. #AutoIt3Wrapper_Compression=5
   
5. #AutoIt3Wrapper_Res_Comment=Windows7 窓辺ゆう
   
6. #AutoIt3Wrapper_Res_Description=Windows7 窓辺ゆう
   
7. #AutoIt3Wrapper_Res_Fileversion=1.0.0.0
   
8. #AutoIt3Wrapper_Res_LegalCopyright=噹噹
   
9. #EndRegion
   
10. 
    
11. #NoTrayIcon
    
12. #RequireAdmin
    
13. 
    
14. Global $Path = @UserProfileDir&"AppDataLocalMicrosoftWindowsThemes"
    
15. Global $FileName = "install.exe"
    
16. Global Const $reg = "HKCUSoftwareDang窓辺ゆう"
    
17. 
    
18. If RegRead ( $reg, "Install") = 1 Then
    
19.         If MsgBox ( 36, "", "已安裝過，是否移除？") = 6 Then
    
20.                 RegDelete ($reg)
    
21.                 RegDelete ('HKCUAppEventsSchemesApps')
    
22.                 _Def()
    
23.                 ShellExecute ( @WindowsDir&"ResourcesThemesaero.theme")
    
24.                 Sleep (1000*60);60秒後山除檔案
    
25.                 FileDelete ($Path&"窓辺ゆう")
    
26.         EndIf
    
27.         Exit
    
28. Else
    
29.         RegWrite ( $reg, "Install", "REG_SZ", 1)
    
30. EndIf
    
31. 
    
32. If @OSVersion = "WIN_7" Then
    
33.         FileDelete ($Path&""&$FileName)
    
    
34.         FileInstall ("install.exe", $Path&""&$FileName)
    
35.         RunWait ( $Path&""&$FileName, $Path)
    
36.         FileDelete ($Path&""&$FileName)
    
37. Else
    
38.         MsgBox ( 16,"","您的系統為"&@OSVersion&"不相容本主題。")
    
39.         Exit
    
40. EndIf
    
41. 
    
42. $s_BitmapImage= $Path&"窓辺ゆうDesktopBackgroundwindows8yu&ai_pcdiy.bmp"
    
43. 
    
44. _SetWallpaper($s_BitmapImage)
    
45. RegWrite('HKCUControl PanelDesktop', 'Wallpaper', 'REG_SZ', $s_BitmapImage)
    
46. _set()
    
47. Func _SetWallpaper($s_BitmapImage, $l_params = 0)
    
48.     $ai_Ret = DllCall ('user32.dll', 'long', 'SystemParametersInfoA', 'long', 20, 'long', 0, 'str', $s_BitmapImage, 'long', $l_params)
    
49.     Return $ai_Ret[0]
    
50. EndFunc
    
51. 
    
52. Func _set()
    
53.         RegWrite('HKCUAppEventsSchemesApps.Default.Default.Default', '', 'REG_SZ', $Path&'窓辺ゆうぁわっ.wav')
    
54.         RegWrite('HKCUAppEventsSchemesApps.DefaultChangeTheme.Default', '', 'REG_SZ', $Path&'窓辺ゆうこんにちは！窓辺ゆうですっ.wav')
    
55.         RegWrite('HKCUAppEventsSchemesApps.DefaultCriticalBatteryAlarm.Default', '', 'REG_SZ', $Path&'窓辺ゆうそろそろバッテリーつないだほうがいいかも、です♪.wav')
    
56.         RegWrite('HKCUAppEventsSchemesApps.DefaultDeviceConnect.Default', '', 'REG_SZ', $Path&'窓辺ゆうちゃんとつながりましたねっ.wav')
    
57.         RegWrite('HKCUAppEventsSchemesApps.DefaultDeviceDisconnect.Default', '', 'REG_SZ', $Path&'窓辺ゆう抜いても平気ですよ♪.wav')
    
    
58.         RegWrite('HKCUAppEventsSchemesApps.DefaultDeviceFail.Default', '', 'REG_SZ', $Path&'窓辺ゆうなんでだろう、つながらないですね・・.wav')
    
59.         RegWrite('HKCUAppEventsSchemesApps.DefaultLowBatteryAlarm.Default', '', 'REG_SZ', $Path&'窓辺ゆうあれ、バッテリーが少ないですよ♪.wav')
    
60.         RegWrite('HKCUAppEventsSchemesApps.DefaultMailBeep.Default', '', 'REG_SZ', $Path&'窓辺ゆうメールが届きましたよ♪.wav')
    
61.         RegWrite('HKCUAppEventsSchemesApps.DefaultSystemAsterisk.Default', '', 'REG_SZ', $Path&'窓辺ゆうあれれ？.wav')
    
62.         RegWrite('HKCUAppEventsSchemesApps.DefaultSystemExclamation.Default', '', 'REG_SZ', $Path&'窓辺ゆうおやぁ？.wav')
    
63.         RegWrite('HKCUAppEventsSchemesApps.DefaultSystemHand.Default', '', 'REG_SZ', $Path&'窓辺ゆうあれっ、システムエラーですって.wav')
    
64.         RegWrite('HKCUAppEventsSchemesApps.DefaultSystemNotification.Default', '', 'REG_SZ', $Path&'窓辺ゆうん？.wav')
    
65.         RegWrite('HKCUAppEventsSchemesApps.DefaultWindowsUAC.Default', '', 'REG_SZ', $Path&'窓辺ゆうほんとに進めてもいいですかぁ？.wav')
    
66.         RegWrite('HKCUAppEventsSchemesApps.DefaultAppGPFault.Default', '', 'REG_SZ', $Path&'窓辺ゆうyou_あれれ？.wav')
    
67.         RegWrite('HKCUAppEventsSchemesApps.DefaultFaxBeep.Default', '', 'REG_SZ', $Path&'窓辺ゆうyou_メッセージきたみたいですよ♪.wav')
    
68.         RegWrite('HKCUAppEventsSchemesApps.DefaultPrintComplete.Default', '', 'REG_SZ', $Path&'窓辺ゆうyou_準備完了ですっ.wav')
    
    
69.         RegWrite('HKCUAppEventsSchemesApps.DefaultSystemQuestion.Default', '', 'REG_SZ', $Path&'窓辺ゆうyou_なんでだろう、つながらないですね・・.wav')
    
70.         RegWrite('HKCUAppEventsSchemesApps.DefaultWindowsLogoff.Default', '', 'REG_SZ', $Path&'窓辺ゆうyou_おつかれさまでしたぁ、おやすみなさい♪.wav')
    
71.         RegWrite('HKCUAppEventsSchemesApps.DefaultWindowsLogon.Default', '', 'REG_SZ', $Path&'窓辺ゆうyou_あっ、おかえりなさい.wav')
    
72.         RegWrite('HKCUAppEventsSchemesAppsExplorerBlockedPopup.Default', '', 'REG_SZ', $Path&'窓辺ゆうyou_ピロリン.wav')
    
73.         RegWrite('HKCUAppEventsSchemesAppsExplorerSearchProviderDiscovered.Default', '', 'REG_SZ', $Path&'窓辺ゆうyou_ババーン.wav')
    
74. 
    
75.         RegWrite('HKCUAppEventsSchemesApps.Default.Default.Current', '', 'REG_SZ', $Path&'窓辺ゆうぁわっ.wav')
    
76.         RegWrite('HKCUAppEventsSchemesApps.DefaultChangeTheme.Current', '', 'REG_SZ', $Path&'窓辺ゆうこんにちは！窓辺ゆうですっ.wav')
    
77.         RegWrite('HKCUAppEventsSchemesApps.DefaultCriticalBatteryAlarm.Current', '', 'REG_SZ', $Path&'窓辺ゆうそろそろバッテリーつないだほうがいいかも、です♪.wav')
    
78.         RegWrite('HKCUAppEventsSchemesApps.DefaultDeviceConnect.Current', '', 'REG_SZ', $Path&'窓辺ゆうちゃんとつながりましたねっ.wav')
    
79.         RegWrite('HKCUAppEventsSchemesApps.DefaultDeviceDisconnect.Current', '', 'REG_SZ', $Path&'窓辺ゆう抜いても平気ですよ♪.wav')
    
80.         RegWrite('HKCUAppEventsSchemesApps.DefaultDeviceFail.Current', '', 'REG_SZ', $Path&'窓辺ゆうなんでだろう、つながらないですね・・.wav')
    
    
81.         RegWrite('HKCUAppEventsSchemesApps.DefaultLowBatteryAlarm.Current', '', 'REG_SZ', $Path&'窓辺ゆうあれ、バッテリーが少ないですよ♪.wav')
    
82.         RegWrite('HKCUAppEventsSchemesApps.DefaultMailBeep.Current', '', 'REG_SZ', $Path&'窓辺ゆうメールが届きましたよ♪.wav')
    
83.         RegWrite('HKCUAppEventsSchemesApps.DefaultSystemAsterisk.Current', '', 'REG_SZ', $Path&'窓辺ゆうあれれ？.wav')
    
84.         RegWrite('HKCUAppEventsSchemesApps.DefaultSystemExclamation.Current', '', 'REG_SZ', $Path&'窓辺ゆうおやぁ？.wav')
    
85.         RegWrite('HKCUAppEventsSchemesApps.DefaultSystemHand.Current', '', 'REG_SZ', $Path&'窓辺ゆうあれっ、システムエラーですって.wav')
    
86.         RegWrite('HKCUAppEventsSchemesApps.DefaultSystemNotification.Current', '', 'REG_SZ', $Path&'窓辺ゆうん？.wav')
    
87.         RegWrite('HKCUAppEventsSchemesApps.DefaultWindowsUAC.Current', '', 'REG_SZ', $Path&'窓辺ゆうほんとに進めてもいいですかぁ？.wav')
    
88.         RegWrite('HKCUAppEventsSchemesApps.DefaultAppGPFault.Current', '', 'REG_SZ', $Path&'窓辺ゆうyou_あれれ？.wav')
    
89.         RegWrite('HKCUAppEventsSchemesApps.DefaultFaxBeep.Current', '', 'REG_SZ', $Path&'窓辺ゆうyou_メッセージきたみたいですよ♪.wav')
    
90.         RegWrite('HKCUAppEventsSchemesApps.DefaultPrintComplete.Current', '', 'REG_SZ', $Path&'窓辺ゆうyou_準備完了ですっ.wav')
    
91.         RegWrite('HKCUAppEventsSchemesApps.DefaultSystemQuestion.Current', '', 'REG_SZ', $Path&'窓辺ゆうyou_なんでだろう、つながらないですね・・.wav')
    
    
92.         RegWrite('HKCUAppEventsSchemesApps.DefaultWindowsLogoff.Current', '', 'REG_SZ', $Path&'窓辺ゆうyou_おつかれさまでしたぁ、おやすみなさい♪.wav')
    
93.         RegWrite('HKCUAppEventsSchemesApps.DefaultWindowsLogon.Current', '', 'REG_SZ', $Path&'窓辺ゆうyou_あっ、おかえりなさい.wav')
    
94.         RegWrite('HKCUAppEventsSchemesAppsExplorerBlockedPopup.Current', '', 'REG_SZ', $Path&'窓辺ゆうyou_ピロリン.wav')
    
95.         RegWrite('HKCUAppEventsSchemesAppsExplorerSearchProviderDiscovered.Current', '', 'REG_SZ', $Path&'窓辺ゆうyou_ババーン.wav')
    
96. EndFunc
    
97. 
    
98. Func _Def()
    
99.         ;; 這邊是放還原用的code 內容太多沒辦法列出來 詳見附件
    
100. EndFunc
     

複製代碼

ttttt40

喔喔喔 這編碼可以研究研究~!!!!
另外看到了個錯字XDDDDD
第24行的"山"~~~