VB.Net 控制 QQ发送信息

上传者: asdfghjkl1234567890p | 上传时间: 2022-05-02 23:29:52 | 文件大小: 27KB | 文件类型: RAR
刚研究VB控制QQ发送信息,网上找了点资料 在VS2010中的VB中测试了一下,能够发信息,目前只研究到这种程序 不知道有没有更好的办法! Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '1234567是对方的QQ号 WebBrowser1.Navigate("tencent://message/?uin=1234567&Site=lvehe&Menu=yes") PauseWait(300) SendKeys.Send(Now.ToString) PauseWait(1000) SendKeys.Send("^~") PauseWait(300) SendKeys.Send("{ESC}") End Sub '延时程序 Public Sub PauseWait(ByVal HowLong As Long) Dim tick As Long tick = My.Computer.Clock.TickCount Do My.Application.DoEvents() Loop Until tick + HowLong < My.Computer.Clock.TickCount End Sub

文件下载

资源详情

[{"title":"( 24 个子文件 27KB ) VB.Net 控制 QQ发送信息","children":[{"title":"VB_QQ","children":[{"title":"VB_QQ.sln <span style='color:#111;'> 857B </span>","children":null,"spread":false},{"title":"VB_QQ","children":[{"title":"Form1.vb <span style='color:#111;'> 941B </span>","children":null,"spread":false},{"title":"obj","children":[{"title":"x86","children":[{"title":"Debug","children":[{"title":"VB_QQ.vbproj.FileListAbsolute.txt <span style='color:#111;'> 1.01KB </span>","children":null,"spread":false},{"title":"ResGen.read.1.tlog <span style='color:#111;'> 2.84KB </span>","children":null,"spread":false},{"title":"VB_QQ.xml <span style='color:#111;'> 652B </span>","children":null,"spread":false},{"title":"VB_QQ.Form1.resources <span style='color:#111;'> 180B </span>","children":null,"spread":false},{"title":"ResGen.write.1.tlog <span style='color:#111;'> 924B </span>","children":null,"spread":false},{"title":"DesignTimeResolveAssemblyReferencesInput.cache <span style='color:#111;'> 5.26KB </span>","children":null,"spread":false},{"title":"TempPE","children":[{"title":"My Project.Resources.Designer.vb.dll <span style='color:#111;'> 7.50KB </span>","children":null,"spread":false}],"spread":true},{"title":"VB_QQ.pdb <span style='color:#111;'> 35.50KB </span>","children":null,"spread":false},{"title":"VB_QQ.Resources.resources <span style='color:#111;'> 180B </span>","children":null,"spread":false}],"spread":true}],"spread":true}],"spread":true},{"title":"Module1.vb <span style='color:#111;'> 300B </span>","children":null,"spread":false},{"title":"My Project","children":[{"title":"Resources.Designer.vb <span style='color:#111;'> 2.71KB </span>","children":null,"spread":false},{"title":"Application.myapp <span style='color:#111;'> 510B </span>","children":null,"spread":false},{"title":"Resources.resx <span style='color:#111;'> 5.48KB </span>","children":null,"spread":false},{"title":"Settings.Designer.vb <span style='color:#111;'> 2.92KB </span>","children":null,"spread":false},{"title":"Application.Designer.vb <span style='color:#111;'> 1.47KB </span>","children":null,"spread":false},{"title":"Settings.settings <span style='color:#111;'> 279B </span>","children":null,"spread":false},{"title":"AssemblyInfo.vb <span style='color:#111;'> 1.06KB </span>","children":null,"spread":false}],"spread":true},{"title":"Form1.resx <span style='color:#111;'> 5.68KB </span>","children":null,"spread":false},{"title":"Form1.Designer.vb <span style='color:#111;'> 2.66KB </span>","children":null,"spread":false},{"title":"VB_QQ.vbproj <span style='color:#111;'> 4.78KB </span>","children":null,"spread":false},{"title":"App.config <span style='color:#111;'> 159B </span>","children":null,"spread":false}],"spread":true},{"title":"VB_QQ.suo <span style='color:#111;'> 18.00KB </span>","children":null,"spread":false}],"spread":true}],"spread":true}]

评论信息

  • lsh499742959 :
    可以用,不不过界面有些low
    2018-12-28

免责申明

【只为小站】的资源来自网友分享,仅供学习研究,请务必在下载后24小时内给予删除,不得用于其他任何用途,否则后果自负。基于互联网的特殊性,【只为小站】 无法对用户传输的作品、信息、内容的权属或合法性、合规性、真实性、科学性、完整权、有效性等进行实质审查;无论 【只为小站】 经营者是否已进行审查,用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。
本站所有资源不代表本站的观点或立场,基于网友分享,根据中国法律《信息网络传播权保护条例》第二十二条之规定,若资源存在侵权或相关问题请联系本站客服人员,zhiweidada#qq.com,请把#换成@,本站将给予最大的支持与配合,做到及时反馈和处理。关于更多版权及免责申明参见 版权及免责申明