为编程爱好者分享易语言教程源码的资源网
三叶资源网易语言免费公开课
三叶资源网官方③群:33301895 三叶资源网解压密码 C全站文字广告,诚邀与您合作 三叶资源网培训教程视频 花呗变现,花呗变现
三叶资源网官方③群:33301895 三叶资源网访问导航 B全站文字广告,诚邀与您合作 三叶资源网培训教程视频 花呗变现,花呗变现

网站首页 按键精灵相关 按键精灵Q语言 正文

按键精灵bahnhof.se评论源码

三叶资源网 2018-11-08 按键精灵Q语言 37 ℃ 0 评论
三叶资源网易语言免费公开课

运行环境:分辨率:1600x900 色深: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



Tags:

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网官方③群:33301895

本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

百度站内搜索
交流QQ群:33301895
三叶资源网官方③群:33301895
加群全凭信仰,群里有的资源网站也会有。
群里只是能及时交流,群主会尽力解答一些会的问题。
设置付费入群,只是为了过滤一些小号无意义广告。
所以不必要为了1块钱加群又退出
群主在群内发的红包都够你抢回来还有的多,更何况还能交流学习。
网站分类
随机tag
wordpressVmprotect易语言多线程属性框易语言支持库抖音脚本JS教程百度定时关机易语言最新版网络相关源码SafengineE2EE支持库分段加密Hp-Socket模拟系列教程网易登录微商图片切割JS改写
最新评论