xsnow

So I have these color readouts. 9C0007 red 00EE22 green FF4D00 orange 38303C yellow 00EE22 green FF4E00 orange 1B171C white 470047 purple FF4D00 orange 20181F yellow 9C0007 red C500C5 purple 3B313F blue 470047 purple A1000A red 00D220 green C500C5 purple 00EE22 green FF4D00 orange 56454F blue 302332 blue 00D220 green A1000A red 00D220 green 00EE22 green C500C5 purple 5E4C50 blue 453236 blue 9C0007 red 00D220 green 695865 blue 503F4C blue 9C0007 red 4F4441 yellow 453937 yellow 00EE22 green 00EE22 green A1000A red 2A2324 white 393432 yellow A700A7 purple 7B7B7B white 7B7B7B white 00E721 green 625555 yellow 453737 blue 36322F yellow 050104 purple FE4A00 orange 00E721 green 241F1C blue 3F3938 blue A8000A red 00F524 green 1F1A16 blue 606060 white FE4A00 orange 00E721 green A8000A red 221F1C yellow FE4A00 orange 606060 white 00F524 green A7000A red And i'm at a loss of how to catorgize each color into 1,2,3,4,5,6 choices. Like yellows are 1s, reds are 2, and so forth. Any ideas? The orange and Red I can do with FF, A's and such, but blues and yellows I have no idea.

ok that works quite well. I see you did a few things different than I had them which is a good thing.

It will close but cancels my close button on my other gui. full code for you #include <String.au3> #include <array.au3> #include <file.au3> #include <GUIConstants.au3> Global $deposit = "C:\Documents and Settings\Parker\Desktop\BA\deposits.txt" Global $withdrawal = "C:\Documents and Settings\Parker\Desktop\BA\withdrawals.txt" dim $depositamount, $withdrawalamount, $balance, $filedeposit, $filedeposit, $line, $flag, $adddeposit, $addwithdrawl, $totaldeposits = 0, $totalwithdrawals = 0, $close, $update $filedeposit = FileOpen($deposit, 1) $filewithdrawal = FileOpen($withdrawal, 1) Balance() GUICreate("Checkbook Finance",200,250) $adddeposit=GUICtrlCreateButton ("Deposit", 65,10,70,25) $addwithdrawl=GUICtrlCreateButton ("Withdrawal", 65,45,70,25) $update=GUICtrlCreateButton ("Update Balance", 55,80,90,25) $test=GUICtrlCreateButton ("test", 55,110,90,25) $close=GUICtrlCreateButton ("Close", 65,145,70,25) GUICtrlCreateLabel ("Account Balance : $"&$balance, 65,175,70,75) GUISetState () $msg = 0 While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() Select case $msg = $adddeposit Deposit() case $msg = $addwithdrawl Withdrawal() case $msg = $update Balance() GUICtrlCreateLabel ("Account Balance : $"&$balance, 65,175,70,75) case $msg = $test test() case $msg = $close FileClose($deposit) FileClose($Withdrawal) Exit EndSelect Wend Func Balance() $balance = 0 $totaldeposits = 0 $totalwithdrawals = 0 $line = 0 If Not _FileReadToArray($deposit,$line) Then MsgBox(4096,"Error", " Error reading log to Array error:" & @error) Exit EndIf For $i = 1 to $line[0] $totaldeposits = $line[$i] + $totaldeposits Next If Not _FileReadToArray($withdrawal,$line) Then MsgBox(4096,"Error", " Error reading log to Array error:" & @error) Exit EndIf For $i = 1 to $line[0] $totalwithdrawals = $line[$i] + $totalwithdrawals Next $balance = $totaldeposits - $totalwithdrawals EndFunc Func Deposit() $depositamount = Inputbox("Deposit", "How much?") If @Error = 1 Then MsgBox(4096, "Deposit Canceled", "No Deposit Was Entered") Else If @Error = 0 Then $flag = Msgbox (4, "Is the information correct?", "Deposit of $"&$depositamount) If $flag = 6 Then FileWrite($deposit, $depositamount & @CRLF) Else MsgBox(4096, "Deposit Canceled", "No Deposit Was Entered") EndIf EndIf EndIf EndFunc Func Withdrawal() $withdrawalamount = Inputbox("Withdrawal", "How much?") If @Error = 1 Then MsgBox(4096, "Withdrawal Canceled", "No Withdrawal Was Entered") Else If @Error = 0 Then $flag = Msgbox (4, "Is the information correct?", "Withdrawal of $"&$withdrawalamount) If $flag = 6 Then FileWrite($withdrawal, $withdrawalamount & @CRLF) Else MsgBox(4096, "Withdrawal Canceled", "No Withdrawal Was Entered") EndIf EndIf EndIf EndFunc Func test() GUICreate(" Withdrawal Information ", 320,175) GUICtrlCreateLabel ("Date : ", 10,5,125,25) $date = GUICtrlCreateInput ( "Withdrawal", 135, 5, 300, 20) GUICtrlCreateLabel ("Withdrawal Date : ", 10,35,125,25) $name = GUICtrlCreateInput ( "Withdrawal", 135, 35, 300, 20) GUICtrlCreateLabel ("Withdrawal Name : ", 10,35,125,25) $amount = GUICtrlCreateInput ( "Withdrawal", 135, 65, 300, 20) GUICtrlCreateLabel ("Withdrawal Amount : ", 10,65,125,25) $btn = GUICtrlCreateButton ("Ok", 40, 95, 60, 20) GUISetState () While 1 Switch GUiGetMsg() Case $GUI_EVENT_CLOSE GUIDelete() EndSwitch Wend ;MsgBox (4096, "drag drop file", GUICtrlRead($name)) EndFunc I'll look over it at work a bit, don't have AI there but i'll see what I can dig through on the forums

