Sign in to follow this  
Followers 0
Valuater

*XPloit-Pro* - Automated Presentation

4 posts in this topic

#1 ·  Posted (edited)

UPDATED 1/1/2008

****************************

OK.. heres the visual

Posted Image

Due to the numerous pics and sounds, The executable is great

XPedite_DEMO.exe

This is a great way do

* Demonstrate a Program

* Tutorial

* Help Orientation

* Create an Installer

* Make Coffee?

Utilizes the *XPedite Pro* Engine to create the ini file

http://www.autoitscript.com/forum/index.ph...ost&p=88961

well... heres the code

#cs ===============================================================================
    *XPedite Pro* - Demo  ver 2.0.2 - 12.28.2007
    Autor:         Robert M @ QT Appraisal
    E-mail:        XPCleanMenu@aol.com
    Language:    English
    OSystem:     Windows Xp
    Features: Automated Program, send Keys, Letters, passwords, etc
    - Use = Tutorials, Help, Installer, Presentations, etc 
    - Program with up to 200 Actions
    - Completely Menu Driven to Accept Keys Mouse Moves, Clicks, Wait time, etc
    - Nice Visuals
    - Editable ini file with understandable notations
    - Can auto run or User input
    - Adjust the $Child and $Children for your use
    - ...
    Requirements: Legal copy of Microsoft Windows Xp
    Construction: Autoit 3.1.1+, SciTE 1.64
    *XPedite Pro* to write the ini file
    Thanks to all, Enjoy...
#ce ===============================================================================
;**********************************************************************************
;Special note - you will need to place this line atop *XPedite Pro* for Active window Coordinates
opt("MouseCoordMode", 0)        ;1=absolute, 0=relative, 2=client
;==================================================================================

#include <GuiConstants.au3>

opt("GUIOnEventMode", 1)  ; Change to OnEvent mode

HotKeySet("{ESC}", "Set_Stop")

Dim $QT_web = "www.XPCleanMenu.HostRocket.com"
Dim $show = 0, $Child_[21], $children = 14
Dim $Stop = "", $tim = 500, $Notice, $NLine, $Data_[225]

If UBound(ProcessList(@ScriptName)) > 2 Then
    MsgBox(64, "* NOTE * ", "*XPedite Pro* Demo was already running  ", 5)
    Exit
EndIf

