按键精灵脚本之阿里国际站发布产品智能版

分享个人操作阿里巴巴国际站多年的按键精灵脚本,直到现在都在使用。

本脚适合有按键精灵基础或学习者使用。脚本没有写适配分辨率,使用者需要修改分辨率,并重新抓图

阿里国际站发布产品脚本经过多次改版才完善起来。阿里后台一直改版,脚本也要根据后台变动进行修改,建议有按键基础者学习使用。

发布产品脚本有三个版本:

发布产品银行版:此版本通过发布类似产品通过图片银行读取产品主图,并在详情页写入标题。(很少用了,阿里详情插不插标题都不影响优化)

发布产品智能版:此版本通过发布类似产品通过图片银行读取产品主图。(常用版)

发布产品桌面版:此版本通过发布类似产品通过桌面上传图片。(很少使用,上传图片太慢)

自我介绍:
本人现在做手机配件,脚本有修改产品属性部分,如果你不需要修改属性哪么脚本上进行跳过就可以了,脚本和表格都是按手机配件做为案例,具体请根据自己产品进行修改。

脚本介绍:
批量发布阿里类似产品。脚本主要是通过读取excel表格进行发布类似产品,在发布前先准备好excel表格内容。
发布类似产品主要是修改:标题,关键词,属性,图片

表格制作:
在表格制作好发布信息:标题,关键词,图片名称(6张),属性(适用品牌),类似产品地址。(按键发布时从第一行开始读取)

类似产品:

优化好一个产品,进行发布类似产品。发布时可以按型号,款式,功能等做好表格进行发布类似产品,具体自己自行发挥。

表格读取地址:
在脚本18行修改成自己表格地址(红色部分):Call Plugin.Office.OpenXls(“F:\工作\资料\按键发布表格\iphone.xlsx“)

浏览器:
使用默认浏览器进行发布,推荐使用360安全浏览器并设置为默认浏览器(其它浏览器也行,个人使用习惯)。

