rhg

Works great. Thanks for sharing.

DLLStructDelete is obsolete. I haven't used that UDF so I am not certain how to tell you to fix it.

Yes, exited fine for me to. Neat script Valuater.

If your enviroment is XP and/or 2003, even better than xcopy is robocopy.exe (Robust Copy) provided in the Windows 2003 Resource Kit. Is great for network file managment and even has the ability to 'listen' for changes in a directory or on a file(s). I found the included robocopy.doc to pretty thorough. Read the doc well before tackling writing scripts for it though. There are so many options that sometimes it gets confusing when using one in partcular does not work while using another and logic says it should and doc's don't say if it does or doesn't. (Grammar check anyone? ) Windows 2003 Resource Kit download Google 'robocopy'

@death_pax ROFLMAO or roflmao?

Thats very cool...like it alot. Great work.

Check these out: http://www.autoitscript.com/forum/index.php?showtopic=20589 http://www.autoitscript.com/forum/index.php?showtopic=19696

Thanks for the tip...Found @HotKeyPressed in help. Problem solved. -rhg EDIT: To explain a little: I use the funtion Bye() to break out of loops and exit the program; I have had times where AutoIt would not break out of loop when Xfunction calls deep and exit, and this seems to work wonders for that (I am sure it is my code not autoit). I want to use OnAutoItExit() to trigger exit events like displaying a message dialog or writing to a logfile. So since I am using +ESC to trigger the function Bye() I needed a way to pass a variable to it for a custom message OnAutoItExit(), but I wanted to reuse the function Bye(). Instead, I now just have another function: HotKeySet("+{ESC}", "HotKeyExit") Func HotKeyExit() Bye(0) EndFunc

I know I could just add another function that does not require a parameter but I thought it redundant so thought to ask here. Comments in code. Thanks Global $exitflag = 0 HotKeySet("+{ESC}", "Bye"); tried "Bye(0)" and "Bye"&(0) Global $this = 10, $that = 0 While 1 $that=$that+1 ; I want to add other conditions here that ; use the same function Bye() and pass a parameter If $this = $that Then Bye(1) sleep(5000) WEnd Func Bye($eflag = 0) $exitflag = $eflag Exit EndFunc Func OnAutoItExit() Local $Title, $Output Select Case $exitflag=0; msg to display if HotKeySet used $Title = "Exit Message 0" $Output = "This would be message triggered by HotKeySet SHIFT+ESC" Case $exitflag=1; msg to display if *not* HotKeySet $Title = "Exit Message 1" $Output = "This would be message triggered in While..WEnd Loop" EndSelect MsgBox(64,$Title,$Output,10) EndFunc

Ok, so now we have hit some limitations...this is good. Cheap Syntax boards (just quoting) and Dual Opteron Tyan boards are out of the question but from the few handful of people that have tried says it works. Also tested an IA-64 w/XP 64-bit and another PIII Mobile and both worked as well. @PerryRaptor - I tested on a dual MP 1800+ on Tyan w/2003 and also this failed...came back 0. Maybe coincedence...then again maybe not? I wonder though if I can access device I/O directly with au3? Specificaly motherboard sensors similar in the way that SpeedFan does. I guess the big thing there is that they actually catalog the different motherboard's and the respective BIOS/Specs. To be honest I am not interested in such an undertaking but I am always curious. Thanks guys for the feedback and checking this thing out for me. Guess now we wait and see if it actually works; like a real scenario where it detects something out of tolerance and returns an alert....something to hope for at least. -rhg

Aweome...let me know how that turns out. -rhg

@PerryRaptor Awesome....are you running 64-bit XP on that 64-bit computer? Just curious. Thanks for trying it out and leaving some feedback. @mikeytown2 No problem...there were some additional requests after v0.2 so I just added them along with some things I wanted to try, and learn some new things. Thanks for trying it both times and letting me know your config and stuff. Is inspiring me to find more about accessing device I/O directly...I might have to try some ASM maybe or some existing COM. All the same thanks.

It's been updated...*alot*. Try the new one although not sure it will make a diff if the v0.2 returned 0. I have no idea what platforms this will work on HW/SW wise as not many have tried it yet. Hm..and speedfan works but this doesn't...did you run this with sppedfan disabled? Also, does speedfan return 1/10 or 1/100 or 1/1000 readings? Like does it give you 1.023V--like that? or like 1.1V ...? Thanks for the feedback..wasn't my idea actually. Just trying to help out a freind.

