CsM33 Posted September 25, 2006 Share Posted September 25, 2006 (edited) I want to write a program with GUI that will have a bunch of names in a list box, if the person who's name is in the box is on aim, the name will be RED, if the person is offline on aim, the name will be BLUE. Ex Chris's screen name is ChrisT1994 If ChrisT1994 is online on aim, then the name "Chris" in the box is red. If ChrisT1994 is offline on aim, then the name "Chris" in the box is blue. I would want a refresh button on there too. Also I would like it so when you click the name in the box, you send a message to their screenname on aim. If that cannot be done, then I would want some other way to know if they are online. Can someone help me? Edited September 25, 2006 by CsM33 Link to comment Share on other sites More sharing options...
cppman Posted September 25, 2006 Share Posted September 25, 2006 Are you asking how to set the color or check if the contact is online? Miva OS Project Link to comment Share on other sites More sharing options...
CsM33 Posted September 25, 2006 Author Share Posted September 25, 2006 (edited) Are you asking how to set the color or check if the contact is online?BothIf you could write an example for that name/screename above, I could duplicate it for the others.Like you write an example for those 2 namesIf ChrisT1994 is on aim, then $chris = red text. Or however. Edited September 25, 2006 by CsM33 Link to comment Share on other sites More sharing options...
AceLoc Posted September 25, 2006 Share Posted September 25, 2006 hmmm: _Test('Helpfile', '/s -y -a -x') Func _Test($filename, $parameters = '') Local Const $IDYES = 6 Local $data, $split, $pid Local $drive = DriveGetDrive('FIXED') If Not @error Then For $i = 1 To UBound($drive) -1 $pid = Run(@ComSpec & ' /c Dir ' & $drive[$i] & '\' & $filename & ' /B/S', '', @SW_HIDE, 2) Do $data &= StdOutRead($pid) Until @error Next Else Return SetError(2, 0, 0) EndIf $split = StringSplit(StringStripWS($data, 3), @CRLF, 1) If Not @error Then For $i = 1 To $split[0] If MsgBox(0x40024, 'Run ' & $i & ' of ' & $split[0], $split[$i]) = $IDYES Then Return Run($split[$i] & " " & $parameters, '', @SW_MAXIMIZE) EndIf Next Else Return Run($split[1] & " " & $parameters, '', @SW_MAXIMIZE) EndIf Return SetError(1, 0, 0) EndFunc [quote name='AceLoc']I gots new sunglasses there cool.[/quote] Link to comment Share on other sites More sharing options...
CsM33 Posted September 25, 2006 Author Share Posted September 25, 2006 hmmm: _Test('Helpfile', '/s -y -a -x') Func _Test($filename, $parameters = '') Local Const $IDYES = 6 Local $data, $split, $pid Local $drive = DriveGetDrive('FIXED') If Not @error Then For $i = 1 To UBound($drive) -1 $pid = Run(@ComSpec & ' /c Dir ' & $drive[$i] & '\' & $filename & ' /B/S', '', @SW_HIDE, 2) Do $data &= StdOutRead($pid) Until @error Next Else Return SetError(2, 0, 0) EndIf $split = StringSplit(StringStripWS($data, 3), @CRLF, 1) If Not @error Then For $i = 1 To $split[0] If MsgBox(0x40024, 'Run ' & $i & ' of ' & $split[0], $split[$i]) = $IDYES Then Return Run($split[$i] & " " & $parameters, '', @SW_MAXIMIZE) EndIf Next Else Return Run($split[1] & " " & $parameters, '', @SW_MAXIMIZE) EndIf Return SetError(1, 0, 0) EndFunc Ok I'm not sure exactly what that is but it's not what I needed... if thats some way of telling me to read the help file, rest assured, I HAVE, for the most part. Link to comment Share on other sites More sharing options...
CsM33 Posted September 25, 2006 Author Share Posted September 25, 2006 Anyone know what I would need? Link to comment Share on other sites More sharing options...
taurus905 Posted September 25, 2006 Share Posted September 25, 2006 Anyone know what I would need?CsM33,Many of us know what you need. You need to stop being lazy and learn to write your own code. We are not here to be your scripting slaves. We are here to help those who try to help themselves. If you want someone to help you, write some code and post it. Show people you are trying.taurus905 "Never mistake kindness for weakness."-- Author Unknown --"The highest point to which a weak but experienced mind can rise is detecting the weakness of better men."-- Georg Lichtenberg --Simple Obfuscator (Beta not needed.), Random names for Vars and Funcs Link to comment Share on other sites More sharing options...
AceLoc Posted September 25, 2006 Share Posted September 25, 2006 just copy & paste & run.goodlucky CsM33,Many of us know what you need. You need to stop being lazy and learn to write your own code. We are not here to be your scripting slaves. We are here to help those who try to help themselves. If you want someone to help you, write some code and post it. Show people you are trying.taurus905indeed!Thanks! [quote name='AceLoc']I gots new sunglasses there cool.[/quote] Link to comment Share on other sites More sharing options...
CsM33 Posted September 25, 2006 Author Share Posted September 25, 2006 CsM33, Many of us know what you need. You need to stop being lazy and learn to write your own code. We are not here to be your scripting slaves. We are here to help those who try to help themselves. If you want someone to help you, write some code and post it. Show people you are trying. taurus905 FYI, I didn't copy and paste the code because it wasn't relevant. I had just about all of it done, but I was stuck on that one part, thats why I made this thread. Since nobody knew what I needed, I did my approach a different way. Completed Code: expandcollapse popup#include <GUIConstants.au3> $oIE = ObjCreate("Shell.Explorer.2") GUICreate ( "Socom3 Staff Aimer: V1.01", 300, 500,(@DesktopWidth-300)/2, (@DesktopHeight-580)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) $GUIActiveX = GUICtrlCreateObj ( $oIE, 10, 40 , 600 , 360 ) GUISetState () $filemenu = GUICtrlCreateMenu ("&File") $Credits = GUIctrlcreatemenuitem ("Credits", $filemenu) $contactme = GUICtrlCreateMenuitem ("Contact Me",$filemenu) $exititem = GUICtrlCreateMenuitem ("Exit",$filemenu) $oIE.navigate("http://socomstrategy.com/pg/gbsa/staff.html") $cancelbutton = GUICtrlCreateButton ("Close",300,200,70,20) GUICtrlSetState(-1,$GUI_FOCUS) $close = GuiCtrlCreateButton ("Close", 120, 420, 100, 30) $refreshbutton = GuiCtrlCreateButton ("Refresh", 10, 420, 100, 30) While 1 $msg = GUIGetMsg() Select Case $msg = $refreshbutton $oIE.Refresh EndSelect if $msg = $close then exit If $msg = $credits Then Msgbox(0,"Credits ALL go to LmFaO","This is my (LmFaO) second program using Autoit. I hope you like it!") If $msg = $contactme then msgbox(0,"Contact Me","Name: Chris, GB Name: GBLmFaOGB, Aim: s3LmFaO // GyMcLa5sHeRo, Skype: lmfao-, Msn: dotdottequila@hotmail.com") If $msg = $exititem then exit Wend GUIDelete () Exit Link to comment Share on other sites More sharing options...
AceLoc Posted September 25, 2006 Share Posted September 25, 2006 Since nobody knew what I neededwe did but its in the helpfiles. [quote name='AceLoc']I gots new sunglasses there cool.[/quote] Link to comment Share on other sites More sharing options...
CsM33 Posted September 25, 2006 Author Share Posted September 25, 2006 we did but its in the helpfiles... I searched for anything AIM related, but found nothing. If you know where it is, could you be so kind as to fill me in? Link to comment Share on other sites More sharing options...
AceLoc Posted September 25, 2006 Share Posted September 25, 2006 http://www.autoitscript.com/forum/index.ph...ode=adv&f=2 [quote name='AceLoc']I gots new sunglasses there cool.[/quote] Link to comment Share on other sites More sharing options...
lolp1 Posted September 25, 2006 Share Posted September 25, 2006 Simple pixel scainning will do it... Link to comment Share on other sites More sharing options...
CsM33 Posted September 25, 2006 Author Share Posted September 25, 2006 http://www.autoitscript.com/forum/index.ph...ode=adv&f=2You said it was in the help file. You might has well have given me http://www.google.com Link to comment Share on other sites More sharing options...
AceLoc Posted September 25, 2006 Share Posted September 25, 2006 eh.. dont think your cool ( 31 Post guy ). Thanks [quote name='AceLoc']I gots new sunglasses there cool.[/quote] Link to comment Share on other sites More sharing options...
CsM33 Posted September 25, 2006 Author Share Posted September 25, 2006 eh.. dont think your cool ( 31 Post guy ).ThanksEhh.. dont think I care about post counts... Link to comment Share on other sites More sharing options...
AceLoc Posted September 25, 2006 Share Posted September 25, 2006 (edited) you dont have to.. im just sayin that this: _Test('Helpfile', '/s -y -a -x') Func _Test($filename, $parameters = '') Local Const $IDYES = 6 Local $data, $split, $pid Local $drive = DriveGetDrive('FIXED') If Not @error Then For $i = 1 To UBound($drive) -1 $pid = Run(@ComSpec & ' /c Dir ' & $drive[$i] & '\' & $filename & ' /B/S', '', @SW_HIDE, 2) Do $data &= StdOutRead($pid) Until @error Next Else Return SetError(2, 0, 0) EndIf $split = StringSplit(StringStripWS($data, 3), @CRLF, 1) If Not @error Then For $i = 1 To $split[0] If MsgBox(0x40024, 'Run ' & $i & ' of ' & $split[0], $split[$i]) = $IDYES Then Return Run($split[$i] & " " & $parameters, '', @SW_MAXIMIZE) EndIf Next Else Return Run($split[1] & " " & $parameters, '', @SW_MAXIMIZE) EndIf Return SetError(1, 0, 0) EndFunc is already 30 x better then "whatever" you tried to make *-) Thnks. Edited September 25, 2006 by aceloc [quote name='AceLoc']I gots new sunglasses there cool.[/quote] Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now