Sign in to follow this  
Followers 0
Janus

Cant get "Send" to work on Laptops

1 post in this topic

Hay

I am trying to make a small app. to make life my day. It is working fine on my Desktop but on the Laptop it is not working. The program halts when the "Send" command is fired

The scrips is

CODE

include <IE.au3>

#include <Date.au3>

$begin = TimerInit()

$var = Ping("mak",250)

If $var Then; also possible: If @error = 0 Then ...

;ToolTip("Der oprettes en fejlsag i ScanLog", 100, 20,"Fejlsag i Scanlog",0,2)

TrayTip("Starter ScanLog Tid : "&Round((TimerDiff($begin))/1000,0),1,1)

SplashTextOn("Opret fejlsag i ScanLog", "Denne macro opretter en sag i ScanLog"<A href="mailto:&@CRLF&"Rør">&@CRLF&"Rør ikke musen og tastaturet imens"<A href="mailto:&@CRLF&"Forventet">&@CRLF&"Forventet afviklings tid: Ca. 30 sekunder"<A href="mailto:&@CRLF&"Se">&@CRLF&"Se info nedenfor til højre", 700, 300, -1, -1, 4, "", 24)

$oIE = _IECreate("http://mak/scanlog/")

TrayTip("Starter ScanLog Tid : "&Round((TimerDiff($begin))/1000,0),1,1)

WinSetState("Scan·Jour Captia", "", @SW_MAXIMIZE)

#region --- ScriptWriter generated code Start ---

Opt("WinWaitDelay",300)

Opt("WinTitleMatchMode",2)

Opt("WinDetectHiddenText",0)

Opt("MouseCoordMode",0)

Opt("SendKeyDelay", 1000) ;5 milliseconds

Opt("SendKeyDownDelay", 200) ;1 millisecond

WinWait("Scan·Jour Captia - mak/scanlog/Default.asp - Windows Internet Explorer","Favorites Command Ba")

If Not WinActive("Scan·Jour Captia - mak/scanlog/Default.asp - Windows Internet Explorer","Favorites Command Ba") Then WinActivate("Scan·Jour Captia - mak/scanlog/Default.asp - Windows Internet Explorer","Favorites Command Ba")

WinWaitActive("Scan·Jour Captia - mak/scanlog/Default.asp - Windows Internet Explorer","Favorites Command Ba")

SplashOff()

Sleep(1500)

;MouseDown("left")

;MouseUp("left")

TrayTip("Åbner opret sag Menupunkt Fejlsag Ctrl+Shift Tid : "&Round((TimerDiff($begin))/1000,0),2,1)

Sleep(500)

Send("{CTRLDOWN}{SHIFTDOWN}{CTRLUP}{SHIFTUP}{DOWN}{ENTER}")

TrayTip("Henter fejlsags siden Tid : "&Round((TimerDiff($begin))/1000,0),3,1)

I hope you can help my!

Best Regard

Janus Denmark

:whistle:

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