Baz

Hi all. Ok, changed the code to use read/writeINI and it works great. So with your help I can move on but now I need to know why I had the issue that I had, just the way I am. Thank you very much for your help. Cheers Baz

Fair comment, but this should work and I would like to know why it doesn't work. I hate to have to work around problems but thanks. Cheers Baz

Hi ya. I have written a script that records the temperature and stores the information in a php file and also a txt file so that if the script is restarted, it reads the old values back from the txt file. I have removed most of the coding to keep it simple as I have one problem. The script fails to complete lines 76 ($err = _FileWriteToLine ( $file_txt, 3, $hvalue, 1 )) and 80 (FileWriteToLine ( $file_txt, 6, $lvalue, 1 )), even though lines 86 and 87 do the same but to a different file. I have put in an MSGBOX to display the value to see and it is correct. If anyone has got any ideas that would be great. I have added an error thing to line 86 and this comes back with "6" that would suggest that the value to be written is invalid but how can that be when it works with lines 86 and 87 and MSGBOX? To test the script, you will need to have two files each with at least 20 blank lines, backup.txt and current_.php Once you start the file, after 5 seconds it will ask you for a value and if you give it say 30 you will see that within the backup.txt file the first two lines are correct but line 3 which should contain 30 is blank. Anyway thanks for looking. #include <File.au3> #Include <Date.au3> #include <Array.au3> Dim $time, $lastdate, $today, $hour Dim $file Dim $buf Dim $hdate;date of high value recorded Dim $htime;time of high value recorded Dim $ldate;date of low value recorded Dim $ltime;time of low value recorded Dim $hvalue;high value Dim $lvalue =99 $file_php = "Current_.php" $file_txt = "backup.txt" $lastdate = _NowDate() $date = _NowDate() $date = StringReplace ( $date, "/", "-" ) $list = FileReadLine ( $file_txt, 1 ) $hour = FileReadLine ( $file_txt, 2 ) $hvalue = FileReadLine ( $file_txt, 3 ) $hdate = FileReadLine ( $file_txt, 4 ) $htime = FileReadLine ( $file_txt, 5 ) $lvalue = FileReadLine ( $file_txt, 6 ) $ldate = FileReadLine ( $file_txt, 7 ) $ltime = FileReadLine ( $file_txt, 8 ) Wait() While 1 Action() WEnd Func Action() $buf = InputBox ( "New Value", "Please enter a new value" ) _Showval($buf) Sleep ( 120000 );sleep for two minutes to stop the process from running more then once on the hour. Wait() EndFunc Func Wait() Sleep ( 5000 ) EndFunc Func _Showval($tempval) $value = Number($buf) If $value >= $hvalue Then $hvalue = $value $hdate = _NowDate() $htime = _NowTime() EndIf If $value <= $lvalue Then $lvalue = $value $ldate = _NowDate() $ltime = _NowTime() EndIf $today = _NowDate() If $today = $lastdate Then;Check to see if we should start fresh counters as we only record one days worth of data Else $list = "" $hour = "" _FileWriteToLine ( $file_php, 37, " ", 1 );Go back to using one graph EndIf If $list = "" Then $list = $buf $hour = @HOUR & "00" Else $list = $list & "," & $buf $hour = $hour & "," & @HOUR & "00" EndIf _FileWriteToLine ( $file_txt, 1, $list, 1 ) _FileWriteToLine ( $file_txt, 2, $hour, 1 ) $err = _FileWriteToLine ( $file_txt, 3, $hvalue, 1 ) If @error Then MsgBox(0,"error",@error) _FileWriteToLine ( $file_txt, 4, $hdate, 1 ) _FileWriteToLine ( $file_txt, 5, $htime, 1 ) _FileWriteToLine ( $file_txt, 6, $lvalue, 1 ) _FileWriteToLine ( $file_txt, 7, $ldate, 1 ) _FileWriteToLine ( $file_txt, 8, $ltime, 1 ) _FileWriteToLine ( $file_php, 14, "$graph->values = '" & $list & "';", 1 ) _FileWriteToLine ( $file_php, 15, "$graph->labels = '" & $hour & "';", 1 ) _FileWriteToLine ( $file_php, 3, " The last recording was " & $buf & " on " & $date & " at " & _NowTime () , 1 ) _FileWriteToLine ( $file_php, 5, " The highest recording was " & $hvalue & " on " & $hdate & " at " & $htime , 1 ) _FileWriteToLine ( $file_php, 7, " The lowest recording was " & $lvalue & " on " & $ldate & " at " & $ltime , 1 ) If @HOUR >= "12" Then _FileWriteToLine ( $file_php, 37, "$graph->charts = 2;", 1 );If it is 12pm, then start a second graph Else _FileWriteToLine ( $file_php, 37, " ", 1 ) EndIf $lastdate = _NowDate() EndFunc ;==>_ShowTemp