CPU Voltage Monitor v0.3 This was requested by a friend overseas that has to deal with very bad voltage fluctuations. Updated 2006-02-11 05:06 Ok, v0.2 was ok, but not enough for me. Also lacked some functionality I wanted so I added it. Goals/Features 1) Auto Detect's current voltage and --- Automaticaly applies +-0.1 tolerance range --- Displays MsgBox with Current Voltage and Applied Ranges 2) HotKey parameters now displayed in MsgBox on Startup --- SHIFT+ALT+S = Emergency Shutdown Dialog --- SHIFT+ALT+V = Current Voltage Dialog --- SHIFT+ESC = Exit Dialog 3) Alert Dialog when out of tolerance with Sound --- Alert Dialog offers Emergency Shutdown ( Shutdown(13) ) 4) Detects if it is already running and --- notifys user then terminates Test Platform(s): Compiled Using AutoIt v3.1.1.107 Beta OS: Windows XP Profesisonal PC1: AMD+GigaByte Desktop Clone (32-bit) PC2: Intel Centrino 1.8/533 Laptop (HP) ToDo: 1) Add support for more CPU's -- Auto Detect's Voltage Now 1a) CPU Detection -- Not needed, but plan to add as feature 1b) Load tolerance specs from INI -- 86'ed Known Limitations: Voltage readings using WMI only return readings in 1/10 increments versus manfacturer specs which are typically 1/1000 increments. So technicaly this is not accurate at all. Maybe in a future version I will try to access BIOS readings with WMI instead of using Win32_Processor readings. Update: I think this *is* the only way to detect CPU voltage with WMI. Any feedback/criticism welcome. Global $Title = "CPU Voltage Monitor v0.3" If WinExists("CPU Voltage Monitor v0.3") Then $sdnow=10 Bye() EndIf AutoItWinSetTitle($Title) #Include <Constants.au3> #NoTrayIcon Opt("TrayIconHide",1) HotKeySet("+{ESC}", "Bye") HotKeySet("+!s", "EShutDown") HotKeySet("+!v", "Voltage") Global $Output, $sdnow=0 Global $current_voltage = GetVoltage() Global $min = $current_voltage - 0.1 Global $max = $current_voltage + 0.1 Alert(0) $Title = "Auto Settings" $Output="" $Output = $Output & "Based on the detected voltage the settings"&b() $Output = $Output & "below will be used for Tolerance Range:"&b()&b() $Output = $Output & " Detected: "&$current_voltage&" V"&b()&b() $Output = $Output & " Mininmum Tolerance: "&$min&"00 V"&b() $Output = $Output & " Maximum Tolerance : "&$max&"00 V"&b() MsgBox(64,$Title,$Output,10) $Title = "Controls" $Output="" $Output = $Output & "Here is a list of controls for use with CVM:"&b()&b() $Output = $Output & "Exit Program"&t()&"SHIFT+ESC"&b()&b() $Output = $Output & "Emergency"&t()&"SHIFT+ALT+S"&b() $Output = $Output & "Shutdown"&b()&b() $Output = $Output & "Current Voltage"&t()&"SHIFT+ALT+V"&b()&b() MsgBox(64,$Title,$Output,10) While 1 $current_voltage = GetVoltage() Select Case $current_voltage<$min Alert(1) Case $current_voltage>$max Alert(2) Case Else Sleep(1000) EndSelect Wend Func Bye() Exit EndFunc Func OnAutoItExit() Select Case $sdnow=1 Shutdown(13) Case $sdnow=0 $Title = "CPU Voltage Monitor v0.3 - Exit" $Output = "" $Output = $Output & " Hope you enjoyed this version."&b()&b() $Output = $Output & "Please POST/PM/IM/EMAIL Any and All"&b() $Output = $Output & " Feedback and Criticism :)"&b() MsgBox(64,$Title,$Output,10) Case $sdnow=10 $Title = "CPU Voltage Monitor v0.3" $Output = "" $Output = $Output & " An instance of CPU Voltage Monitor"&b() $Output = $Output & " is already running." MsgBox(64,$Title,$Output,10) EndSelect EndFunc Func Voltage() $Title = "CPU Voltage Monitor v0.3" $Output = "" $Output = $Output & "Current Voltage Detected : "&GetVoltage()&" V" MsgBox(64,$Title,$Output,30) EndFunc Func EShutDown() $Title = "Emergency Shutdown" $Output="" $Output = $Output & " Do you want to ShutDown your computer"&b()&b() $Output = $Output & " IMMEDIATELY?"&b()&b() $Output = $Output & "If you click Yes All Programs will be forced to Close"&b() $Output = $Output & " and this computer will ShutDown Immediately."&b() $Output = $Output & " Continue with Emergency ShutDown?"&b() If ShowMe($Title,$Output,120)=6 Then $Title = "Emergency Shutdown" $Output="" $Output = $Output & "Are you Sure?"&b()&b() If ShowMe($Title,$Output,30)=6 Then $sdnow=1 Bye() Else Return EndIf EndIf EndFunc Func b() Return @CRLF EndFunc Func t() Return @TAB EndFunc Func ShowMe($T,$O,$to=10) SoundPlay(@WindowsDir & "\media\chord.wav",0) Return Msgbox(4096+4,$T,$O,$to) EndFunc Func Alert($lvl) Select Case $lvl = 0;welcome message $Title = "CPU Voltage Monitor v0.3" $Output = $Output & "CPU Voltage Monitor will alert you if your" & b() $Output = $Output & "CPU Voltage rises above or drops below" & b() $Output = $Output & "1/10th of your Current Voltage Detected." & b()&b() $Output = $Output & " Want to Continue?"& b()& b() $Output = $Output & "Click Yes to Continue or Click No to Abort." & b() If ShowMe($Title,$Output,100)=7 Then Bye() Else Return EndIf Case $lvl = 1;below tolerance $Title = "CPU Voltage Alert" $Output="" $Output = $Output & "Your CPU Voltage is below tolerance."&b()&b() $Output = $Output & " Minimum Voltage : "&$min&" V"&b() $Output = $Output & " Detected Voltage : "&$current_voltage&" V"&b()&b() $Output = $Output & " Do Emergency Shutdown?"&b() If ShowMe($Title,$Output)=6 Then $sdnow=1 Bye() Else Return EndIf Case $lvl = 2;above tolerance $Title = "CPU Voltage Alert" $Output="" $Output = $Output & "Your CPU Voltage is above tolerance."&b()&b() $Output = $Output & " Maximum Voltage : "&$max&" V"&b() $Output = $Output & " Detected Voltage : "&$current_voltage&" V"&b()&b() $Output = $Output & " Do Emergency Shutdown?"&b() If ShowMe($Title,$Output)=6 Then $sdnow=1 Bye() Else Return EndIf Case Else Return EndSelect EndFunc Func GetVoltage() Local $objWMIService, $strComputer = ".", $objItem, $colItems Local $voltage $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2") $colItems = $objWMIService.ExecQuery("Select * from Win32_Processor") If IsObj($colItems) then For $objItem In $colItems $voltage=$objItem.CurrentVoltage Next EndIf $voltage = StringLeft($voltage,1)&"."&StringRight($voltage,Stringlen($voltage)-1)&"00" Return $voltage EndFunccpu_voltage_monitor.au3

