运行环境：分辨率：1600×900 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：9.00.9460
@moscms 2011/11/4
ProcessID=Plugin.Web.Bind("wqm.exe")
Delay 2000
If ProcessID=0 then
MessageBox "网页按键精灵没有运行"
EndScript
End If
//连接数据库
set conn = createObject("adodb.Connection")
conn.connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\粟术英\工具软件\SEO自动\谷歌外链自动\data\data.mdb;Persist Security Info=False"
conn.open
//创建rs对象
Set rs = createObject("ADODB.Recordset")
Set rs2 = createObject("ADODB.Recordset")
////////////////发布规则//////////////////////////////////
//由选定内容来决定发布目标地址
//1)读取选定内容
Randomize
r = Rnd
pushNum = Form1.InputBox1.Text
selectType = Form1.InputBox2.text
cmdStr = "select top "&pushNum&" * from 内容库"&selectType
cmdStr2 = "select top " & pushNum & " * from 地址库 where 分类属性='" & selectType & "' order by rnd( " & r & "-id) "
rs.open cmdStr,conn,1,3
rs2.open cmdStr2, conn, 1, 3
//step1:新建pushNum个页面
For pushNum-1
Call Plugin.Web.TabNew()
Next
Call Plugin.web.TabGoto(1)
Delay 2000
//step2:转打标签页打开网页
Dim arrClass(50)
m=1
Do While not rs2.eof
arrClass(m) = rs2("分类")
url = rs2("网址")
Call plugin.web.TabGoto(m)
Call Plugin.Web.Go(url)
If not rs2.eof Then rs2.movenext
m = m + 1
Delay 2000
Loop
rs2.close
Delay 30000
//填写内容
i=1
Do While not rs.eof
Call Plugin.Web.TabGoto(i)
Delay 10000
username = rs("username")
website = rs("website")
email = rs("email")
info = rs("info")
title = rs("title")
selectFun(arrClass(i))
If not rs.eof Then rs.movenext
i=i+1
loop
MessageBox i
///////////////发布规则END///////////////////////////////////
Function selectFun(funSelect)
Select Case funSelect
Case "bahnhof"
Call bahnhof(url, username, website, email, info)
Case "coursdinformatique"
Call coursdinformatique(url, username, website, email, info, title)
Case "gravidblogg"
Call gravidblogg(url, username, website, email, info, title)
Case "sokolhovezi"
Call sokolhovezi(url, username, website, email, info, title)
Case "servercronos"
Call servercronos(url, username, info)
Case "sununews"
Call sununews(url, username, website, email, info, title)
Case "jerryghionis"
Call jerryghionis(url, username, website, email, info, title)
Case "sufehmi"
Call sufehmi(url,username,website,email,info,title)
Case Else
MessageBox("没有对应函数 需要更新函数库")
End Select
End Function
Function sufehmi(url,username,website,email,info,title)//url网址 username用户名称 website 主页 email邮箱地址 info 内容 title 标题
Call Plugin.Web.Tips("sufehmi")
Delay 1000
Call Plugin.Web.HtmlInput(username,"id:author")
Delay 1000
Call Plugin.Web.HtmlInput(email,"id:email")
Delay 1000
Call Plugin.Web.HtmlInput(website,"id:url")
Delay 1000
Call Plugin.Web.HtmlInput(info, "id:comment&type:textarea")
End Function
Function jerryghionis(url,username,website,email,info,title)//url网址 username用户名称 website 主页 email邮箱地址 info 内容 title 标题
Call Plugin.Web.Tips("jerryghionis")
Delay 1000
Call Plugin.Web.HtmlInput(username,"name:comment_name&tag:INPUT")
Delay 1000
Call Plugin.Web.HtmlInput(email,"name:comment_email&tag:INPUT")
Delay 1000
Call Plugin.Web.HtmlInput(info,"name:comment_comment&tag:TEXTAREA")
End Function
Function sununews(url,username,website,email,info,title)//url网址 username用户名称 website 主页 email邮箱地址 info 内容 title 标题
Call Plugin.Web.Tips("sununews")
Delay 1000
Call Plugin.Web.HtmlInput(username,"name:tname&tag:INPUT")
Delay 1000
Call Plugin.Web.HtmlInput(email,"name:temail&tag:INPUT")
Delay 1000
Call Plugin.Web.HtmlInput(website,"name:twebsite&tag:INPUT")
Delay 1000
Call Plugin.Web.HtmlInput(title,"name:ttitle&tag:INPUT")
Delay 1000
Call Plugin.Web.HtmlInput(info, "name:tcomment&tag:TEXTAREA")
End Function
Function servercronos(url,username,info)//url网址 username用户名称 website 主页 email邮箱地址 info 内容
Call Plugin.Web.Tips("servercronos")
Delay 1000
Call Plugin.Web.HtmlInput(username,"name:msg_author")
Delay 1000
Call Plugin.Web.HtmlInput(info, "id:message")
End Function
Function bahnhof(url,username,website,email,info)//url网址 username用户名称 website 主页 email邮箱地址 info 内容
Call Plugin.Web.Tips("bahnhof")
Delay 1000
Call Plugin.Web.HtmlInput(username,"name:varName")
Delay 1000
Call Plugin.Web.HtmlInput(website,"name:varSite")
Delay 1000
Call Plugin.Web.HtmlInput(email,"name:varMail")
Delay 1000
Call Plugin.Web.HtmlInput(info, "name:varComment&tag:TEXTAREA")
End Function
Function coursdinformatique(url,username,website,email,info,title)//url网址 username用户名称 website 主页 email邮箱地址 info 内容 title 标题
Call Plugin.Web.Tips("coursdinformatique")
Delay 1000
Call Plugin.Web.HtmlInput(username,"name:tname")
Delay 1000
Call Plugin.Web.HtmlInput(title,"name:ttitle")
Delay 1000
Call Plugin.Web.HtmlInput(info, "name:tcomment&tag:TEXTAREA")
End Function
Function gravidblogg(url,username,website,email,info,title)//url网址 username用户名称 website 主页 email邮箱地址 info 内容 title 标题
Call Plugin.Web.Tips("gravidblogg")
Delay 1000
Call Plugin.Web.HtmlInput(username,"name:commentsubject&tag:INPUT")
Delay 1000
Call Plugin.Web.HtmlInput(info,"name:commenttext&tag:TEXTAREA")
Delay 1000
Call Plugin.Web.HtmlInput(title,"name:commentname&tag:INPUT")
Delay 1000
Call Plugin.Web.HtmlInput(email,"name:commentemail&tag:INPUT")
End Function
Function sokolhovezi(url,username,website,email,info,title)//url网址 username用户名称 website 主页 email邮箱地址 info 内容 title 标题
Call Plugin.Web.Tips("sokolhovezi")
Delay 1000
Call Plugin.Web.HtmlInput(username,"id:tname")
Delay 1000
Call Plugin.Web.HtmlInput(email,"id:temail")
Delay 1000
Call Plugin.Web.HtmlInput(website,"id:twebsite")
Delay 1000
Call Plugin.Web.HtmlInput(title,"id:ttile")
Delay 1000
Call Plugin.Web.HtmlInput(info, "id:tcomment")
End Function
Sub OnScriptExit()
Call Plugin.Web.Tips("脚本停止运行")
End Sub