What about if the button to login does not have a name as with my ISP web mail page? How could I click on this button? <input type="submit" class="button" title="Once youve entered your Username and password, click on the Log in button to check your email account." value="Log in" onmouseover="return hint('Once youve entered your Username and password, click on the Log in button to check your email account.')" onmouseout="return hint()">

Thank you very much gafrost. One error with the "install date" line but I didn't need that. Cheers Baz

Hi all. The following is a vbs script I found on the Internet but I would like to change it to an Autoit script. Are you able to help? It is way above me. Thanks On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_UserAccount",,48) For Each objItem in colItems Wscript.Echo "AccountType: " & objItem.AccountType Wscript.Echo "Domain: " & objItem.Domain Wscript.Echo "FullName: " & objItem.FullName Wscript.Echo "Name: " & objItem.Name Next

You guys rock! I have used greenmachine's code and it works like a dream! Thanks for all the suggestions and help. Cheers Baz

Thanks heaps for your help. This is the final code. As you can see I am creating a small HTML file that displays different pic depending on the binary number. The code works but if you can see a way to improve on how I have written it, please tell. Cheers #include <File.au3> dim $binary $decimal=3 Call ("Dec2Bin", $decimal) IF 0 <> BitAND($binary, 128) Then $a=1 Else $a=0 EndIf IF 0 <> BitAND($binary, 64) Then $b=1 Else $b=0 EndIf IF 0 <> BitAND($binary, 32) Then $c=1 Else $c=0 EndIf IF 0 <> BitAND($binary, 16) Then $d=1 Else $d=0 EndIf IF 0 <> BitAND($binary, 8) Then $e=1 Else $e=0 EndIf IF 0 <> BitAND($binary, 4) Then $f=1 Else $f=0 EndIf IF 0 <> BitAND($binary, 2) Then $g=1 Else $g=0 EndIf If 0 <> BitAND($binary, 1) Then $h=1 Else $h=0 EndIf $file = FileOpen("g:\HTML\leds.html", 2) FileWriteLine($file, "<html>" & @CRLF) FileWriteLine($file, "<body bgcolor=" & "#000000" & ">" & @CRLF) FileWriteLine($file, "<img src="& $a & ".gif"&"><br>" & @CRLF) FileWriteLine($file, "<img src="& $b & ".gif"&"><br>" & @CRLF) FileWriteLine($file, "<img src="& $c & ".gif"&"><br>" & @CRLF) FileWriteLine($file, "<img src="& $d & ".gif"&"><br>" & @CRLF) FileWriteLine($file, "<img src="& $e & ".gif"&"><br>" & @CRLF) FileWriteLine($file, "<img src="& $f & ".gif"&"><br>" & @CRLF) FileWriteLine($file, "<img src="& $g & ".gif"&"><br>" & @CRLF) FileWriteLine($file, "<img src="& $h & ".gif"&"><br>" & @CRLF) FileWriteLine($file, "</body>" & @CRLF) FileWriteLine($file, "</html>" & @CRLF) FileClose($file) ;run("notepad g:\HTML\leds.html") Func Dec2Bin($decimal) $binary = '' While $decimal>0 $binary = String(Mod($decimal, 2)) & $binary $decimal = Int($decimal/2) WEnd Return $binary EndFunc

Hi ya. What I am after is the ability to convert an 8 bit binary number to individual environment variables. For example: COnvert 11101011 to: $a=1 $b=1 $c=1 $d=0 $e=1 $f=0 $g=1 $h=1 or if the binary number is 1101 then convert it to: $a=0 $b=0 $c=0 $d=0 $e=1 $f=1 $g=0 $h=1 I don't know how to do this , but if you could show me that would be most welcome! Cheers Baz

