SlowCoder74

Here's a little something back to the community for all the help I've had since I've been here

It took me quite a while to research all the modes, but its a fairly complete list up to and including the latest types that will come along as the price for some of these monitors drops to normal human buying power.
I've gone for the complete list so that in years to come it should still be valid.

Ive commented all the resolutions so you can see what they are.

If on the rare chance someone uses it gimme a credit plz


#cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.6.1 Author: Chimaera Script Function: Desktop Resolution #ce ---------------------------------------------------------------------------- Global $resolution ; ------------------------------------------------------------------------------ MsgBox(0, "Desktop Resolution", _Desktop_Resolution() & " @ " & @DesktopRefresh & " Hertz") Func _Desktop_Resolution() Switch $resolution = "" Case @DesktopWidth = 640 And @DesktopHeight = 480; Video Graphics Array $resolution = "640 x 480 (4:3) VGA" Case @DesktopWidth = 800 And @DesktopHeight = 480; Wide Video Graphics Array $resolution = "800 x 480 (4:3) WVGA" Case @DesktopWidth = 854 And @DesktopHeight = 480; Full Wide Video Graphics Array $resolution = "854 x 480 (4:3) FWVGA" Case @DesktopWidth = 800 And @DesktopHeight = 600; Super Video Graphics Array $resolution = "800 x 600 (4:3) SVGA" Case @DesktopWidth = 960 And @DesktopHeight = 540; Quarter Full HD $resolution = "960 x 540 (16:9) qHD" Case @DesktopWidth = 1024 And @DesktopHeight = 576; Wide Super Video Graphics Array $resolution = "1024 x 576 (5:3) WSVGA" Case @DesktopWidth = 1024 And @DesktopHeight = 600; Wide Super Video Graphics Array $resolution = "1024 x 600 (5:3) WSVGA" Case @DesktopWidth = 1024 And @DesktopHeight = 768; eXtended Graphics Array $resolution = "1024 x 768 (4:3) XGA" Case @DesktopWidth = 1152 And @DesktopHeight = 864; eXtended Graphics Array Plus $resolution = "1152 x 864 (4:3) XGA+" Case @DesktopWidth = 1280 And @DesktopHeight = 720; Wide eXtended Graphics Array $resolution = "1280 x 720 (16:9) HD Ready" Case @DesktopWidth = 1280 And @DesktopHeight = 768; Wide eXtended Graphics Array $resolution = "1280 x 768 (15:9) WXGA" Case @DesktopWidth = 1280 And @DesktopHeight = 800; Wide eXtended Graphics Array $resolution = "1280 x 800 (16:10) WXGA" Case @DesktopWidth = 1280 And @DesktopHeight = 960; Super eXtended Graphics Array $resolution = "1280 x 960 (4:3) SXGA" Case @DesktopWidth = 1280 And @DesktopHeight = 1024; Super eXtended Graphics Array $resolution = "1280 x 1024 (5:4) SXGA" Case @DesktopWidth = 1360 And @DesktopHeight = 768; Wide eXtended Graphics Array $resolution = "1360 x 768 (16:9) WXGA" Case @DesktopWidth = 1366 And @DesktopHeight = 768; High Definition (720p) $resolution = "1366 x 768 (16:9) HD [720p]" Case @DesktopWidth = 1440 And @DesktopHeight = 900; Wide Super eXtended Graphics Array $resolution = "1440 x 900 (16:10) WSXGA" Case @DesktopWidth = 1400 And @DesktopHeight = 1050; Wide Super eXtended Graphics Array $resolution = "1440 x 900 (16:10) WSXGA" Case @DesktopWidth = 1600 And @DesktopHeight = 900; High Definition Plus (900p) $resolution = "1600 x 900 (16:9) HD+ [900p]" Case @DesktopWidth = 1600 And @DesktopHeight = 1200; Ultra eXtended Graphics Array $resolution = "1600 x 1200 (4:3) UXGA" Case @DesktopWidth = 1680 And @DesktopHeight = 1050; Wide Super eXtended Graphics Array Plus $resolution = "1680 x 1050 (16:10) WSXGA+" Case @DesktopWidth = 1920 And @DesktopHeight = 1080; Full High Definition (1080p) $resolution = "1920 x 1080 (16:9) HD [1080p]" Case @DesktopWidth = 1920 And @DesktopHeight = 1200; Wide Ultra eXtended Graphics Array $resolution = "1920 x 1200 (16:10) WUXGA" Case @DesktopWidth = 1920 And @DesktopHeight = 1400; Tesselar eXtended Graphics Array $resolution = "1920 x 1400 (48:35) TXGA" Case @DesktopWidth = 2048 And @DesktopHeight = 1080; Digital Film Projection $resolution = "2048 x 1080 (19:10) 2K" Case @DesktopWidth = 2048 And @DesktopHeight = 1152; Quad Wide eXtended Graphics Array $resolution = "2048 x 1152 (4:3) QWXGA" Case @DesktopWidth = 2048 And @DesktopHeight = 1536; Quad eXtended Graphics Array $resolution = "2048 x 1536 (4:3) QXGA" Case @DesktopWidth = 2538 And @DesktopHeight = 1080; Wide Projector $resolution = "2538 x 1080 (47:20) Wide Projector" Case @DesktopWidth = 2560 And @DesktopHeight = 1080; Cinema TV $resolution = "2560 x 1080 (64:27) Cinema TV" Case @DesktopWidth = 2560 And @DesktopHeight = 1440; Wide Quad High Definition $resolution = "2560 x 1440 (16:9) WQHD" Case @DesktopWidth = 2560 And @DesktopHeight = 1600; Wide Quad eXtended Graphics Array $resolution = "2560 x 1600 (16:10) WQXGA" Case @DesktopWidth = 2560 And @DesktopHeight = 2048; Quad Super eXtended Graphics Array $resolution = "2560 x 2048 (5:4) QSXGA" Case @DesktopWidth = 2880 And @DesktopHeight = 900; Dell Alienware $resolution = "2880 x 900 (16:5) Curved Display" Case @DesktopWidth = 3200 And @DesktopHeight = 2048; Wide Quad Super eXtended Graphics Array $resolution = "3200 x 2048 (25:16) WQSXGA" Case @DesktopWidth = 3200 And @DesktopHeight = 2400; Quad Ultra eXtended Graphics Array $resolution = "3200 x 2048 (4:3) QUXGA" Case @DesktopWidth = 3840 And @DesktopHeight = 2160; Quad Full High Definition $resolution = "3840 x 2160 (16:9) QFHD" Case @DesktopWidth = 3840 And @DesktopHeight = 2400; Wide Quad Ultra eXtended Graphics Array $resolution = "3840 x 2048 (16:10) WQUXGA" Case @DesktopWidth = 4096 And @DesktopHeight = 1716; Digital Film Projection $resolution = "4096 x 1716 (2:39) 4K" Case @DesktopWidth = 4096 And @DesktopHeight = 3072; Hex[adecatuple] eXtended Graphics Array $resolution = "4096 x 3072 (4:3) HXGA" Case @DesktopWidth = 5120 And @DesktopHeight = 3200; Wide Hex[adecatuple] Extended Graphics Array $resolution = "5120 x 3200 (16:10) WHXGA" Case @DesktopWidth = 5120 And @DesktopHeight = 4096; Hex[adecatuple] Super eXtended Graphics Array $resolution = "5120 x 4096 (5:4) HSXGA" Case @DesktopWidth = 6400 And @DesktopHeight = 4096; Wide Hex[adecatuple] Super eXtended Graphics Array $resolution = "6400 x 4096 (25:16) WHSXGA" Case @DesktopWidth = 6400 And @DesktopHeight = 4800; Hex[adecatuple] Ultra eXtended Graphics Array $resolution = "6400 x 4800 (4:3) HUXGA" Case @DesktopWidth = 7680 And @DesktopHeight = 4320; Ultra High Definition Television $resolution = "7680 x 4320 (16:9) UHDT" Case @DesktopWidth = 7680 And @DesktopHeight = 4800; Wide Hex[adecatuple] Ultra eXtended Graphics Array $resolution = "7680 x 4800 (16:10) WHUXGA" Case Else Return SetError(1, 0, $resolution) EndSwitch Return $resolution EndFunc ;==>_Desktop_Resolution
Enjoy

