Jump to content

Message sniffer


getmo96
 Share

Recommended Posts

I have built the backend of my program already which logs into my Oracle E-Business account. I now need a solution for the front end. I need the program to watch new imcoming messages for the terms ATCA and Minor. If these to terms are used, I then will have the back end kick in and log into oracle and move the new unassigned ticket to my bin.

The purpose this servers, I have some co workers who are watching thier blackberries and as soon as a ticket hits they log into orcale and assign themselves the tickets leaving me with no work load. The program will hopefully beat them to the punch and I dont have to sit and click refresh waiting for a new ticket to open.

_________________ Here is my backend _________________________________

#include <IE.au3>

_IEErrorHandlerRegister()

AutoItSetOption("SendKeyDelay", 400)

$oIE = _IECreate ("http://dl2k23.milf.com:8000/OA_HTML/AppsLocalLogin.jsp")

Send("username")

Send("{TAB}")

Send("password")

Send("{TAB}{ENTER}")

Sleep(100)

Send("{ENTER}")

Opt("WinWaitDelay",100)

Opt("WinTitleMatchMode",4)

Opt("WinDetectHiddenText",1)

Opt("MouseCoordMode",0)

WinWait("http://dl2k23.milf.com:8000/pls/ORAP/OracleMyPage.home - Microsoft Internet Explorer provided by Motorola","")

If Not WinActive("http://dl2k23.milf.com:8000/pls/ORAP/OracleMyPage.home - Microsoft Internet Explorer provided by Motorola","") Then WinActivate("http://dl2k23.milf.com:8000/pls/ORAP/OracleMyPage.home - Microsoft Internet Explorer provided by Motorola","")

WinWaitActive("http://dl2k23.milf.com:8000/pls/ORAP/OracleMyPage.home - Microsoft Internet Explorer provided by Motorola","")

MouseMove(351,239)

MouseDown("left")

MouseUp("left")

Send("{TAB}{TAB}{TAB}{TAB}{ENTER}")

Sleep(500)

Opt("WinWaitDelay",100)

Opt("WinTitleMatchMode",4)

Opt("WinDetectHiddenText",1)

Opt("MouseCoordMode",0)

WinWait("Oracle Applications 11i - Microsoft Internet Explorer provided by Motorola","")

If Not WinActive("Oracle Applications 11i - Microsoft Internet Explorer provided by Motorola","") Then WinActivate("Oracle Applications 11i - Microsoft Internet Explorer provided by Motorola","")

WinWaitActive("Oracle Applications 11i - Microsoft Internet Explorer provided by Motorola","")

Sleep(500)

WinWait("Oracle Applications - Oracle Production Instance","")

If Not WinActive("Oracle Applications - Oracle Production Instance","") Then WinActivate("Oracle Applications - Oracle Production Instance","")

WinWaitActive("Oracle Applications - Oracle Production Instance","")

Sleep(500)

Opt("WinWaitDelay",100)

Opt("WinTitleMatchMode",4)

Opt("WinDetectHiddenText",1)

Opt("MouseCoordMode",0)

WinWait("Oracle Applications - Oracle Production Instance","")

If Not WinActive("Oracle Applications - Oracle Production Instance","") Then WinActivate("Oracle Applications - Oracle Production Instance","")

WinWaitActive("Oracle Applications - Oracle Production Instance","")

Sleep(2000)

MouseMove(214,281)

MouseDown("left")

MouseUp("left")

Sleep(1000)

Send("{ENTER}")

Opt("WinWaitDelay",100)

Opt("WinTitleMatchMode",4)

Opt("WinDetectHiddenText",1)

Opt("MouseCoordMode",0)

WinWait("Oracle Applications - Oracle Production Instance","")

If Not WinActive("Oracle Applications - Oracle Production Instance","") Then WinActivate("Oracle Applications - Oracle Production Instance","")

WinWaitActive("Oracle Applications - Oracle Production Instance","")

Sleep(2000)

MouseMove(131,231)

MouseDown("left")

MouseUp("left")

Sleep(2000)

MouseMove(582,122)

MouseDown("left")

MouseUp("left")

Sleep(2000)

MouseMove(581,122)

MouseDown("left")

MouseUp("left")

Edited by getmo96
Link to comment
Share on other sites

  • 2 weeks later...

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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...