Func CAMERA() ROFLMAO, that is to funny. Cool code

@Larry Roger..I am on it. @big_daddy Thanks for the tip.

Thanks Oxin8 for the feedback. Think I was replying when you posted but thats a good idea and no offense taken. I'll update the function after replying. If Not FileExists($f) Then Isn't this a boolean expression? Wasn't sure how AI handles -1/1/0 in boolean expressions. Is the same as VBScript?

Thanks Nuffilein805 for the feedback. Thinking about your suggestion...what do you propose exactly? Like the function uses the data in $fileStr to perform a HDD search and returns the path for each file? Or just returns 1 for 'Yes I'm Here' or 0 'No I'm Not', and just handle user notification 'on 0'? Not sure what you want it to do exactly but I am up to improving it. Just let me know.

My first UDF; simple and self-explanatory I think. Hope you guys like it. The idea for me was to run this routine and on the return of 0 (int) display a MsgBox with the missing file(s) and trigger an Exit. Updated : 2006-02-08 14:30 Arguments: $fileDir is the directory you want to search for the required file(s) $fileStr is either A) a single file name or a delimited string of file names $del is the delimiter one is using to delimit the file names in $fileStr; Default is comma. Returns: 1 on Success : 0 on Failure Notes: If the function doesn't find the file(s), then it pops-up an error dialog with the list of missing files and only the missing files. Func FilesRequired($fileDir,$fileStr,$del=",") Local $f, $tmpx="" If StringInStr($fileStr,$del)>0 Then Local $cs = StringSplit($fileStr,$del) Local $x For $x = 1 To $cs[0] $f = $fileDir&$cs[$x] If Not FileExists($f) Then $tmpx = $tmpx &"* "&$f&@CRLF EndIf Next Else $f = $fileDir&$fileStr If Not FileExists($f) Then $tmpx = $tmpx &"* "&$f&@CRLF EndIf EndIf If StringLen($tmpx)>0 Then $f = "The Following Required Files " $f = $f & "are Missing or Corrupt:" $f = $f & @CRLF&@CRLF&$tmpx&@CRLF $f = $f & "Exiting With Errors..." MsgBox(48,"Critical Error",$f) Return 0 Else Return 1 EndIf EndFunc Example Usage Dim $mypath = @ScriptDir&"\" Dim $required = "myfile1.ini,myfile2.exe,myfile3.jpg" If FilesRequired($mypath,$required,",")=1 Then MsgBox(48,"Yay","All Required Files There") ; Continue processing here EndIf Exit

