|
发表于 2013-11-10 20:36:18
|
显示全部楼层
广东省深圳市
[e]
.版本 2
.支持库 internet
.子程序 _按钮2_被单击
.局部变量 文本, 文本型
.局部变量 数据, 文本型, , "3"
.局部变量 优惠卷, 文本型
按钮2.禁止 = 真
文本 = 到文本 (HTTP读文件 (“http://item.yhd.com/item/” + 删首尾空 (编辑框3.内容)))
文本 = 取文本中间_ (文本, “queryDetail.do?id=”, “&”)
文本 = 到文本 (HTTP读文件 (“http://www.yhd.com/cart/opt/add.do?productId=” + 删首尾空 (文本) + “&merchantId=1&num=1&pageRef=&linkPosition=addToCart&callback=jsonp1384232415066”))
HTTP读文件 (“http://www.yhd.com/checkoutV3/invoice/saveInvoice.do?&needInvoice=1&invoiceTitle=%E4%B8%AA%E4%BA%BA&invoiceContent=%E6%97%A5%E7%94%A8%E5%93%81&needCommInvoice=1&invoiceType=2&headType=0&rd=0.5804578794173909”)
文本 = 到文本 (HTTP读文件 (“http://www.yhd.com/checkoutV3/init/init.do?cart2Checkbox=&operateFlag=&cartSuppress=”))
文本 = 取文本中间_ (文本, #引号 + “orderRundomString” + #引号 + “:” + #引号, #引号)
优惠卷 = 取文本中间_ (文本, #引号 + “couponNumber” + #引号 + “:” + #引号, #引号)
HTTP读文件 (“http://www.yhd.com/checkoutV3/payment/addCoupon.do?0.9242021948824309&couponNumber=” + 优惠卷)
文本 = 到文本 (HTTP读文件 (“http://www.yhd.com/checkoutV3/confirm/confirmOrder.do?orderID=1&rdCheck=” + 文本 + “&rd=0.7169656336867254”))
文本 = 取文本中间_ (文本, #引号 + “callUuId” + #引号 + “:” + #引号, #引号)
[/e] |
|