maxrealqnx Posted July 3, 2010 Share Posted July 3, 2010 Hi my friends How can i create any shortcut at the quicklaunch for windows 7 ? c:\Users\%Username%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\ Thank you in advance for your reply. Best regards Visit My Website Link to comment Share on other sites More sharing options...
somdcomputerguy Posted July 4, 2010 Share Posted July 4, 2010 (edited) This function will probably work out for you, FileCreateShortcut.add: I just found this, AutoIt Snippets, it may help.. Edited July 4, 2010 by somdcomputerguy - Bruce /*somdcomputerguy */ If you change the way you look at things, the things you look at change. Link to comment Share on other sites More sharing options...
maxrealqnx Posted July 4, 2010 Author Share Posted July 4, 2010 (edited) This function will probably work out for you, FileCreateShortcut. add: I just found this, AutoIt Snippets, it may help.. Hi somdcomputerguy I'm thank you for your reply. Job at creating a shortcut does not end in the Windows 7 because This registry key is absolutely necessary to organize So the this Favorites registry key for any *.lnk file, how can we organize at the Windows 7 ? Windows Registry Editor Version 5.00 ; ADD section [HKEY_USERS\S-1-5-18\Software\Microsoft\Windows\CurrentVersion\Explorer\Taskband] "Favorites"=hex(03):00,4e,............................. Best regards Edited July 4, 2010 by maxrealqnx Visit My Website Link to comment Share on other sites More sharing options...
maxrealqnx Posted August 3, 2010 Author Share Posted August 3, 2010 Why does not anyone want to help me Visit My Website Link to comment Share on other sites More sharing options...
OctopusCO Posted August 3, 2010 Share Posted August 3, 2010 Don't forget that the profile folder is protected location and if you have UAV on at a certain level it will not allow AutoIT to create the shortcut file in there. By default User Account Verification is on and will probably protect other profiles. Also, check if the tool bar is locked by right-clicking on the toolbar. Just a couple thoughts. Link to comment Share on other sites More sharing options...
ALTIN Posted August 3, 2010 Share Posted August 3, 2010 I didn't get what you really need! Are you asking how to read that registry key or what? Plz, Make it more clear. Link to comment Share on other sites More sharing options...
JFX Posted August 4, 2010 Share Posted August 4, 2010 (edited) Hi Max Hope that what you wantexpandcollapse popup#include <WinAPI.au3> #include <Constants.au3> _PinTaskbar(@WindowsDir & '\notepad.exe') Func _PinTaskbar($File, $Pin = True) If @OSBuild < 7600 Then Return SetError(1) ; Windows 7 only If Not FileExists($File) Then Return SetError(2) local $sFolder = StringRegExpReplace($File, "(^.*\\)(.*)", "\1") local $sFile = StringRegExpReplace($File, "^.*\\", "") local $oShell = ObjCreate("Shell.Application") local $oFolder = $oShell.NameSpace($sFolder) local $oFolderItem = $oFolder.ParseName($sFile) local $oFolderItemVerbs = $oFolderItem.Verbs local $hInstance = _WinAPI_LoadLibraryEx("shell32.dll", $LOAD_LIBRARY_AS_DATAFILE) local $DoVerb = '' If $hInstance Then IF $Pin = 1 Then local $DoVerb = _WinAPI_LoadString($hInstance, 5386) Else local $DoVerb = _WinAPI_LoadString($hInstance, 5387) EndIf _WinAPI_FreeLibrary($hInstance) EndIf IF $DoVerb = '' Then Return SetError(3) ; $DoVerb string couldn't received For $i = 0 To $oFolderItemVerbs.Count - 1 If $oFolderItemVerbs.Item($i).Name = $DoVerb Then $oFolderItemVerbs.Item($i).DoIt Return EndIf Next Return SetError(4) ; $DoVerb string not in menu EndFunc Edited August 16, 2010 by JFX Link to comment Share on other sites More sharing options...
maxrealqnx Posted August 15, 2010 Author Share Posted August 15, 2010 Hi Max Hope that what you want expandcollapse popup#include <WinAPI.au3> #include <Constants.au3> _PinTaskbar(@WindowsDir & '\notepad.exe') Func _PinTaskbar($File, $Pin = True) If @OSBuild < 7600 Then Return SetError(1) ; Windows 7 only If Not FileExists($File) Then Return SetError(2) local $sFolder = StringRegExpReplace($File, "(^.*\\)(.*)", "\1") local $sFile = StringRegExpReplace($File, "^.*\\", "") local $oShell = ObjCreate("Shell.Application") local $oFolder = $oShell.NameSpace($sFolder) local $oFolderItem = $oFolder.ParseName($sFile) local $oFolderItemVerbs = $oFolderItem.Verbs local $hInstance = _WinAPI_LoadLibraryEx("shell32.dll", $LOAD_LIBRARY_AS_DATAFILE) local $DoVerb = '' If $hInstance Then IF $Pin = 1 Then local $DoVerb = _WinAPI_LoadString($hInstance, 5386) Else local $DoVerb = _WinAPI_LoadString($hInstance, 5387) EndIf _WinAPI_FreeLibrary($hInstance) EndIf IF $DoVerb = '' Then SetError(3) ; $DoVerb string couldn't received For $i = 0 To $oFolderItemVerbs.Count - 1 If $oFolderItemVerbs.Item($i).Name = $DoVerb Then $oFolderItemVerbs.Item($i).DoIt Return EndIf Next Return SetError(4) ; $DoVerb string not in menu EndFunc Hi JFX Wooow this code is really good I'm thank you very much for your strong support. God bless you. Visit My Website Link to comment Share on other sites More sharing options...
JFX Posted August 16, 2010 Share Posted August 16, 2010 Hi Max,happy you like it There was a missing Return before SetError(3) just fix it. Link to comment Share on other sites More sharing options...
maxrealqnx Posted August 16, 2010 Author Share Posted August 16, 2010 Hi Max,happy you like it There was a missing Return before SetError(3) just fix it.i love you because you're super Visit My Website Link to comment Share on other sites More sharing options...
maxrealqnx Posted August 16, 2010 Author Share Posted August 16, 2010 (edited) Hi my friend JFX How can I get the File Description information of the file with autoit. Just like in the FileGetSize command. Is it possible to do with AutoIt ? I'm thank you very much for your reply.Because this is the shortcut name with according to your code._PinTaskbar(@WindowsDir & '\twunk_32.exe') = Twain.dll Client's 32-Bit Thunking Server.lnkc:\Users\XXXXXX\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\*.lnkBest regards Edited August 16, 2010 by maxrealqnx Visit My Website Link to comment Share on other sites More sharing options...
AdmiralAlkex Posted August 16, 2010 Share Posted August 16, 2010 Looks like a job for FileGetVersion to me MsgBox(0, "", FileGetVersion("C:\Windows\twunk_32.exe", "FileDescription")) .Some of my scripts: ShiftER, Codec-Control, Resolution switcher for HTC ShiftSome of my UDFs: SDL UDF, SetDefaultDllDirectories, Converting GDI+ Bitmap/Image to SDL Surface Link to comment Share on other sites More sharing options...
maxrealqnx Posted August 17, 2010 Author Share Posted August 17, 2010 Looks like a job for FileGetVersion to me MsgBox(0, "", FileGetVersion("C:\Windows\twunk_32.exe", "FileDescription")) Hi AdmiralAlkex I'm thank you very much for your help Visit My Website Link to comment Share on other sites More sharing options...
JFX Posted August 23, 2010 Share Posted August 23, 2010 Hi Max, you need to create a customized Shortcut with FileCreateShortcut first and Pin this one. Link to comment Share on other sites More sharing options...
maxrealqnx Posted August 30, 2010 Author Share Posted August 30, 2010 Hi Max,you need to create a customized Shortcut with FileCreateShortcut first and Pin this one.Hi JFX I'm thank you very much for your strong support. God bless you. See you later at the boot-land.netBest regards Visit My Website Link to comment Share on other sites More sharing options...
maxrealqnx Posted October 2, 2010 Author Share Posted October 2, 2010 Hi my friends StartMenu Pin & Unpin ! http://www.win7dll.info/shell32_dll.html Best regards expandcollapse popup#include <WinAPI.au3> #include <Constants.au3> _PinTaskbar(@WindowsDir & '\notepad.exe') Func _PinTaskbar($File, $Pin = True) If @OSBuild < 7600 Then Return SetError(1) ; Windows 7 only If Not FileExists($File) Then Return SetError(2) local $sFolder = StringRegExpReplace($File, "(^.*\\)(.*)", "\1") local $sFile = StringRegExpReplace($File, "^.*\\", "") local $oShell = ObjCreate("Shell.Application") local $oFolder = $oShell.NameSpace($sFolder) local $oFolderItem = $oFolder.ParseName($sFile) local $oFolderItemVerbs = $oFolderItem.Verbs local $hInstance = _WinAPI_LoadLibraryEx("shell32.dll", $LOAD_LIBRARY_AS_DATAFILE) local $DoVerb = '' If $hInstance Then IF $Pin = 1 Then local $DoVerb = _WinAPI_LoadString($hInstance, 5381) Else local $DoVerb = _WinAPI_LoadString($hInstance, 5382) EndIf _WinAPI_FreeLibrary($hInstance) EndIf IF $DoVerb = '' Then SetError(3) ; $DoVerb string couldn't received For $i = 0 To $oFolderItemVerbs.Count - 1 If $oFolderItemVerbs.Item($i).Name = $DoVerb Then $oFolderItemVerbs.Item($i).DoIt Return EndIf Next Return SetError(4) ; $DoVerb string not in menu EndFunc Visit My Website Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now