Sign in to follow this  
Followers 0
Regency

Makeing a orginized list..

5 posts in this topic

Right now my script puts numbers in a log file and i need them orginized by the numbers.. like all 1 with each other, and so on..

any possible way to do this?

or atleast make it put a tally of numbers like

1- 6

23- 14

the number is first and amount of times it comes up... any idea?

Share this post


Link to post
Share on other sites

Show a log file so we can see how to manipulate it...

Maybe better to show us the actual code.

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites

This is the scriot that gets the data..

#requireadmin
#AutoIt3Wrapper_run_debug_mode=Y
#include <GUIConstants.au3>
#include <Constants.au3>
#include <IE.au3>
#include  <Misc.au3>
#include <Date.au3>
#include "script\roulette log.au3"
;Opt("MustDeclareVars", 1); having this option set will help find mistakes before you run it. Such as using a variable before setting its value or misspelling a variable
Opt("TrayOnEventMode", 1)
Opt("TrayAutoPause", 0)
Opt("PixelCoordMode", 1)
TraySetOnEvent($TRAY_EVENT_PRIMARYDOWN, "_MinimizeToTray")

Global $Crimes = ''
Global $Gta = ''
Global $name1 = ''
Global $pass1 = ''
Global $url1 = ''
Global $Paused = 0
Global $oLoginPage = ''



Global $Quick = GUICreate("Auto Scripter - By - ScorpiA", 290, 200, 340, 300)
Global $StartUrl = GUICtrlCreateGroup("Address your acct is logged into:", 8, 8, 256, 49) ; You can use proxys if you like, it just needs to get you to The mafia network
Global $address = GUICtrlCreateInput("", 16, 24, 145, 21)
Global $saveurl = GUICtrlCreateButton("Save", 168, 24, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)


Global $log = GUICtrlCreateLabel("", 8, 384, 250, 17) ; The url you posted above
Global $Url = GUICtrlCreateLabel("", 8, 384, 250, 17) ; The url you posted above
Global $Make = GUICtrlCreateButton("Start Auto Scripter By ScorpiA - Hit ESC to Exit", 8, 168, 267, 25, 0)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_EVENT_MINIMIZE
            _MinimizeToTray()
        Case $saveurl
            $url1 = GUICtrlRead($address) & "/Authenticated/roulette.aspx"
            GUICtrlSetData($Url, $url1)
        Case $address
            $Cr1 = GUICtrlRead($address) & "/Authenticated/publicforum.aspx"
            GUICtrlSetData($Url, $Cr1)
            $Log1 = GUICtrlRead($address) & "/login.aspx"
            GUICtrlSetData($Url, $Log1)
        Case $Make
            MyRun()
    EndSwitch
WEnd



Func MyRun()
    HotKeySet("{Home}", "TogglePause")
    HotKeySet("{ESC}", "Terminate")

    $oLoginPage = _IECreate($Log1, 0, 1, 1, 0)
    _IELoadWait($oLoginPage)
    Local $begin = ''
    Local $dif = 0

    While 2
        Sleep(10)
        $dif = Int(TimerDiff($begin) / 100)
        If $dif >= (1 * 60) Then
            MyFunction2()
            
            $begin = TimerInit()
        EndIf
    WEnd
EndFunc   ;==>MyRun

