Jump to content
Sign in to follow this  
AhmedSabry32

Nothing is Shown

Recommended Posts

AhmedSabry32

I made a GUI with 2 Taps Control , but there's a bug and it's when i open the programme the first tap doesn't show anything (sliders , etc...) I must go to the second tap and back again to the first tap to see everything .

so what should i do?

Share this post


Link to post
Share on other sites
Melba23

AhmedSabry32,

Welcome to the AutoIt forum. :)

so what should i do?

Post the code you use so we can look at it! When you do post it please use Code tags - put [autoit] before and [/autoit] after your posted code so that you get a scrolling box and syntax colouring. ;)

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites
AhmedSabry32

FileInstall("FX.dll", @TempDir & "\FX.jpg", 1)
#Region ### start koda gui section ### form=
$form1 = GUICreate("NFE-R25-J | Professional Macro", 509, 403, 192, 124)
$pic1 = GUICtrlCreatePic(@TempDir & "\FX.jpg", 1, 26, 508, 400)
GUICtrlSetState(-1, $gui_disable)
SoundPlay("Sheren.mp3")
$wait = _guictrlcreatelabel_colorborder(16711680, "AVA was not found!", 280, 355, 115, 18)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 8388608)
$MenuItem1 = GUICtrlCreateMenu("Help")
$MenuItem2 = GUICtrlCreateMenuItem("How to use?..", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenuItem("About", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenu("Thanks")
$buttonaa = GUICtrlCreateButton("Donate for CCH Egypt", 10, 340, 120, 35)
$exit = GUICtrlCreateButton("Exit", 400, 352, 91, 25)
$labelaa = _guictrlcreatelabel_colorborder(65280, "Please Donate to CCH(Childern's Cancer Hospital) For new life for kids.", 5, 305, 335, 18)
GUICtrlSetBkColor(-1, 16282673)
$labelaaa = _guictrlcreatelabel_colorborder(65280, "Proud to be Egyptian", 150, 353, 110, 18)
GUICtrlSetBkColor(-1, 16711680)
$labelas = _guictrlcreatelabel_colorborder(65280, "Coded By AeriaAVA", 400, 305, 100, 15)
GUICtrlSetBkColor(-1, 16711680)
$Tab1 = GUICtrlCreateTab(1, 5, 510, 300)
$TabSheet1 = GUICtrlCreateTabItem("Basic Macro - Auto")
$label4 = _guictrlcreatelabel_colorborder(65280, "Spam bot:", 8, 40, 61, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 8388608)
$spam = GUICtrlCreateCombo("", 72, 40, 233, 25, BitOR($cbs_dropdown, $cbs_autohscroll))
GUICtrlSetBkColor(-1, 65280)
GUICtrlSetData(-1, "What daa Fuck Aeria? Fuck you Aeria.|I" & Chr(39) & "m not a fucking hacker....|I" & Chr(39) & "m spammer....|MPGH is the best hacking site....|Sorry , My friend will play with me!|Add me..|Fake GM , Fake GM , Fake GM!|Visit MPGH To Get VIP Hacks....!|Oh dear , I" & Chr(39) & "m cooking...!|I'm a hacker")
$sspam = GUICtrlCreateButton("Start-Spam", 340, 40, 79, 25)
$spress = GUICtrlCreateButton("Start", 240, 120, 79, 25)
$label7 = _guictrlcreatelabel_colorborder(65535, "Auto-Press:", 8, 120, 69, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 8388608)
$api = GUICtrlCreateCombo("", 80, 118, 145, 25, BitOR($cbs_dropdown, $cbs_autohscroll))
GUICtrlSetBkColor(-1, 9255113)
GUICtrlSetData(-1, "{F1}|{F2}|{F3}|{F4}|{F5}|{F6}|{F7}|{F8}|{F9}|P|S|T|Home|Insert|Delete|End|PageUp|PageDown")
$bmi = GUICtrlCreateInput("", 85, 200, 150, 20)
$label99 = _guictrlcreatelabel_colorborder(0xFFF000, "Delay(MS):", 8, 200, 55, 17)
$sbm = GUICtrlCreateButton("Start", 250, 200, 57, 35)
$TabSheet2 = GUICtrlCreateTabItem("QS-AutoShoot")
$qss = GUICtrlCreateButton("Start QS", 320, 210, 57, 35)
$qs = GUICtrlCreateSlider(160, 210, 150, 29)
GUICtrlSetLimit(-1, 7, 1)
GUICtrlSetData(-1, 1)
$asd = GUICtrlCreateSlider(121, 60, 151, 25)
GUICtrlSetLimit(-1, 100, 50)
GUICtrlSetData(-1, 50)
$label3 = _guictrlcreatelabel_colorborder(3381759, "QS Delay: (1) millisecond", 8, 210, 146, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 8388608)
$rrr = GUICtrlCreateRadio("2 + 1", 8, 250, 50, 17)
GUICtrlSetState($rrr, $GUI_CHECKED)
$rr1 = GUICtrlCreateRadio("3 + 1", 200, 250, 50, 17)
$rr2 = GUICtrlCreateRadio("Q + Q", 380, 250, 50, 17)
$sas = GUICtrlCreateButton("Start Auto-Shot", 188, 100, 90, 25)
$label5 = _guictrlcreatelabel_colorborder(16776960, "Auto-Shot(50)MS :", 8, 60, 108, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 8388608)
$label6 = _guictrlcreatelabel_colorborder(16711680, "Ammo Bullets:", 6, 100, 83, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 128)
$reload = GUICtrlCreateCheckbox("Reload after AutoShot", 300, 60, 145, 17)
GUICtrlSetColor($reload, 0x8D38C9)
GUICtrlSetState(-1, $gui_checked)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ammo = GUICtrlCreateInput("", 100, 100, 50, 21)
GUICtrlSetBkColor(-1, 2842846)
GUISetState(@SW_SHOW)
#EndRegion ### end koda gui section ###
Global $fs = 1
Global $fsx = 1

HotKeySet("{UP}", "_autoshoot")
HotKeySet("{PGDN}", "_spam")
HotKeySet("{PGUP}", "_start")
HotKeySet("{F8}", "_autopress")
While 1
    $nmsg = GUIGetMsg()
    Switch $nmsg
        Case $gui_event_close
            Exit
        Case $buttonaa
            ShellExecute("[url="http://beta.57357.com/?lang=en"]http://beta.57357.com/?lang=en"[/url])
        Case $asd
            $gets = GUICtrlRead($asd)
            GUICtrlSetData($label5, "Auto-Shot(" & $gets & ")MS")
        Case $qs
            $gets1 = GUICtrlRead($qs)
            GUICtrlSetData($label3, "QS Delay: (" & $gets1 & ") millisecond")
        Case $sas
            _autoshoot()
        Case $exit
            Exit
        Case $spress
          _autopress()
        Case $sspam
            _spam()
        Case $MenuItem2
            FileInstall("RIP.dll", @TempDir & "\RIP.exe", 1)
            ShellExecute(@TempDir & "\RIP.exe")
        Case $MenuItem3
            ShellExecute("[url="http://www.mpgh.net/forum/members/1435230-aeriaava.html"]http://www.mpgh.net/forum/members/1435230-aeriaava.html"[/url])
        Case $MenuItem4
            ShellExecute("[url="http://www.mpgh.net/forum/post_thanks.php?do=post_thanks_add&p=7705154&securitytoken=1363094369-fc31ebbbb8d6c042429b7b25f264b84715d3f501"]http://www.mpgh.net/forum/post_thanks.php?do=post_thanks_add&p=7705154&securitytoken=1363094369-fc31ebbbb8d6c042429b7b25f264b84715d3f501"[/url])
        Case $sbm
            $pmis = GUICtrlRead($bmi)
         If ProcessExists("AVA.exe") And _ispressed(01) Then
         mouseclick("middle")
         sleep($pmis)
     ElseIf Not ProcessExists("AVA.exe") Then
         MsgBox(0, "Error", "AVA was not found!")
         EndIf
    EndSwitch
If ProcessExists("AVA.exe") Then
        Sleep(20)
        GUICtrlSetData($wait, "AVA was found!")
    ElseIf NOT ProcessExists("AVA.exe") Then
        GUICtrlSetData($wait, "AVA was not found!")
        Sleep(40)
    EndIf
    If _IsPressed("50") Then
        SoundPlay("")
ElseIf _IsPressed("4F") Then
    SoundPlay("Sheren.mp3")
EndIf
WEnd

Func _start()
    If $fsx = 1 And ProcessExists("AVA.exe") Then
Global $rrs1 = GUICtrlRead($rr1)
Global $rrs2 = GUICtrlRead($rr2)
Global $rrs = GUICtrlRead($rrr)
Global $see = GUICtrlRead($qs)
        Do
            If _ispressed("01") Then
            While 1
            If $rrs = $GUI_CHECKED Then
                    Sleep($see)
                    ControlSend("Alliance of Valiant Arms", "", "", "{2}")
                    Sleep(1)
                    ControlSend("Alliance of Valiant Arms", "", "", "{1}")
                ElseIf $rrs1 = $GUI_CHECKED Then
                    Sleep($see)
                    ControlSend("Alliance of Valiant Arms", "", "", "{3}")
                    Sleep(1)
                    ControlSend("Alliance of Valiant Arms", "", "", "{1}")
                ElseIf $rrs2 = $GUI_CHECKED Then
                    Sleep($see)
                    ControlSend("Alliance of Valiant Arms", "", "", "{Q}")
                    Sleep(1)
                    ControlSend("Alliance of Valiant Arms", "", "", "{Q}")
                EndIf
                If $fsx = 0 Then
                    Return
                    EndIf
                WEnd
            EndIf
        Until $fsx = 0 Or _IsPressed("04")
    ElseIf NOT ProcessExists("AVA.exe") Then
        MsgBox(0, "Error", "Alliance of Valiant Arms was not found!")
    Else
        MsgBox(0, "Error", "Be sure that you opened the macro as administrator!")
    EndIf
EndFunc

Func _autoshoot()
    $check = GUICtrlRead($reload) ;get variable
    $check1 = GUICtrlRead($asd) ;get variable
    $check2 = GUICtrlRead($ammo) ;get variable
    If NOT ProcessExists("AVA.exe") Then
        MsgBox(0, "Error", "AVA is not found!")
    ElseIf NOT ProcessExists("AVA.exe") AND $check2 = "" Then ;if the previous condition are wrong then check this one
        MsgBox(0, "Error", "AVA is not found and Please Enter Ammo Bullet Number!")
    ElseIf ProcessExists("AVA.exe") AND $check2 = "" Then ;if the previous condition are wrong then check this one
        MsgBox(0, "Error", "Please Enter Ammo Bullet Number!")
    Else ;i changed this cause your way if AVA existed, there was no check for if there was something write in the number of bullet, the way i made it, it first check for error, if there not then it will do the function
        While ProcessExists("AVA.exe") ;as long as AVA.exe exist this loop will be, or until the exitloop condition is right in this case its Arrow down, read below
            If _ispressed("26") Then ;if arrow up is pressed
                If $check = $GUI_CHECKED Then ;check if the reload is ativated by the user
                    Local $sBegin = TimerInit() ;Start the counter
                EndIf
                Do
                    MouseClick("Left") ; send mouse click
                    Sleep($check1) ;????? sleep for? this is a sleep between every bullet
                    If $check = $GUI_CHECKED Then ;check if the reload is ativated by the user
                        If TimerDiff($sBegin) > $check1 Then ;diff get the time counted since you started with the start, you cannot make it if equal then cause the MS are really fast and you will miss your number so you do if the time set by the user is less than the current time of counter, so if the timer is more than what the user set you make it do the func reload.
                            ControlSend("Alliance of Valiant Arms", "", "", "{R}") ;Reload
                            Local $sBegin = TimerInit() ;Since we don't want the counter to continue counting from where he paused we Restart the counter
                        EndIf
                    EndIf
                Until _IsPressed("28") ;loop the shot until Arrow down get pressed
            EndIf
            If _IsPressed("28") Then ExitLoop ; when arrow down is pressed you exit the loop function
        WEnd
    EndIf
EndFunc

Func _spam()
    If NOT ProcessExists("AVA.exe") Then
        MsgBox(0, "Error", "Alliance of Valiant Arms was not found!")
    ElseIf ProcessExists("AVA.exe") Then
        Global $spams = GUICtrlRead($spam)
        Do
            ControlSend("Alliance of Valiant Arms", "", "", "" & $spams & "")
            Sleep(50)
            ControlSend("Alliance of Valiant Arms", "", "", "{ENTER}")
        Until _ispressed("23")
    EndIf
EndFunc
Func _autopress()
    $apig = GUICtrlRead($api)
            If ProcessExists("AVA.exe") AND $apig = "" OR NOT ProcessExists("AVA.exe") AND $apig = "" Then
                MsgBox(0, "Error", "Alliance of Valiant Arms was not found or you didn't input a key!")
            ElseIf ProcessExists("AVA.exe") Then
                Do
                If ProcessExists("AVA.exe") Then
                ControlSend("Alliance of Valiant Arms", "", "", "'" & $apig & "'")
                Sleep(50)
             ControlSend("Alliance of Valiant Arms", "", "", "{ENTER}")
                EndIf
             Until _IsPressed("78")
            ElseIf NOT ProcessExists("AVA.exe") Then
                MsgBox(0, "Error", "Alliance of Valiant Arms was not found!")
            EndIf
            EndFunc

Func _guictrlcreatelabel_colorborder($i_color, $s_text, $i_left, $i_top, $i_width = -1, $i_height = -1, $i_style = -1, $i_exstyle = -1)
    GUICtrlCreateLabel("", $i_left - 1, $i_top - 1, $i_width + 2, $i_height + 2)
    GUICtrlSetBkColor(-1, $i_color)
    Return GUICtrlCreateLabel($s_text, $i_left, $i_top, $i_width, $i_height, $i_style, $i_exstyle)
EndFunc

Edited by AhmedSabry32

Share this post


Link to post
Share on other sites
Melba23

AhmedSabry32,

You appear to have missed the Forum rules when you joined. Please read them now (there is also a link at bottom right of each page) - particularly the bit about not discussing game automation - and then you will understand why you will get no help and this thread will now be locked. :naughty:

See you soon with a legitimate question I hope. :)

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

×