Jump to content

tsolrm

Active Members
  • Posts

    145
  • Joined

  • Last visited

Everything posted by tsolrm

  1. thank you
  2. Not an option
  3. HotKeySet ("{b}", "BlastC") Func BlastC() Send ("qwerb") EndFunc Because the Send contains 'b' in it - this sends this into an endless loop of sending qwerbqwerbqwerbqwerbqwerb etc I've tried ispressed If _IsPressed("42", $hDLL) Then Send ("qwerb") Do Sleep (10) Until _IsPressed("42", $hDLL) = 0 EndIf This doesn't do the endless loop but outputs bqwerb instead of qwerb. Anyway around this problem please?
  4. Great, thank you!
  5. Also a quick question, i need to find out how many times a string repeats itself within a string. What i've done is - I used StringInStr and once an occurrence is found - it is replaced and the process is repeated until nothing is found. However the string is pretty big so it takes a long time. Any shortcuts?
  6. thank you very much!
  7. these have always confused me $friends = StringRegExp ($friends, "<steamid></steamid>", 1) this is all i have
  8. i have a block of text where the numbers i need are between <steamid>number</steamid> is there a quick way to extract these into an array?
  9. I don't think u understood me. This function is for GUI controls
  10. Is it possible to do the following in AutoIt. I'm making a simple uploader When I rightclick on any image, I want there do be an extra option which would say something like "Upload this to www...." and when it's clicked, the image is uploaded and a link is recieved.
  11. Trying to upload a screenshot to http://fastpic.ru/ So far there is no error but nothing gets returned from the site ($sRead = "") Help please? $sURL = "fastpic.ru" $hOpen = _WinHttpOpen() $hConnect = _WinHttpConnect($hOpen, $sURL) $sRead = _WinHttpSimpleFormFill($hConnect, Default, Default, _ "name:uploading", "1", _ "name:file[]", @ScriptDir&"\screens\"&$picture, _ "name:submit", "Загрузить") ConsoleWrite (@error) ConsoleWrite ($sRead) _WinHttpCloseHandle($hConnect) _WinHttpCloseHandle($hOpen) FileWrite ("text.txt",$sRead) exit
  12. I don't know what to do. after the input box is created i've added this code GUICtrlSetData ($Offender [$tabs], "test") $texttest = GUICtrlRead($Offender[$tabs]) ConsoleWrite (@CRLF&$Offender [$tabs]&@CRLF&$texttest) In the console it shows 12 test Now without touching anything else $texttest = GUICtrlRead($Offender[$index]) ConsoleWrite (@CRLF&$Offender[$index]) ConsoleWrite (@CRLF&$texttest&@CRLF&$texttest2) this gives 12 0 I must be missing something. This is driving me nuts
  13. Well I am sorry for the attitude but this is not the first time people send me to read forum rules. I've read them believe me. Can some one help me on the subject?
  14. I've tried creating 3-4 tabs. $Offender[$index] and $ScreenName[$index] returns 0 for all. Even though the actual array $Offender exists and holds the numbers of the controls and $index returns a valid index for the tab
  15. My god people, why are u so paranoid. This has nothing to do with game automation, in fact i don't see how u could possibly automate Warcraft 3. How exactly capturing a screen shot automates the game?
  16. Hi, I just can't see why GUICtrlRead doesn't read the input text from $texttest = GUICtrlRead($Offender[$index]) _ArrayDisplay ($Offender) - this displays the array with all the controls Help please? #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> #include <ScreenCapture.au3> #include <array.au3> #include <GuiTab.au3> #NoTrayIcon #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Ban Poster", 912, 641, 192, 132) $Tab1 = GUICtrlCreateTab(0, 0, 921, 33) $Room = GUICtrlCreateCombo("RHLR 1", 736, 208, 169, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "RHLR 2|RHLR 3|RHLR 4|RHLR 5|RHLR 6|RHLR 7") $Label1 = GUICtrlCreateLabel("Ник нарушителя:", 8, 42, 170, 30) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x000000) $Label2 = GUICtrlCreateLabel("Комната:", 736, 176, 63, 20) $OpenScreen = GUICtrlCreateButton("Открыть", 592, 60, 137, 25) $Pic1 = GUICtrlCreatePic(@ScriptDir &amp; 'banned.jpg', 736, 253, 169, 100) Opt("TrayMenuMode", "1") HotKeySet("{PRINTSCREEN}", "PRINTSCREEN") $exit = TrayCreateItem("Выход") TraySetState() $tabs = 0 Global $tabA[1], $Screen[1], $ScreenName[1], $Offender[1] While 1 $msg = TrayGetMsg () If $msg = $exit Then Exit $guimsg = GUIGetMsg() Select Case $guimsg = $pic1 $current=GUICtrlRead ($Tab1,1 ) $index = _GUICtrlTab_GetCurSel($Tab1) $index+=1 MsgBox (0,"test", $index) GUICtrlDelete ($current) $tabs -=1 If $tabs=0 Then GUISetState(@SW_HIDE) EndIf ConsoleWrite (@CRLF&amp;$index) _ArrayDisplay ($Offender) $texttest = GUICtrlRead($Offender[$index]) $texttest2 = GUICtrlRead($screenname[$index]) ConsoleWrite (@CRLF&amp;$texttest&amp;@CRLF&amp;$texttest2) _ArrayDelete ($tabA, $index+1) _ArrayDelete ($screen, $index+1) _ArrayDelete ($screenname, $index+1) _ArrayDelete ($offender, $index+1) ; Remove the tab AND the edit from the arrays ; Remove the tab Case $guimsg = $GUI_EVENT_CLOSE Exit EndSelect Wend Func PrintScreen () ;If WinActive ("Warcraft III") Then $name = @YEAR &amp; @MON &amp; @MDAY &amp; @HOUR &amp; @MIN &amp; @SEC _ScreenCapture_Capture(@ScriptDir&amp;"screens"&amp;$name&amp;".jpg") $tabs +=1 ReDim $tabA [$tabs+1] ReDim $Screen [$tabs+1] ReDim $ScreenName [$tabs+1] ReDim $Offender [$tabs+1] $tabA[$tabs]=GUICtrlCreateTabItem("Реквест") $Screen [$tabs] = GUICtrlCreatePic(@ScriptDir&amp;"screens"&amp;$name&amp;".jpg", 8, 88, 721, 545) $ScreenName [$tabs] = GUICtrlCreateLabel($name&amp;".jpg", 610, 40, 150, 20) $Offender [$tabs] = GUICtrlCreateInput("", 180, 45, 177, 24) GUICtrlCreateTabItem("") ;$Button1 = GUICtrlCreateButton("Button1", 736, 533, 169, 100) GUISetState(@SW_SHOW) ;EndIf #EndRegion ### END Koda GUI section ### EndFunc
  17. Job? Does he get paid for it?
  18. Hi, I am trying to do the following <------- BLOCK OF TEXT ----------> somewhere in the middle of the text there is a var VARIABLE = "somenumber"; <------- BLOCK OF TEXT ----------> I need to find a way to get the value of the VARIABLE. Help me please
  19. i found this post 7 But i don't understand this bit, can someone explain please? Global $sRead = _WinHttpSimpleFormFill($hConnect, "api/test-api.html", Default, _ "apiKey", $sAPIKey, _ "xmlOutput", 1, _ "testMode", 1, _ "name:userfile", $sFile)
  20. i don't think this has anything to do with ftp
  21. Hi guys I've sorted out a script that saves screenshots automatically when PrintScreen key is pressed. Is there any way to make it so that when a button is clicked - the screen shot is uploaded to an image hosting website and the user recieves the link to the picture. Could u point me in the right direction please.
  22. Hi not, the script is nowhere near the windows folder. no error - it's not added to the list
  23. So i have two lines of code _RunDos("netsh firewall set allowedprogram "&@ScriptFullPath&" "&@ScriptName&" ENABLE") _RunDos("netsh firewall set allowedprogram "&@WindowsDir&"\Script.exe Script.exe ENABLE") The name of the script is Script.exe The weird thing is - if it is located in the windows folder - it adds to the firewall exceptions okey. If i'm using ScriptPath or ScriptFullPath then it's not doing anything. Has anyone got any idea why?
  24. I've got a tcp server that communicates to a client. The packets are in plain english at the moment, so they can be read using wireshack or else. Is there anything in autoit that allows me to encrypt the text so that the client script can decrypt it when it recieves the message?
×
×
  • Create New...