Leaderboard

Not sure this is helpful to someone other than me ... #include <GUIConstantsEx.au3> #include <GuiIPAddress.au3> #include <WindowsConstants.au3> #include <WinAPISys.au3> Local $hGui = GUICreate("IP Address Control Enable/Disable Example", 400, 300) Local $hIPAddress1 = _GUICtrlIpAddress_Create($hGui, 10, 10) Local $hIPAddress2 = _GUICtrlIpAddress_Create($hGui, 10, 40) Local $hIPAddress3 = _GUICtrlIpAddress_Create($hGui, 10, 70) _GUICtrlIpAddress_Set($hIPAddress1, "192.168.1.10") _GUICtrlIpAddress_Set($hIPAddress2, "255.255.255.0") _GUICtrlIpAddress_Set($hIPAddress3, "192.168.1.1") _GUICtrlIpAddress_Disable($hIPAddress1, 1) _GUICtrlIpAddress_Disable($hIPAddress2, 7) ; 4 + 2 + 1 _GUICtrlIpAddress_Disable($hIPAddress3, 0xf) ; 8 + 4 + 2 + 1 GUISetState() While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop WEnd ; #FUNCTION# ==================================================================================================================== ; Name ..........: _GUICtrlIpAddress_Disable ; Description ...: Disable (grays-out) the specified fields of an IP Address control ; Syntax ........: _GUICtrlIpAddress_Disable($hWnd[, $iFields = 0]) ; Parameters ....: $hWnd - Handle to the control ; $iFields - Fields to enable/disable. Can be a combination of the following : ; 0 : Enable all fields ; 1 : Disable the first field ; 2 : Disable the second field ; 4 : Disable the third field ; 8 : Disable the fourth field ; Return values .: On success1 - 1 ; On failure - 0 and set @error to non zero value ; Author ........: jguinch ; =============================================================================================================================== Func _GUICtrlIpAddress_Disable($hWnd, $iFields = 0) Local $aFields[4], $n = 0, $hEdit If Not IsInt($iFields) Or $iFields < 0 Or $iFields > 15 Then Return SetError(3, 0, 0) Local $hWindow = _WinAPI_GetAncestor($hWnd) If @error Then Return SetError(1, 0, 0) If Not $hWindow Or Not WinExists($hWnd) Then Return SetError(2, 0, 0) Local $aFields = _WinAPI_EnumChildWindows ($hWnd, False) If @error Or $aFields[0][0] <> 4 Then Return SetError(1, 0, 0) If $iFields = 0xf Then Return ControlDisable($hWindow, "", $hWnd) Local $iRet = ControlEnable($hWindow, "", $hWnd) For $i = 0 to 3 $iRet *= ( BitAND($iFields, 2 ^ $i) ? ControlDisable($hWindow, "", $aFields[4 - $i][0]) : ControlEnable($hWindow, "", $aFields[4 - $i][0]) ) Next Return $iRet EndFunc

If I understood correctly you need to store data (about 20 items by call) for 100 calls a day, meaning about 36000 calls a year For such a storage I strongly suggest a SQLite database which is extremely powerful - no problem with 100 chars items - and fast and allows all kinds of reports

Are you trying to connect between the 2 private networks (192.168.x.x) via the Internet? That will not just work like that. Teamviewer is using a Host/Server in the internet to make the connection as both clients can connect to that. This Server is playing "the man in the middle" role. When you want to be able to connect directly into a private subnet, you will have to configure the Router an map a particular port to one of the private Ip addresses. Jos

just insert a delay right after that line, use the Sleep() function with the wanted delay Sleep(1000) delays 1 second, Sleep(500) delays half second ... Local $iTargetColor = 0xFF0000 ; the wanted color Do $var = PixelGetColor(212, 157) If $var <> $iTargetColor Then MouseClick("primary", 755, 618) ; not the right color Sleep(1000) ; delay of 1000 milliseconds (that is 1 second) Until $var = $iTargetColor ; repeat this loop until color is the wanted one MouseClick("primary", 300, 300) ; click here and go ahead... Local $iTargetColor = 0xFF0000 ; the wanted color While 1 $var = PixelGetColor(212, 157) If $var = $iTargetColor Then MouseClick("primary", 300, 300) ; click here... ExitLoop ; and go ahead... (exit the While - Wend loop) Else MouseClick("primary", 755, 618) ; not the right color Sleep(1000) ; delay of 1000 milliseconds (that is 1 second) EndIf WEnd ; repeat this loop until color is the wanted one

Happy New Year, argumentum. I've got to hand it to you, you're good at finding bugs in my code. You could earn good money with that kind of skill, you know? And because it's a special day today, and I'm feeling exceptionally generous, I've uploaded a bug-fixed beta version 0,7, (to be honest, it was a trivial oversight on my part, patched in 10 seconds).

hm.... #include <array.au3> #include <StringConstants.au3> _Example() Func _Example() Local Enum $eFullMatch ,$eHref, $eText Local $sHTML = '<table class="n bs"><tbody><tr><td class="u"><a href="/site/151919time=12">site1</a></td><td class="o"><span class="bt bu">0</span></td></tr></tbody></table></li><li class="bj"><table class="n bs"><tbody><tr><td class="u"><a href="/site/54769time=12">site2</a></td><td class="o"><span class="bt bu">0</span></td></tr></tbody></table></li><li class="bj"><table class="n bs"><tbody><tr><td class="u"><a href="/site/64889time=12">site3</a></td><td class="o"><span class="bt bu">0</span></td></tr></tbody></table></li><li class="bj"><table class="n bs"><tbody><tr><td class="u"><a href="/site/66595time=12">site4</a></td><td class="o"><span class="bt bu">0</span></td></tr></tbody></table></li><li class="bj"><table class="n bs"><tbody><tr><td class="u"><a href="/site/31461time=12">site5</a></td><td class="o"><span class="bt bu">0</span></td></tr></tbody></table>'     Local $aInner Local $aHTML_Parsed = StringRegExp($sHTML, '(?i)<a.*?href="(.*?)">(.*?)<', $STR_REGEXPARRAYGLOBALFULLMATCH) If Not @error Then _ArrayDisplay($aHTML_Parsed, '$aHTML_Parsed') For $iOuter_idx = 0 To UBound($aHTML_Parsed) -1 $aInner = $aHTML_Parsed[$iOuter_idx] ConsoleWrite($aInner[$eHref] & ' ' & $aInner[$eText] & ' ' & @CRLF) Next EndIf EndFunc ;==>_Example Now you must only use: FileOpen(... FileWrite(... FileClose(... You should do it yourself as this is the easiest part of this job. mLipok