累了，还阔以看新闻

roadxiaduan

2月25日简报 星期一 工作愉快 生活喜乐！

1、印度再发集体假酒中毒事件  至少120人死亡，多为贫穷工人；

2、环保组织报告：多用卫生纸加剧全球变暖  美国人最费纸;

3、金正恩乘火车离开平壤 赴越参加朝美峰会；

4、住建部：新规范征求意见 新建住宅将全装修交房；

5、国家邮政局：快递包装绿色化、减量化、可循环；

6、反复说教劝导购物 云南导游因过度推销被立案调查；

7、吉林对出租车网约车司机背景核查，301人被吊销资格证；

8、国家放开放宽落户：“人在大都市户口却在老家”将改变；

9、河北保定发生非洲猪瘟疫情 一养殖场5600头生猪 现死亡病例；

10、微博回应明星账号流量造假：已调整计数，并对刷流量行为报案；

11、社科院报告：当前个人养老账户为空账 财政补贴20年增332倍；

12、华为晒新成绩：已签超30份5G商用合同 全球发货4万5G基站；

【微言微语】如果错过了太阳时你流泪了，那么你也要错过群星了。 ——泰戈尔

ZYY187

回帖是一种美德

看雪_J51WP

回帖是一种美德

小慧_CUye1

回帖是一种美德

sunny20091991

累了看看新闻

天涯若比邻啊

1. Call Plugin.Web.Bind("WQM.exe")
   
2. Call Plugin.Web.Go("http://www.eiafans.com/forum.php")
   
3. x = 10000
   
4. Delay x
   
5. a=3
   
6. Do
   
7.     a=a+1
   
8.     Call Plugin.Office.OpenXls("C:\Users\admin\Desktop\1.xls")
   
9.     Text = Plugin.Office.ReadXls(1, a, 2)
   
10.     Call Plugin.Office.CloseXls()
    
11.     Call Plugin.Web.HtmlClick("id:ls_username")
    
12.     Delay 1000
    
13.     Call Plugin.Web.HtmlInput(Text, "id:ls_username")
    
14.     Delay 2000
    
15.     Call Plugin.Web.HtmlClick("id:ls_password")
    
16.     Delay 1000
    
17.     Call Plugin.Web.HtmlInput("123456", "id:ls_password")
    
18.     Delay 1000
    
19.     Call Plugin.Web.HtmlClick("tag:EM&txt:登录")
    
20.     Delay x
    
21.     Call Plugin.Web.Go("http://www.eiafans.com/forum.php?mod=viewthread&tid=1201629&fromuid=466208")
    
22.     Delay x
    
23.     Call Plugin.Web.HtmlClick("id:ak_rate")
    
24.     Delay x
    
25.     Call Plugin.Web.HtmlInput("2", "id:score1")
    
26.     Delay x
    
27.     Call Plugin.Web.HtmlInput("20","id:score3")
    
28.     Delay x
    
29.     Call Plugin.Web.HtmlClick("tag:SPAN&txt:确定")
    
30.     Delay x
    
31.     For i = 1 To 14
    
32.         Call Plugin.Web.HtmlClick("tag:A&txt:评分&index:" & i)
    
33.         If i = 1 Then
    
34.             Delay x
    
35.             Call Plugin.Web.HtmlInput("2", "id:score1")
    
36.         End If
    
37.         If i = 2 Then
    
38.             Delay x
    
39.             Call Plugin.Web.HtmlInput("1", "id:score1")
    
40.         End If
    
41.         Delay x
    
42.         Call Plugin.Web.HtmlInput("20", "id:score3")
    
43.         Delay x
    
44.         Call Plugin.Web.HtmlClick("tag:SPAN&txt:确定")
    
45.         TracePrint i
    
46.         Delay x
    
47.     Next
    
48.     Call Plugin.Web.HtmlClick("tag:A&txt:退出")
    
49.     Delay x
    
50.     Call Plugin.Web.HtmlClick("tag:A&txt:首页BBS")
    
51.     If a = 9 Then
    
52.         ExitScript
    
53.         MessageBox "执行完毕"
    
54.     End If
    
55. loop

复制代码

天涯若比邻啊

晒晒业余代码

南山有木

回帖是一种美德

nanan167

回帖是一种美德

建平

我觉得你这叫摸鱼

晴栀菀歌

如果错过了太阳时你流泪了，那么你也要错过群星了。 ——泰戈尔

紫羽lnzy

干得漂亮，继续保持

空白的我

回帖是一种美德

meishaonv

累了看看新闻