Leaderboard

Polaroider 1.0.3.1 Easily Create a picture as a Polaroid and be able after, to create Custom Photos Polaroid Collage. May be you know Pola a soft for create easily Polaroid-like photos from your digital images, but after some tries, i didn't find it very handy ! So i made mine. Photo can be positioned by drag and zoomed/unzoomed with mouse wheel ( sorry for Touchpad user ) Polaroid can be inclined 10 or 20 degrees, on left or right, and with simple or multiple frames. Inclination will only be visible on the saved shoot. It is also saved with a transparent background for be able to create "Pêle-Mêles" (in french) with a photo editor. I have set the desktop as save directory. previous downloads : 122 source and executable are available in the Download Section All files are included in script. I hope you will like it ! Happy Shooting !

Just for the reference, here is modification of my example using _SendMessage() with custom message instead of GUICtrlSendToDummy(). With GUICtrlSendToDummy() you can send only 1 parameter and it must be numeric. With _SendMessage() you can send 2 parameters (wParam+lParam) and it can be diferent types. This is ideal when catching messages in ListView where you can trap/send item/subitem or item/state parameters for example. ; <a href='http://msdn.microsoft.com/en-us/library/windows/desktop/bb760734%28v=VS.85%29.aspx' class='bbc_url' title='External link' rel='nofollow external'>http://msdn.microsoft.com/en-us/library/windows/desktop/bb760734%28v=VS.85%29.aspx</a> #include <GUIConstantsEX.au3> #include <WindowsConstants.au3> #include <GuiStatusBar.au3> Global Const $WM_SB_DBLCLK = $WM_USER + 1 Global $hGUI = GUICreate("Statusbar doubleclick demo", 400, 300) $label = GUICtrlCreateLabel('abc', 10,10,100) Global $hStatus = _GUICtrlStatusBar_Create($hGUI) Global $aParts[3] = [125, 250] _GUICtrlStatusBar_SetParts($hStatus, $aParts) _GUICtrlStatusBar_SetText($hStatus, "Text1", 0) _GUICtrlStatusBar_SetText($hStatus, "Text2", 1) _GUICtrlStatusBar_SetText($hStatus, "Text3", 2) GUISetState() GUIRegisterMsg($WM_NOTIFY, "WM_Notify_Events") GUIRegisterMsg($WM_SB_DBLCLK, "WM_SB_DBLCLK") While 1 Switch GuiGetMsg() Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func WM_Notify_Events($hWndGUI, $MsgID, $wParam, $lParam) #forceref $hWndGUI, $MsgID, $wParam If $hWndGUI = $hGUI Then $NMHDR = DllStructCreate($tagNMHDR , $lParam) $hWndFrom = DllStructGetData($NMHDR, 'hWndFrom') $event = DllStructGetData($NMHDR, 'Code') If $event = $NM_DBLCLK And $hWndFrom = $hStatus Then $NMMOUSE = DllStructCreate($tagNMMOUSE , $lParam) $part = DllStructGetData($NMMOUSE, 'ItemSpec') _SendMessage($hGUI, $WM_SB_DBLCLK, $part, 0) EndIf EndIf Return $GUI_RUNDEFMSG EndFunc Func WM_SB_DBLCLK($hWnd, $MsgID, $wParam, $lParam) ConsoleWrite('statusbar doubleclick, part=' & $wParam & ' text=' & _GUICtrlStatusBar_GetText($hStatus, $wParam) & @CRLF) EndFunc

Example #include <GUIConstantsEx.au3> #include <GuiTreeView.au3> #include <WindowsConstants.au3> $Debug_TV = False ; Check ClassName being passed to functions, set to True and use a handle to another control to see it work _Main() Func _Main() Local $hItem[10], $iRand, $hTreeView Local $iStyle = BitOR($TVS_EDITLABELS, $TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS, $TVS_CHECKBOXES) GUICreate("TreeView Get Selection", 400, 300) $hTreeView = GUICtrlCreateTreeView(2, 2, 396, 268, $iStyle, $WS_EX_CLIENTEDGE) For $x = 0 To 9 $hItem[$x] = GUICtrlCreateTreeViewItem(StringFormat("[%02d] New Item", $x), $hTreeView) For $y = 1 To Random(2, 10, 1) GUICtrlCreateTreeViewItem(StringFormat("[%02d] New Child", $y), $hItem[$x]) Next Next GUISetState() ; Loop until user exits Do Switch GUIGetMsg() Case $GUI_EVENT_CLOSE ExitLoop Case $GUI_EVENT_PRIMARYDOWN If DoubleClick() Then ConsoleWrite("SelectedItem Text: " & GetTreeViewSelection($hTreeView) & @CRLF) EndSwitch Until 0 GUIDelete() EndFunc ;==>_Main Func GetTreeViewSelection($hTreeView) Local Const $hItem = _GUICtrlTreeView_GetSelection($hTreeView) Return _GUICtrlTreeView_GetText($hTreeView, $hItem) EndFunc Func DoubleClick() Static $iDoubleClickTime = DllCall("user32.dll", "uint", "GetDoubleClickTime") Static $iTimer Local $iReturn = 0 If TimerDiff($iTimer) <= $iDoubleClickTime[0] Then $iReturn = 1 EndIf $iTimer = TimerInit() Return $iReturn EndFunc ;==>a