脚本(智能版,本脚本也包括了银行版,但我设置了跳过详情,需要的删除跳过可换成银行版):

  1. guanjiancijsq = 1
  2. fabujsq = 1
  3. fabushumu = 20000
  4. Dim keyword
  5. Dim productname
  6. Dim picturename1
  7. Dim picturename2
  8. Dim picturename3
  9. Dim picturename4
  10. Dim picturename5
  11. Dim picturename6
  12. Dim picturename7
  13. Dim web
  14. While i = 0
  15. Call 发布程序
  16. Wend
  17. Sub 发布程序
  18. Call Plugin.Office.OpenXls("F:\工作\资料\按键发布表格\iphone.xlsx")
  19. productname = Plugin.Office.ReadXls(1, guanjiancijsq, 1)
  20. keyword = Plugin.Office.ReadXls(1, guanjiancijsq, 2)
  21. picturename1 = Plugin.Office.ReadXls(1, guanjiancijsq, 3)
  22. picturename2 = Plugin.Office.ReadXls(1, guanjiancijsq, 4)
  23. picturename3 = Plugin.Office.ReadXls(1, guanjiancijsq, 5)
  24. picturename4 = Plugin.Office.ReadXls(1, guanjiancijsq, 6)
  25. picturename5 = Plugin.Office.ReadXls(1, guanjiancijsq, 7)
  26. picturename6 = Plugin.Office.ReadXls(1, guanjiancijsq, 8)
  27. picturename7 = Plugin.Office.ReadXls(1, guanjiancijsq, 9)
  28. web = Plugin.Office.ReadXls(1, guanjiancijsq, 10)
  29. Call Plugin.Office.CloseXls()
  30. Delay 1000
  31. RunApp web
  32. Delay 3000
  33. While 1
  34. FindPic 0,0,1920,1080,"Attachment:\基本信息.bmp",0.9,jbxxX,jbxxY
  35. If jbxxX > 0 And jbxxY > 0 Then
  36. MoveTo jbxxx+30, jbxxy+5
  37. LeftClick 1
  38. Delay 1000
  39. Goto 开始
  40. Else
  41. Delay 500
  42. End If
  43. Wend
  44. Rem 开始
  45. //填写关键词
  46. FindPic 0,0,1920,1080,"Attachment:\关键词.bmp",0.9,gjcX,gjcY
  47. If gjcX > 0 And gjcY > 0 Then
  48. MoveTo gjcx+180, gjcy+10
  49. LeftClick 1
  50. KeyDown 17, 1
  51. KeyPress 65, 1
  52. KeyUp 17, 1
  53. KeyPress "BackSpace", 1
  54. End If
  55. Call Plugin.Sys.SetCLB(keyword)
  56. KeyDown 17, 1
  57. KeyPress 86, 1
  58. KeyUp 17, 1
  59. Delay 300
  60. //填写产品名称
  61. FindPic 0,0,1920,1080,"Attachment:\产品名称.bmp",0.9,cpX,cpY
  62. If cpX > 0 And cpY > 0 Then
  63. MoveTo cpx+180, cpy+10
  64. LeftClick 1
  65. KeyDown 17, 1
  66. KeyPress 65, 1
  67. KeyUp 17, 1
  68. KeyPress "BackSpace", 1
  69. End If
  70. Call Plugin.Sys.SetCLB(productname)
  71. KeyDown 17, 1
  72. KeyPress 86, 1
  73. KeyUp 17, 1
  74. Delay 500
  75. //适用品牌
  76. FindPic 0,0,1920,1080,"Attachment:\适用品牌.bmp",0.9,intX,intY
  77. If intX > 0 And intY > 0 Then
  78. MoveTo intx+400, inty+10
  79. LeftClick 1
  80. KeyDown 17, 1
  81. KeyPress 65, 1
  82. KeyUp 17, 1
  83. KeyPress "BackSpace", 1
  84. End If
  85. Call Plugin.Sys.SetCLB(picturename7)
  86. KeyDown 17, 1
  87. KeyPress 86, 1
  88. KeyUp 17, 1
  89. Delay 500
  90. Rem 跳过
  91. //型号
  92. FindPic 0,0,1920,1080,"Attachment:\型号.bmp",0.9,intX,intY
  93. If intX > 0 And intY > 0 Then
  94. MoveTo intx+100, inty+10
  95. LeftClick 1
  96. KeyDown 17, 1
  97. KeyPress 65, 1
  98. KeyUp 17, 1
  99. KeyPress "BackSpace", 1
  100. End If
  101. Call Plugin.Sys.SetCLB(keyword)
  102. KeyDown 17, 1
  103. KeyPress 86, 1
  104. KeyUp 17, 1
  105. Delay 500
  106. FindPic 0,0,1920,1080,"Attachment:\属性值.bmp",0.9,sxzX,sxzY
  107. If sxzX > 0 And sxzY > 0 Then
  108. MoveTo sxzx+380, sxzy+10
  109. Delay 500
  110. LeftClick 1
  111. KeyDown 17, 1
  112. KeyPress 65, 1
  113. KeyUp 17, 1
  114. KeyPress "BackSpace", 1
  115. Delay 100
  116. Call Plugin.Sys.SetCLB(keyword)
  117. KeyDown 17, 1
  118. KeyPress 86, 1
  119. KeyUp 17, 1
  120. Delay 200
  121. End If
  122. //产品详情
  123. FindPic 0,0,1920,1080,"Attachment:\产品详情.bmp",0.9,cpxqX,cpxqY
  124. If cpxqX > 0 And cpxqY > 0 Then
  125. MoveTo cpxqX, cpxqy
  126. LeftClick 1
  127. Delay 500
  128. End If
  129. //上传图片
  130. FindPic 0,0,1920,1080,"Attachment:\图片银行.bmp",0.9,TPYHX,TPYHY
  131. If TPYHX > 0 And TPYHY > 0 Then
  132. MoveTo TPYHX+15, TPYHY+3
  133. LeftClick 1
  134. Delay 500
  135. End If
  136. //弹出图片银行
  137. //上传图片1
  138. While 1
  139. FindPic 0,0,1920,1080,"Attachment:\搜索.bmp",0.9,cpfzX,cpfzY
  140. If cpfzX > 0 And cpfzY > 0 Then
  141. MoveTo cpfzx-50, cpfzy+10
  142. LeftClick 1
  143. KeyDown 17, 1
  144. KeyPress 65, 1
  145. KeyUp 17, 1
  146. KeyPress "BackSpace", 1
  147. Goto 输入图片名1
  148. Else
  149. Delay 500
  150. End If
  151. Wend
  152. Rem 输入图片名1
  153. Call Plugin.Sys.SetCLB(picturename1)
  154. KeyDown 17, 1
  155. KeyPress 86, 1
  156. KeyUp 17, 1
  157. Delay 300
  158. FindPic 0,0,1920,1080,"Attachment:\搜索.bmp",0.9,ssX,ssY
  159. If ssX > 0 And ssY > 0 Then
  160. MoveTo ssx, ssy
  161. LeftClick 2
  162. End If
  163. Delay 500
  164. FindPic 0,0,1920,1080,"Attachment:\搜索.bmp",0.9,yyX,yyY
  165. If yyX > 0 And yyY > 0 Then
  166. MoveTo yyx-155, yyy+65
  167. LeftClick 1
  168. End If
  169. Delay 500
  170. //上传图片2
  171. While 1
  172. FindPic 0,0,1920,1080,"Attachment:\搜索.bmp",0.9,cpfzX,cpfzY
  173. If cpfzX > 0 And cpfzY > 0 Then
  174. MoveTo cpfzx-50, cpfzy+10
  175. LeftClick 1
  176. KeyDown 17, 1
  177. KeyPress 65, 1
  178. KeyUp 17, 1
  179. KeyPress "BackSpace", 1
  180. Goto 输入图片名2
  181. Else
  182. Delay 500
  183. End If
  184. Wend
  185. Rem 输入图片名2
  186. Call Plugin.Sys.SetCLB(picturename2)
  187. KeyDown 17, 1
  188. KeyPress 86, 1
  189. KeyUp 17, 1
  190. Delay 300
  191. FindPic 0,0,1920,1080,"Attachment:\搜索.bmp",0.9,ssX,ssY
  192. If ssX > 0 And ssY > 0 Then
  193. MoveTo ssx, ssy
  194. LeftClick 2
  195. End If
  196. Delay 500
  197. FindPic 0,0,1920,1080,"Attachment:\搜索.bmp",0.9,yyX,yyY
  198. If yyX > 0 And yyY > 0 Then
  199. MoveTo yyx-155, yyy+65
  200. LeftClick 1
  201. End If
  202. Delay 500
  203. //上传图片3
  204. While 1
  205. FindPic 0,0,1920,1080,"Attachment:\搜索.bmp",0.9,cpfzX,cpfzY
  206. If cpfzX > 0 And cpfzY > 0 Then
  207. MoveTo cpfzx-50, cpfzy+10
  208. LeftClick 1
  209. KeyDown 17, 1
  210. KeyPress 65, 1
  211. KeyUp 17, 1
  212. KeyPress "BackSpace", 1
  213. Goto 输入图片名3
  214. Else
  215. Delay 500
  216. End If
  217. Wend
  218. Rem 输入图片名3
  219. Call Plugin.Sys.SetCLB(picturename3)
  220. KeyDown 17, 1
  221. KeyPress 86, 1
  222. KeyUp 17, 1
  223. Delay 300
  224. FindPic 0,0,1920,1080,"Attachment:\搜索.bmp",0.9,ssX,ssY
  225. If ssX > 0 And ssY > 0 Then
  226. MoveTo ssx, ssy
  227. LeftClick 2
  228. End If
  229. Delay 500
  230. FindPic 0,0,1920,1080,"Attachment:\搜索.bmp",0.9,yyX,yyY
  231. If yyX > 0 And yyY > 0 Then
  232. MoveTo yyx-155, yyy+65
  233. LeftClick 1
  234. End If
  235. Delay 500
  236. //上传图片4
  237. While 1
  238. FindPic 0,0,1920,1080,"Attachment:\搜索.bmp",0.9,cpfzX,cpfzY
  239. If cpfzX > 0 And cpfzY > 0 Then
  240. MoveTo cpfzx-50, cpfzy+10
  241. LeftClick 1
  242. KeyDown 17, 1
  243. KeyPress 65, 1
  244. KeyUp 17, 1
  245. KeyPress "BackSpace", 1
  246. Goto 输入图片名4
  247. Else
  248. Delay 500
  249. End If
  250. Wend
  251. Rem 输入图片名4
  252. Call Plugin.Sys.SetCLB(picturename4)
  253. KeyDown 17, 1
  254. KeyPress 86, 1
  255. KeyUp 17, 1
  256. Delay 300
  257. FindPic 0,0,1920,1080,"Attachment:\搜索.bmp",0.9,ssX,ssY
  258. If ssX > 0 And ssY > 0 Then
  259. MoveTo ssx, ssy
  260. LeftClick 2
  261. End If
  262. Delay 500
  263. FindPic 0,0,1920,1080,"Attachment:\搜索.bmp",0.9,yyX,yyY
  264. If yyX > 0 And yyY > 0 Then
  265. MoveTo yyx-155, yyy+65
  266. LeftClick 1
  267. End If
  268. Delay 500
  269. //上传图片5
  270. While 1
  271. FindPic 0,0,1920,1080,"Attachment:\搜索.bmp",0.9,cpfzX,cpfzY
  272. If cpfzX > 0 And cpfzY > 0 Then
  273. MoveTo cpfzx-50, cpfzy+10
  274. LeftClick 1
  275. KeyDown 17, 1
  276. KeyPress 65, 1
  277. KeyUp 17, 1
  278. KeyPress "BackSpace", 1
  279. Goto 输入图片名5
  280. Else
  281. Delay 500
  282. End If
  283. Wend
  284. Rem 输入图片名5
  285. Call Plugin.Sys.SetCLB(picturename5)
  286. KeyDown 17, 1
  287. KeyPress 86, 1
  288. KeyUp 17, 1
  289. Delay 300
  290. FindPic 0,0,1920,1080,"Attachment:\搜索.bmp",0.9,ssX,ssY
  291. If ssX > 0 And ssY > 0 Then
  292. MoveTo ssx, ssy
  293. LeftClick 2
  294. End If
  295. Delay 500
  296. FindPic 0,0,1920,1080,"Attachment:\搜索.bmp",0.9,yyX,yyY
  297. If yyX > 0 And yyY > 0 Then
  298. MoveTo yyx-155, yyy+65
  299. LeftClick 1
  300. End If
  301. Delay 500
  302. //上传图片6
  303. While 1
  304. FindPic 0,0,1920,1080,"Attachment:\搜索.bmp",0.9,cpfzX,cpfzY
  305. If cpfzX > 0 And cpfzY > 0 Then
  306. MoveTo cpfzx-50, cpfzy+10
  307. LeftClick 1
  308. KeyDown 17, 1
  309. KeyPress 65, 1
  310. KeyUp 17, 1
  311. KeyPress "BackSpace", 1
  312. Goto 输入图片名6
  313. Else
  314. Delay 500
  315. End If
  316. Wend
  317. Rem 输入图片名6
  318. Call Plugin.Sys.SetCLB(picturename6)
  319. KeyDown 17, 1
  320. KeyPress 86, 1
  321. KeyUp 17, 1
  322. Delay 300
  323. FindPic 0,0,1920,1080,"Attachment:\搜索.bmp",0.9,ssX,ssY
  324. If ssX > 0 And ssY > 0 Then
  325. MoveTo ssx, ssy
  326. LeftClick 2
  327. End If
  328. Delay 500
  329. FindPic 0,0,1920,1080,"Attachment:\搜索.bmp",0.9,yyX,yyY
  330. If yyX > 0 And yyY > 0 Then
  331. MoveTo yyx-155, yyy+65
  332. LeftClick 1
  333. End If
  334. Delay 500
  335. Rem 跳过图片5
  336. //提交图片上传
  337. FindPic 0,0,1920,1080,"Attachment:\确定.bmp",0.9,intX,intY
  338. If intX > 0 And intY > 0 Then
  339. MoveTo intx+10, inty+5
  340. LeftClick 1
  341. End If
  342. Delay 500
  343. While 1
  344. FindPic 0,0,1920,1080,"Attachment:\图片完成.bmp",0.9,intX,intY
  345. If intX > 0 And intY > 0 Then
  346. MoveTo intx, inty
  347. LeftClick 1
  348. KeyPress "Down", 4
  349. Goto 图片完成
  350. Else
  351. Delay 300
  352. End If
  353. Wend
  354. Rem 图片完成
  355. Delay 1500
  356. Goto 跳过详情
  357. //详情标题
  358. FindPic 0,0,1920,1080,"Attachment:\详情图.bmp",0.9,xqtX,xqtY
  359. If xqtX > 0 And xqtY > 0 Then
  360. MoveTo xqtx+30, xqty+37
  361. LeftClick 3
  362. Delay 100
  363. Call Plugin.Sys.SetCLB(productname)
  364. KeyDown 17, 1
  365. KeyPress 86, 1
  366. KeyUp 17, 1
  367. Delay 500
  368. KeyPress "Enter", 1
  369. Delay 200
  370. End If
  371. Rem 跳过详情
  372. //提交产品
  373. FindPic 0,0,1920,1080,"Attachment:\物流信息.bmp",0.9,cpfzX,cpfzY
  374. If cpfzX > 0 And cpfzY > 0 Then
  375. MoveTo cpfzx, cpfzy
  376. LeftClick 1
  377. Delay 300
  378. End If
  379. KeyPress "Down", 5
  380. Delay 300
  381. FindPic 0,0,1920,1080,"Attachment:\提交.bmp",0.9,tjX,tjY
  382. If tjX > 0 And tjY > 0 Then
  383. MoveTo tjx+80, tjy+70
  384. LeftClick 1
  385. Delay 100
  386. End If
  387. //判断发布成功
  388. While 1
  389. FindPic 0,0,1920,1080,"Attachment:\提交完成.bmp",0.9,fblsX,fblsY
  390. If fblsX > 0 And fblsY > 0 Then
  391. MoveTo fblsx, fblsy
  392. KeyDown 17, 1
  393. KeyPress 87, 1
  394. KeyUp 17, 1
  395. Goto 发布成功
  396. Else
  397. Delay 1000
  398. End If
  399. Wend
  400. Rem 发布成功
  401. //如果达到发布数目,就i = 1 不再循环,停止发布。
  402. If fabujsq = fabushumu Then
  403. i = 1
  404. Delay 10000
  405. MessageBox "发布完所有产品"
  406. Else
  407. ////如果还没发布完////////继续发下一个产品 ///////发布计数器+1///////关键词计数器+1///////
  408. fabujsq = fabujsq + 1
  409. guanjiancijsq = guanjiancijsq + 1
  410. Delay 100
  411. End If
  412. End Sub

