论坛 › 『 提问交流 』 › 如何用AU3写桌面程序？

xgdjkk 发表于 2008-8-20 09:07:30

如何用AU3写桌面程序？

比如天气预报，时钟，等等！
在线等！！

bob 发表于 2008-8-20 10:16:13

俺菜鸟，俺不会，俺飘过
:face (12):

xgdjkk 发表于 2008-8-20 14:58:18

来个会的解说下啊！

skyfree 发表于 2008-8-20 15:19:46

我想写个系统内核，只是还不太明白，谁能帮帮我么？

xgdjkk 发表于 2008-8-20 15:23:28

？？
不明白，我帖子有问题？
还是？

redapple2008 发表于 2008-8-20 16:41:34

看这段代码是否能帮助你？
桌面图标位置同步脚本



--------------------------------------------------------------------------------

#NoTrayIcon
#AutoIt3Wrapper_icon=D:\autoit3\Aut2Exe\Icons\FOLDER.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseAnsi=y
#AutoIt3Wrapper_Res_Comment=2008-04-19, 23:31
#AutoIt3Wrapper_Res_Description=桌面图标同步程序
#AutoIt3Wrapper_Res_Fileversion=1.0.0.1
#AutoIt3Wrapper_Res_LegalCopyright=Amu

#include <GuiListView.au3>
Opt("MustDeclareVars", 1)
Global $hWndManager = WinGetHandle("Program Manager")
Global $hWndDesktop = ControlGetHandle("Program Manager","",1)
If Not IsDeclared("GWL_STYLE") Then Global Const $GWL_STYLE = -16
Global $LVS_Style = _WinAPI_GetWindowLong($hWndDesktop, $GWL_STYLE)
Global $inifile, $iSet, $iRefresh, $SNAPTOGRID

If $CmdLine Then
    For $i = 1 To $CmdLine
      Select
            Case StringRegExp($CmdLine[$i], '^[/-](?i)load[=:].+$|^[/-](?i)l[=:].+$') And Not $inifile         
                $iSet = 1
                $inifile = StringRegExpReplace($CmdLine[$i], '^[/-](?i)load[=:]?|^[/-](?i)l[=:]?', "")
               
            Case StringRegExp($CmdLine[$i], '^[/-](?i)save[=:].+$|^[/-](?i)s[=:].+$') And Not $inifile
                $iSet = 0
                $inifile = StringRegExpReplace($CmdLine[$i], '^[/-](?i)save[=:]?|^[/-](?i)s[=:]?', "")
               
            Case StringRegExp($CmdLine[$i], '^[/-](?i)SnapToGrid[=:]\d+$|^[/-](?i)g[=:]\d+$') And $inifile         
                $SNAPTOGRID = Number (StringRegExpReplace($CmdLine[$i], '^[/-](?i)SnapToGrid[=:]?|^[/-](?i)g[=:]?', "") )
               
            Case StringRegExp($CmdLine[$i], '^[/-](?i)Refresh$|^[/-](?i)r$')
                $iRefresh = 1
               
            Case StringRegExp($CmdLine[$i], '^[/-](?i)Help$|^[/-](?i)[?h]$')
                MsgBox(64,"参数帮助！","AutoIcon.exe [</load|/save>=<file>] " & @CRLF & "" & @CRLF & _
                  "/load=file 要加载的配置文件。" & @CRLF & "/save=file 要保存的配置文件。" & @CRLF & _
                        "/G=<0|1>   为“0”取消图标对齐到网格，为“1”图标对齐到网格，默认不作更改。" & @CRLF & "/R         相当于桌面右键“刷新”")
                Exit
            Case Not $inifile
                $inifile = $CmdLine[$i]
                If FileExists($inifile) Then $iSet = 1
      EndSelect   
    Next
