本文目录导读:
- 1.vb制作英雄联盟登录器
- 2.lol登录器不显示
- 3.英来自雄联盟登陆器音乐
- 4.求lol双开登陆器
- 5.英雄联盟登录器叫什么
vb制作英雄联盟登录器
你是直接在VB中加载登录窗口进行登录,还是在浏览器中做插件进行登录?在VB中进行登录:lseen #39;判断超时lseInsertLog "登陆网址:" sURL "失败!", 1
Exit Function
End If
LoginUrl = True
Exit Function
errorHandle:
InsertLog "错误号:" Err.Number "错误描述:" Err.Description, 1
Debug.Print Err.Description
Err.Clear
End Function
#39;
#39;创建日期: 2008-10-28
#39;函数功能: 判断网页打开是否超时
#39;输入参数: sTime:超时时间
#39;输出参数: 无
#39;返回值: 0:成功,1:失败
#39;
Public Function HtmlOverTime(sTime As Long, sURL As String) As Long
t = GetTickCount
Do Until bHtmlFlag = True
DoEvents
If GetTickCount - t > sTime Then
InsertLog "打开网址:" sURL "失败!", 1
HtmlOverTime = 1
Exit Function
End If
Loop
HtmlOverTime = 0
End Function
如果用插件的 复杂一些,可以查找olelib的知识
#39;引用olelib实现IObjectWithSite接口来获得IE对象
Implements olelib.IObjectWithSite
#39;
Private WithEvents m_IEObj As InternetExplorer
Attribute m_IEObj.VB_VarHelpID = -1
Private m_site As olelib.IUnknown
Private sDoc As New MSHTMLDocument
Private Sub IObjectWithSite_GetSite(riid As olelib.UUID, ppvSite As stdole.IUnknown)
m_site.QueryInterface riid, ppvSite
End Sub
Private Sub IObjectWithSite_SetSite(ByVal pUnkSite As stdole.IUnknown)
Set m_site = pUnkSite
Set m_IEObj = pUnkSite
End Sub
#39;========================================================
#39;网页加载完成后要处理
#39;
#39;
#39;========================================================
Private Sub m_IEObj_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Dim strHTML As String
Dim strScript As String
Dim scDoc As New MSHTMLDocument
Dim sHeads As IHTMLElementCollection
Dim sHead As IHTMLHeadElement
Dim sElement As IHTMLElement
#39;获取Script脚本内容
strScript = getHTMLScript
#39;MsgBox URL
If InStr(URL, "zs/*.do?formId=") > 0 Then
#39;获取添加按钮的html语句
strHTML = GetIni("HTML", "String1", App.Path "\HtmlMark.ini")
Set sDoc = m_IEObj.Document
Set scDoc = sDoc.parentWindow.Document.frames("workspace").Document.frames("top_Frame").Document
Set scDoc = scDoc.frames("mainFrame").Document
#39;获取HEAD头的对象
Set sHeads = scDoc.getElementsByTagName("HEAD")
Set sHead = sHeads(0)
#39;创建script的节点
Set sElement = scDoc.createElement("script")
sElement.setAttribute "language", "JavaScript"
sElement.setAttribute "text", strScript
#39;把script的节点插入到head中
Call sHead.insertBefore(sElement, Null)
#39;把按钮的html语句插入到页面中
scDoc.body.innerHTML = scDoc.body.innerHTML strHTML
End If
#39;
If InStr(URL, "/*.do") > 0 Then
Set sDoc = m_IEObj.Document
#39;获取添加按钮的html语句
strHTML = GetIni("HTML", "String2", App.Path "\HtmlMark.ini")
Set scDoc = sDoc.parentWindow.Document.frames("workspace").Document.frames("top_Frame").Document
Set scDoc = scDoc.frames("mainFrame").Document
#39;获取HEAD头的对象
Set sHeads = scDoc.getElementsByTagName("HEAD")
Set sHead = sHeads(0)
#39;创建script的节点
Set sElement = scDoc.createElement("script")
sElement.setAttribute "language", "JavaScript"
sElement.setAttribute "text", strScript
#39;把script的节点插入到head中
Call sHead.insertBefore(sElement, Null)
#39;把按钮的html语句插入到页面中
scDoc.body.innerHTML = scDoc.body.innerHTML strHTML
End If
#39;档案查询页面
If InStr(URL, "/*.do?") > 0 Then
Set sDoc = m_IEObj.Document
#39;获取添加按钮的html语句
strHTML = GetIni("HTML", "String3", App.Path "\HtmlMark.ini")
#39;MsgBox "strHTML---------" strHTML
#39;MsgBox sDoc.body.innerHTML
Set scDoc = sDoc.parentWindow.Document.frames("workspace").Document.frames("top_Frame").Document
Set scDoc = scDoc.frames("mainFrame").Document
#39;MsgBox scDoc.body.innerHTML
#39;获取HEAD头的对象
Set sHeads = scDoc.getElementsByTagName("HEAD")
Set sHead = sHeads(0)
#39;创建script的节点
Set sElement = scDoc.createElement("script")
sElement.setAttribute "language", "JavaScript"
sElement.setAttribute "text", strScript
#39;把script的节点插入到head中
Call sHead.insertBefore(sElement, Null)
#39;把按钮的html语句插入到页面中
scDoc.body.innerHTML = scDoc.body.innerHTML strHTML
End If
End Sublol登录器不显示
那你用TGP助手登游戏玩啊。这个游戏蛮好哒啊应该会喜欢,游戏吸引人之处数不尽哦:结合韩系可爱造型风格及华丽动作特效,让人如看漫画般的身临其境,场景相配合的方式很让人为之着迷的,游戏还有很多风格的英雄让人觉得想都把它们玩个够,王R牌i对决很不错哦,战斗画面使用的方式也很独特的英来自雄联盟登陆器音乐
文件位置在:【安装目录】\英雄联盟\TCLS\music\ 文件夹内名字是LoL_MUSIC_PVP_Login求lol双开登陆器
双开做坏事吗Σ(っ °Д °;)っ 不如找个靠谱的小伙伴呢~英雄联盟登录器叫什么
就是tgp游戏助手,这个软件很好用可能在上面直接下载游戏安装非常方便,还可以更新游戏查看个人战绩等等