my code. GUICreate("Checkbook Finance",200,250) $adddeposit=GUICtrlCreateButton ("Deposit", 65,10,70,25) $addwithdrawl=GUICtrlCreateButton ("Withdrawal", 65,45,70,25) $update=GUICtrlCreateButton ("Update Balance", 55,80,90,25) $test=GUICtrlCreateButton ("test", 55,110,90,25) $close=GUICtrlCreateButton ("Close", 65,145,70,25) GUICtrlCreateLabel ("Account Balance : $"&$balance, 65,175,70,75) ;then under test i run Func test() GUICreate(" Withdrawal Information ", 320,175) GUICtrlCreateLabel ("Date : ", 10,5,125,25) $date = GUICtrlCreateInput ( "Withdrawal", 135, 5, 300, 20) GUICtrlCreateLabel ("Withdrawal Date : ", 10,35,125,25) $name = GUICtrlCreateInput ( "Withdrawal", 135, 35, 300, 20) GUICtrlCreateLabel ("Withdrawal Name : ", 10,35,125,25) $amount = GUICtrlCreateInput ( "Withdrawal", 135, 65, 300, 20) GUICtrlCreateLabel ("Withdrawal Amount : ", 10,65,125,25) $btn = GUICtrlCreateButton ("Ok", 40, 95, 60, 20) GUISetState () $msg = 0 While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() Select Case $msg = $btn $msg = $GUI_EVENT_CLOSE Exitloop EndSelect Wend ;MsgBox (4096, "drag drop file", GUICtrlRead($name)) EndFunc but it closes both guis what do i need to do different?

