Jump to content



Photo

How to randomize ?


  • Please log in to reply
5 replies to this topic

#1 kegiaumat055

kegiaumat055

    Seeker

  • Active Members
  • 19 posts

Posted 28 April 2012 - 08:36 AM

ControlClick("program", "", '[CLASS:WindowsForms; INSTANCE:2]' , "left")

I want to randomize "INSTANCE" from 1 - 100. So, I have code:

$instance = random(1,100) ControlClick("program", "", '[CLASS:WindowsForms; INSTANCE:' & '$instance' & ']' , "left")

But my program don't work. Can you help me, please ?

Edited by kegiaumat055, 28 April 2012 - 08:36 AM.






#2 CaptainClucks

CaptainClucks

    Unum Cavillator Spuria

  • Active Members
  • PipPipPipPipPipPip
  • 1,216 posts

Posted 28 April 2012 - 08:40 AM

think u mit meed to check wat contrl extists

use somthing like this i guess.
AutoIt         
Opt("WinTitleMatchMode", 4) Global $KillList[3][4] = [ _         ["this window",              "class 1","calss 2","class 3"], _         ["that window",          "class 1","calss 2","class 3"], _         ["another window",      "class 1","calss 2","class 3"] _ ] Global $CTRLs = '' Global $WinList AdlibRegister("Monitor",500) While 1     Sleep(500) WEnd Func Monitor()     $WinList = WinList()     For $I = 0 To $WinList[0][0]         For $V = 0 To UBound($KillList,1) - 1             If StringInStr($WinList[$I][0],$KillList[$V][0]) Then                 $CTRLs = _WinGetControls($WinList[$I][0])                 For $R = 0 To UBound($CTRLs) - 1                     For $E = 1 To UBound($KillList,2) - 1                         If StringInStr($CTRLs[$R][0],$KillList[$V][$E]) Then                             ;        ;                         EndIf                     Next                 Next             EndIf         Next     Next EndFunc Func _WinGetControls($Title, $Text = "")     Local $WndControls, $aControls, $sLast = "", $n = 1     $WndControls = WinGetClassList($Title, $Text)     $aControls = StringSplit($WndControls, @CRLF)     Dim $aResult[$aControls[0] + 1][2]     For $i = 1 To $aControls[0]         If $aControls[$i] <> "" Then             If $sLast = $aControls[$i] Then                 $n += 1             Else                 $n = 1             EndIf             $aControls[$i] &= $n             $sLast = StringTrimRight($aControls[$i], 1)         EndIf         If $i < $aControls[0] Then             $aResult[$i][0] = $aControls[$i]         Else ; last item in array             $aResult[$i][0] = WinGetTitle($Title) ; return WinTitle         EndIf         $aResult[$i][1] = ControlGetHandle($Title, $Text, $aControls[$i])     Next     $aResult[0][0] = "ClassnameNN"     $aResult[0][1] = "Handle"     Return $aResult EndFunc   ;==>_WinGetControls

  • kegiaumat055 likes this
Spoiler
Warning: Posts by this user are subject to change or may disappear without notice.

#3 kegiaumat055

kegiaumat055

    Seeker

  • Active Members
  • 19 posts

Posted 28 April 2012 - 08:45 AM

I don't understand !

#4 guinness

guinness

    guinness

  • MVPs
  • 10,234 posts

Posted 28 April 2012 - 08:49 AM

Remove the quotes around $instance e.g. '$instance' to $instance, also please read the Help file about variables too.
  • kegiaumat055 likes this