脚本识图:

脚本比较完善,可根据自己产品进行修改,不需要的步骤可进行跳过。
自行发挥,可供参考。

有任何问题留言交流。

按键精灵

按键精灵脚本之阿里国际站批量机译多语言产品

2017-11-16 14:25:39

按键精灵

按键精灵脚本之阿里国际站产品主图详情视频批量设置

2018-9-10 3:38:31

10 条回复 A文章作者 M管理员
欢迎您,新朋友,感谢参与互动!
  1. 想了解下脚本的使用

    • 上官方学习软件使用

    • 小朱笔记

      你好,关注公众号看不到你的微信,私信也未回复。想进vip群方便加下vx 17550522033吗

    • 看到了,已发送好友申请。

  2. 你好,现在怎么使用这个按键精灵

    • 你好,你有按键基础的话,改改就能用。如果没有基础,建议直接买软件

    • 小朱笔记

      你好,我已经下载了,我可以添加了微信吗,这是我的vx 13288101950

    • 网站首页有我的公众号,关注,里面有我个人微信,拉你进微信群

  3. 您好,我这边总是无法运行。可以直接向您请教吗

    • 脚本是2017年的,后台有变动,现在要进行修改,你有没有修改适配,采图,分辨率等等,直接复制当然用不了的。

个人中心
购物车
优惠劵
今日签到
私信列表
搜索
51La