So i made a post earlier, but here is where I am. I want to track my account balance, as of right now I just have it doing deposits and withdrawls, no storing of names of each yet. #include <String.au3> #include <array.au3> #include <file.au3> Global $deposit = "C:\Documents and Settings\Parker\Desktop\BA\deposits.txt" Global $withdrawal = "C:\Documents and Settings\Parker\Desktop\BA\withdrawals.txt" dim $depositamount, $withdrawalamount, $balance, $filedeposit, $filedeposit, $line, $flag, $adddeposit, $addwithdrawl, $totaldeposits = 0, $totalwithdrawals = 0, $close, $update $filedeposit = FileOpen($deposit, 1) $filewithdrawal = FileOpen($withdrawal, 1) Balance() GUICreate("Checkbook Finance",200,250) $adddeposit=GUICtrlCreateButton ("Deposit", 65,10,70,25) $addwithdrawl=GUICtrlCreateButton ("Withdrawal", 65,45,70,25) $update=GUICtrlCreateButton ("Update Balance", 65,80,70,25) $close=GUICtrlCreateButton ("Close", 65,135,70,25) GUICtrlCreateLabel ("Account Balance : $"&$balance, 65,165,70,75) GUISetState () $msg = 0 While $msg <> $GUI_EVENT_CLOSE $msg = GUIGetMsg() Select case $msg = $adddeposit Deposit() case $msg = $addwithdrawl Withdrawal() case $msg = $update Balance() GUICtrlCreateLabel ("Account Balance : $"&$balance, 65,165,70,75) case $msg = $close Exit EndSelect Wend Func Balance() $balance = 0 $totaldeposits = 0 $totalwithdrawals = 0 $line = 0 If Not _FileReadToArray($deposit,$line) Then MsgBox(4096,"Error", " Error reading log to Array error:" & @error) Exit EndIf For $i = 1 to $line[0] $totaldeposits = $line[$i] + $totaldeposits Next If Not _FileReadToArray($withdrawal,$line) Then MsgBox(4096,"Error", " Error reading log to Array error:" & @error) Exit EndIf For $i = 1 to $line[0] $totalwithdrawals = $line[$i] + $totalwithdrawals Next $balance = $totaldeposits - $totalwithdrawals EndFunc EndFunc Func Deposit() $depositamount = Inputbox("Deposit", "How much?") If @Error = 1 Then MsgBox(4096, "Deposit Canceled", "No Deposit Was Entered") Else If @Error = 0 Then $flag = Msgbox (4, "Is the information correct?", "Deposit of $"&$depositamount) If $flag = 6 Then FileWrite($deposit, $depositamount & @CRLF) EndIf EndIf EndIf EndFunc Func Withdrawal() $withdrawalamount = Inputbox("Withdrawal", "How much?") If @Error = 1 Then MsgBox(4096, "Withdrawal Canceled", "No Withdrawal Was Entered") Else If @Error = 0 Then $flag = Msgbox (4, "Is the information correct?", "Withdrawal of $"&$withdrawalamount) If $flag = 6 Then FileWrite($withdrawal, $withdrawalamount & @CRLF) EndIf EndIf EndIf EndFunc What coding looks bad? And should be written more efficiently?

Im guessing it shouldnt be to big of a project. I should have mentioned Ive done work parsing RSS xml feeds into postable content on forums. I think the finding the balance will be quite easy, itll be the sorting data by types, and getting reports later on that might pose to be a threat. Ahh, just thinking about that I need to make a list of types of data so its always the same for later on. All Ive been able to work on lately at work is VBA in excel, ugh. They wont let me use autoit to automate simple tasks that are quite time consuming so I had to plug through excel. I didnt know vba within excel was quite that powerful. Ha. But mainly I was just wondering if writing 2 text files, or maybe just 1 with a delimiter for deposit or withdrawal would be the best. Im thinking the later so I can work with more complicated code.

Ok to start off I have an ok programming background and haven't done any AI for a while. I want to make a simple program to track my checkbook balance. What I'm wanting to do right now with it. 1. Simple gui which has deposit, withdrawal buttons and also displays current balance. 2. Each deposit or withdrawal button will ask for date, name, type, amount. 3. I'm thinking save each into it's own text file for record purposes? 4. Once I get it to store and pull data to update account balance running flawlessly I'll work on reports from the data. Would this be the simplest way to go about this? I want a very small program that suits my little needs without any flash which keeps me from quicken.