Else
    If Not IsDeclared("iMsgBoxAnswer") Then Dim $iMsgBoxAnswer
    $iMsgBoxAnswer = MsgBox(547,"注意！","" & @CRLF & "选“是”保存桌面图标位置信息到文件" & @CRLF & "" & @CRLF & "选“否”从文件读取并排列桌面图标。")
    Select
      Case $iMsgBoxAnswer = 6 ;Yes
            $inifile = FileSaveDialog( "输入一个文件名。", @ScriptDir, "配置文件(*.ini)", 2)
            If @error Or Not $inifile Then Exit
            $iSet = 0
            If Not StringRegExp($inifile, "\.ini$") Then $inifile &= ".ini"
      Case $iMsgBoxAnswer = 7 ;No
            $inifile = FileOpenDialog( "选择一个文件。", @ScriptDir, "配置文件(*.ini)", 1)
            If @error Or Not $inifile Then Exit
            $iSet = 1
      Case $iMsgBoxAnswer = 2 ;Cancel
            Exit
    EndSelect   
EndIf

If $iSet Then
    If $SNAPTOGRID Then $SNAPTOGRID = $LVS_EX_SNAPTOGRID
    If IsNumber ($SNAPTOGRID) Then _SendMessage($hWndDesktop, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_SNAPTOGRID, $SNAPTOGRID)
    If BitAND($LVS_Style, $LVS_AUTOARRANGE) Then _WinAPI_SetWindowLong($hWndDesktop, $GWL_STYLE, $LVS_Style - $LVS_AUTOARRANGE );取消自动排列
   
    If $iRefresh Then DllCall("shell32.dll", "none", "SHChangeNotify", "long", 0x8000000, "int", 0, "ptr", 0, "ptr", 0);刷新图标
    _SaveAndLoadIconPos($inifile, 1)
    ;Run("RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters");刷新桌面(通过复制文件的方式替换壁纸文件适用)
Else
    _SaveAndLoadIconPos($inifile)
EndIf

Func _SaveAndLoadIconPos($iFile, $iLoad = 0)
    Local $iCount, $iIndex, $sName, $xy   
    If Not IsHWnd($hWndManager) Then $hWndManager = WinGetHandle("Program Manager")
    If Not IsHWnd($hWndDesktop) Then $hWndDesktop = ControlGetHandle("Program Manager","",1)
    $iCount = ControlListView($hWndManager, "", $hWndDesktop, "GetItemCount")
    If @error Then
      SetError(1)
      Return 0
    EndIf
    If Not $iLoad And FileExists($iFile) Then IniDelete($iFile, "图标位置")
    For $iIndex = 0 to $iCount - 1
      $sName = ControlListView($hWndManager, "", $hWndDesktop,"GetText", $iIndex)
      If $iLoad Then
            $xy = StringSplit (IniRead ($iFile, "图标位置", $sName, ""), ",")
            If $xy = 2 Then _
            _SendMessage($hWndDesktop, $LVM_SETITEMPOSITION, $iIndex, BitOR(BitShift($xy, -16), BitAND($xy, 0xffff) ) )
      Else;保存图标信息
            $xy = _GUICtrlListView_GetItemPosition($hWndDesktop, $iIndex)
            IniWrite($iFile, "图标位置", $sName, $xy & "," & $xy )
      EndIf   
    Next
    Return 1
EndFunc

pcbar 发表于 2008-8-20 17:18:11

大多数人用scite,高手用记事本也行

xgdjkk 发表于 2008-8-20 22:08:14

记得以前有个工具条，有时间研究下那东西！
侧边栏的应用和工具条类似吗？

lynfr8 发表于 2009-5-8 18:15:04

AU3写桌面程序的确可以，只是楼主你的表达是否可以再明确一点
提问题要清楚些

autothem 发表于 2009-5-8 20:03:04

天气预报和时钟应该是没问题的

主要是界面写好就可以了，没啥技术难点的

idream 发表于 2009-8-25 20:22:30

顶起来，会的快来帮帮忙，让我们也一起可以跟着提高。

查看完整版本: 如何用AU3写桌面程序？