Func MyFunction2()
    _IENavigate($oLoginPage, $cr1,1)
    _IELoadWait($oLoginPage)
    
    $oUser = _IEGetObjByName($oLoginPage, "Login1$UserName")
    _IEFormElementSetValue($oUser, "HEREERERERE")
    $oPass = _IEGetObjByName($oLoginPage, "Login1$Password")
    _IEFormElementSetValue($oPass, "DSDSG")
    $oLogIn = _IEGetObjByName($oLoginPage, "Login1$LoginLinkButton")
    _IEAction($oLogIn, "click")
    _IELoadWait($oLoginPage)
    _IENavigate($oLoginPage, $url1, 1)
    _IELoadWait($oLoginPage)
    $oinsert = _IEGetObjById($oLoginPage, "ctl00_MainPageContent_txt1st12")
    _IEFormElementSetValue($oinsert, "1000")
    $ospin = _IEGetObjById($oLoginPage, "ctl00_MainPageContent_btnSpin")
    _IEAction($ospin, "click")
    _IELoadWait($oLoginPage)
    $oDiv = _IEGetObjById($oLoginPage, "ctl00_MainPageContent_lblWinNumber")
    ConsoleWrite(_IEPropertyGet($oDiv, "innertext") & @CR)
    $variable = _IEPropertyGet($oDiv, "innertext")
If $variable > 0 Then
    Roulette()
ElseIf $variable = 0 Then
    Roulette()
    EndIf
EndFunc   ;==>MyFunction2






Func TogglePause()
    $Paused = Not $Paused
    While $Paused
        Sleep(100)
        ToolTip('Script is "Paused"', 0, 0)
    WEnd
    ToolTip("")
EndFunc   ;==>TogglePause


Func Terminate()
    Exit
EndFunc   ;==>Terminate


Func _MinimizeToTray()
    If BitAND(WinGetState($Quick), 2) Then
        GUISetState(@SW_HIDE)
    Else
        GUISetState(@SW_SHOW)
    EndIf
EndfuncoÝ÷ Ù©ÝêÞËazZ x,r¸©µ«­¢+Ø¥¹±Õ±Ðí¥±¹ÔÌÐì((ÀÌØí   Õ±±Ñ}1½ôMÉ¥ÁѥȵÀìÅÕ½ÐìÀäÈíI½Õ±ÑÑ}1½¹ÑáÐÅÕ½Ðì()Õ¹I½Õ±ÑÑ}1½}]É¥Ñ ÀÌØí¥±9µ°ÀÌØí1¥¹¤($ÀÌØí¥±ô¥±=Á¸ ÀÌØí¥±9µ°ä¤(%% ÀÌØí¥±ôô´Ä¤Q¡¸IÑÕɸÀ(%¥±]É¥Ñ1¥¹ ÀÌØí¥±°ÅÕ½ÐìÅÕ½ÐìµÀìÀÌØí1¥¹¤(%¥±
±½Í ÀÌØí¥±¤(%IÑÕɸÄ)¹Õ¹((ÀÌØíÙÉ¥±ôÅÕ½ÐìÅÕ½Ðì()Õ¹I½Õ±ÑÑ ¤(%I½Õ±ÑÑ}1½}]É¥Ñ ÀÌØí Õ±±Ñ}1½°ÀÌØíÙÉ¥±¤)¹Õ¹

and this is what the log looks like

22
22
15
3
32
0
33
4
9
35
20
28
0
0
26
12
23
14
27
29
27
0
20
2
32
10
8
34
21
28
13
6
33
11
21
22
16
20
19
18
14
28
36
6
3
0
8
19
7
21
7
11
19
5
20
1
17
25
19
10
28
4
2
22
4
36
32
6
29
10
0
0

Share this post


Link to post
Share on other sites

bump

Share this post


Link to post
Share on other sites

I would use _FileReadToArray, _ArrayAdd, _ArraySort, _FileWriteFromArray

With ArraySort, you have to look, if it can sort numeric, or you have to rewrite it :)


*GERMAN* [note: you are not allowed to remove author / modified info from my UDFs]My UDFs:[_SetImageBinaryToCtrl] [_TaskDialog] [AutoItObject] [Animated GIF (GDI+)] [ClipPut for Image] [FreeImage] [GDI32 UDFs] [GDIPlus Progressbar] [Hotkey-Selector] [Multiline Inputbox] [MySQL without ODBC] [RichEdit UDFs] [SpeechAPI Example] [WinHTTP]UDFs included in AutoIt: FTP_Ex (as FTPEx), _WinAPI_SetLayeredWindowAttributes

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0