script.mts

这是一计算器,自己看了就知道,是很有帮助的哦,先不说这么多了,看了你就知道了

Dim conn 
Dim rst
Dim iRowCount
Const strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\课程试验\计算器database\testdata.mdb;Persist Security Info=False"

SystemUtil.Run "c:\winnt\system32\calc.exe"

Set conn=createobject("Adodb.Connection")
Set rst=CreateObject("Adodb.RecordSet")

conn.open strConn
rst.Open "Select * from TestData",conn
rst.MoveFirst
While not rst.EOF
	TestNumberOne = rst.Fields(0).value
     TestNumberTwo=rst.Fields(1).value

      Window("计算器").Activate
       Window("计算器").WinButton(TestNumberOne).Click @@ hightlight id_;_656694_;_script infofile_;_ZIP::ssf2.xml_;_
       Window("计算器").WinButton("add").Click @@ hightlight id_;_263540_;_script infofile_;_ZIP::ssf3.xml_;_
       Window("计算器").WinButton(TestNumberTwo).Click @@ hightlight id_;_591170_;_script infofile_;_ZIP::ssf4.xml_;_
       Window("计算器").WinButton("equal").Click @@ hightlight id_;_263526_;_script infofile_;_ZIP::ssf5.xml_;_
       rst.MoveNext
Wend

rst.Close
conn.close
Set rst=nothing
Set conn=nothing



    
        



   
  








 @@ hightlight id_;_722256_;_script infofile_;_ZIP::ssf1.xml_;_