So close but...

[Rabbitman]

I am soooo close to finishing, but then one thing is wrong.

EDIT: FIRST PROBLEM SOLVED! SECOND PROBLEM: NOT SOLVED! DETAILS:

So here is my code (edited:

expandcollapse popup

HotKeySet("{Esc}", "ExitProg") 
HotKeySet("{F3}", "StartStop")
HotKeySet("{PAUSE}", "Click")


Dim $On, $click
$click = False 
$On = False
 
While 1
    If $click = True Then
        MouseClick("left")
    EndIf
    If $On = True Then
        Send("{Z down}")
        Sleep(10)
        Send("{Z up}")
        Sleep(10)
    EndIf
WEnd

Func StartStop()
   If $On = False Then
      $On = True
   Else
      $On = False
   EndIf
EndFunc

Func Click()
   If $click = False Then
      $click = True
   Else
      $click = False
   EndIf
EndFunc

Func ExitProg()  
    Exit 0;;Exits the program
EndFunc

Now i want to add in a message box:

While 1
    $msg = GUIGetMsg()
    If $msg = $Button2 Then
        MsgBox(0, 0, 'Read The Help File.')
        EndIf
    WEnd

Question is, where do i put messagebox?

Rabbitman~~~~~~

Edited December 16, 2010 by Rabbitman

[Zedna]

Don't create new topics for the same thing!

[LurchMan]

I can't test it for you but try this:

expandcollapse popup

HotKeySet("{Esc}", "ExitProg") 
HotKeySet("{F3}", "StartStop")
HotKeySet("{PAUSE}", "Click")


Dim $On, $click
$click = False 
$On = False
 
While 1
    If $click = True Then
        MouseClick("left")
    EndIf
    If $On = True Then
        Send("{Z down}")
        Sleep(10)
        Send("{Z up}")
        Sleep(10)
    EndIf
WEnd

Func StartStop()
   If $On = False Then
      $On = True
   Else
      $On = False
   EndIf
EndFunc

Func Click()
   If $click = False Then
      $click = True
   Else
      $click = False
   EndIf
EndFunc

Func ExitProg()  
    Exit 0;;Exits the program
EndFunc

Edited December 15, 2010 by LurchMan

[shanet]

I am soooo close to finishing, but then one thing is wrong. Look:

expandcollapse popup

HotKeySet("{Esc}", "ExitProg") 
HotKeySet("{F3}", "StartStop")
HotKeySet("{PAUSE}", "Click")
Func ExitProg()  
    Exit 0;;Exits the program
EndFunc

Dim $On, $click
$click = False 
$On = False


Func Click()
   If $click = False Then
      $click = True
   Else
      $click = False
   EndIf
EndFunc
 
     While True
   If $click = True Then
      MouseClick("left")
   EndIf
   WEnd

Func StartStop()
   If $On = False Then
      $On = True
   Else
      $On = False
   EndIf
EndFunc

   While True
   If $On = True Then
Send("{Z down}")
Sleep(10)
Send("{Z up}")
Sleep(10)
EndIf
WEnd

SO in that code, i have 3 hotkeys, Esc., F3 and Pause. F3 presses Z, Pause clicks, and Esc. exits. Now exit part works, but sadly only one hotkey seems to be working. I have tried moving things around and such but i cant seem to get it right. I would greatly appreciate help as this needs to be completed soon.

Rabbitman~~~~~~

Would the exit part be completing straight away?

Try this:

expandcollapse popup

HotKeySet("{Esc}", "ExitProg") 
HotKeySet("{F3}", "StartStop")
HotKeySet("{PAUSE}", "Click")
Func ExitProg()  
    Exit 0;;Exits the program
EndFunc

Dim $On, $click
$click = False 
$On = False
While 1  ;No difference, I just use a 1 instead of true.
If $click = True Then
    MouseClick("left")
EndIf

If $On = True Then
   Send("{Z down}")
   Sleep(10)
   Send("{Z up}")
   Sleep(10)
EndIf

WEnd ;If you want these scripts to run at the same time, which I believe is what you want, you must include them in the same when statement.
     ;However this means it will not be constantly clicking, your best bet would be to run another script handling the clicking.


Func Click()
   If $click = False Then
      $click = True
   Else
      $click = False
   EndIf
EndFunc
 

Func StartStop()
   If $On = False Then
      $On = True
   Else
      $On = False
   EndIf
EndFunc

I hope that all works for you.

shanet

[JohnOne]

Your StartStop function just checks and sets some variables, I dont see a send in it, and also your secong while loop will never be entered into, unless true somehow = false

[Rabbitman]

Lurchman you are a god! Thank you it works perfecttt!

[Rabbitman]

Thanks for your quick help! I got it to work

[Rabbitman]

Ok new problem i cant add in a button where would i put it? Here is code for my button

While 1
    $msg = GUIGetMsg()
    If $msg = $Button2 Then
        MsgBox(0, 0, 'Read The Help File.')
        EndIf
    WEnd

I put it at the top it works but hotkeys dont. I put it at the bottom hotkeys work but buttons dont...

[Zedna]

MsgBox(0, 0, 'Read The Help File.')

Yes. You are right.

[Rabbitman]

Haha very funny but I don't think it will give exact directions on where to put it...

[Rabbitman]

Edited