Chimaera

It's 255 and -1 over and over, with any other number being the actual transparency value. The transparency value is always -1 if you do NOT use WinSetTrans. If you open up notepad and just request the trans value it will always be -1 (at least with the test I just ran, opened notepad, got the trans value 10 times in a row, all -1). If you use WinSetTrans with 255 it will then start doing -1 and 255. I'm guessing -1 just means that the transparency is the max value.

As part of one of my projects at work that needs TCP communication, I decided to build my own TCP server/client pair.  I tried to build it so that it is fairly self-managed, easy to implement into network projects, and contains a lot of useful inbuilt metrics.
Supported metrics (supported both server and client side):
- Number of current connections
- Client and server connection test
- Bytes sent / received / processed
- Packets sent / received / processed
- Number of clients connected
- Sockets / IP address / computer name
- Connection timestamp / elapsed time
- Last packet received timestamp / elapsed time
- Last packet sent timestamp / elapsed time
Functionality (on top of standard TCP functions):
- Configurable to send an initial "connection packet" upon connection, client or server-side.
- Connection keep-alive packets at specific intervals
- "Stale" connection disconnects for old, idle connections
- Selective client broadcasting.  On the server, clients can be individually selected to rebroadcast data received from them.
- Automatic IP/socket/computer name detection
- Connection state change detection.  e.g. This facilitates updating a GUI connection list when clients have connected or disconnected.
I would appreciate your constructive comments and suggestions.
I am including the UDF, and sample server and client.
Routines_TCP.au3
TCP Server.au3
TCP Client.au3

