dwelcher

This is very well made. I suppose volume controls are next? Perhaps a way to save the list? -Dw --- Too bad stupidity isn't painful.

Very nice! Is there a way to log in? -Dw --- Is this a machine? I don't talk to machines! [Click]

If you double-click the speaker icon in the tray area, are there any sliders turned down or muted? I mean besides microphone and tad-in. Take care, -Dw --- People who think they know everything greatly annoy those of us who do.

Okay, thanks for trying. The good thing is that you used three different comic providers. So a lot of times I can get the password protected Ucomics.com at Comics.com or KingFeatures.com. Take care, -Dw --- You have the right to remain silent. Anything you say will be misquoted, then used against you.

Okay, here is one of them: http://www.ucomics.com/bloomcounty/ Thanks, -Dw --- I may be fat but you're ugly, and I can lose weight.

Okay, thanks for that. I didn't state my question very well. I have the script working, and have added many cartoons. The script is very well done and easy to adapt. On the website ucomics.com, they have some comics where they only put sample comics on the corresponding page. As opposed to having today's comic on that page. Bloom County and the Wizard of Id are a few examples. I guess my question is if anyone had found how to get those comics. Sorry about the misunderstanding. As I said, the script is great. Good piece of coding. Take care, -Dw --- The secret of success is sincerity. Once you can fake that, you have it made.

