clarkbao的个人资料 - RAT

clarkbao clarkbao

生当做人杰

关注数: 0 粉丝数: 0 发帖数: 333 关注贴吧数: 0

vb发帖子代码以下代码老用户可以用, 新用户发帖子需要验证码, 所以用不了.内容含有网址，百度不让发，将WebBrowser1.Navigate后的网址替换为相应的网址就可以了Private Declare Function GetTickCount Lib "kernel32" () As LongPrivate Sub Command1_Click()Dim myDoc As Object, myObj As ObjectDim i As LongDim oldTime As Long oldTime = GetTickCount WebBrowser1.Navigate "百度登录界面网址" '延迟2秒 Do While (GetTickCount() - oldTime) < 2000 DoEvents Loop Do While WebBrowser1.Busy = True DoEvents Loop Set myDoc = WebBrowser1.Document For i = 0 To myDoc.All.Length - 1 If UCase(myDoc.All(i).tagName) = "INPUT" Then Set myObj = myDoc.All(i) If myObj.Type = "text" And myObj.Name = "username" Then myObj.Value = "anyname001" '你的账号 If myObj.Type = "password" And myObj.Name = "password" Then myObj.Value = "byh001" '你的密码 If myObj.Type = "submit" And myObj.Value = " 登录 " Then myObj.Click '登录 End If Next i '延迟2秒 oldTime = GetTickCount Do While (GetTickCount() - oldTime) < 2000 DoEvents Loop Do While WebBrowser1.Busy = True DoEvents Loop '转到ad吧, 将地址替换为自己要发表的贴吧 WebBrowser1.Navigate "百度贴吧的网址" '延迟2秒 oldTime = GetTickCount Do While (GetTickCount() - oldTime) < 2000 DoEvents Loop Do While WebBrowser1.Busy = True DoEvents Loop For i = 0 To myDoc.All.Length - 1 If UCase(myDoc.All(i).tagName) = "INPUT" Or UCase(myDoc.All(i).tagName) = "TEXTAREA" Then Set myObj = myDoc.All(i) If myObj.Type = "text" And myObj.Name = "ti" Then myObj.Value = "这里设置标题内容" If myObj.Type = "textarea" And myObj.Name = "co" Then myObj.Value = "这里设置发表的内容" If myObj.Type = "submit" And myObj.Value = "发表贴子" Then myObj.Click '提交表单 End If Next iEnd Sub

数据库编辑控件 --- 无需任何代码实现新增，修改，删除，打印，转自己做的一个数据库编辑控件，该控件只需要设置数据库以及数据表，不需要任何代码编写而完成新增、修改、删除、打印、转档操作。如果有需要留下邮箱。

创业

快速书写SQL查询语句(针对Access数据库) 我们经常需要写一些查询语句, 有些会比较复杂, 特别是设计到多表的查询以及一些统计时, 其实我们可以利用Access的查询功能来快速得到我们想要的SQL语句, 具体做法如下.1. 打开数据库, 在左边的栏位中选择"查询", 再选择右边的"在设计视图中创建查询".2. 在打开的对话框中添加你想要查询的数据表, 设置需要显示的字段, 并设置条件.3. 所有的条件设置好后, 再选择菜单栏的"视图"->"SQL视图", 就可以看到SQL语句了.PS: 如果你要调试SQL语句的话, 也可以将自己写的SQL粘贴到此处进行调试.

荆州模型图看了一下帖子, 都在谈论是非.荆州人就应该热爱荆州, 在外多年, 我还是打算再回荆州, 毕竟是自己的家, 希望大家都回荆州发展, 建设荆州

VB资料大家可以到这里下载VB 资料, 完全免费, 有很多好书.www.ibook8.com/Software/catalog15/10955.html书籍用超星阅览器打开

1 下一页