Improving Wireless Networking on Vista (and XP?)

Some commands for the Command Prompt:

• netsh int ipv4 reset
  
• netsh winsock reset
• netsh int tcp set global rss=enabled chimney=disabled autotuninglevel=normal congestionprovider=ctcp ecncapability=enabled timestamps=disabled
• ipconfig /release
• ipconfig /renew

Registry change from Microsoft KB928233:

• DhcpConnForceBroadcastFlag 0
  

QuickArchive: More About Gmail-like Archive in Outlook

Expanding upon this earlier post, I started using AutoHotkey so that Shift Right-Clicking a message in Outlook archives it and Ctrl Right-Clicking deletes it. To do so, I changed the toolbar name for the ArchiveSelected macro to "&QuickArchive" (without quotes). An ampersand in a toolbar item name underlines the following character so that the button may be "clicked" via a keyboard shortcut: in this case Alt-Q. Why "Q"? Well, every other letter I tried was already taken by a menu or another toolbar item.

Then, I added the following to my main AHK script:
#IfWinActive ahk_class rctrl_renwnd32
+RButton::
Send {Click}
Send !q
return
^RButton::
Send {Click}
Send ^d
return
#IfWinActive

Apps I'm Thankful For

1. Everything (Search)
2. Firefox
3. AutoHotkey
4. MWSnap
5. Taskbar Shuffle
6. Norton Antivirus 2009
7. Digsby
8. Audacity
9. MP3Tag
10. SpywareBlaster
11. TrueCrypt
12. Windows Vista
13. Nirsoft
14. Console Calculator
15. GOM Player
16. MP3 to Ipod Audiobook Converter
    

Parallel Port Driver Service Failed to Start

If you don't have a parallel port on your computer, this is easily fixed from the command line:

sc config parport start= disabled

Disable Wireless LED with Gigabyte GN-WI06

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}\0008

In the registry key above, changing the value for LinkLedFunc to 00 from 03 effectively disabled the WLAN indicator LED. Simply deleting the LED keys did not do the trick.

Error 1310 Can't Write to Config.msi Directory During Repair or Uninstall

Error 1310. Error writing to file: C:\Config.Msi\59cb9b6.rbf. System error 5. Verify that you have access to that directory.

This problem seems to especially crop up under Windows Vista with UAC turned off. There is a lot of advice online about adjusting the permissions of the Config.msi folder, but I don't think they work.

The following workaround seems to do the trick, however:

1. First, try resetting Windows Installer by running the following (this might be all you need to do):
msiexec /unreg
msiexec /regserver

2. When installing a program, like from Adobe or Microsoft Office 2007, that demonstrates this problem, run the installer EXE in XP Compatibility mode.

3. Make sure the setup programs that are copied to your Program Files directory are set to run in XP Compatibility mode. Here are a couple examples:
Adobe Acrobat Pro 9: "C:\Program Files\Adobe\Acrobat 9.0\Setup Files\{AC76BA86-1033-0000-7760-000000000004}\Setup.exe"

Microsoft Office 2007: "C:\Program Files\Common Files\microsoft shared\OFFICE12\Office Setup Controller\SETUP.EXE"

4. Make sure that no files are in use when doing a change/repair operation. For example, Copernic Desktop Search keeps Outlook files in use unless it is shut down, and changing the Office installation will fail. Other search programs or backup software might make for the same problem.

Command Line: Enable/Disable Require Password on Wake from Sleep or Hibernate

I couldn't find this anywhere online:

powercfg -setdcvalueindex SCHEME_CURRENT SUB_NONE CONSOLELOCK 1
powercfg -setacvalueindex SCHEME_CURRENT SUB_NONE CONSOLELOCK 1

The last digit enables or disables the setting: 0 = password not required; 1= password required

New Antivirus Recommendations

• Avast! Home: Web Shield, Network Shield, Email/Outlook (Attachments Only), Standard Shield (Check only on copying/modifying files and not on application launch) -- Very fast and Web Shield does not slow down browsing.
  
• SpywareBlaster
  

Please see previous security/malware posts for more information, especially why I prefer a "light" antivirus strategy.

Some Favorite Time Savers with AutoHotkey

AutoHotkey is awesome.

NB: I use KeyTweak to remap the [Right Alt key to Right Ctrl] and [Right Ctrl to another Left Ctrl]. Although AHK can use RAlt as a command key (when written ">!"), Windows has a hard time with it.

AutoExecute Section:

#NoEnv
#SingleInstance force
#UseHook On
#WinActivateForce
SetBatchLines -1
SendMode Input
SetKeyDelay, 1, 1
Process, priority, , High
GroupAdd, AllWindows, , , , ahk_class Shell_TrayWnd