Larry, as expected your instruction is flawless sir. Steps: 1) Download and installed the latest AI+SciTe Beta, AI+SciTeUpdate and v108 Beta 2) Copied and pasted the code from the AutoIt help section on TCPSend to SciTe. ( Seemed simpler than editing the individual lines.) 3) I am still working my way around in SciTe as it seems I had to use the Beta Compiler directly from the Programs menu in order to compile. (Start->Programs->AutoIt v3->beta->Compile Beta) Trivial, but worth mentioning I guess. A non-trivial problem though...I am recieving an error when SOCKET2IP() UDF is triggered upon client connection for the line. The error returned in SciTe: C:\AU3\fla_sockets.au3(142,29) : ERROR: DLLStructDelete(): undefined function. DLLStructDelete($sockaddr) For some reason (maybe b/c is Beta?) I had to comment that entire function out including all references to it in the UDF for it to 'act' properly and not error out. Not that I need it to work as I am on just testing on localhost, but I am curious if I haven't screwed something up with installing Beta or just being a n00b. Again thanks for the tip! Made my day to see it work finally. You guys are awesome. EDIT: I *did* try DllStructDelete vs DLLStructDelete but that did not seem to help either. (DllStructDelete is what is in the Help File.)

Ah ok...I will update to the latest beta and replace the DLLCall's with the new functions...Thanks for the tip Larry. Will post back soon enough (I hope )

Yes, is AI for 'nothing', but is not the same as 'empty byte'. ASCII Code 0 (zero) is 'null' or empty byte..not the same as 'empty string'. For some reason nothing I have tried is working. Hm. Also tried "\r\n" and "\n" and ASCII equivalents, but nada. Have I ran into some AI limitation or my own limitation? Thanks EDIT: Has anything to do with the way the data is handled from the GUI input box? Global $trm = " " ; or "" or Chr(0)...like I said I have tried them all I think. $ret = DLLCall( "au3xtra.dll", "int", "TCPSend", "int", $ConnectedSocket, "str", GUICtrlRead($input) & $trm) ;<-- I have tried also: $strStr=GUICtrlRead($input) $strStr=$strStr&Chr(0) $ret = DLLCall( "au3xtra.dll", "int", "TCPSend", "int", $ConnectedSocket, "str", $strSrt) ;<--

No takers? Oh well, was worth a shot. If I get it working I will post the code. AutoIt is still great anyways.

Hi. I think AI3 is a great scripting platform and have been taking a real liking to it, especially the TCP/UDP functionality. From all of the great contributions here on socket server implementation I thought I might try to setup a simple socket server to play with flash...not a "chat server"...although that is neat it has been done to death IMHO. I am actually looking for a different type of I/O functionality. Flash uses the XMLSocket Object to connect to a socket server. I have successfully modified the server.au3 (Larry's orginal implementation [Thanks Larry]) and can successfully connect to it, and send messages from Flash to the socket server. My problem is getting them back to Flash. Here is an exmaple of what I am doing/trying to do: Flash sends: <vectorObj currentx="1" currenty="10" /> Server sends: <vectorObj newx="45" newy="200" /> Flash parses this message and applies the new incoming vector properties to a vector object...say placement of a rectangle on the stage and then moving the objects anchor to the new X/Y coordinates. I know the flash movie works as I d/l'ed a 15 line Perl server script and verified it is working properly. Problem is I do not know hardly any perl at all as my background is batch/Basic/VBScript and some AS1/2, and the perl server is a chat implementation that just echo's whats incoming and forwards to all other connected clients vs what I am proposing. Plus I thought it would be fun to do in AutoIt, lol. Soooo....after about a week of reading, trying, and failing, I finally found what I think is the problem: Flash will listen and buffer incoming data until it receives an "empty byte" at which time it processes the incoming data. This empty byte is represented by $/="\0" in all the Perl/Python/Java examples I have found. So, what I have tried is to append that termination string from the $input box data, gathered in the server's while 1 loop when I click on Send. I have tried: $trm = "\0" , Asc("NUL"), Chr(0), Chr(13)&Chr(10), Asc("CR"),Asc(" LF"), Asc("CR")&Asc("LF"), @CRLF For the life of me I have no idea what $/="\0" actually is in Perl other than "empty byte" or "null byte"....not sure if there is a difference. Anyways, this was just meant to be fun but I feel like I am so close and I would love to play around with Flash and a simple socket server on localhost. I'm on vacation for another week so hoping to maybe get this working. I know this isn't what AI is for but I am sure it can do the job well enough to 'play around'. Thanks for reading my *very* long post, and for any advice.

Look Here: http://www.autoitscript.com/forum/index.php?showtopic=19848