按键精灵：调用TXT文本发布B2B产品信息内容
LeftClick 1
Delay 500
SayString "我公司专业供应"
Delay 500
SayString ""
Delay 500
//1.读取：地址
Text = Plugin.File.ReadFileEx("E:\7月份\调用TXT\1-1江西.txt")'
TracePrint Text
Var = Split(Text, "|")
Var1 = UBound(Var)
TracePrint Var1
Randomize
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
Delay 300
SayString (Cstr(Var(行数)))
Delay 388
//地区
SayString "地区"
//2.型号
Text = Plugin.File.ReadFileEx("E:\7月份\调用TXT\1-2型号-屋面.txt")'
TracePrint Text
Var = Split(Text, "|")
Var1 = UBound(Var)
TracePrint Var1
Randomize
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
Delay 300
SayString (Cstr(Var(行数)))
Delay 388
//3.地区
Text = Plugin.File.ReadFileEx("E:\7月份\调用TXT\1-3关键词-屋面.txt")'
TracePrint Text
Var = Split(Text, "|")
Var1 = UBound(Var)
TracePrint Var1
Randomize
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
Delay 300
SayString (Cstr(Var(行数)))
Delay 388
//4.读取：匹配语
Text = Plugin.File.ReadFileEx("E:\7月份\调用TXT\1-4匹配语-屋面.txt")'
TracePrint Text
Var = Split(Text, "|")
Var1 = UBound(Var)
TracePrint Var1
Randomize
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
Delay 300
SayString (Cstr(Var(行数)))
Delay 388
//后缀
SayString "，其广泛应用于"
Delay 388
Text = Plugin.File.ReadFileEx("E:\7月份\调用TXT\细节\用途.txt")'
TracePrint Text
Var = Split(Text, "|")
Var1 = UBound(Var)
TracePrint Var1
Randomize
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
Delay 300
SayString (Cstr(Var(行数)))
Delay 388
SayString "。"
Delay 388
KeyPress "Enter", 2
Delay 450
//内容正文
//一、企业简介
Text = Plugin.File.ReadFileEx("E:\7月份\调用TXT\3-1屋面简介.txt")
TracePrint Text
Var = Split(Text, "|||")
Var1 = UBound(Var)
TracePrint Var1
Randomize
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
Delay 350
SayString (Cstr(Var(行数)))
Delay 450
KeyPress "Enter", 2
Delay 450
//二、标题+句子
//1.随机读取TXT内容实现标题随机
SayString "我公司供应"
Delay 388
//读取：型号
Text = Plugin.File.ReadFileEx("E:\7月份\调用TXT\1-2型号-屋面.txt")'
TracePrint Text
Var = Split(Text, "|")
Var1 = UBound(Var)
TracePrint Var1
Randomize
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
Delay 300
SayString (Cstr(Var(行数)))
Delay 388
//读取：关键词
Text = Plugin.File.ReadFileEx("E:\7月份\调用TXT\1-3关键词-屋面.txt")'
TracePrint Text
Var = Split(Text, "|")
Var1 = UBound(Var)
TracePrint Var1
Randomize
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
Delay 300
SayString (Cstr(Var(行数)))
Delay 388
//读取：匹配语
Text = Plugin.File.ReadFileEx("E:\7月份\调用TXT\1-4匹配语-屋面.txt")'
TracePrint Text
Var = Split(Text, "|")
Var1 = UBound(Var)
TracePrint Var1
Randomize
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
Delay 300
SayString (Cstr(Var(行数)))
Delay 388
SayString "。"
Delay 388
KeyPress "Enter", 1
Delay 388
SayString "我@：专业制作屋顶、屋面、无梁拱。"
Delay 388
//2.调用并输入句子
Text = Plugin.File.ReadFileEx("E:\7月份\调用TXT\3-2屋面句子.txt")
TracePrint Text
Var = Split(Text, "|||")
Var1 = UBound(Var)
TracePrint Var1
Randomize
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
Delay 350
SayString (Cstr(Var(行数)))
Delay 450
KeyPress "Enter", 2
Delay 450
//三、标题+段落
//2.调用并输入段落
Text = Plugin.File.ReadFileEx("E:\7月份\调用TXT\3-3屋面段落.txt")
TracePrint Text
Var = Split(Text, "|||")
Var1 = UBound(Var)
TracePrint Var1
Randomize
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
Delay 350
SayString (Cstr(Var(行数)))
Delay 450
下文所示代码应用于按键精灵，实现B2B网站自动输入内容，该脚本实现了B2B信息发布的内容半自动发发布，无需再耗费脑筋编辑内容。
脚本使用“内容+提取本地磁盘中事先保存的TXT文档”的发布模式，因为本人自备TXT文档中字段有限，个别B2B网站发布35条信息就会体提示内容相似度过高。但实际上自备TXT文档字段过度，调用时反应慢影响效率，也没有办法。
更多精彩
