Jump to content

UrS

Members
  • Posts

    19
  • Joined

  • Last visited

Everything posted by UrS

  1. Each time I use this function to colorize text in RichEdit control it selects text there and so other GUIControls loose focus on them. How can I make so, that RichEdit won't steal focus from other controls? >_> Func _GuiCtrlRichEdit_AppendColorText( $Handle, $Text ) Local $ColP[15][3], $i = 0, $n = 0, $Len = StringLen( _GuiCtrlRichEdit_GetText( $B_Chat ) ) While True $ColP[$i][0] = StringInStr( $Text, "|C00", 0, $i + 1 ) If $ColP[$i][0] <= 0 Then ExitLoop $ColP[$i][1] = StringInStr( $Text, "|r", 0, $i + 1 ) - 10 * ($i + 1) - 2 * $i - 1 $ColP[$i][2] = StringMid( $Text, $ColP[$i][0] + 2, 8 ) $ColP[$i][0] -= 12 * $i + 1 $i += 1 WEnd For $n = 0 to $i - 1 Step 1 $Text = StringReplace( $Text, "|C" & $ColP[$n][2], "" ) $Text = StringReplace( $Text, "|r", "" ) Next _GUICtrlRichEdit_AppendText( $B_Chat, $Text ) For $n = 0 to $i - 1 Step 1 _GuiCtrlRichEdit_SetSel( $B_Chat, $ColP[$n][0] + $Len, $ColP[$n][1] + $Len ) _GUICtrlRichEdit_SetCharColor( $B_Chat, Number( "0x" & $ColP[$n][2] ) ) _GUICtrlRichEdit_Deselect( $B_Chat ) Next EndFunc
  2. Func UserInRoom( $Username ) Local $Index = ControlListView( "Garena", "", "[CLASS:GG_LISTVIEW; INSTANCE:2]", "FindItem", $Username, 2) If $Index <> -1 Then return True Else return False EndIf EndFunc Just after ControlListView function is called, Garena crushes Btw would be nice, if there are other ways of accessing the ListView in the window.
  3. Hello, can someone explain me why some program crushes after I attempt to use 'FindItem' or 'GetText' command in my script,and works perfectly with 'GetItemCount'\other commands. Thx in assistance.
  4. Thx, that helped a lot
  5. Is there any other delimeter in this GUICtrl, then "|" ? Or is there any other way to add new items to List?
  6. Ok, I've changed the first line from Dim $Coord[1][1] to Dim $Coord[1][2] And ReDim $Coord[$i][1] to ReDim $Coord[$i][2] But now the script terminates itself on the first assignment ($Coord[$i][0] = MouseGetPos(0)). Huh?
  7. Dim $Coord[1][1] Global $Con = False Global $i = 0 HotKeySet("{F3}", "Change") HotKeySet("{F4}", "Repeat") Func Change() $Con = not $Con EndFunc Func Repeat() For $n = 0 to UBound($Coord) Step 1 MouseMove( $Coord[$n][0], $Coord[$n][1], 100 ) Next MsgBox(0, "", "Done") EndFunc While 1 If $Con Then $Coord[$i][0] = MouseGetPos(0) $Coord[$i][1] = MouseGetPos(1) $i = $i + 1 ReDim $Coord[$i][1] EndIf Sleep(0) WEnd When I press F3 hotkey, the script terminates itself with such error: C:\Users\????\Desktop\Recorder.au3 (23) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.: $Coord[$i][1] = MouseGetPos(1) ^ ERROR What's the problem? Help, please.
  8. I'm also interested in this question.
  9. Using auto it I open browser window with some URL, this URL resends me to another URL. How to get the new URL? Example: I go to www.omg.com , it resends me automatically to www.omg.com/?session=somethingrandomhere How to get the 'www.omg.com/?session=somethingrandomhere' ?
  10. Hey, its me again So this is my problem: My keyboard layout has 2 languages: Russian & English. And when I want to ControlSend() or just Send() message like: <Here comes Russian text> <Here comes English text> Then my program sends text only in one language, that is currently on. How can I do so, that it will send phrase correctly, with 2 languages?
  11. Yes, its Vista bug On my friend's XP OS it works perfectly.
  12. 066 ^^ k so it sends ASCII codes instead of normal characters Holy Crap, Ill try to reinstall Auto It3.
  13. 6- $5&'908/-/\012345678964<=>7@A066CDEF071HIJK076MNOPQRSTUVWXYZ[\]-`abcdefghijklmnopqrstuvwxyz|126 6- $5&'908/-/\012345678964<=>7@A066CDEF071HIJK076MNOP081RSTU086WXYZ091\093-`097bcdefghijklmnopqrstuvwxyz|26 Was sending 2 times, you see? btw should the window of a program be opened when using this?
  14. I'm using 3.2.10 , and with MsgBox it shows the right message, that I have inputted in. Can there be any problems, cuz I'm using Vista? or I'm from Russia?
  15. func RndMsg() local $i = Random(0, 6, 1) if $Message[$i] = "" Then call("RndMsg") Else if GuiCtrlRead($CheckWC) = "1" Then ControlSend("Warcraft III", "", "", $Message[$i], 1) ControlSend("Warcraft III", "", "","{ENTER}") EndIf Sleep(GuiCtrlRead($InputDelay)) EndIf endfunc Here you go.
  16. Hi, Why the hell this ControlSend() sends strings with some digits? For example: I want ControlSend() to send string - "Play Warcraft" It sends something like this: "23ay Wa32raft" How to fix this?
  17. Thx! Now everything works perfectly
  18. Mb I am dumb, but.. I have a URL, where only some text is written. I need to get the text from there without opening IE. How to do that ? p.s. I was trying to do that with _IeBodyrReadText, but no success.
×
×
  • Create New...