WR代码交流贴

hihihaha910 · 发表于 2005-8-13 09:32:56

学习了WR一段时间了，再来看这些贴，真是受益非浅

kai_top · 发表于 2005-8-18 14:55:23

呵呵，看了生如火花的代码，在实践中学以致用，嘿嘿
＃以下是我的实际运用，主要功能是：随机生成500个大于1000小于2000的数值,如果在这些数值生成过程中，生成重复数值，此时如果系统弹出错误窗口，代码就进行错误数统计,并且直接关闭这个窗口,然后继续生成数值；（这段代码可以用在登录窗口（如暴力**），可以用在自动生成对象名称等）呵呵，代码很简单；
public function random(k,n)
{
n=((k-1)*rand()+1000);
return(n);
}
for(i=1;i<=500;i++)
{
num=num+1
m=random(1000,n);
wait(1s);
if(win_exist("error_win_name")==E_OK)
{set_window("error_win_name",time);
static_get_text("lable_name",text);
tl_step("error_message",1,"error.content is "text";time is "num".");
button_press("button_name");
set_window("win_name",time);
}
else
{
set_window("win_name",time);
}
-

[ Last edited by kai_top on 2005-9-20 at 01:18 ]

kai_top · 发表于 2005-8-18 15:04:19

modify

[ Last edited by kai_top on 2005-9-20 at 01:15 ]

kelly651 · 发表于 2005-8-22 15:21:06

好人啊.受益非浅呀...

kelly651 · 发表于 2005-8-25 14:26:12

好人啊....继续啊

xyuan007 · 发表于 2005-12-7 16:33:06

我也贴一个，读取xml文件并更新若干结点信息后保存到另一文件！
#¶ÁÈ¡xml1302ÎÄ¼þ£¬²¢½«ÏàÓ¦ÐÅÏ¢¸üÐÂ
public function file1302read(in filepath,in mysoid,in mysid)
{

#´ò¿ª1302ÎÄ¼þ
auto filename = filepath & "1302.xml";
auto filename1;

auto xml[];
auto i = 0;
auto j = 0;
auto line;
auto xyuan;
auto pos;

auto res = file_open(filename,0);

if(res != E_OK)
{
printf("file 1302 open error!");
}

#´ÓÎÄ¼þÖÐ¶Á³öÄÚÈÝ²¢Ð´ÈëÊý×é
while(file_getline(filename,line) == 0)
{
xml[i] = line;
i++;
}

file_close(filename);

#¸üÐÂRequestID
for(j = 0; j < i; j++)
{
xyuan = xml[j];

if( index(xyuan,"<RequestId>") > 0 )
{
pos = index(xyuan,"<RequestId>");
xyuan = substr(xyuan,1,pos+10) & "front_" & get_time() & "</RequestId>";
xml[j] = xyuan;
break;
}
}

#¸üÐÂServiceOrderID
for(j = 0; j < i; j++)
{
xyuan = xml[j];

if( index(xyuan,"<ServiceOrderId>") > 0 )
{
pos = index(xyuan,"<ServiceOrderId>");
xyuan = substr(xyuan,1,pos+15) & mysoid & "</ServiceOrderId>";
xml[j] = xyuan;
break;
}
}

#¸üÐÂServiceID
for(j = 0; j < i; j++)
{
xyuan = xml[j];

if( index(xyuan,"<ServiceId>") > 0 )
{
pos = index(xyuan,"<ServiceId>");
xyuan = substr(xyuan,1,pos+10) & mysid & "</ServiceId>";
xml[j] = xyuan;
break;
}
}

#´ò¿ªÎÄ¼þ²¢Ð´ÈëÒÑ¸üÐÂµÄÄÚÈÝ
filename1 = filepath & "13021.xml";
res = file_open(filename1,1);

if(res != E_OK)
{
tl_step("file 1302 write open",1,"file open error!");
}

for(j = 0; j < i; j++)
{
file_printf(filename1,xml[j],j+1);
}

file_close(filename1);
}

yangbinyan0216 · 发表于 2006-3-23 19:55:52

谢谢，都是好人啊,受益非浅

chl6018 · 发表于 2006-3-29 16:44:03

# part 1 ¹¦ÄÜ¿ª¹Ø²¿·Ö
# ·ï»ËÉ½
set_window ("·ï»ËÉ½", 2);
i=0;
count=0;
times=5;
while(i<times)
{
#Ëæ»ú²úÉú½øÐÐÏÂÒ»´Î¿ª¹Ø²Ù×÷µÈ´ýµÄÊ±¼ä
x=int(rand()*5)+5;
#Ëæ»ú²úÉú½øÐÐÏÂÒ»´Î¿ª¹Ø²Ù×÷µÄÉè±¸
y=int(rand()*9)+1;
#pause(x);
#pause(y);
wait(x);
set_window ("·ï»ËÉ½", 2);
button_press("vir_button"&y);
count=count+1;
wait(0.5);

if (win_exists("ÌáÊ¾ÐÅÏ¢")==E_OK)
{
set_window ("ÌáÊ¾ÐÅÏ¢", 1);
button_press ("È·¶¨");

wait(2);
if (win_exists("Afx:400000:0:10011:110005f:0")==E_OK)
{
win_get_text("Afx:400000:0:10011:110005f:0", text);
text=substr(text,1,4);
time=time_str(get_time());

if (text=="¿ØÖÆÉè±¸")
{
report_msg(time&"¹Ø±ÕµÚ"&y&"Â·Éè±¸³É¹¦");
#pause(text);
}
else
{
if (text=="ÍøÂç¹ÊÕÏ")
{
report_msg(time&"·þÎñ³ÌÐòËÀÁË»òÍøÂç¶Ï¿ª");
report_msg(text);
break;
}
else
{
report_msg(time&"³ÌÐò³öÏÖÒì³£");
report_msg(text);
#pause(text);
break;
}
}
}

}

else
{

wait(2);
if (win_exists("Afx:400000:0:10011:110005f:0")==E_OK)
{
win_get_text("Afx:400000:0:10011:110005f:0", text);
text=substr(text,1,4);
time=time_str(get_time());
if (text=="¿ØÖÆÉè±¸")
{
report_msg(time&"´ò¿ªµÚ"&y&"Â·Éè±¸³É¹¦");
#pause(text);
}

else
{
if (text=="ÍøÂç¹ÊÕÏ")
{
report_msg(time&"·þÎñ³ÌÐòËÀÁË»òÍøÂç¶Ï¿ª");
report_msg(text);
break;
}
else
{
report_msg(time&"³ÌÐò³öÏÖÒì³£");
report_msg(text);
#pause(text);
break;
}
}
}

}

wait(5);
time=time_str(get_time());
if (win_exists("ÌáÊ¾ÐÅÏ¢!")==E_OK)
{
report_msg(time&"·þÎñ³ÌÐòËÀÁË»òÍøÂç¶Ï¿ª");
break;
}
#Èç¹û¶ÔËùÓÐµÄÉè±¸½øÐÐ¿ª¹Ø²Ù×÷µÄ»°ÑÓÊ±15Ãë£¬µ¥¸öÉè±¸²»ÔÚÑÓÊ±*/
if(y==10)
{
wait(10);
}

i++;
}
report_msg("set control"&times&"times");
report_msg("total control"&count&"times");
#win_close("·ï»ËÉ½");

#part II ÏµÍ³ÆäËû¹¦ÄÜ²¿·Ö

对一个远程控制软件的测试，希望多多指点

wonew1228 · 发表于 2006-12-6 17:00:00

感谢各位！

wonew1228 · 发表于 2006-12-19 16:56:17

顶一下，好东西不能让他沉了

pangge369 · 发表于 2006-12-20 16:37:43

好东西!受益不少呀!

lzq123335 · 发表于 2007-1-10 10:42:38

原帖由 shyfish 于 2004-11-22 17:53 发表
贴一段，很喜欢用Data table的：
dataTable = "dialNum.xls";
ddt_open(dataTable, DDT_MODE_READ);
ddt_get_row_count(dataTable, ddtRowCount);
for(ddtIndex = 1; ddtIndex <= ddtRowCoun ...

dataTable = "dialNum.xls";
ddt_open(dataTable, DDT_MODE_READ);
ddt_get_row_count(dataTable, ddtRowCount);
for(ddtIndex = 1; ddtIndex <= ddtRowCount; ddtIndex++)
{
            ddt_set_row(dataTable, ddtIndex);
      number = ddt_val(dataTable, "DialNum");
      divNum = 1000000000;
      for(i = 0; i < 10; i++)
      {
            curNum = int(number / divNum);
               button_press("Button"&i);
                           number = number % divNum;
            divNum = int(divNum / 10);
      }
}
ddt_close(dataTable);

这样是否好些呢？

jacky9947 · 发表于 2007-3-23 16:49:42

谢谢大家

chinalkl · 发表于 2007-6-21 17:53:59

到现在才发现测试,特别是WR的博大精深.
有很多代码都不知道是怎么输入进去的,是录制的时候自动生成的吗?

chenghan1980 · 发表于 2008-7-14 12:12:43

很牛很强大

peter.zheng · 发表于 2008-8-14 11:21:51

顶！

		自动登录	找回密码
密码			(注-册)加入51Testing

WR代码交流贴

modify

好贴！

站长推荐 /1