Right Alt + Right Ctrl for Back/Fwd buttons

>^LCtrl::Send {Browser_Forward}
<^RCtrl::Send {Browser_Back}

Tilde ` key to close active window

>^`::Send {asc 096} ; ` since ` is remapped to WinClose
`::
PostMessage, 0x112, 0xF060,,, A
Sleep 50
IfWinActive, ahk_class Shell_TrayWnd
GroupActivate, AllWindows
return

Capslock key minimizes active window

Capslock::
WinMinimize, A
Sleep 50
IfWinActive, ahk_class Shell_TrayWnd
GroupActivate, AllWindows
return

Left Shift + Right Shift for Capslock

<+RShift:: SetStoreCapslockMode, Off Sendevent {capslock} return

Shift-Capslock toggle restore/maximize active window

+Capslock::
WinGet MX, MinMax, A
If MX
WinRestore A
Else WinMaximize A
return

Ctrl-Click becomes a Middle Click for the taskbar and Firefox tab bar (recommend Taskbar Shuffle for closing windows from Taskbar with middle click)

^LButton:: ; Make ctrl-click a middle click in certain circumstances
MouseGetPos, , , , currentcontrol
If currentcontrol in ToolbarWindow324,MozillaWindowClass6
Click M
else
Send ^{click}
return

Various Clipboard extensions

>^end::Send {Shift Down}{End}{Shift Up}{Backspace} ; Delete to end of line

>^v:: ; paste without extra spaces, line breaks
gosub getplain
gosub pasteplain
return

+>^v:: ; additionally remove formatting
gosub getplain
clipboard := %clipboard%
gosub pasteplain
return
getplain:
ClipSaved := ClipboardAll
StringReplace, clipboard, clipboard, `r`n, %A_Space%, All
clipboard := RegExReplace(clipboard, "` {2,}", "` ")
StringLeft, 1st, clipboard, 1
IfInString, 1st, %A_Space%
StringTrimLeft, clipboard, clipboard, 1
StringRIght, last, clipboard, 1
IfInString, last, %A_Space%
StringTrimRight, clipboard, clipboard, 1
return

pasteplain: ; pastes and then clears clipboard and restores clipboard from clipsaved
Send ^v
gosub restoreclip
return

backupclip: ; backups clipboardall to ClipSaved and then copies (follow with restoreclip)
ClipSaved := ClipboardAll ; Save the entire clipboard to a variable of your choice.
clipboard := ; empty clipboard
Send ^c
ClipWait, 2, 1
IfEqual, ErrorLevel, 0
return
else
{
gosub restoreclip
exit
}

restoreclip: ; restores clipboard to clipsaved
Clipboard := ClipSaved ; Restore the original clipboard. Note the use of Clipboard (not ClipboardAll).
ClipSaved = ; Free the memory in case the clipboard was very large.
return

Edit AHK script

>^h::Edit

Reload AHK script upon save (I use HiEditor)

#IfWinActive, HiEditor - D:\Documents\AutoHotkey.ahk
~^s::
Sleep 500
reload
return
#IfWinActive

To prevent accidental firing using Capslock or tilde, see this solution.

Add Gmail-like "Archive" and "Move to Inbox" Buttons to Outlook

The blog Techdem has instructions for adding a "Done" button to Microsoft Outlook. I've modified the macro code from those instructions and made similar buttons for the toolbars of message windows:

Sub ArchiveSelected()
Set ArchiveFolder = Application.GetNamespace("MAPI"). _
GetDefaultFolder(olFolderInbox).Parent.Folders("Archive")
For Each Msg In ActiveExplorer.Selection
Msg.UnRead = False
Msg.ClearTaskFlag
Msg.Move ArchiveFolder
Next Msg
End Sub

Sub ArchiveActive()
Set ArchiveFolder = Application.GetNamespace("MAPI"). _
GetDefaultFolder(olFolderInbox).Parent.Folders("Archive")
Dim myItem As Object
Set myItem = Application.ActiveInspector.CurrentItem
myItem.UnRead = False
myItem.ClearTaskFlag
myItem.Move ArchiveFolder
End Sub

Sub MoveActiveToInbox()
Dim myItem As Object
Set myInbox = Application.GetNamespace("MAPI"). _
GetDefaultFolder(olFolderInbox)
Set myItem = Application.ActiveInspector.CurrentItem
myItem.Move myInbox
End Sub

Sub MoveSelectedToInbox()
Set myInbox = Application.GetNamespace("MAPI"). _
GetDefaultFolder(olFolderInbox)
For Each Msg In ActiveExplorer.Selection
Msg.Move myInbox
Next Msg
End Sub


Updates: Please see QuickArchive in Outlook for more.