本篇文章主要讲 用按键精灵批量写新浪博客
大致的思路是这样的,通过在网上收集一些文章,然后将文章写入到新浪博客。
有任何技术问题,可以与我联系 QQ :1121797386
代码下载
http://download.csdn.net/detail/liumeng305/7559145
实验的博客
http://blog.sina.com.cn/u/5190718839
代码主要分两部分,一个是自动发新浪博客,一个是批量的读取本地文件。上代码:
获取文件获取文件发博客.Q
文件夹="F:\caiji\jiankang"
Set F = CreateObject("Scripting.FileSystemObject")
If Not F.FolderExists(文件夹) Then
MsgBox "未检测到文件夹"
//TracePrint "未检测到文件夹"
End If
Set oF = F.GetFolder(文件夹)
For Each a In oF.Files
Text= Plugin.File.ReadFileEx(a)
// TracePrint Text
//去掉其中不需要的文字,作为标题
Title = Replace(a, "F:\caiji\jiankang\", "")
Title=Replace(Title,".txt","")
//TracePrint Title
//TracePrint Text
Call Lib.自动发新浪博客.自动发新浪博客(Title, Text)
//延时,时间可能需要更改,我试验的结果是,两次发博文之间的间隔要大于1分钟,
//在我发了四篇博客之后,就提示,短时间发送博客太多,所以这个时间可以再设置长一些,
//大概半个小时内可以发3到4篇博文
Delay 65000
Next
自动发新浪博客.Q
//请在下面写上您的子程序或函数
//写完保存后,在任一命令库上点击右键并选择“刷新”即可
Sub 自动发新浪博客(Title,Artic)
PID = Plugin.Web.Bind("wqm.exe")
//博客地址
Call Plugin.Web.Go("http://control.blog.sina.com.cn/admin/article/article_add.php")
Delay 1000
//输入标题
Call Plugin.web.HtmlInput(Title,"id:articleTitle")
//输入正文 这个函数不好用,用下面的 SayString
//Call Plugin.web.HtmlInput(Artic,"&frame:1")
MoveTo 159, 370
LeftClick 1
SayString Artic
//点击标签
Call Plugin.Web.HtmlClick("tag:A&txt:健康")
//点击发博文
Call Plugin.Web.HtmlClick("id:articlePostBtn")
End Sub
另外一个问题是,按键精灵中使用的字符串操作的函数 大多支持ascii 对utf8支持不是很好,解决的办法是把utf8的文件转为ascii 下面这个软件,支持批量转化,测试过,还不错
http://download.csdn.net/detail/liumeng305/7559145