Oh man! Now I feel stupid. I didn't see the instructions. I still can't. (I know I'm gonna get it ...) Take care, -Dw --- Everything in our favor was against us.

Here is the address for a Google search for Autoit. Maybe you could do the whole thing in this way: http://www.google.com/search?hl=en&q=Autoit An idea ... Take care,

In the old days, we could talk to the com port like this: echo atz > com1 In Autoit3 it would be: Run( @Comspec '/c echo atz > com1' ) Or something like that ... You had to have a program to get the result back though. I think I have an old one around here somewhere ... Take care, -Dw --- "The crime bill passed by the Senate would reinstate the Federal death penalty for certain violent crimes: assassinating the President; hijacking an airliner; and murdering a government poultry inspector." - Knight Ridder News Service dispatch

Do you think this might work? This parses the Uptime.txt file and replaces it with a new one. It should be pretty easy to follow along, I hope. I'm sure you will have to adapt it to your situation. You will probably have to debug a little, too. $Directory = 'c:\Directory\' $LineNo = 0 $Pos = 0 $Line = '' $UptimeFile = FileOpen( $Directory & "Uptime.txt", 0) If $UptimeFile = -1 Then MsgBox(0, "Error", "Unable to open file - Uptime.txt" & ".")) Exit EndIf $Uptime2File = FileOpen( $Directory & "Uptime2.txt", 2) If $Uptime2File = -1 Then MsgBox(0, "Error", "Unable to open file - Uptime2.txt" & ".")) Exit EndIf ; Read in lines of Uptime.txt until the EOF is reached While 1 $LineNo = $LineNo + 1 $line = FileReadLine($UptimeFile) If @error = -1 Then ExitLoop EndIf $Pos = StringInStr( $line, 'unable' ) If $Pos > 0 Then $Line = 'Server' & $LineNo & ', 0 day(s), 0 hour(s), 0 minute(s), 0 second(s)' $Pos = 0 Else $RestOfLine = StringTrimLeft( $Line, $Pos + 1 ) $Line = 'Server' & $LineNo & ',' & $RestOfLine ) EndIf FileWriteLine( $Uptime2File, $Line & @CRLF ) WEnd FileClose( $Uptime ) FileClose( $Uptime2 ) FileDelete( $Directory & 'Uptime.txt' FileCopy( $Directory & 'Uptime2.txt', $Directory & 'Uptime.txt' ) FileDelete( $Directory & 'Uptime2.txt' Take care, -Dw --- A man has reached old age when he is cautioned to slow down by his doctor instead of by the police.

What if you got the ip address all in one lump (in the form 192.168.0.1), then parsed it with StringSplit? That way, you only need one input box to get all four parts. $var = InputBox( 'IP Address', 'Enter IP Address:' ) $Pieces = StringSplit( $var, '.' ) MsgBox( 0, 'IP Address', _ 'IP Address Part 1 = ' & $Pieces[1] & @CRLF & _ 'IP Address Part 2 = ' & $Pieces[2] & @CRLF & _ 'IP Address Part 3 = ' & $Pieces[3] & @CRLF & _ 'IP Address Part 4 = ' & $Pieces[4] ) Take care, -Dw --- Do not put statements in the negative form.

Anyone know how to get the comics they won't show? You know the ones you have to join for? Like Bloom County. I love this script! Thanks, -Dw --- Just don't tell the asylum you saw me here

Here is a UDF that I made: In your code, you call the function like this: GetDate(1 Day Ago) Func GetDate($1ReportDate) Global $NewDay Global $NewMonth Global $NewYear Global $TextMonth [15] $Hour = @HOUR $Minute = @MIN $Day = @MDAY $Month = @MON $Year = @YEAR $WeekDay = @WDAY $HrEnd = " AM" $DayList = "xx31|28|31|30|31|30|31|31|30|31|30|31" $TextMonthArray = "January:February:March:April:May:June:July:August:September:October:November:December" $TextMonth = StringSplit ( $TextMonthArray, ":" ) ;Change hour format to am-pm If $Hour > 12 Then $Hour = $Hour - 12 $HrEnd = " PM" EndIf ;Parse the $1ReportDate variable ($Argument2 $Argument1) $SpacePos = StringInStr($1ReportDate," ") $Argument1 = StringTrimLeft($1ReportDate,$SpacePos) $Argument2 = StringLeft($1ReportDate,$SpacePos - 1) If $Argument1 = "Sunday" And $Argument2 = "Previous" Then ; MsgBox(0,"WDay Test","The day of the week is: " & @WDAY) $Argument2 = Int( 6 + $WeekDay ) $Argument1 = "Days" EndIf If $Argument1 = "Sunday" And $Argument2 = "Last" Then ; MsgBox(0,"WDay Test","The day of the week is: " & @WDAY) $Argument2 = Int( $WeekDay - 1 ) $Argument1 = "Days" EndIf If $Argument1 = "Monday" And $Argument2 = "Previous" Then ; MsgBox(0,"WDay Test","The day of the week is: " & @WDAY) $Argument2 = Int(5 + $WeekDay) $Argument1 = "Days" EndIf ;MsgBox(0,"Test","$Argument1 = " & $Argument1 & @CRLF & "$Argument2 = " & $Argument2) ;If we need to subtract days, go here. If $Argument1 = "Days" Then $NewDay = $Day - $Argument2 $NewMonth = $Month $NewYear = $Year While $NewDay < 1 $SubtractMonth = $NewMonth - 1 If $SubtractMonth < 1 Then $SubtractMonth = 12 EndIf $MonthEnd = StringMid( $DayList, $SubtractMonth * 3,5) If $SubtractMonth = 2 And Mod( $NewYear,4 ) = 0 Then $MonthEnd = 29 EndIf $NewDay = $NewDay + $MonthEnd $NewMonth = $NewMonth - 1 If $NewMonth < 1 Then $NewMonth = 12 $NewYear = $NewYear - 1 EndIf Wend EndIf ;If we need to subtract months, go here. If $Argument1 = "Months" Then $NewDay = $Day $NewMonth = $Month - $Argument2 $NewYear = $Year While $NewMonth < 1 $NewMonth = $NewMonth + 12 $NewYear = $NewYear - 1 Wend EndIf ;If we need to subtract years, go here. If $Argument1 = "Years" Then $NewDay = $Day $NewMonth = $Month $NewYear = $Year - $Argument2 EndIf Return $TextMonth[$NewMonth] & " " & $NewDay & ", " & $NewYear MsgBox( 0,"Date","The Date is: " & $Month & "/" & $Day & "/" & $Year & @CRLF & "The Time is: " & $Hour & ":" & $Minute & $HrEnd) MsgBox( 0,$1ReportDate & " Before Date","The Date " & $1ReportDate & " ago was: " & $NewMonth & "/" & $NewDay & "/" & $NewYear & @CRLF & "The Time is: " & $Hour & ":" & $Minute & $HrEnd) EndFunc (I don't know how this will look. It's the first time I've used this thing.) Take care, -Dw --- Let's split up, we can do more damage that way.