Sorry for the delay in replying, sort of but not all outputs worked. I have changed the code as recommended to use Case $MSG. I am still learning as I have not tried to do anything like this before. I am use to batch files! Anyway this is what I have at the moment. Thanks for the help. #include <GUIConstants.au3> $lpt1 = 888; hex. is 378 so dec. is 888 $lpt2 = 632; hex. is 278 so dec. is 632 $BasePortAddr = $lpt1 Dim $lptData, $d1=0, $d2=0, $d3=0, $d4=0, $d5=0, $d6=0, $d7=0, $d8=0 $Form3 = GUICreate("BazMan Parallel Port Control", 412, 297, 302, 218, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS)) $lptd1 = GUICtrlCreateCheckbox("LED1", 10, 40, 50) $lptd2 = GUICtrlCreateCheckbox("LED2", 10, 60, 50) $lptd3 = GUICtrlCreateCheckbox("LED3", 10, 80, 50) $lptd4 = GUICtrlCreateCheckbox("LED4", 10, 100, 50) $lptd5 = GUICtrlCreateCheckbox("LED5", 10, 120, 50) $lptd6 = GUICtrlCreateCheckbox("LED6", 10, 140, 50) $lptd7 = GUICtrlCreateCheckbox("LED7", 10, 160, 50) $lptd8 = GUICtrlCreateCheckbox("LED8", 10, 180, 50) $Input1 = GUICtrlCreateInput("", 200, 40, 161, 200, BitOR($ES_MULTILINE,$ES_WANTRETURN)) $Button11 = GUICtrlCreateButton("ON", 90, 40, 65, 25, 0) $Button12 = GUICtrlCreateButton("OFF", 90, 72, 65, 25, 0) $Button13 = GUICtrlCreateButton("WAIT", 90, 104, 65, 25, 0) $Button14 = GUICtrlCreateButton("LOOP", 90, 136, 65, 25, 0) $Button15 = GUICtrlCreateButton("START", 90, 168, 65, 25, 0) $Button16 = GUICtrlCreateButton("STOP", 90, 200, 65, 25, 0) GUISetState(@SW_SHOW) While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE DllCall("inpout32.dll", "short", "Out32", "short", $BasePortAddr, "int", 00000000) Exit Case $msg = $button11 GUICtrlSetData($Input1,"Wait",1) Case $msg = $button12 GUICtrlSetData($Input1,"Wait",1) Case $msg = $button13 GUICtrlSetData($Input1,"Wait",1) Case $msg = $button14 GUICtrlSetData($Input1,"Wait",1) Case $msg = $button15 GUICtrlSetData($Input1,"Wait",1) Case $msg = $button16 GUICtrlSetData($Input1,"Wait",1) Case $msg = $lptd1 If BitAND(GUICtrlRead($lptd1), $GUI_CHECKED) Then $d1=1 If BitAND(GUICtrlRead($lptd1), $GUI_UNCHECKED) Then $d1=0 call("led") Case $msg = $lptd2 If BitAND(GUICtrlRead($lptd2), $GUI_CHECKED) Then $d2=2 If BitAND(GUICtrlRead($lptd2), $GUI_UNCHECKED) Then $d2=0 call("led") Case $msg = $lptd3 If BitAND(GUICtrlRead($lptd3), $GUI_CHECKED) Then $d3=4 If BitAND(GUICtrlRead($lptd3), $GUI_UNCHECKED) Then $d3=0 call("led") Case $msg = $lptd4 If BitAND(GUICtrlRead($lptd4), $GUI_CHECKED) Then $d4=8 If BitAND(GUICtrlRead($lptd4), $GUI_UNCHECKED) Then $d4=0 call("led") Case $msg = $lptd5 If BitAND(GUICtrlRead($lptd5), $GUI_CHECKED) Then $d5=16 If BitAND(GUICtrlRead($lptd5), $GUI_UNCHECKED) Then $d5=0 call("led") Case $msg = $lptd6 If BitAND(GUICtrlRead($lptd6), $GUI_CHECKED) Then $d6=32 If BitAND(GUICtrlRead($lptd6), $GUI_UNCHECKED) Then $d6=0 call("led") Case $msg = $lptd7 If BitAND(GUICtrlRead($lptd7), $GUI_CHECKED) Then $d7=64 If BitAND(GUICtrlRead($lptd7), $GUI_UNCHECKED) Then $d7=0 call("led") Case $msg = $lptd8 If BitAND(GUICtrlRead($lptd8), $GUI_CHECKED) Then $d8=128 If BitAND(GUICtrlRead($lptd8), $GUI_UNCHECKED) Then $d8=0 call("led") EndSelect WEnd Func led() $lptData=$d1+$d2+$d3+$d4+$d5+$d6+$d7+$d8 DllCall("inpout32.dll", "short", "Out32", "short", $BasePortAddr, "int", $lptData) EndFunc

