Sign in to follow this  
Followers 0
nlac

totalcommander starter:)

3 posts in this topic

;this is just for fun, with no comment:)

If FileExists("totalcmd.exe") == 0 Then

MsgBox(0,"","The starter is not in the tcmd's root dir! Put it there and try again.")

Exit

EndIf

Run("totalcmd.exe")

If WinWaitActive("Total Commander", "", 5000) == 0 Then Exit

Dim $t = -1

While $t < 1

$t = ControlGetText("Total Commander", "", "TPanel2")

Sleep(5)

WEnd

Dim $arr[3]

$arr[0] = "TButton3"

$arr[1] = "TButton2"

$arr[2] = "TButton1"

ControlClick("Total Commander", "", $arr[Number($t) - 1])

Share this post


Link to post
Share on other sites



Does this mean anything to anyone? Care to explain?


~Projects~1. iPod Ejector 1.0 - Tool Used To Eject iPod in Windows - Uses DevEject.exe :P2. SmartFTP Close Popup Tool - Closes reminders from freeware SmartFTP.~Helpful Links For New Users~1. LXP's Learning AutoIT PDF Guide - <<< Go here for a PDF Guide on learning AutoIT from the ground up!<<<2. AutoIt 1-2-3 <<<Want to learn more about AutoIT quickly? Go Here<<<3. How To Install The Beta And Production Versions Of AutoIT / SciteAutoIT

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