Looks like a huge step to solve your problem

The third parameter in _IEGetObjByName() is the index, so you may choose them based on occurrence. $oSubmit = _IEGetObjByName($oIE, "submit", 1) ;index 1 is the 2nd one found (0 based index) _IEAction($oSubmit, "click") _IELoadWait($oIE)

You can use RegEnumVal to loop through the value names under the specified key.

You can also type word in the Index tab, open one of the pages and click back to Contents tab to see where it is.

I had already thought to made a java updater, but I always postponed it later. Thanks to share yours. Is an English version possible ? And when the last version is the same as installed version why ask for continue install ? Why not use the "_VersionCompare" function ?

In case anyone had not noticed, I am happy to announce that we have three new MVPs: PhoenixXL, FireFox and kylomas. I am sure you will all join in with my hearty congratulations to them all. M23

Here are a couple of examples to find the geographical location of an IP address using various databases located around the Internet. IpToCountry.csv: #include <Array.au3> #include <Constants.au3> #cs Initial discussion: http://www.autoitscript.com/forum/topic/147550-sre-guru-challenge/ #ce Example() Func Example() Local $sIP = '74.125.224.72' ; 'Google IP' Local $sString = _IPv4ToInt($sIP) Local $sRead = FileRead(@ScriptDir & '\IpToCountry.csv') ; http://software77.net/geo-ip/ Local $hTimer = TimerInit() Local $aArray = StringRegExp($sRead, '"(' & StringLeft($sString, 2) & '\d{6,8})","(\d{8,10})","([a-z]+)","(\d{8,10})","([A-Z]{2})","([A-Z]{2,3})","([a-zA-Z ]+)"\n', 3) If @error = 0 Then Local $aReturn[7] For $i = 0 To UBound($aArray) - 1 Step 7 If $sString >= $aArray[$i] And $sString <= $aArray[$i + 1] Then $aReturn[0] = $aArray[$i] $aReturn[1] = $aArray[$i + 1] $aReturn[2] = $aArray[$i + 2] $aReturn[3] = $aArray[$i + 3] $aReturn[4] = $aArray[$i + 4] $aReturn[5] = $aArray[$i + 5] $aReturn[6] = $aArray[$i + 6] ExitLoop EndIf Next ConsoleWrite(TimerDiff($hTimer) & @CRLF) _ArrayDisplay($aReturn) Else MsgBox($MB_SYSTEMMODAL, '', 'Well an error occurred. Sorry.') EndIf EndFunc ;==>Example Func _IPv4ToInt($sString) ; By JohnOne Local $aStringSplit = StringSplit($sString, '.', 3) Local $iOct1 = Int($aStringSplit[0]) * (256 ^ 3) Local $iOct2 = Int($aStringSplit[1]) * (256 ^ 2) Local $iOct3 = Int($aStringSplit[2]) * (256) Local $iOct4 = Int($aStringSplit[3]) Return $iOct1 + $iOct2 + $iOct3 + $iOct4 EndFunc ;==>_IPv4ToInt

GeoIPCountryWhois.csv: #include <Array.au3> #include <Constants.au3> #cs Initial discussion: http://www.autoitscript.com/forum/topic/147550-sre-guru-challenge/ #ce Example() Func Example() Local $sIP = '74.125.224.72' ; 'Google IP' Local $sString = _IPv4ToInt($sIP) Local $sRead = FileRead(@ScriptDir & '\GeoIPCountryWhois.csv') ; http://dev.maxmind.com/geoip/geolite Local $hTimer = TimerInit() Local $aArray = StringRegExp($sRead, '"([\d.]{7,15})","([\d.]{7,15})","(' & StringLeft($sString, 2) & '\d{5,8})","(\d{7,10})","([A-Z]{2})","([a-zA-Z ]+)"\n', 3) If @error = 0 Then Local $aReturn[6] For $i = 0 To UBound($aArray) - 1 Step 6 If $sString >= $aArray[$i + 2] And $sString <= $aArray[$i + 3] Then $aReturn[0] = $aArray[$i] $aReturn[1] = $aArray[$i + 1] $aReturn[2] = $aArray[$i + 2] $aReturn[3] = $aArray[$i + 3] $aReturn[4] = $aArray[$i + 4] $aReturn[5] = $aArray[$i + 5] ExitLoop EndIf Next ConsoleWrite(TimerDiff($hTimer) & @CRLF) _ArrayDisplay($aReturn) Else MsgBox($MB_SYSTEMMODAL, '', 'Well an error occurred. Sorry.') EndIf EndFunc ;==>Example Func _IPv4ToInt($sString) ; By JohnOne Local $aStringSplit = StringSplit($sString, '.', 3) Local $iOct1 = Int($aStringSplit[0]) * (256 ^ 3) Local $iOct2 = Int($aStringSplit[1]) * (256 ^ 2) Local $iOct3 = Int($aStringSplit[2]) * (256) Local $iOct4 = Int($aStringSplit[3]) Return $iOct1 + $iOct2 + $iOct3 + $iOct4 EndFunc ;==>_IPv4ToInt