Example List: _AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_BinaryBin()_CheckMsgBox()_CmdLineRaw()_ContextMenu()_DesktopDimensions()_DisplayPassword()_Fibonacci()_FileCompare()_FileCompareContents()_FileNameByHandle()_FilePrefix/SRE()_FindInFile()_GetBackgroundColor()/_SetBackgroundColor()_GetConrolID()_GetCtrlClass()_GetDirectoryFormat()_GetDriveMediaType()_GetFilename()/_GetFilenameExt()_GetHardwareID()_GetIP()_GetIP_Country()_GetOSLanguage()_GetSavedSource_GetStringSize()_GetSystemPaths()_GetURLImage()_GIFImage()_GoogleWeather()_GUICtrlCreateGroup()_GUICtrlListBox_CreateArray()_GUICtrlListView_CreateArray()_GUICtrlListView_SaveCSV()_GUICtrlListView_SaveHTML()_GUICtrlListView_SaveTxt()_GUICtrlListView_SaveXML()_GUICtrlMenu_Recent()_GUICtrlMenu_SetItemImage()_GUICtrlTreeView_CreateArray()_GUIDisable()_GUIImageList_SetIconFromHandle()_GUISetIcon()_Icon_Clear()/_Icon_Set()_InetGet()_InetGetGUI()_InetGetProgress()_IPDetails()_IsFileOlder()_IsGUID()_IsHex()_IsPalindrome()_IsRegKey()_IsStringRegExp()_IsUPX()_IsValidType()_IsWebColor()_Language()_Log()_MicrosoftInternetConnectivity()_MSDNDataType()_PathFull/GetRelative/Split()_PathSplitEx()_PrintFromArray()_ProgressSetMarquee()_ReDim()_RockPaperScissors()/_RockPaperScissorsLizardSpock()_ScrollingCredits_SelfDelete()_SelfRename()_SelfUpdate()_SendTo()_ShellAll()_ShellFile()_ShellFolder()_SingletonHWID()_SingletonPID()_Startup()_StringIsValid()_StringReplaceWholeWord()_StringStripChar()_Temperature()_TrialPeriod()_UKToUSDate()/_USToUKDate()_WinAPI_CreateGUID()_WMIDateStringToDate()/_DateToWMIDateString()AutoIt SearchAutoIt3 PortableAutoItWinGetTitle()/AutoItWinSetTitle()CodingFileInstallrGeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIGetBkColor()LockFile()PasteBinSciTE JumpSignature CreatorWM_COPYDATAMore Examples...Updated: 11/04/2013


#5 PhoenixXL

PhoenixXL

    Be what you are, believe me its always the BEST...

  • Active Members
  • PipPipPipPipPipPip
  • 1,299 posts

Posted 28 April 2012 - 10:07 AM

$instance = random(1,100) ControlClick("program", "", '[CLASS:WindowsForms; INSTANCE:' & '$instance' & ']' , "left")

As Guinness said The Above is Wrong since U have Put the Variable In the Quotes, Inside Quote it will be Treated as a String And not a Variable

Try This 1

$instance = random(1,100) ControlClick("program", "", '[CLASS:WindowsForms; INSTANCE:' & $instance & ']' , "left")

If U get it Please Reply.........

Regards
Phoenix XL

Edited by PhoenixXL, 28 April 2012 - 10:09 AM.

  • kegiaumat055 likes this
PredictText: Predict Text of an Edit Control Like Scite. | Remote Gmail: Execute your Scripts through Gmail. | StringRegExp: Share and learn RegExp. | Run As System: A command line wrapper around PSEXEC.exe to execute your apps scripts as System (LSA). | Database: An easier approach for _SQ_LITE beginners. | MathsEx: A UDF for Fractions and LCM, GCF/HCF. | FloatingText: An UDF for make your text floating. | Clipboard Extendor: A clipboard monitoring tool. Custom ScrollBar: Scroll Bar made with GDI+, user can use bitmaps instead.

#6 kegiaumat055

kegiaumat055

    Seeker

  • Active Members
  • 19 posts

Posted 28 April 2012 - 10:30 AM

$instance = random(1,100) ControlClick("program", "", '[CLASS:WindowsForms; INSTANCE:' & $instance & ']' , "left")


Great ! Thank you very much ! :D :) :D ;) :'(




0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users