按键精灵--批量写新浪博客

本篇文章主要讲  用按键精灵批量写新浪博客

大致的思路是这样的，通过在网上收集一些文章，然后将文章写入到新浪博客。

有任何技术问题，可以与我联系  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