Group of commands

[smart_phil_dude1]

for a command button, i made it do 14 different commands... how can i make sure they all go in the order i put it all in? because it isn't working.. and i've tried 1 command at a time, and they all worked...



can sum1 plz help me?

thnx in advance,
Phil.D.

[MartinLiss]

Please post your code because (subject to If/Else statements) the code will run always run in the order that it appears.

[smart_phil_dude1]

i found out tht it is doing it in the right order, but it does it all at once, so there is a problem, even when i put "Sleep 1000" after every command it still doesn't do it properly... and as i said, every command works seperately.. what should i do?

[dglienna]

If you only want it to execute one command at a time, you should create a BtnCount variable, and then separate each statement using this logic. You could do something like this:

sub Button1_Click()
  select case BtnCount 
  case 1
    ' Do Command 1
  case 2
    ' Do Command 2
  '-
  '-
  case else
    ' anything extra
  end select
  BtnCount = BtnCount +1
end sub

[smart_phil_dude1]

i don't know if tht will matter now, because it works in order now... it just doesn't work if i have more than 2 commands on it... y?

[MartinLiss]

Please explain what you mean by "it doesn't work".

[smart_phil_dude1]

it won't do the commands!!! it does the first command and tht's it.. then the computer freezes until i press "Ctrl+Alt+Del"... once i press those buttons, it does the second command...

[MartinLiss]

it won't do the commands!!! it does the first command and tht's it.. then the computer freezes until i press "Ctrl+Alt+Del"... once i press those buttons, it does the second command...

OK, then let me suggest again that you post your code.

[dee-u]

Might be that the first command you executed is run then the second one is run too and they messed up each other, post your code so we could take a look at it...

[smart_phil_dude1]

ok, sure... here it is :

Private Sub Command16_Click()
If List1.ListIndex <> -1 Then
 
    P.X = -30
    P.Y = -30
    ret& = ClientToScreen&(Form1.hwnd, P)
    P.X = P.X + Me.ScaleWidth / 2
    P.Y = P.Y + Me.ScaleHeight / 2
    ret& = SetCursorPos&(P.X, P.Y)
Sleep 1000
 
    mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
Sleep 1000
 
    P.X = -72
    P.Y = -72
    ret& = ClientToScreen&(Form1.hwnd, P)
    P.X = P.X + Me.ScaleWidth / 2
    P.Y = P.Y + Me.ScaleHeight / 2
    ret& = SetCursorPos&(P.X, P.Y)
Sleep 1000
 
    mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
Sleep 1000
 
SendKeys (ReadINI("Autologin", "Name" & List1.ListIndex + 1, ini_path) & "{enter}" & Decrypt(" " & ReadINI("Autologin", "Pass" & List1.ListIndex + 1, ini_path)))
Sleep 1000
 
    P.X = -30
    P.Y = -40
    ret& = ClientToScreen&(Form1.hwnd, P)
    P.X = P.X + Me.ScaleWidth / 2
    P.Y = P.Y + Me.ScaleHeight / 2
    ret& = SetCursorPos&(P.X, P.Y)
Sleep 1000
 
    mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
End If
End Sub

[MartinLiss]

What you are doing is unfamiliar to me but here are some things I found with some research on the web.

• You should check your ret values for 0 (fail).
• mouse_event function has been superseded and you should use SendInput instead

What are you trying to do with that SendKeys line?
Which specific command doesn't work?

[smart_phil_dude1]

ok, well... all commands work alone, but together, nothing happens...
and the SendKeys is to loggin to a game.. tht's what it's for..

[MartinLiss]

ok, well... all commands work alone, but together, nothing happens....

Not possible.

[smart_phil_dude1]

what do u mean it's not possible? not possible to make it go in order?

[MartinLiss]

No I mean that it's not possible that they work seperately but not together.

Have you tried F8-ing through the code?
Have you looked at the screen while doing that to see if anything has happened?

[dee-u]

Just a thought, why dont you try splitting up your code into several subs then call those subs from a "main" sub?

[smart_phil_dude1]

well, i'm not tht good with vb and not sure how to work with subs...

but it does work alone, and not together... and what does F8 do?

[MartinLiss]

... and what does F8 do?

Here's a short lesson on debugging.

• Place your cursor on the first line of code in the Command16_Click sub and press F9. You can also just click in the margin to the left of the line. Either of those ways will put a breakpoint on the line as indicated by the red bullet in the left margin.
• Run you program and click Command16 and the code will stop at that line.
• Highlight List1.ListIndex and then click the Quick Watch button (the pair of eyeglasses) in the menu bar. That will reveal the value of the ListIndex.
• Press F8. That will take you to the next line of code.

[smart_phil_dude1]

ah, i c, thnx man,

peace out,
Phil.D.