Code: #include <GUIConstants.au3> Opt("GUIOnEventMode", 1) $lpt1 = 888 ; hex. is 378 so dec. is 888 $lpt2 = 632 ; hex. is 278 so dec. is 632 $BasePortAddr = $lpt1 Dim $lptData, $d1=0, $d2=0, $d3=0, $d4=0, $d5=0, $d6=0, $d7=0, $d8=0 $Form3 = GUICreate("BazMan Parallel Port Control", 412, 297, 302, 218, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS)) $lptd1 = GUICtrlCreateCheckbox("LED1", 10, 40, 50) $lptd2 = GUICtrlCreateCheckbox("LED2", 10, 60, 50) $lptd3 = GUICtrlCreateCheckbox("LED3", 10, 80, 50) $lptd4 = GUICtrlCreateCheckbox("LED4", 10, 100, 50) $lptd5 = GUICtrlCreateCheckbox("LED5", 10, 120, 50) $lptd6 = GUICtrlCreateCheckbox("LED6", 10, 140, 50) $lptd7 = GUICtrlCreateCheckbox("LED7", 10, 160, 50) $lptd8 = GUICtrlCreateCheckbox("LED8", 10, 180, 50) $Input1 = GUICtrlCreateInput("", 200, 40, 161, 200, BitOR($ES_MULTILINE,$ES_WANTRETURN)) $Button11 = GUICtrlCreateButton("ON", 90, 40, 65, 25, 0) $Button12 = GUICtrlCreateButton("OFF", 90, 72, 65, 25, 0) $Button13 = GUICtrlCreateButton("WAIT", 90, 104, 65, 25, 0) GUICtrlSetOnEvent (-1, "insrtwait") $Button14 = GUICtrlCreateButton("LOOP", 90, 136, 65, 25, 0) $Button15 = GUICtrlCreateButton("START", 90, 168, 65, 25, 0) $Button16 = GUICtrlCreateButton("STOP", 90, 200, 65, 25, 0) GUISetState(@SW_SHOW) While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE DllCall("inpout32.dll", "short", "Out32", "short", $BasePortAddr, "int", 00000000) Exit Case $msg = $lptd1 If BitAND(GUICtrlRead($lptd1), $GUI_CHECKED) Then $d1=1 If BitAND(GUICtrlRead($lptd1), $GUI_UNCHECKED) Then $d1=0 call("led") Case $msg = $lptd2 If BitAND(GUICtrlRead($lptd2), $GUI_CHECKED) Then $d2=2 If BitAND(GUICtrlRead($lptd2), $GUI_UNCHECKED) Then $d2=0 call("led") Case $msg = $lptd3 If BitAND(GUICtrlRead($lptd3), $GUI_CHECKED) Then $d3=4 If BitAND(GUICtrlRead($lptd3), $GUI_UNCHECKED) Then $d3=0 call("led") Case $msg = $lptd4 If BitAND(GUICtrlRead($lptd4), $GUI_CHECKED) Then $d4=8 If BitAND(GUICtrlRead($lptd4), $GUI_UNCHECKED) Then $d4=0 call("led") Case $msg = $lptd5 If BitAND(GUICtrlRead($lptd5), $GUI_CHECKED) Then $d5=16 If BitAND(GUICtrlRead($lptd5), $GUI_UNCHECKED) Then $d5=0 call("led") Case $msg = $lptd6 If BitAND(GUICtrlRead($lptd6), $GUI_CHECKED) Then $d6=32 If BitAND(GUICtrlRead($lptd6), $GUI_UNCHECKED) Then $d6=0 call("led") Case $msg = $lptd7 If BitAND(GUICtrlRead($lptd7), $GUI_CHECKED) Then $d7=64 If BitAND(GUICtrlRead($lptd7), $GUI_UNCHECKED) Then $d7=0 call("led") Case $msg = $lptd8 If BitAND(GUICtrlRead($lptd8), $GUI_CHECKED) Then $d8=128 If BitAND(GUICtrlRead($lptd8), $GUI_UNCHECKED) Then $d8=0 call("led") EndSelect WEnd Func led() $lptData=$d1+$d2+$d3+$d4+$d5+$d6+$d7+$d8 DllCall("inpout32.dll", "short", "Out32", "short", $BasePortAddr, "int", $lptData) EndFunc Func insrtwait() GUICtrlSetData($Input1,"Wait",1) EndFunc

