拒绝访问 | www.nyato.com | 百度云加速
请打开cookies.
此网站 (www.nyato.com) 的管理员禁止了您的访问。原因是您的访问包含了非浏览器特征(3da41b587bec4d02-ua98).
重新安装浏览器，或使用别的浏览器重庆市巴南区卫生计生监督信息网
巴南区卫生计生监督执法局
未找到信息!
收录 / 索引信息
未找到信息!
一般不超过80字符
网站关键词
一般不超过100字符
一般不超过200字符
同主机安全
虚假或欺诈网站
挂马或恶意网站
未存在违规内容
相关子域名
alexa排名趋势
服务器信息
服务器类型
源文件大小
压缩后大小
最后修改时间
关闭关闭关闭SJDS: Volume-5: Issue-1 (Jan, 2018): Call for paperSign in anonymously
Or sign in with one of these services
FavIcons Screensaver
FavIcons Screensaver
Started by
wakillon, November 12, 2015
Create an account or sign in to comment
You need to be a member in order to leave a comment
Sign up for a new account in our community. It's easy!
Already have an account? Sign in here.
GordonFreeman
Hi, i searched some topics but cannot found a simple way to do that:
#include &GUIConstantsEx.au3&
#include &WindowsConstants.au3&
$Form1 = GUICreate("Form1", 615, 438, 192, 124)
GUISetState(@SW_SHOW)
; I tried this but user reported that it work in 2006, not seems work actually
$filemenu = GUICtrlCreateMenu ("&File")
$fileitem = GUICtrlCreateMenuitem ("Open",$filemenu)
GuiCtrlSetImage($fileitem, "shell32.dll", 4)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
EndSwitch
Also tried:
#include &GUIConstantsEx.au3&
#include &WindowsConstants.au3&
$Form1 = GUICreate("Form1", 615, 438, 192, 124)
GUISetState(@SW_SHOW)
$filemenu = TrayCreateMenu("&File")
$fileitem = TrayCreateItem("Open",$filemenu)
;GuiCtrlSetImage($fileitem, "shell32.dll", 4)
;GuiCtrlSetImage(TrayItemGetHandle($fileitem), "shell32.dll", 4)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
EndSwitch
Well.. thanks in advance!
Ok. I found this working example from Yashied. If i cannot find a simple then i will go with it
#Include &GUIConstantsEx.au3&
#Include &GUIMenu.au3&
#Include &Constants.au3&
#Include &WinAPI.au3&
#Include &WindowsConstants.au3&
Opt('MustDeclareVars', 1)
Global $hMenu, $hForm, $hFile = 1000, $idNew, $idExit
$hForm = GUICreate('Menu', 400, 300)
$hFile = _GUICtrlMenu_CreateMenu()
_GUICtrlMenu_InsertMenuItem ($hFile, 0, ' &Favorites', $idNew)
_GUICtrlMenu_InsertMenuItem ($hFile, 1, '', 0)
_GUICtrlMenu_InsertMenuItem($hFile, 2, ' E&xit', $idExit)
$hMenu = _GUICtrlMenu_CreateMenu()
_GUICtrlMenu_InsertMenuItem($hMenu, 0, '&File', 0, $hFile)
_GUICtrlMenu_SetMenu($hForm, $hMenu)
_GUICtrlMenu_SetItemBmp($hFile, 0, _CreateBitmapFromIcon(_WinAPI_GetSysColor($COLOR_MENU), @SystemDir & '\shell32.dll', 43, 16, 16))
_GUICtrlMenu_SetItemBmp($hFile, 2, _CreateBitmapFromIcon(_WinAPI_GetSysColor($COLOR_MENU), @SystemDir & '\shell32.dll', 27, 16, 16))
GUISetState()
Until GUIGetMsg() = $GUI_EVENT_CLOSE
Func _CreateBitmapFromIcon($iBackground, $sIcon, $iIndex, $iWidth, $iHeight)
Local $hDC, $hBackDC, $hBackSv, $hIcon, $hBitmap
$hDC = _WinAPI_GetDC(0)
$hBackDC = _WinAPI_CreateCompatibleDC($hDC)
$hBitmap = _WinAPI_CreateSolidBitmap(0, $iBackground, $iWidth, $iHeight)
$hBackSv = _WinAPI_SelectObject($hBackDC, $hBitmap)
$hIcon = _WinAPI_PrivateExtractIcon($sIcon, $iIndex, $iWidth, $iHeight)
If Not @error Then
_WinAPI_DrawIconEx($hBackDC, 0, 0, $hIcon, 0, 0, 0, 0, $DI_NORMAL)
_WinAPI_DestroyIcon($hIcon)
EndIf
_WinAPI_SelectObject($hBackDC, $hBackSv)
_WinAPI_ReleaseDC(0, $hDC)
_WinAPI_DeleteDC($hBackDC)
Return $hBitmap
EndF==&_CreateBitmapFromIcon
Func _WinAPI_PrivateExtractIcon($sIcon, $iIndex, $iWidth, $iHeight)
Local $hIcon, $tIcon = DllStructCreate('hwnd'), $tID = DllStructCreate('hwnd')
Local $Ret = DllCall('user32.dll', 'int', 'PrivateExtractIcons', 'str', $sIcon, 'int', $iIndex, 'int', $iWidth, 'int', $iHeight, 'ptr', DllStructGetPtr($tIcon), 'ptr', DllStructGetPtr($tID), 'int', 1, 'int', 0)
If (@error) Or ($Ret[0] = 0) Then
Return SetError(1, 0, 0)
EndIf
$hIcon = DllStructGetData($tIcon, 1)
If ($hIcon = Ptr(0)) Or (Not IsPtr($hIcon)) Then
Return SetError(1, 0, 0)
EndIf
Return $hIcon
EndF==&_WinAPI_PrivateExtractIcon
Ok, i noticed that is a pain create submenu with _GUICtrlMenu_CreatePopup to do like in Tray, and Tray better located, then i need images/icon with Tray functions, some workaround??
I'm using UseTraySetIcon("shell32.dll", xx) to set my tray icon to a specific icon while running, is there a way I can specify this icon when I compile my script into an exe so my exe icon is the same?
nacerbaaziz
I have an inquiry please
I want an example of how to add an icon file to the compiled autoit file and how to use it in GUICtrlCreateIcon
Preferably in a separate list within the resourceFor example myIcons
I hope my request is clear and I hope you will help me solve this problem
Because I found an example in the help files but I did not understand the method well
amimemeami
I have a simple script that switches between IE and Chrome for the default browser, I even made a custom half chrome half ie icon for it. Question is, can I have the script toggle between two icons to signify the last browser it changed to? I would have the active browser's half of the icon in color, and inactive half grey scale. As a workaround, I put link next to it, and refresh the icon cache after it runs.
#RequireAdmin
#R**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\Icons\IE_Chrome.ico
#AutoIt3Wrapper_Outfile=..\..\..\..\Users\dmking\Desktop\Browser Switcher.exe
#EndR**** Directives created by AutoIt3Wrapper_GUI ****
$sCurrentDefault = RegRead('HKCU\Software\Microsoft\Windows\Shell\Associations\UrlAssociations\http\UserChoice',"ProgId")
if $sCurrentDefault = "IE.HTTP" Then
ChromeDefault()
IEDefault()
EndIf
;~ Run("ie4uinit.exe -ClearIconCache")
Run("C:\Windows\System32\ie4uinit.exe -ClearIconCache")
Func IEDefault()
RegWrite("HKCU\Software\Microsoft\Windows\Shell\Associations\UrlAssociations\ftp\UserChoice","Progid","REG_SZ","IE.FTP")
RegWrite("HKCU\Software\Microsoft\Windows\Shell\Associations\UrlAssociations\http\UserChoice","Progid","REG_SZ","IE.HTTP")
RegWrite("HKCU\Software\Microsoft\Windows\Shell\Associations\UrlAssociations\https\UserChoice","Progid","REG_SZ","IE.HTTPS")
RegWrite("HKCU\Software\Clients\StartMenuInternet","","REG_SZ","IEXPLORE.EXE")
EndFunc
Func ChromeDefault()
RegWrite("HKCU\Software\Microsoft\Windows\Shell\Associations\UrlAssociations\ftp\UserChoice","Progid","REG_SZ","ChromeHTML")
RegWrite("HKCU\Software\Microsoft\Windows\Shell\Associations\UrlAssociations\http\UserChoice","Progid","REG_SZ","ChromeHTML")
RegWrite("HKCU\Software\Microsoft\Windows\Shell\Associations\UrlAssociations\https\UserChoice","Progid","REG_SZ","ChromeHTML")
RegWrite("HKCU\Software\Clients\StartMenuInternet","","REG_SZ","Google Chrome")
Can the default Koda icon for forms be changed? If so, how?
FavIcons Screensaver}