As part of one of my projects at work that needs TCP communication, I decided to build my own TCP server/client pair.  I tried to build it so that it is fairly self-managed, easy to implement into network projects, and contains a lot of useful inbuilt metrics.
Supported metrics (supported both server and client side):
- Number of current connections
- Client and server connection test
- Bytes sent / received / processed
- Packets sent / received / processed
- Number of clients connected
- Sockets / IP address / computer name
- Connection timestamp / elapsed time
- Last packet received timestamp / elapsed time
- Last packet sent timestamp / elapsed time
Functionality (on top of standard TCP functions):
- Configurable to send an initial "connection packet" upon connection, client or server-side.
- Connection keep-alive packets at specific intervals
- "Stale" connection disconnects for old, idle connections
- Selective client broadcasting.  On the server, clients can be individually selected to rebroadcast data received from them.
- Automatic IP/socket/computer name detection
- Connection state change detection.  e.g. This facilitates updating a GUI connection list when clients have connected or disconnected.
I would appreciate your constructive comments and suggestions.
I am including the UDF, and sample server and client.
Routines_TCP.au3
TCP Server.au3
TCP Client.au3

SlowCoder74,

Most of AutoIt depends on the Windows API - so there is no chance of it being ported to any other OS.

M23

I wrote this function a few years ago:
Func _Ws2_GetLocalPort($iSocket) ;funkey Local $hDLL = DllOpen("Ws2_32.dll") Local $tagIN_ADDR = "ulong S_addr;" Local $tagSOCKADDR_IN = "short sin_family;ushort sin_port;ptr sin_addr;char sin_zero[8];" Local $tIn_Addr = DllStructCreate($tagIN_ADDR) Local $tName = DllStructCreate($tagSOCKADDR_IN) DllStructSetData($tName, "sin_addr", DllStructGetPtr($tIn_Addr)) Local $aRes = DllCall($hDLL, "int", "getsockname", "uint", $iSocket, "struct*", $tName, "int*", 512) Local $aRes2 = DllCall($hDLL, "ushort", "ntohs", "ushort", DllStructGetData($tName, 2)) DllClose($hDLL) Return $aRes2[0] EndFunc Hope this is what you want.

As I am sure you found out, or will find out after trying to run that, you shouldn't put an include in the middle of your script, and especially not inside a loop like that. 

