請選擇 進入手機版 | 繼續訪問電腦版

微剋多資訊

 找回密碼
 註冊

Login

搜索
回覆 1則 瀏覽 1213篇

[碼源] AutoIt Install Win 8 窓辺ゆう (Win8娘) For Win7 SRC

該用戶從未簽到

發表於 2012-11-9 23:53 | 顯示全部樓層 |閱讀模式
本帖最後由 rictirse 於 2014-5-22 22:04 編輯

  1. #Region
  2. #AutoIt3Wrapper_icon=C:\NewDang.ico
  3. #AutoIt3Wrapper_Compression=5
  4. #AutoIt3Wrapper_Res_Comment=Windows7 窓辺ゆう
  5. #AutoIt3Wrapper_Res_Description=Windows7 窓辺ゆう
  6. #AutoIt3Wrapper_Res_Fileversion=1.0.0.0
  7. #AutoIt3Wrapper_Res_LegalCopyright=噹噹
  8. #EndRegion

  9. #NoTrayIcon
  10. #RequireAdmin

  11. Global $Path = @UserProfileDir&"\AppData\Local\Microsoft\Windows\Themes"
  12. Global $FileName = "install.exe"
  13. Global Const $reg = "HKCU\Software\Dang\窓辺ゆう"

  14. If RegRead ( $reg, "Install") = 1 Then
  15.         If MsgBox ( 36, "", "已安裝過,是否移除?") = 6 Then
  16.                 RegDelete ($reg)
  17.                 RegDelete ('HKCU\AppEvents\Schemes\Apps')
  18.                 _Def()
  19.                 ShellExecute ( @WindowsDir&"\Resources\Themes\aero.theme")
  20.                 Sleep (1000*60);60秒後山除檔案
  21.                 FileDelete ($Path&"\窓辺ゆう")
  22.         EndIf
  23.         Exit
  24. Else
  25.         RegWrite ( $reg, "Install", "REG_SZ", 1)
  26. EndIf

  27. If @OSVersion = "WIN_7" Then
  28.         FileDelete ($Path&"\"&$FileName)
  29.         FileInstall ("install.exe", $Path&"\"&$FileName)
  30.         RunWait ( $Path&"\"&$FileName, $Path)
  31.         FileDelete ($Path&"\"&$FileName)
  32. Else
  33.         MsgBox ( 16,"","您的系統為"&@OSVersion&"不相容本主題。")
  34.         Exit
  35. EndIf

  36. $s_BitmapImage= $Path&"\窓辺ゆう\DesktopBackground\windows8yu&ai_pcdiy.bmp"

  37. _SetWallpaper($s_BitmapImage)
  38. RegWrite('HKCU\Control Panel\Desktop', 'Wallpaper', 'REG_SZ', $s_BitmapImage)
  39. _set()
  40. Func _SetWallpaper($s_BitmapImage, $l_params = 0)
  41.     $ai_Ret = DllCall ('user32.dll', 'long', 'SystemParametersInfoA', 'long', 20, 'long', 0, 'str', $s_BitmapImage, 'long', $l_params)
  42.     Return $ai_Ret[0]
  43. EndFunc

  44. Func _set()
  45.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\.Default\.Default', '', 'REG_SZ', $Path&'\窓辺ゆう\ぁわっ.wav')
  46.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\ChangeTheme\.Default', '', 'REG_SZ', $Path&'\窓辺ゆう\こんにちは!窓辺ゆうですっ.wav')
  47.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\CriticalBatteryAlarm\.Default', '', 'REG_SZ', $Path&'\窓辺ゆう\そろそろバッテリーつないだほうがいいかも、です♪.wav')
  48.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\DeviceConnect\.Default', '', 'REG_SZ', $Path&'\窓辺ゆう\ちゃんとつながりましたねっ.wav')
  49.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\DeviceDisconnect\.Default', '', 'REG_SZ', $Path&'\窓辺ゆう\抜いても平気ですよ♪.wav')
  50.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\DeviceFail\.Default', '', 'REG_SZ', $Path&'\窓辺ゆう\なんでだろう、つながらないですね・・.wav')
  51.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\LowBatteryAlarm\.Default', '', 'REG_SZ', $Path&'\窓辺ゆう\あれ、バッテリーが少ないですよ♪.wav')
  52.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\MailBeep\.Default', '', 'REG_SZ', $Path&'\窓辺ゆう\メールが届きましたよ♪.wav')
  53.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\SystemAsterisk\.Default', '', 'REG_SZ', $Path&'\窓辺ゆう\あれれ?.wav')
  54.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\SystemExclamation\.Default', '', 'REG_SZ', $Path&'\窓辺ゆう\おやぁ?.wav')
  55.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\SystemHand\.Default', '', 'REG_SZ', $Path&'\窓辺ゆう\あれっ、システムエラーですって.wav')
  56.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\SystemNotification\.Default', '', 'REG_SZ', $Path&'\窓辺ゆう\ん?.wav')
  57.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\WindowsUAC\.Default', '', 'REG_SZ', $Path&'\窓辺ゆう\ほんとに進めてもいいですかぁ?.wav')
  58.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\AppGPFault\.Default', '', 'REG_SZ', $Path&'\窓辺ゆう\you_あれれ?.wav')
  59.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\FaxBeep\.Default', '', 'REG_SZ', $Path&'\窓辺ゆう\you_メッセージきたみたいですよ♪.wav')
  60.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\PrintComplete\.Default', '', 'REG_SZ', $Path&'\窓辺ゆう\you_準備完了ですっ.wav')
  61.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\SystemQuestion\.Default', '', 'REG_SZ', $Path&'\窓辺ゆう\you_なんでだろう、つながらないですね・・.wav')
  62.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\WindowsLogoff\.Default', '', 'REG_SZ', $Path&'\窓辺ゆう\you_おつかれさまでしたぁ、おやすみなさい♪.wav')
  63.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\WindowsLogon\.Default', '', 'REG_SZ', $Path&'\窓辺ゆう\you_あっ、おかえりなさい.wav')
  64.         RegWrite('HKCU\AppEvents\Schemes\Apps\Explorer\BlockedPopup\.Default', '', 'REG_SZ', $Path&'\窓辺ゆう\you_ピロリン.wav')
  65.         RegWrite('HKCU\AppEvents\Schemes\Apps\Explorer\SearchProviderDiscovered\.Default', '', 'REG_SZ', $Path&'\窓辺ゆう\you_ババーン.wav')

  66.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\.Default\.Current', '', 'REG_SZ', $Path&'\窓辺ゆう\ぁわっ.wav')
  67.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\ChangeTheme\.Current', '', 'REG_SZ', $Path&'\窓辺ゆう\こんにちは!窓辺ゆうですっ.wav')
  68.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\CriticalBatteryAlarm\.Current', '', 'REG_SZ', $Path&'\窓辺ゆう\そろそろバッテリーつないだほうがいいかも、です♪.wav')
  69.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\DeviceConnect\.Current', '', 'REG_SZ', $Path&'\窓辺ゆう\ちゃんとつながりましたねっ.wav')
  70.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\DeviceDisconnect\.Current', '', 'REG_SZ', $Path&'\窓辺ゆう\抜いても平気ですよ♪.wav')
  71.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\DeviceFail\.Current', '', 'REG_SZ', $Path&'\窓辺ゆう\なんでだろう、つながらないですね・・.wav')
  72.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\LowBatteryAlarm\.Current', '', 'REG_SZ', $Path&'\窓辺ゆう\あれ、バッテリーが少ないですよ♪.wav')
  73.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\MailBeep\.Current', '', 'REG_SZ', $Path&'\窓辺ゆう\メールが届きましたよ♪.wav')
  74.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\SystemAsterisk\.Current', '', 'REG_SZ', $Path&'\窓辺ゆう\あれれ?.wav')
  75.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\SystemExclamation\.Current', '', 'REG_SZ', $Path&'\窓辺ゆう\おやぁ?.wav')
  76.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\SystemHand\.Current', '', 'REG_SZ', $Path&'\窓辺ゆう\あれっ、システムエラーですって.wav')
  77.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\SystemNotification\.Current', '', 'REG_SZ', $Path&'\窓辺ゆう\ん?.wav')
  78.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\WindowsUAC\.Current', '', 'REG_SZ', $Path&'\窓辺ゆう\ほんとに進めてもいいですかぁ?.wav')
  79.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\AppGPFault\.Current', '', 'REG_SZ', $Path&'\窓辺ゆう\you_あれれ?.wav')
  80.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\FaxBeep\.Current', '', 'REG_SZ', $Path&'\窓辺ゆう\you_メッセージきたみたいですよ♪.wav')
  81.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\PrintComplete\.Current', '', 'REG_SZ', $Path&'\窓辺ゆう\you_準備完了ですっ.wav')
  82.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\SystemQuestion\.Current', '', 'REG_SZ', $Path&'\窓辺ゆう\you_なんでだろう、つながらないですね・・.wav')
  83.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\WindowsLogoff\.Current', '', 'REG_SZ', $Path&'\窓辺ゆう\you_おつかれさまでしたぁ、おやすみなさい♪.wav')
  84.         RegWrite('HKCU\AppEvents\Schemes\Apps\.Default\WindowsLogon\.Current', '', 'REG_SZ', $Path&'\窓辺ゆう\you_あっ、おかえりなさい.wav')
  85.         RegWrite('HKCU\AppEvents\Schemes\Apps\Explorer\BlockedPopup\.Current', '', 'REG_SZ', $Path&'\窓辺ゆう\you_ピロリン.wav')
  86.         RegWrite('HKCU\AppEvents\Schemes\Apps\Explorer\SearchProviderDiscovered\.Current', '', 'REG_SZ', $Path&'\窓辺ゆう\you_ババーン.wav')
  87. EndFunc

  88. Func _Def()
  89.         ;; 這邊是放還原用的code 內容太多沒辦法列出來 詳見附件
  90. EndFunc
複製代碼



該用戶從未簽到

發表於 2012-11-10 00:48 | 顯示全部樓層
喔喔喔 這編碼可以研究研究~!!!!
另外看到了個錯字XDDDDD
第24行的"山"~~~

使用道具

您需要登入後才可以回帖 登入 | 註冊

本版積分規則

Discuz! X

© 2009-2017 Microduo

快速回覆 返回頂部 返回列表