|
REM ÏÔʽµØÉùÃ÷ËùÓбäÁ¿
Option Explicit
REM ¶¨Òå±äÁ¿
Dim wshell
Dim MyArray
Dim DeviceReplay
REM ´´½¨WSH¶ÔÏó
Set wshell = CreateObject("Wscript.Shell")
REM ´´½¨DeviceReplay¶ÔÏó
Set DeviceReplay = CreateObject("Mercury.DeviceReplay")
REM ´ÓÊý¾ÝÇý¶¯±íÖжÁÈ¡Õ˺ÅÃÜÂ룬´æÔÚÊý×éMyArrayÖÐ
MyArray = DataDirveReadExcel("\\tat01\QTPScript\DataDirve.xlsx","UserInformation")
REM Æô¶¯ÉÁ±àϵͳ£¬²¢µÇ¼¡£
Call LoginFlashEditor(MyArray(3,1),MyArray(3,2))
REM ´ò¿ªÊ×Ìõ¼Ç¼(µ÷Óô˷½·¨Ê±ÐèҪȷ¶¨ÈÎÎñÑ¡Ôñ¶Ô»°ºÐÊÇ´ò¿ªµÄ)
Call OpenFirstReCord()
wait 1
REM µã»÷²¥·ÅÆ÷Öеġ°ÇÐÓÐÓá±Éú³ÉƬ¶ÎÁбí
SwfWindow("²¥·ÅÆ÷Ä£¿é").SwfWindow("¹¤¾ßÀ¸").SwfObject("ÇÐÓÐÓÃ").Click
wait 1
REM µã»÷²¥·ÅÆ÷Öеġ°ÇÐÓÐÓá±Éú³ÉƬ¶ÎÁбí
SwfWindow("²¥·ÅÆ÷Ä£¿é").SwfWindow("¹¤¾ßÀ¸").SwfObject("ÇÐÓÐÓÃ").Click
wait 1
REM µã»÷²¥·ÅÆ÷Öеġ°ÇÐÓÐÓá±Éú³ÉƬ¶ÎÁбí
SwfWindow("²¥·ÅÆ÷Ä£¿é").SwfWindow("¹¤¾ßÀ¸").SwfObject("ÇÐÓÐÓÃ").Click
wait 1
REM µã»÷²¥·ÅÆ÷Öеġ°ÇÐÓÐÓá±Éú³ÉƬ¶ÎÁбí
SwfWindow("²¥·ÅÆ÷Ä£¿é").SwfWindow("¹¤¾ßÀ¸").SwfObject("ÇÐÎÞÓÃ").Click
wait 1
REM µã»÷²¥·ÅÆ÷Öеġ°ÇÐÓÐÓá±Éú³ÉƬ¶ÎÁбí
SwfWindow("²¥·ÅÆ÷Ä£¿é").SwfWindow("¹¤¾ßÀ¸").SwfObject("ÇÐÓÐÓÃ").Click
wait 1
REM µã»÷²¥·ÅÆ÷Öеġ°ÇÐÓÐÓá±Éú³ÉƬ¶ÎÁбí
SwfWindow("²¥·ÅÆ÷Ä£¿é").SwfWindow("¹¤¾ßÀ¸").SwfObject("ÇÐÎÞÓÃ").Click
wait 1
REM Õ¹¿ªÖ¸¶¨ÐÐËùÔÚµÄÐм¯ºÏ
SwfWindow("Ƭ¶ÎÄ£¿é").SwfTable("Ƭ¶ÎÁбí").SetView ""
REM Ñ¡ÔñƬ¶ÎÁбíÖеÄÊ׸öµ¥Ôª¸ñ(´Ë²½²Ù×÷¿Éʹ½¹µãÇе½¡°Æ¬¶ÎÁÐ±í¡±ÖÐ)
SwfWindow("Ƭ¶ÎÄ£¿é").SwfTable("Ƭ¶ÎÁбí").SelectCell 0,"Ñ¡Ôñ"
REM¡ËùÓÐƬ¶Î
wshell.SendKeys "^a"
REM ÑéÖ¤¡°¸÷×ÔÉú³É³ÉÆ·¡±°´Å¥
Call VerProperty(SwfWindow("Ƭ¶ÎÄ£¿é").SwfObject("¸÷×ÔÉú³É³ÉÆ·"),"enabled","True","ÑéÖ¤¸÷×ÔÉú³É³ÉÆ·°´Å¥")
REM ¸÷×ÔÉú³É³ÉÆ·
SwfWindow("Ƭ¶ÎÄ£¿é").SwfObject("¸÷×ÔÉú³É³ÉÆ·").Click
wait 1
REM¼¤»îһϡ°³ÉÆ·Ä£¿é¡±
SwfWindow("³ÉÆ·Ä£¿é").SwfObject("³ÉÆ·Ä£¿é").Click
wait 1
REM¡ËùÓгÉÆ·
wshell.SendKeys "^a"
REM ÊÍ·Å´´½¨µÄ¶ÔÏó
Set wshell = nothing
Set DeviceReplay = nothing |
|