Hi ya. I have a GUI that has buttons and check boxes. When I started it only had check boxes and then when I added buttons and this bit of code "Opt("GUIOnEventMode", 1)" to make the buttons run functions, it seems to stop the check boxes from working. What am I doing wrong? Cheers Baz.

Sorry, I see that I forgot to add the url. http://www.codeproject.com/csharp/csppleds.asp and about two thirds the way down the page was where I found the answer. Baz

Ok, only spent about 4 hours on this now (only been using AutoIT since start of the year and I haven't tried to do things like this before!) Anyway I have got it going after reading from the following site. And here is my script as the basic function is working. I will now add the following: -Tick box and or button for each of the eight outputs -Graphic to represent the LED and or Relay -Ability to add script to cycle the outputs. Hope this may be of help to others. Cheers Baz. #include <GUIConstants.au3> Opt ("GUIOnEventMode", 1) GUICreate("BazMan LED Switch", 300, 300) $Button1 = GUICtrlCreateButton("On", 24, 40, 121, 33, 0) GUICtrlSetOnEvent (-1, "button1") $Button1 = GUICtrlCreateButton("Off", 24, 80, 121, 33, 0) GUICtrlSetOnEvent (-1, "button2") $Button2 = GUICtrlCreateButton("Check", 24, 120, 121, 33, 0) GUICtrlSetOnEvent (-1, "button3") $Button3 = GUICtrlCreateButton("Exit", 24, 160, 121, 33, 0) GUICtrlSetOnEvent (-1, "button4") GUISetState(@SW_SHOW) $lpt1 = 888 ; hex. is 378 so dec. is 888 $lpt2 = 632 ; hex. is 278 so dec. is 632 $BasePortAddr = $lpt1 While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case Else ;;;;;;; EndSelect WEnd Func button1() $d = DllCall("inpout32.dll", "short", "Out32", "short", $BasePortAddr, "int", "11111111") ;MsgBox(0, "In2", "@Error: " & @error & @LF & "Result: " & Number($d)) ; used to check error returned from using dll if any! EndFunc Func button2() $d = DllCall("inpout32.dll", "short", "Out32", "short", $BasePortAddr, "short", "00000000") ;MsgBox(0, "In2", "@Error: " & @error & @LF & "Result: " & Number($d)) EndFunc Func button3() $r = DllCall("inpout32.dll", "short", "Inp32", "short", $BasePortAddr) MsgBox(0, "In2", "@Error: " & @error & @LF & "Result: " & Number($r[0])) EndFunc Func button4() Exit EndFunc

The dll can be found at http://www.logix4u.net This is my code at the moment. The function for button 3 was found from another post in the forum. Cheers Baz #include <GUIConstants.au3> Opt ("GUIOnEventMode", 1) GUICreate("Animate Window", 300, 300) $Button1 = GUICtrlCreateButton("On", 24, 40, 121, 33, 0) GUICtrlSetOnEvent (-1, "button1") $Button1 = GUICtrlCreateButton("Off", 24, 80, 121, 33, 0) GUICtrlSetOnEvent (-1, "button2") $Button2 = GUICtrlCreateButton("Check", 24, 120, 121, 33, 0) GUICtrlSetOnEvent (-1, "button3") $Button3 = GUICtrlCreateButton("Exit", 24, 160, 121, 33, 0) GUICtrlSetOnEvent (-1, "button4") GUISetState(@SW_SHOW) $BasePortAddr = 0x379 While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case Else ;;;;;;; EndSelect WEnd Func button1() $d = DllCall("inpout32.dll", "short", "Out32", "short", $BasePortAddr, "short", "5") MsgBox(0, "In2", "@Error: " & @error & @LF & "Result: " & Number($d)) EndFunc Func button2() $d = DllCall("inpout32.dll", "short", "Out32", "short", $BasePortAddr, "short", "0") MsgBox(0, "In2", "@Error: " & @error & @LF & "Result: " & Number($d)) EndFunc Func button3() $r = DllCall("inpout32.dll", "short", "Inp32", "short", $BasePortAddr) MsgBox(0, "In2", "@Error: " & @error & @LF & "Result: " & Number($r[0])) EndFunc Func button4() Exit EndFunc