That's true, but when I was using variables and using clipput to make sure it worked, it worked in my brower. just that it redirected it. I got this puppy working now. Going to make backups so much easier from now on.

i've been trying to figure this out for about a half hour, so i've checked plenty. just one of those things that click when you look away from a while.

It did exist, but I just figured out my problem. I never had http:// hehe.

Ok, I use a site to upload pictures onto to keep them there for use from anywhere, but I want to create a quick backup. My problem is saving them, I can write the Inetget and everything. I think my problem is right here. I know my variable for the picture is correct, as i've used message boxes. InetGet($yellow, "C:\Documents and Settings\Windows User\Desktop\test\1.jpg", 1,0) I'm thinking the limits of InetGet don't allow it to save pictures onto my HD? Any recommendations?

www.banlist.nl... go to tools.... how do I find the right source code to pull the username for the first box on the form. The search buddies banlist one?

Anyone have any ideas why it won't work the way it is?

i'm glad to hear that it's not just me. Now to figure out Why.

It pulls the title of winamp and closes winamp with that title.

I just set the same to try it, and it would work if I set it for running for liek 2-3 minutes, but for 15-20, it won't close winamp. Anyone wanna copy my code and try it? It should work for most all versions of winamp.

Ok... here it is. $time = InputBox("Shoutdown time", "Enter time in minutes: ") If @error = 1 Then Exit Sleep($time*60*1000) $WinAmpTitle = WinGetTitle("classname=Winamp v1.x") WinClose(""& $WinAmpTitle, "") If I put in 1, 2, 5, minutes it works fine and closes winamp, but when I put in like 15 or 20, it won't close winamp. My screen saver also activates after this long, it's like the won't send the commands through a screen saver. Would that be my problem or is there a limit on sleep? I put the sleep into a while loop to sleep a minute, then loop until time and it still did the same so i'm guessing it's something with my screen saver? Edit: I just had it run for 20 minutes while on my comptuer and it still didn't close winamp. It closes winamp after just a few minutes if I select that, but not after this long. Any ideas?

Try putting "" around the lines.

Hey, I got the script working. I had to change a few things since I always plug in, so I had to use Local Area Connection in some spots but she works nicely. Thanks. Now I have to make a GUI for 2 different settings that will just run 2 different functions, won't be to hard.

The new beta uses x,y with control click but it must only work with certain instances.

Ok, here's my problem first. I have a different static IP for at college and at home, so I have to change between the two manually alot. To stop some of the hassle, i'm trying to write an autoit program to do it for me. The only problems I'm having... Opening the Local Area Connection Properties box. Clicking the Internet Protocol (TCP/IP) and then clicking properties. Changing the IP and clicks within those all work fine. I'm using the newest Beta. ControlClick("Local Area Connection Properties", "", 16012,332,181) ControlClick("Local Area Connection Properties", "", 16012,332,181) ControlClick("Local Area Connection Properties", "", 16012,108,164) That should send clicks to those x,y inside the box, but it doesn't for some reason. I use the same code under the properties box where it asks for the ip settings and it works there, but won't work under the Local Area Connection Properties box. I could go with manual down,down,tab,enters, but that's pretty sloppy. So I need help with clicking inside the LACP box and opening the LACP properties box.

Nevermind, I figured it out.

Well, thanks for the help xcal! I got it working nicely

Yea, it does actually. Could I pull that info while in a fullscreen program, without it minimizing?

It's not pulling the song name after that The message box gives me a completely blank message box. Now quick info for you. I can get it to pull up the info box by a few quick commands and copy what's in it... which for example would be this. Can autoit filter that if it's in the clipboard within itself? Network received: 3876400 bytes Server: SHOUTcast Distributed Network Audio Server/Linux v1.9.8 Metadata received: 294 bytes Metadata interval: 32768 bytes Stream name: idobi Radio: Music that doesn`t suck! News, interviews and the best in alternative, rock, and punk music: idobi.com Current title: Taking Back Sunday - My Blue Heaven