Don't be penny wise and pound foolish, create your code inside functions, add the functions into your include files, put the #include lines at the top of your script. Use the function calls where needed. Right now, you're making it MUCH more difficult for yourself or anyone else to follow that spaghetti code 2 weeks down the road, let alone 2 years down the road.

The dedicated server that runs the autoitscript.com / autoitconsulting.com site had a severe outage for the last couple of days.
The main problem was that one of the disk drives failed.
The server has two drives in RAID 1 so normally this isn't a problem, in fact there have been two disk outages over the past few years that many people won't have even noticed. Usually the server runs as normal with one drive down and there is only a brief 5 minute outage required when the disk is replaced and the server is rebooted. However in this case the server hard crashed and wouldn't boot into the OS on the remaining disk. I'm guessing that the drive was actually failing...working...failing and causing issues because it wouldn't just die.
I logged a support call and asked to get the disk replaced, but some of the communications were lost and it took 12 hours for them to acknowledge that the drive was dead and that they had the authorisation to go ahead and open the box and replace the drive (they only touch the hardware, I'm responsible for all the software/OS config). During this time the server was sitting in a recovery/linux boot disk mode used for troubleshooting. When the disk was finally replaced (8pm UK time 25th of Feb) the the technician only emailed my hostmaster / autoitscript email address to say that it was complete but I didn't receive it because of course that email address is hosted by the server...which is in recovery mode - they forgot to email the temporary gmail address I was using during the outage. So I only found out the work had actually been completed when I chased them up this morning on the phone.
I've started the RAID rebuild onto the new drive which will take a few hours to complete so the site may be sluggish until then. I also had to repair a few mysql tables that had crashed - but it didn't look to be a problem.

SlowCoder74,

Thanks, I will fix it. I thought I had when I changed the library to accept empty arrays.

For future reference, please report errors like that via the BugTracker (the link is in the menu at the top of the page).

M23

Edit: Just checked and I have in fact removed that bit in the big rewrite of the Array library that will be in the next Beta. But thanks again for pointing it out - we are always happy to get help keeping things up to date.

SlowCoder74,

As explained in this thread you need to use my StringSize UDF and some maths.

Please ask if you get stuck implementing the solution I suggested.

M23

P.S. And I never did find a solution to the problem discussed at the end of that thread.

SlowCoder74,
 

Says who?
#include <Array.au3> #include <MsgBoxConstants.au3> ; Start with 1 element and delete it Global $aArray[1] = [0] _ArrayDelete($aArray, 0) MsgBox($MB_SYSTEMMODAL, "Size", "Array has " & UBound($aArray) & " items") _ArrayAdd($aArray, "New Item") MsgBox($MB_SYSTEMMODAL, "Size", "Array has " & UBound($aArray) & " items") ; Or just start with none in the first place Global $aArray[0] MsgBox($MB_SYSTEMMODAL, "Size", "Array has " & UBound($aArray) & " items") _ArrayAdd($aArray, "New Item") MsgBox($MB_SYSTEMMODAL, "Size", "Array has " & UBound($aArray) & " items") M23

With the latest stable version of AutoIt (3.3.10.x) you can have empty arrays:
Local $aMyArray[0] The Array UDF supports empty arrays in 3.3.10.x.

If its your own GUI you can set it as an attribute.
$WS_EX_TOPMOST
tippfehler

SlowCoder74,

Try using:

GUISetState(@SW_SHOWNOACTIVATE, $hWnd) when you display your GUI - that way the focus is never taken.
M23

I just wanted to post a THANK YOU to everyone that is, and has in the past, developing the AutoIT suite and supporting software. Also, a THANK YOU to everyone on the forum who helps when people need assistance. Answers are usually prompt, and not too cryptic, to questions posted. And I actually appreciate the assistance that comes in the form of "you might want to look up ______", rather than always just tossing out the answer right there. That helps amateur developers learn more about the language and tools.

Though you may not always get a "thanks" when you provide help, I hope you know that you are appreciated by many.

I just wanted to post a THANK YOU to everyone that is, and has in the past, developing the AutoIT suite and supporting software. Also, a THANK YOU to everyone on the forum who helps when people need assistance. Answers are usually prompt, and not too cryptic, to questions posted. And I actually appreciate the assistance that comes in the form of "you might want to look up ______", rather than always just tossing out the answer right there. That helps amateur developers learn more about the language and tools.

Though you may not always get a "thanks" when you provide help, I hope you know that you are appreciated by many.

#include <GUIConstantsEx.au3> #include <TabConstants.au3> Local $tab, $iCombo, $msg, $Gui $Gui = GUICreate("- (Tab) - GUI") GUISetBkColor(0xB4E1D3) GUISetFont(9, 300) $tab = GUICtrlCreateTab(10, 10, 380, 200) GUICtrlCreateTabItem("Path") GUICtrlSetImage(-1, "shell32.dll", -4, 0) GUICtrlCreateLabel("Path", 40, 43, 270, 17) GUICtrlCreateButton("OK", 314, 60, 46, 25) GUICtrlCreateInput("C:\WINDOWS\system32", 40, 60, 275, 25) GUICtrlCreateTabItem("Style") GUICtrlSetImage(-1, "shell32.dll", -6, 0) GUICtrlSetState(-1, $GUI_SHOW) GUICtrlCreateLabel("Sel. Style", 20, 54, 250, 17) $iCombo = GUICtrlCreateCombo("", 20, 70, 310, 120) GUICtrlSetData(-1, "$GUI_SS_DEFAULT_TAB|$TCS_FIXEDWIDTH|$TCS_FIXEDWIDTH+$TCS_FORCEICONLEFT|$TCS_FIXEDWIDTH+$TCS_FORCELABELLEFT|$TCS_BOTTOM", "$GUI_SS_DEFAULT_TAB") GUICtrlCreateTabItem("?") GUICtrlSetImage(-1, "shell32.dll", -222, 0) GUICtrlCreateLabel("Des", 20, 40, 120, 17) GUICtrlCreateButton("OK", 300, 150, 70, 30) GUICtrlCreateTabItem("") GUICtrlCreateLabel('$TCS_MULTILINE - ' & @CRLF & '$TCS_BUTTONS - ' & @CRLF & '$TCS_FLATBUTTONS+$TCS_BUTTONS - ', 20, 230, 370, 100) GUISetState() While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE ExitLoop Case $tab ; отображает кликнутую вкладку WinSetTitle($Gui, "", "- (Tab) - GUI, - " & GUICtrlRead($tab)) Case $iCombo GUICtrlSetStyle($tab, BitOR($GUI_SS_DEFAULT_TAB, Execute(GUICtrlRead($iCombo)))) EndSwitch WEnd

I just wanted to post a THANK YOU to everyone that is, and has in the past, developing the AutoIT suite and supporting software. Also, a THANK YOU to everyone on the forum who helps when people need assistance. Answers are usually prompt, and not too cryptic, to questions posted. And I actually appreciate the assistance that comes in the form of "you might want to look up ______", rather than always just tossing out the answer right there. That helps amateur developers learn more about the language and tools.

Though you may not always get a "thanks" when you provide help, I hope you know that you are appreciated by many.

I just wanted to post a THANK YOU to everyone that is, and has in the past, developing the AutoIT suite and supporting software. Also, a THANK YOU to everyone on the forum who helps when people need assistance. Answers are usually prompt, and not too cryptic, to questions posted. And I actually appreciate the assistance that comes in the form of "you might want to look up ______", rather than always just tossing out the answer right there. That helps amateur developers learn more about the language and tools.

Though you may not always get a "thanks" when you provide help, I hope you know that you are appreciated by many.

Indeed I was.

It appears the limit is 4 digits per segment.

Source: http://msdn.microsoft.com/en-us/library/zykd2wy5(v=vs.80).aspx

... and you are sure that the resources of "C:Usersqme9401DesktopKeyStateNotifyKeyStateNotify.exe" does not contain any Program version information?
Update process seems to be running fine.

PS the fileversion is probably to high of a number.
Jos

@SW_SHOWNOACTIVATE