Jump to content

chacoya121

Active Members
 View Profile  See their activity

  • Posts

    31

  • Joined

  • Last visited

Everything posted by chacoya121

  1. chacoya121
    Please help calculate the secs variable i can't get it right after 60s, it go into -1 and on.... Func CountDown() Local $count = 5 Local $newcount = $count * 60 ; 300 sec Local $time = TimerInit() While 1 Sleep(1000) Local $timediff = TimerDiff($time)/1000 ; turn into sec Local $mins= Floor(($newcount - $timediff)/60) Local $secs = Floor($newcount/$count - $timediff); Need help this line can't calculate after 60s ToolTip("Mins = " & $mins & " Secs = " & $secs) WEnd EndFunc
  2. chacoya121
    can someone plz explain how WinAPI work and some example script plz
  3. chacoya121
    thank you guys
  4. chacoya121
    i was curious about this too, how does pixelsearch hwnd work? can someone have some sample script plz. i google but no sample
  5. chacoya121
    Global $x1 = 82 Global $y1 = 217 Global $x2 = 115 Global $y2 = 255 _Start() ShellExecute("Color Code.ini") ; View Color Code.ini file. Func _Start() If FileExists("Color Code.ini") Then FileDelete("Color Code.ini") For $i = $x1 To $x2 Step 1 For $j = $y1 To $y2 Step 1 $color = PixelGetColor($i, $j) $getini = IniReadSection("Color Code.ini", "Color") If @error Then IniWrite("Color Code.ini", "Color", "0x" & Hex($color, 6),"") If Not @error Then IniWrite ("Color Code.ini", "Color", "0x" & Hex($color, 6), "") For $k = 0 To $getini[0][0] Step 1 If $getini[$k][0] = Hex($color,6) Then $getini[1][1] += 1 EndIf Next Next Next EndFunc ;==>Start plz help me add duplicate color
  6. chacoya121
    Global $x1 = 82 Global $y1 = 217 Global $x2 = 115 Global $y2 = 255 Func _Start() For $i = $x1 To $x2 Step 1 For $j = $y1 To $y2 Step 1 $color = PixelGetColor($i, $j) $getini = IniReadSection("Color Code.ini", "Color") If Not @error Then IniWrite("Color Code.ini", "Color",Hex($color, 6), $getini[1][1]+1) ElseIf @error Then IniWrite("Color Code.ini", "Color",Hex($color, 6), "1") EndIf Next Next EndFunc ;==>Start thank you , you are the best ,i understand it now can you put that into ini file i try similar way but some how doesn't work sorry for my english and low lvl programming
  7. chacoya121
    can you add up all the duplicate color and test with some different coordinate it wont work Local $x1 = 77, $y1 = 214, $x2 = 118, $y2 = 254 is there limit to array it could stored?
  8. chacoya121
    get color and store in array
  9. chacoya121
    Local $count = 1 Local $x1= 100,$y1 = 100,$x2 = 110,$y2 = 110 $area = ($x2+$x1)*($y2+$y1) Local $array[$area][2] For $i = $x1 to $x2 Step 1 For $j = $y1 to $y2 Step 1 $color = PixelGetColor($i,$j) $scolor = Hex($color,6) $array[$count][2] = [$scolor,1] $position = _ArraySearch($array,$scolor,0,0,0,0,1) If $array[$position][0] = $scolor Then $array[$position][1] +=1 Else $count += 1 EndIf Next Next _ArrayDisplay($array) plz help adjust and shrink it down soo confusing playing with array
  10. chacoya121
    HotKeySet("{Home}", "Start") HotKeySet("{Esc}", "MyExit") Global $colorcount = 0 While 1 Sleep(100) WEnd Func MyExit() Exit EndFunc Func Start() For $i = 0 to 9 Step +1 For $j = 0 to 9 Step +1 $color = PixelGetColor($i,$j) IniWrite("Color Code.ini","Color",$colorcount,Hex($color,6)) $colorcount += 1 Next Next EndFunc can someone help me organize this color count, i m just curious how it work, cuz i try to figure out how it work but soo confusing me, im low lvl programing and sorry for my english
  11. chacoya121
    what if u have a scramble of files need to organize cuz this just only 2 files what if u have large number of files
  12. chacoya121
    read data and organize and count total of each result 0=000308 1=000308 2=000308 3=000308 4=000408 5=000408 6=000408 7=000408 8=000408 9=000408 10=000308 11=000308 12=000308 13=000408 14=000408 15=000408 16=000408 17=000408 18=000408 19=000408 20=000308 21=000308 22=000308 23=000408 24=000408 25=000408 26=000408 27=000408 28=000408 29=000408 30=000308 total = 11x 000308 total = 20x 000408
  13. chacoya121
    plz help how to organize information from notepad or INIfile Example: 0=000308 1=000308 2=000308 3=000308 4=000408 5=000408 6=000408 7=000408 8=000408 9=000408 10=000308 11=000308 12=000308 13=000408 14=000408 15=000408 16=000408 17=000408 18=000408 19=000408 20=000308 21=000308 22=000308 23=000408 24=000408 25=000408 26=000408 27=000408 28=000408 29=000408 30=000308 0=000308 x 11 total 1=000408 x 20 total 2 lines summary all Thank you
  14. chacoya121
    thank you
  15. chacoya121
    can anyone help me plz how can you put mouseclick in if statement or is it possible example: if Mouseclick = "left" then Tooltip(" you click left mouse") thank you
  16. chacoya121
    send("{Down Down}") sleep(1000) send("{Down Up}") just curious on the send function i try but doesn't work some how
  17. chacoya121
    please help, how to write script for multiple choice question in GUI -single program -add more question to program example: 1. this is the question a. answer a b. answer b c. answer c d.answer d - 300 questions + 700 answers please give me some tips to create a script read and write file from notepad, that mean u need notepad attach?
  18. chacoya121
    where is that
  19. chacoya121
    is there any option on the program to check each of ur script line, like follow each of ur script line how it work? instead of u have to msgbox each line too see
  20. chacoya121
    - at first i try to make combination for lottery, then i saw this script, im just curious - and i try to understand how is this function work, by putting msgbox in every line and run -then i curious, what if combine between letters and numbers -sorry im newbie to programming world , try to understand and learn
  21. chacoya121
    HotKeySet("{Esc}", "_exit") Run("notepad.exe") WinWaitActive("") Sleep(500) $Letter = StringSplit("A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,0,1,2,3,4,5,6,7,8,9", ",") Combi("", 5) Func Combi($Str, $MaxLen) Dim $i if StringLen($Str) = $MaxLen Then Send("Combination = " & $Str & @CRLF) ; Sleep(50) Return EndIf For $i = 1 to $Letter[0] Combi($Str & $Letter[$i], $MaxLen) Next EndFunc Func _exit() Exit EndFunc can someone help add code to this script to make generate combination 3 letters with 2 numbers instead of AAAAA AAAAB AAAAC start at AAA01 AAA02 AAA03 skiping the 2 letters
  22. chacoya121
    #include <File.au3> HotKeySet("{Esc}", "_exit") HotKeySet("{Home}","Start") Global $ifile = FileOpen(@ScriptDir & "\text1.txt") while 1 Sleep(100) WEnd Func Start() $random = Random(1,10,1) $line = FileReadLine($ifile,$random) $ifile = FileOpen(@ScriptDir & "\text1.txt", 2) _FileWriteToLine($ifile,$random,"",1) $countline = _FileCountLines($ifile) EndFunc Func _exit() Exit EndFunc i try to overwrite the line from text but its clear all can someone help plz
  23. chacoya121
    oh sorry, im newbie thank you for mention
  24. chacoya121
    can you put 2 digits in side and make a combination AAA01 AAA02 skip the letter but put 2 numbers inside the
  25. chacoya121
    thank you
×
×
  • Create New...