DirGetSize(@ProgramFilesDir & "\QTasc\XPedite\")
If @error = 1 Then
    DirCreate(@ProgramFilesDir & "\QTasc\XPedite\")
EndIf


$Sound_lnk = @TempDir & "\Sound_lnk.wav"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Sounds\Notify.wav", $Sound_lnk)
$Sound_clk = @TempDir & "\Sound_clk.wav"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Sounds\Clickerx.wav", $Sound_clk)
$Sound_grp = @TempDir & "\Sound_grp.wav"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Sounds\Group_open.wav", $Sound_grp)
$Sound_bar = @TempDir & "\Sound_bar.wav"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Sounds\xpinfbar.wav", $Sound_bar)
$Folders_pic = @TempDir & "\Xpd-FLDR.jpg"
FileInstall("C:\XPClean-web\Xpedite\Pics\Folders-pic.jpg", $Folders_pic)
$Programs_pic = @TempDir & "\Pgrm-pic.jpg"
FileInstall("C:\XPClean-web\Xpedite\Pics\Programs-pic.jpg", $Programs_pic)
$Settings_pic = @TempDir & "\Xpd-Set.jpg"
FileInstall("C:\XPClean-web\Xpedite\Pics\Settings-pic.jpg", $Settings_pic)
$Create_pic = @TempDir & "\Xpd-Crt.jpg"
FileInstall("C:\XPClean-web\Xpedite\Pics\Create-pic.jpg", $Create_pic)
$Title_pic = @TempDir & "\Xpd-tlet.jpg"
FileInstall("C:\XPClean-web\Xpedite\Pics\Title-pic.jpg", $Title_pic)
$Launch_pic = @TempDir & "\Xpd-Lnch.jpg"
FileInstall("C:\XPClean-web\Xpedite\Pics\Launch-pic.jpg", $Launch_pic)
$Pass_pic = @TempDir & "\Xpd-pas.jpg"
FileInstall("C:\XPClean-web\Xpedite\Pics\Pass-pic.jpg", $Pass_pic)
$Controls_pic = @TempDir & "\Xpd-ctrl.jpg"
FileInstall("C:\XPClean-web\Xpedite\Pics\Controls-pic.jpg", $Controls_pic)
$Wait_pic = @TempDir & "\Xpd-wht.jpg"
FileInstall("C:\XPClean-web\Xpedite\Pics\Wait-pic.jpg", $Wait_pic)
$Send_pic = @TempDir & "\Xpd-snd.jpg"
FileInstall("C:\XPClean-web\Xpedite\Pics\Send-pic.jpg", $Send_pic)
$Key_pic = @TempDir & "\Xpd-kyy.jpg"
FileInstall("C:\XPClean-web\Xpedite\Pics\Key-pic.jpg", $Key_pic)
$Key2_pic = @TempDir & "\Xpd-ky2.jpg"
FileInstall("C:\XPClean-web\Xpedite\Pics\Key2-pic.jpg", $Key2_pic)
$Mouse_pic = @TempDir & "\Xpd-mse.jpg"
FileInstall("C:\XPClean-web\Xpedite\Pics\Mouse-pic.jpg", $Mouse_pic)
$Demo_ini = @TempDir & "\Xpd-ini.ini"
FileInstall("C:\XPClean-web\Xpedite\Demo.ini", $Demo_ini)



$Main = GUICreate("  *XPedite Pro* - Demo                      by,  QTasc", 516, 423) ;, (@DesktopWidth-516)/2, (@DesktopHeight-323)/2)
GUISetFont(9, 400, -1, "MS Sans Serif")
$Button_1 = GUICtrlCreateButton("&Next >", 335, 390, 80, 25)
GUICtrlSetOnEvent(-1, "Set_Next")
$Button_2 = GUICtrlCreateButton("< &Back", 250, 390, 80, 25)
GUICtrlSetOnEvent(-1, "Set_Back")
$Button_3 = GUICtrlCreateButton("&Exit", 420, 390, 80, 25)
GUICtrlSetOnEvent(-1, "Set_Exit")
$Button_6 = GUICtrlCreateButton("", 10, 375, 495, 3, -1, $WS_EX_STATICEDGE)
GUICtrlSetState($Button_2, $GUI_DISABLE)
$Notice = GUICtrlCreateInput("Hi... I am  *XPedite Pro*", 15, 390, 220, 25)
GUICtrlSetFont(-1, 10, 750)
GUICtrlSetState(-1, $GUI_HIDE)

GUISetOnEvent($GUI_EVENT_CLOSE, "Set_Exit")




GUISetState()



$Child_[1] = GUICreate("", 508, 352, 1, 1, BitOR($WS_CHILD, $WS_TABSTOP) + $WS_DLGFRAME, -1, $Main)
GUISetFont(10, 400, -1, "MS Sans Serif")
$Image_1 = GUICtrlCreatePic($Folders_pic, 20, 5, 215, 340)
$Label_1 = GUICtrlCreateLabel("Welcome to  *XPedite Pro* ", 250, 20, 250, 30)
GUICtrlSetFont(-1, 12, 750)
$Label_1A = GUICtrlCreateLabel("This is a Presentation of the Features Available in *XPedite Pro* " & @CRLF & @CRLF & _
        "This sleek GPS style program is designed to:" & @CRLF & @CRLF & "* Automate Programs" & @CRLF & "* Simplify Daily Tasks" & @CRLF & "* and Much, Much More" & @CRLF & @CRLF & _
        "Ok, enough talk... Lets see what it can do!" & @CRLF & @CRLF & "To show you how great this program is, this Demo will be ran by   *XPedite Pro*" & @CRLF & @CRLF & _
        " ", 250, 50, 250, 230)
$Demo = GUICtrlCreateButton("XPedite Demo", 315, 285, 100, 25)
GUICtrlSetOnEvent(-1, "Run_XPedite")
GUICtrlCreateLabel("Press *Next* to view the Demo Manually", 250, 320, 250, 20)

GUICtrlSetState(-1, $GUI_DISABLE)

GUISetState()
SoundPlay($Sound_lnk, 1)

$Child_[2] = GUICreate("", 508, 352, 1, 1, BitOR($WS_CHILD, $WS_TABSTOP) + $WS_DLGFRAME, -1, $Main)
GUISetFont(10, 400, -1, "MS Sans Serif")
$Image_2 = GUICtrlCreatePic($Folders_pic, 20, 5, 215, 340)
$Label_2 = GUICtrlCreateLabel("First... The Folder Screen ", 250, 20, 250, 30)
GUICtrlSetFont(-1, 12, 750)
$Label_2A = GUICtrlCreateLabel("The display shows 3 separate folders that contain the programs " & @CRLF & @CRLF & _
        "Press F1 to turn on the voice feature for the number of the folder or the program... (great for kids or visually impaired)" & @CRLF & @CRLF & "F2 = Returns to this Screen/Menu" & @CRLF & "Botton left button = Check Up-Dates" & @CRLF & "Upper left button = Settings" & @CRLF & _
        "Upper right button = Hide *XPedite Pro*" & @CRLF & "Lower right button = Exit" & @CRLF & "Large center button = Stop XPedite" & @CRLF & @CRLF & "Place the mouse in the upper-left corner of your screen to return from *Hide*" & @CRLF & @CRLF & _
        "Ok, lets open the  *Favorites Folder* ", 250, 50, 250, 300)
GUISetState(@SW_HIDE)

$Child_[3] = GUICreate("", 508, 352, 1, 1, BitOR($WS_CHILD, $WS_TABSTOP) + $WS_DLGFRAME, -1, $Main)
GUISetFont(10, 400, -1, "MS Sans Serif")
$Image_3 = GUICtrlCreatePic($Programs_pic, 20, 5, 215, 340)
$Label_3 = GUICtrlCreateLabel("Now... The Programs Screen ", 250, 20, 250, 30)
GUICtrlSetFont(-1, 12, 750)
$Label_3A = GUICtrlCreateLabel("The display shows 9 separate XPediteable program locations..." & @CRLF & "(3 Folders x 9 Programs = 27 Programs)" & @CRLF & @CRLF & _
        "Click an Icon to automate (XPedite) the program you created ...or..." & @CRLF & "Click a small GPS (Available) to create a  *new*  XPedite program" & @CRLF & @CRLF & "F2 = Return to Folders Menu" & @CRLF & "F1 = Voice On/Off   (if installed)" & @CRLF & @CRLF & _
        "Imagine for a moment..." & @CRLF & "Click one button and watch your program or requested task.... complete itself!" & @CRLF & "( Just like this XPedited Demo! )" & @CRLF & @CRLF & _
        "Alright, lets move on to  *Settings* ", 250, 50, 250, 300)
GUISetState(@SW_HIDE)

$Child_[4] = GUICreate("", 508, 352, 1, 1, BitOR($WS_CHILD, $WS_TABSTOP) + $WS_DLGFRAME, -1, $Main)
GUISetFont(10, 400, -1, "MS Sans Serif")
$Image_4 = GUICtrlCreatePic($Settings_pic, 10, 25, 225, 261)
$Label_4 = GUICtrlCreateLabel("Here's... The Settings Screen ", 250, 20, 250, 30)
GUICtrlSetFont(-1, 12, 750)
$Label_4A = GUICtrlCreateLabel("The display shows 4 buttons and the assigned task of each button" & @CRLF & "( Notice the depth or  *3D*  look? )" & @CRLF & @CRLF & _
        "Two of the tasks were previously explained" & @CRLF & @CRLF & "F2 = Return to Folders Menu" & @CRLF & "F1 = Voice On/Off   (if installed)" & @CRLF & @CRLF & _
        "Delete = Delete a previous Xpedite program you created.. simple right?" & @CRLF & @CRLF & "Advaned is for editing XPedite programs" & @CRLF & _
        "( Not explained in this User Demo )" & @CRLF & @CRLF & "Create = Clicking on an (Available) GPS as explained... lets see what it does", 250, 50, 250, 300)
GUISetState(@SW_HIDE)

$Child_[5] = GUICreate("", 508, 352, 1, 1, BitOR($WS_CHILD, $WS_TABSTOP) + $WS_DLGFRAME, -1, $Main)
GUISetFont(10, 400, -1, "MS Sans Serif")
$Image_5 = GUICtrlCreatePic($Create_pic, 0, 20, 245, 300)
$Label_5 = GUICtrlCreateLabel("Ready... The Create Screen ", 250, 20, 250, 30)
GUICtrlSetFont(-1, 12, 750)
$Label_5A = GUICtrlCreateLabel("The display shows 3 separate areas..." & @CRLF & @CRLF & _
        "1 Create a Title" & @CRLF & "Give your XPeidte (automated) program a Name" & @CRLF & @CRLF & "2 Launch a program.. or dont luanch" & @CRLF & _
        "You can choose to run an external program when clicked" & @CRLF & @CRLF & "3 Set a Password.. or no password" & @CRLF & "You can protect your XPedite program with a password so only you have access" & @CRLF & _
        @CRLF & @CRLF & @CRLF & _
        "Lets take a closer look... One at a time", 250, 50, 250, 300)
GUISetState(@SW_HIDE)

$Child_[6] = GUICreate("", 508, 352, 1, 1, BitOR($WS_CHILD, $WS_TABSTOP) + $WS_DLGFRAME, -1, $Main)
GUISetFont(10, 400, -1, "MS Sans Serif")
$Image_6 = GUICtrlCreatePic($Title_pic, 50, 20, 390, 110)
$Label_6 = GUICtrlCreateLabel("One... The Title Section ", 20, 200, 250, 30)
GUICtrlSetFont(-1, 12, 750)
$Label_6A = GUICtrlCreateLabel("To Create a Title...  Just give your XPeidte (automated) program a Name" & _
        @CRLF & "My Login, Sys Start, XPClean, Auto AOL, Check Mail, or any name you like" & @CRLF & @CRLF & "and Press  *Accept*" & @CRLF & _
        @CRLF & "It's that simple.... Moving on to the Launch Portion", 20, 230, 500, 100)
GUISetState(@SW_HIDE)

$Child_[7] = GUICreate("", 508, 352, 1, 1, BitOR($WS_CHILD, $WS_TABSTOP) + $WS_DLGFRAME, -1, $Main)
GUISetFont(10, 400, -1, "MS Sans Serif")
$Image_7 = GUICtrlCreatePic($Launch_pic, 50, 20, 390, 115)
$Label_7 = GUICtrlCreateLabel("Two... The Launch Section ", 20, 200, 250, 30)
GUICtrlSetFont(-1, 12, 750)
$Label_7A = GUICtrlCreateLabel("Lets say you want to automate getting on America on Line..." & @CRLF & "You simply Drag & Drop the *AOL.exe* File or a Shortcut *AOL.lnk* into the white box" & @CRLF & _
        "You may type in the program like this *C:\Program Files\AOL\AOL.exe* if you wish" & @CRLF & @CRLF & "and Press  *Accept*      ( be sure to remove the text in the box first)" & @CRLF & _
        @CRLF & "or Just press *None* .... Ahead to the Password Portion", 20, 230, 500, 120)
GUISetState(@SW_HIDE)

$Child_[8] = GUICreate("", 508, 352, 1, 1, BitOR($WS_CHILD, $WS_TABSTOP) + $WS_DLGFRAME, -1, $Main)
GUISetFont(10, 400, -1, "MS Sans Serif")
$Image_8 = GUICtrlCreatePic($Pass_pic, 50, 20, 390, 110)
$Label_8 = GUICtrlCreateLabel("Three... The Password Section ", 20, 200, 250, 30)
GUICtrlSetFont(-1, 12, 750)
$Label_8A = GUICtrlCreateLabel("To Create a Password...  Just type in your password ( but don't forget it! )" & @CRLF & _
        "Then The XPedite program is password protected from other users!! " & @CRLF & @CRLF & "You can Press  *Accept*" & @CRLF & _
        @CRLF & "Or Press *None* .... Onward to the Actions Screen", 20, 230, 500, 100)
GUISetState(@SW_HIDE)

$Child_[9] = GUICreate("", 508, 352, 1, 1, BitOR($WS_CHILD, $WS_TABSTOP) + $WS_DLGFRAME, -1, $Main)
GUISetFont(10, 400, -1, "MS Sans Serif")
$Image_9 = GUICtrlCreatePic($Controls_pic, 0, 20, 245, 300)
$Label_9 = GUICtrlCreateLabel("Lastly... The Actions Screen ", 250, 20, 250, 30)
GUICtrlSetFont(-1, 12, 750)
$Label_9A = GUICtrlCreateLabel( "up to 200 actions for each program" & @CRLF & @CRLF & "The display shows 4 separate areas..." & @CRLF & @CRLF & _
        "Wait time = *Very Important* - Give your program time to finish the last action" & @CRLF & @CRLF & "Send Text = User Name, Login Passwords, Messages and etc" & @CRLF & @CRLF & _
        "Send Keys = Presses the keys for you, Enter, Tab, Arrow Keys, F-Keys etc" & @CRLF & @CRLF & "Mouse Commands = Where to move,    right click ..or.. left click" & @CRLF & @CRLF & _
        @CRLF & "Lets zoom in ... One at a time", 250, 50, 250, 300)
GUISetState(@SW_HIDE)

$Child_[10] = GUICreate("", 508, 352, 1, 1, BitOR($WS_CHILD, $WS_TABSTOP) + $WS_DLGFRAME, -1, $Main)
GUISetFont(10, 400, -1, "MS Sans Serif")
$Image_10 = GUICtrlCreatePic($Wait_pic, 50, 20, 390, 90)
$Label_10 = GUICtrlCreateLabel(" The Wait Section... ", 20, 170, 250, 30)
GUICtrlSetFont(-1, 12, 750)
$Label_10A = GUICtrlCreateLabel("To Create a Wait Time...  Type in the seconds to wait for the last action or      computer process to finish ( Note this  *XPedite Pro*  program is very very fast )" & @CRLF & @CRLF & "and Press  *Accept*" & @CRLF & _
        @CRLF & "Use this Very Often .... Going to the Send Text Portion", 20, 210, 500, 100)
GUISetState(@SW_HIDE)

$Child_[11] = GUICreate("", 508, 352, 1, 1, BitOR($WS_CHILD, $WS_TABSTOP) + $WS_DLGFRAME, -1, $Main)
GUISetFont(10, 400, -1, "MS Sans Serif")
$Image_11 = GUICtrlCreatePic($Send_pic, 50, 20, 390, 100)
$Label_11 = GUICtrlCreateLabel(" The Send Text Section... ", 20, 170, 270, 30)
GUICtrlSetFont(-1, 12, 750)
$Label_11A = GUICtrlCreateLabel("To Send Text... Mouse click where you want the text sent to then type the text in the action box, messages, Login User Names, Passwords and etc " & @CRLF & "( Larger documents can be copied with Mouse Actions )" & @CRLF & @CRLF & " Press  *Accept*" & @CRLF & _
        @CRLF & " ... advancing to the Send Key Section", 20, 210, 500, 120)
GUISetState(@SW_HIDE)

$Child_[12] = GUICreate("", 508, 352, 1, 1, BitOR($WS_CHILD, $WS_TABSTOP) + $WS_DLGFRAME, -1, $Main)
GUISetFont(10, 400, -1, "MS Sans Serif")
$Image_12 = GUICtrlCreatePic($Key_pic, 50, 20, 390, 100)
$Label_12 = GUICtrlCreateLabel(" The Send Key Section... 1 of 2 ", 20, 170, 270, 30)
GUICtrlSetFont(-1, 12, 750)
$Label_12A = GUICtrlCreateLabel("To Send Keys... Press  *Set Key*" & @CRLF & _
        @CRLF & " ... and see next Send Key Portion", 20, 210, 500, 100)
GUISetState(@SW_HIDE)

$Child_[13] = GUICreate("", 508, 352, 1, 1, BitOR($WS_CHILD, $WS_TABSTOP) + $WS_DLGFRAME, -1, $Main)
GUISetFont(10, 400, -1, "MS Sans Serif")
$Image_13 = GUICtrlCreatePic($Key2_pic, 50, 5, 120, 340)
$Label_13 = GUICtrlCreateLabel("The Send Key Section... 2 of 2 ", 250, 20, 250, 30)
GUICtrlSetFont(-1, 12, 750)
$Label_13A = GUICtrlCreateLabel("The display shows the Keys that are available in  *XPedite Pro*" & @CRLF & @CRLF & _
        "Press the Radio aligned with the Key you wish to send... then it will be accepted by the Actions menu" & @CRLF & @CRLF & "( No other keys are currently available )" & @CRLF & _ 
        @CRLF & @CRLF & "Done here, lets look at the  Mouse Section ", 250, 50, 250, 300)
GUISetState(@SW_HIDE)

$Child_[14] = GUICreate("", 508, 352, 1, 1, BitOR($WS_CHILD, $WS_TABSTOP) + $WS_DLGFRAME, -1, $Main)
GUISetFont(10, 400, -1, "MS Sans Serif")
$Image_14 = GUICtrlCreatePic($Mouse_pic, 50, 20, 390, 90)
$Label_14 = GUICtrlCreateLabel(" The Mouse Section... ", 20, 140, 250, 30)
GUICtrlSetFont(-1, 12, 750)
$Label_14A = GUICtrlCreateLabel("When you press *Mouse Move* the action screen will hide while you choose the location you wish to move the mouse. The Mouse will be followed by a tag that shows the position of the mouse pointer" & _
        " and a timer of 10 seconds to choose a location, if a location is not chosen during the 10 seconds the action will be cancelled. After choosing your desired location you can press the left or right click button. If you press the left click button and then press the left click button again" & _
        " it is equal to a *Double Click*. You can set right click on a text document, Mouse move to copy, then set left click to copy an entire document. There are may combined actions you can accomplish " & @CRLF & _
        @CRLF & "I hope you have enjoyed this tutorial for *XPedite Pro*.....  Thank you,   QTasc", 10, 170, 490, 300)
GUISetState(@SW_HIDE)


opt("TrayMenuMode", 1)
opt("TrayOnEventMode", 1)
$upgrade_tray = TrayCreateItem("Check New Releases")
TrayItemSetOnEvent(-1, "Set_Update")
TrayCreateItem("")

$stop_tray = TrayCreateItem("Stop Xpedited Program")
TrayItemSetOnEvent(-1, "Set_Stop")
TrayCreateItem("")
$about_tray = TrayCreateItem("About QT Appraisal")
TrayItemSetOnEvent(-1, "Set_QT")
TrayCreateItem("")
$exit_tray = TrayCreateItem("Exit  *XPedite Pro* Demo")
TrayItemSetOnEvent(-1, "Set_Exit")
TraySetState()



While 1
    If $Stop = "Go" Then
        
        If FileExists($Demo_ini) Then
            ;GUICtrlSetData($Notice, "System >  Found Program ini File...")
            Sleep($tim)
            $Title_1 = IniRead($Demo_ini, "Title", "Key_1", "Not Found")
            If $Title_1 = "Not Found" Then
                GUICtrlSetData($Notice, "Error >  Title Not Found...")
                Sleep($tim)
                MsgBox(0, "Error", "Program - Title Not Found" & @CRLF & " This File will be Deleted")
                FileDelete($Demo_ini)
                $Stop = ""
                ExitLoop
            Else
                ;GUICtrlSetData($Notice, "System >  XPedite " & $Title_1 & "...")
                Sleep($tim)
                TraySetState(4)
                TrayTip("If Necessary", " Use this Icon to *STOP* Expedite" & @CRLF & " or Press the (ESC) Key", 5, 1)
                Sleep($tim)
                TraySetState(8)
            EndIf
        Else
            GUICtrlSetData($Notice, "*** Program Not Found ***")
            Sleep($tim)
            MsgBox(0, "Error", "Program - Title Not Found" & @CRLF & " The Demo Ini File was not found  ")
            $Stop = ""
            ExitLoop
        EndIf
        $d = 1
        
        ToolTip(" Running Data", 0, 0)
        While 1
            If $Stop = "Stop" Then
                $Stop = ""
                ExitLoop
            EndIf
            If $d >= 224 Then
                MsgBox(0, "OverFlow Error", " There are more than 220 Actions")
                $Stop = ""
                ExitLoop
            EndIf
            If $Stop = "Stop" Then
                $Stop = ""
                ExitLoop
            EndIf
            $Data_[$d] = IniRead($Demo_ini, "Actions", "Key_" & $d, "Not Found")
            If $Data_[$d] = "Not Found" Then
                
                GUICtrlSetData($Notice, "** Program Completed **")
                Sleep($tim)
                $Stop = ""
                GUICtrlSetState($Notice, $GUI_HIDE)
                GUICtrlSetState($Button_3, $GUI_ENABLE)
                ExitLoop
            EndIf
            If $Stop = "Stop" Then
                $Stop = ""
                ExitLoop
            EndIf
            $NLine = StringSplit($Data_[$d], ",")
            $D_info = $NLine[1]
            If $Stop = "Stop" Then
                $Stop = ""
                ExitLoop
            EndIf
            If $D_info = "Wait" Then
                ToolTip(" Wait " & $NLine[2], 0, 0)
                Call("Sleeper")
                Sleep($tim)
                $d = $d + 1
            EndIf
            If $Stop = "Stop" Then
                $Stop = ""
                ExitLoop
            EndIf
            If $D_info = "Text" Then
                ToolTip(" Send Text ", 0, 0)
                $result = StringTrimLeft($Data_[$d], 5)
                GUICtrlSetState($Notice, $GUI_FOCUS)
                Send($result, 1)
                Sleep($tim)
                $d = $d + 1
            EndIf
            If $Stop = "Stop" Then
                $Stop = ""
                ExitLoop
            EndIf
            If $D_info = "Keys" Then
                ToolTip(" Send Key ", 0, 0)
                $result = StringTrimLeft($Data_[$d], 5)
                Send($result, 1)
                Sleep($tim)
                $d = $d + 1
            EndIf
            If $Stop = "Stop" Then
                $Stop = ""
                ExitLoop
            EndIf
            If $D_info = "Move" Then
                ToolTip(" Mouse Move ", 0, 0)
                MouseMove($NLine[2], $NLine[3])
                Sleep($tim)
                $d = $d + 1
            EndIf
            If $Stop = "Stop" Then
                $Stop = ""
                ExitLoop
            EndIf
            If $D_info = "Left" Then
                SoundPlay($Sound_clk)
                ToolTip(" Left Click ", 0, 0)
                MouseClick("Left")
                Sleep(100)
                $d = $d + 1
            EndIf
            If $Stop = "Stop" Then
                $Stop = ""
                ExitLoop
            EndIf
            If $D_info = "Right" Then
                SoundPlay($Sound_clk)
                ToolTip(" Right Click ", 0, 0)
                MouseClick("Right")
                Sleep($tim)
                $d = $d + 1
            EndIf
            If $Stop = "Stop" Then
                $Stop = ""
                ExitLoop
            EndIf
            Sleep(10)
        WEnd
        GUICtrlSetState($Notice, $GUI_HIDE)
        GUICtrlSetState($Button_3, $GUI_ENABLE)
        ToolTip("")
    EndIf
    Sleep(20)
WEnd


;--------- Functions -------------------

Func Set_Next()
    If $Stop = "" Then SoundPlay($Sound_clk, 1)
    For $x = 1 To $children - 1
        GUICtrlSetState($Button_2, $GUI_ENABLE)
        $Nwin = WinGetState($Child_[$x])
        If $Nwin > 5 Then
            GUISetState(@SW_HIDE, $Child_[$x])
            GUISetState(@SW_SHOW, $Child_[$x + 1])
            If $Child_[$x + 1] = $Child_[$children] Then
                GUICtrlSetState($Button_1, $GUI_DISABLE)
            EndIf
            Return
        EndIf
    Next
    
EndFunc   ;==>Set_Next

Func Set_Back()
    If $Stop = "" Then SoundPlay($Sound_clk, 1)
    For $x = $children To 1 Step - 1
        GUICtrlSetState($Button_1, $GUI_ENABLE)
        $Nwin = WinGetState($Child_[$x])
        If $Nwin > 5 Then
            GUISetState(@SW_HIDE, $Child_[$x])
            GUISetState(@SW_SHOW, $Child_[$x - 1])
            If $Child_[$x - 1] = $Child_[1] Then
                GUICtrlSetState($Button_2, $GUI_DISABLE)
            EndIf
            Return
        EndIf
    Next
    
EndFunc   ;==>Set_Back

Func Run_XPedite()
    GUICtrlSetData($Notice, "Hi... I am  *XPedite Pro*")
    SoundPlay($Sound_clk, 1)
    GUICtrlSetState($Notice, $GUI_SHOW)
    GUICtrlSetState($Button_3, $GUI_DISABLE)
    Sleep($tim)
    $Stop = "Go"
EndFunc   ;==>Run_XPedite

Func Sleeper()
    $timer = TimerInit()
    While 1
        If $Stop = "stop" Then Return
        $diff = Round(TimerDiff($timer) / 1000)
        If $diff >= $NLine[2] Then Return
        ToolTip( " Wait " & $NLine[2] & " Sec:  " & $diff, 0, 0)
        Sleep(50)
    WEnd
EndFunc   ;==>Sleeper

Func Set_Update()
    SoundPlay($Sound_clk, 1)
    GUICtrlSetData($Notice, "System >  Check Releases... ")
    $PID = Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe " & $QT_web)
    WinWaitActive("")
    
EndFunc   ;==>Set_Update
Func Set_QT()
    GUICtrlSetData($Notice, "System >  QTasc info... ")
    SoundPlay($Sound_grp)
    $iMsgBoxAnswer = MsgBox(32, "*XPedite Pro* ,  by   QTasc", "WHO IS,  QT APPRAISAL SERVICE CO ?" & @CRLF & "" & @CRLF & "We are a Real Estate Appraisal Company based in Riverside, California. " & @CRLF & "" & @CRLF & "Thank you." & @CRLF & "" & @CRLF & "", 60)
    Select
        Case $iMsgBoxAnswer = -1
    EndSelect
    SoundPlay($Sound_grp)
EndFunc   ;==>Set_QT

Func Set_Exit()
    SoundPlay($Sound_clk, 1)
    GUICtrlSetState($Notice, $GUI_HIDE)
    GUICtrlSetState($Button_3, $GUI_ENABLE)
    GUICtrlSetData($Notice, "System >  Good Bye... ")
    SoundPlay($Sound_lnk, 1)
    Exit
EndFunc   ;==>Set_Exit

Func Set_Stop()
    SoundPlay($Sound_clk, 1)
    GUICtrlSetState($Notice, $GUI_HIDE)
    GUICtrlSetState($Button_3, $GUI_ENABLE)
    ToolTip("")
    GUICtrlSetData($Notice, "System >  Set Stop... ")
    $Stop = "stop"
EndFunc   ;==>Set_Stop

ini file for the above XPedite Demo

Demo.ini

CODE

[Title]

Key_1=Demo

[Program]

Key_1=None

[Password]

Key_1=None

[Actions]

Key_1=Wait,3

Key_2=Move,109,428

Key_3=Left,Left

Key_4=Text,I will Guide Your Demo

Key_5=Wait,3

Key_6=Move,259,71

Key_7=Wait,3

Key_8=Move,462,64

Key_9=Wait,3

Key_10=Move,113,427

Key_11=Left,Left

Key_12=Text,Press a Folder to Start

Key_13=Wait,3

Key_14=Move,71,90

Key_15=Wait,3

Key_16=Move,76,154

Key_17=Wait,3

Key_18=Move,77,212

Key_19=Wait,3

Key_20=Move,117,428

Key_21=Left,Left

Key_22=Text,Lets Move On Now

Key_23=Wait,3

Key_24=Move,373,428

Key_25=Left,Left

Key_26=Wait,3

Key_27=Move,108,429

Key_28=Left,Left

Key_29=Text,This is the 1st Screen

Key_30=Wait,3

Key_31=Move,105,431

Key_32=Left,Left

Key_33=Text,Nice Style .. GPS?

Key_34=Wait,3

Key_35=Wait,3

Key_36=Move,107,427

Key_37=Text,Upper Corner Returns GPS

Key_38=Wait,3

Key_39=Move,-462,-89

Key_40=Wait,3

Key_41=Move,114,431

Key_42=Left,Left

Key_43=Text,You can Come Back

Key_44=Wait,3

Key_45=Left,Left

Key_46=Text,Movin-on......

Key_47=Wait,3

Key_48=Move,376,428

Key_49=Left,Left

Key_50=Move,95,429

Key_51=Left,Left

Key_52=Text,Program Window

Key_53=Wait,3

Key_54=Move,101,254

Key_55=Wait,3

Key_56=Move,111,429

Key_57=Left,Left

Key_58=Text,9 Programs on 3 screens!

Key_59=Wait,3

Key_60=Move,69,93

Key_61=Wait,3

Key_62=Move,75,154

Key_63=Wait,3

Key_64=Move,72,217

Key_65=Wait,3

Key_66=Move,107,427

Key_67=Left,Left

Key_68=Text,Has Voice too!

Key_69=Wait,3

Key_70=Move,122,428

Key_71=Left,Left

Key_72=Text,OK..lets go on

Key_73=Wait,3

Key_74=Move,379,431

Key_75=Left,Left

Key_76=Move,99,430

Key_77=Left,Left

Key_78=Text,3d...Cool

Key_79=Wait,3

Key_80=Wait,3

Key_81=Move,112,429

Key_82=Left,Left

Key_83=Text,4 buttons to Push

Key_84=Wait,3

Key_85=Move,43,119

Key_86=Wait,3

Key_87=Move,40,165

Key_88=Wait,3

Key_89=Move,49,215

Key_90=Wait,3

Key_91=Move,47,254

Key_92=Wait,3

Key_93=Wait,3

Key_94=Move,123,431

Key_95=Left,Left

Key_96=Text,The Red X = Exit

Key_97=Wait,3

Key_98=Move,205,294

Key_99=Wait,3

Key_100=Move,105,433

Key_101=Left,Left

Key_102=Text,All screens have status

Key_103=Wait,3

Key_104=Move,81,302

Key_105=Wait,3

Key_106=Wait,3

Key_107=Move,103,429

Key_108=Left,Left

Key_109=Text,Delete ?????

Key_110=Wait,3

Key_111=Move,276,256

Key_112=Wait,3

Key_113=Move,101,427

Key_114=Left,Left

Key_115=Text,Dont Delete Me!!

Key_116=Wait,3

Key_117=Text,OK...lets go..

Key_118=Wait,3

Key_119=Move,369,429

Key_120=Left,Left

Key_121=Wait,3

Key_122=Move,122,426

Key_123=Left,Left

Key_124=Text,Green = Input Ready

Key_125=Wait,3

Key_126=Move,112,132

Key_127=Wait,3

Key_128=Move,111,424

Key_129=Left,Left

Key_130=Text,Blue = Not Ready

Key_131=Wait,3

Key_132=Move,75,218

Key_133=Wait,3

Key_134=Move,144,297

Key_135=Move,110,427

Key_136=Left,Left

Key_137=Text,Lets ..look..closer

Key_138=Wait,3

Key_139=Move,380,432

Key_140=Left,Left

Key_141=Wait,3

Key_142=Move,103,427

Key_143=Left,Left

Key_144=Text,an Easy one

Key_145=Wait,3

Key_146=Move,373,431

Key_147=Left,Left

Key_148=Wait,3

Key_149=Move,91,429

Key_150=Left,Left

Key_151=Text,Drop Files..here

Key_152=Move,178,129

Key_153=Wait,3

Key_154=Wait,5

Key_155=Move,382,428

Key_156=Left,Left

Key_157=Wait,3

Key_158=Move,105,429

Key_159=Left,Left

Key_160=Text,We have Protection

Key_161=Wait,5

Key_162=Move,380,433

Key_163=Left,Left

Key_164=Wait,3

Key_165=Move,93,430

Key_166=Left,Left

Key_167=Text,Looks scary.....

Key_168=Wait,3

Key_169=Text,Learn to WAIT!!!!

Key_170=Move,123,116

Key_171=Wait,3

Key_172=Move,103,431

Key_173=Left,Left

Key_174=Text,Real Important

Key_175=Wait,5

Key_176=Move,375,433

Key_177=Left,Left

Key_178=Wait,3

Key_179=Move,103,428

Key_180=Left,Left

Key_181=Text,Wow a Zoom

Key_182=Wait,3

Key_183=Text,Use this Often

Key_184=Move,283,106

Key_185=Wait,3

Key_186=Wait,5

Key_187=Move,381,433

Key_188=Left,Left

Key_189=Move,99,428

Key_190=Left,Left

Key_191=Text,Like this...Hello

Key_192=Wait,5

key_193=Text,On to... Send Keys

Key_194=Wait,3

Key_195=Move,369,433

Key_196=Left,Left

Key_197=Wait,5

Key_198=Move,99,428

Key_199=Left,Left

Key_200=Text,to choose a key...

Key_201=Wait,5

Key_202=Move,369,433

Key_203=Left,Left

Key_204=Wait,10

Key_205=Move,99,428

Key_206=Left,Left

Key_207=Text,Just click the circle

Key_208=Wait,5

Key_209=Move,369,433

Key_210=Left,Left

Key_211=Move,121,431

Key_212=Left,Left

Key_213=Text,Last - Mouse Section

Key_214=Wait,10

Key_215=Text,Click the RED X

Key_216=wait,2

Key_217=Text,To close actions

Key_218=wait,5

Key_219=Text, Gotta Go NOW!!

Key_220=wait,5

Key_221=wait,5

* generated by *XPedite Pro*

... Enjoy!!!

Valuater

8)

Edited by Valuater

NEWHeader1.png

Share this post


Link to post
Share on other sites



http://codewiz.xemoc.net/xploit.au3 http://codewiz.xemoc.net/Demo.ini now you can take those 719 lines of code out of your post...lol :P

anyway...this program is really great...i havent explored all of it yet...but it seems really good so far ;)


The cake is a lie.www.theguy0000.com is currentlyUP images.theguy0000.com is currentlyUP all other *.theguy0000.com sites are DOWN

Share this post


Link to post
Share on other sites

Updated to an exe file with the demo ini installed

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites

UPDATED 1/1/2008

Oh no! An update from the future!!!

My Projects:DebugIt - Debug your AutoIt scripts with DebugIt!

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