lele1894的个人资料

德云社团

雷曼大冒险视频来自：http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fv.youku.com%2Fv_show%2Fid_XMTYwODM5ODM5Ng&urlrefer=c557519e73d40047dce2e8f99bc45e1e i.youku.com/lele1894

传奇进度条2 安卓无法新游戏传奇进度条2 安卓无法新游戏下载360后安装也不能新游戏小米4C

千年元气境界 gif动图千年元气境界 gif动图

千年元气境界 gif动图

【浪子心声】许氏兄弟.专辑.24H轮播(30多部.全国语) 许氏兄弟.专辑.24H轮播(30多部.全国语) 斗鱼TV 搜索主播：lele1894

许氏兄弟.专辑.24H轮播(30多部.全国语) 许氏兄弟.专辑.24H轮播(30多部.全国语) 斗鱼虎牙搜索主播：lele1894

我的斗鱼 <embed width="640" height="360" allownetworking="all" allowscriptaccess="always" src="http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fstaticlive.douyutv.com%2Fcommon%2Fshare%2Fplay.swf%3Froom_id%3D292098&urlrefer=1ceda789ed5c783f3cd53c3ef0a4b901" quality="high" bgcolor="#000" wmode="window" allowfullscreen="true" allowFullScreenInteractive="true" type="application/x-shockwave-flash">

斗鱼管理严重问题首先不知不觉把你后台设置的视频分类改成其他分类然后锁定分类上图时间是小时 56小时锁定理由在《其他分类》播放游戏啊.影视啊.等等等等不该在《其他分类》的直播（先前设置好的分类，TMD 是你们管理后台改成其他分类的，NND）大多数情况你都不知道然后还继续直播然后超管就有理由了不在规定分类直播账号封停24小时但是呢看下图这些人气高的你举报他们也不会被封我想说一句话斗鱼TV 我去年买了个表~~~~~ 觉得有道理请顶一下管理如果如果如果（重点说三遍），无故删帖，我.去年买了个表~~~~~

我的4级 //随机输出下面2个日期之间的随机日期 Function 结果() 开始时间 = "2012-01-22" 结束时间 = "2014-12-31" 时间间隔 = DateDiff("d", 开始时间, 结束时间) Randomize 随机日期 = Int((时间间隔 * Rnd) + 0) 结果 = DateAdd("d",随机日期,开始时间) End Function TracePrint 结果() //遍历IE浏览器窗口，全部改编成800x600大 Delay 5000 HwndEx = Plugin.Window.Search("Internet Explorer") dim MyArray MyArray = Split(HwndEx, "|") If UBound(MyArray)>=0 Then i=0 For UBound(MyArray) TracePrint MyArray(i) Call Plugin.Window.Size(MyArray(i), 800, 600) i=i+1 Next End If //模仿SayString输入文本，能输出字母就可以了 Function 输出(输入的字符请加双引号) a = 输入的字符请加双引号 For i = 1 To len(a) Delay 20 Key = mid(a,i,1) KeyPress Key, 1 TracePrint Key Next End Function call 输出("abcdefg")

获取网络时间 Function 获取网络时间 Dim 返回值, 分割参数, 年, 月, 日, 时, 分, 秒返回值 = Lib.网络.获得网页源文件("http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.beijing-time.org%2Ftime.asp&urlrefer=ff0c6efcb1fdda8da440e59ff2b646a1") 分割参数 = Split(返回值, vbCrLf) 年 = Split(分割参数(1), "=")(1) 年 = Left(年, Len(年) - 1) 月 = Split(分割参数(2), "=")(1) 月 = Left(月, Len(月) - 1) 日 = Split(分割参数(3), "=")(1) 日 = Left(日, Len(日) - 1) 时 = Split(分割参数(5), "=")(1) 时 = Left(时, Len(时) - 1) 分 = Split(分割参数(6), "=")(1) 分 = Left(分, Len(分) - 1) 秒 = Split(分割参数(7), "=")(1) 秒 = Left(秒, Len(秒) - 1) 获取网络时间=CDate(年&"-"&月&"-"&日&" "&时&":"&分&":"&秒) End Function MessageBox 获取网络时间

大漠多线单开单停 Dimenv 环境变量名环境变量名 = 0 Call 注册大漠() Do Key = WaitKey() If key = 33 Then 环境变量名 = Plugin.Window.MousePoint() 线程ID = BeginThread (运行) Call Plugin.File.WriteINI("窗口句柄", 环境变量名, 环境变量名, "c:\test_game\记录.ini") xc = Plugin.File.readINI("线程ID", 环境变量名, "c:\test_game\记录.ini") If xc <> "" Then StopThread xc End If Call Plugin.File.WriteINI("线程ID", 环境变量名, 线程ID, "c:\test_game\记录.ini") End If If key = 34 Then 环境变量名 = Plugin.Window.MousePoint() 关闭线程id = Plugin.File.readINI("线程ID", 环境变量名, "c:\test_game\记录.ini") If 关闭线程id = "" Then MessageBox "当前窗口没启动过线程。" Else StopThread 关闭线程id End If End If Loop EndScript Sub 运行() //这里设置插件基本目录 set dm = createobject("dm.dmsoft") dm.SetPath "c:\test_game" Call 绑定() //你的代码 End Sub Sub OnScriptExit() dm.UnBindWindow End Sub // 结束 Sub 注册大漠() // 首先打包dm.dll和RegDll.dll到附件,当然如果你还有其它资源(字库，图片等)也可以一并打包 // 这个need_ver作为本脚本需要使用的插件版本. 如果要换插件时，记得更改这个值. need_ver = "3.1233" // 插件需要用到atl系统库,有些XP精简系统会把atl.dll精简掉. 为了防止注册失败，这里手动注册一下atl.dll set ws=createobject("Wscript.Shell") ws.run "regsvr32 atl.dll /s" set ws=nothing // 释放附件>>>>>>>>>>>>>>>>>>> // 这里选择c盘的test-_game作为插件的基本目录也就是SetPath对应的目录。所以所有资源都释放在此目录. PutAttachment "c:\test_game","*.*" // 这里要用到RegDll来注册插件，所以必须释放到Plugin. 但是切记不能把dm.dll释放到Plugin.那会导致插件失效. PutAttachment ".\Plugin" ,"RegDll.dll" // 插件注册开始>>>>>>>>>>>>>>>>>>> // 下面开始注册插件,先尝试用RegDll来注册.这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误. Call Plugin.RegDll.Reg("c:\test_game\dm.dll") // 这里判断是否注册成功 set dm = createobject("dm.dmsoft") ver = dm.Ver() if ver <> need_ver then // 先释放先前创建的dm set dm = nothing // 再尝试用regsvr32 来注册. 这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误. set ws=createobject("Wscript.Shell") ws.run "regsvr32 c:\test_game\dm.dll /s" set ws=nothing Delay 1500 // 再判断插件是否注册成功 set dm = createobject("dm.dmsoft") ver = dm.Ver() if ver <> need_ver then // 这时，已经确认插件注册失败了。弹出一些调试信息，以供分析. messagebox "插件版本错误,当前使用的版本是:"&ver&",插件所在目录是:"&dm.GetBasePath() messagebox "请关闭程序,重新打开本程序再尝试" endscript end if End If // 插件注册结束<<<<<<<<<<<<<<< End Sub Sub 绑定() hwnd = 环境变量名 // 绑定 dm_ret = dm.BindWindow(hwnd,"dx2","dx","dx",0) // 检测绑定返回值 if dm_ret = 0 then last_error = dm.GetLastError() // 如果是WIN7 VISTA WIN2008系统,检测当前系统是否有开启UAC if dm.GetOsType() = 3 then // 有开启UAC的话，尝试关闭 if dm.CheckUAC() = 1 then if dm.SetUAC(0) = 1 then // 关闭UAC之后，必须重启系统才可以生效 messagebox "已经关闭系统UAC设置，必须重启系统才可以生效。点击确定重启系统" dm.ExitOs 2 Delay 2000 endscript end if end if end if // 具体错误码的含义，可以参考函数GetLastError的说明. messagebox "绑定失败，错误码是:"&last_error messagebox "如果确定关闭了UAC,很可能是系统的防火墙拦截插件，请暂时关闭360等安全防火墙再尝试" endscript End If End Sub

大漠多线程 DimEnv 环境变量名 Call 注册大漠() //<>------------------------------ //================主线程==============// While true key = WaitKey() If key = 118 Then 环境变量名 = dm.GetMousePointWindow() BeginThread 多线程 End If Wend //================主线程==============// //<>------------------------------ //================子线程==============// Sub 多线程() i = 0 set dm = createobject("dm.dmsoft") //↑大漠·注册 dm.SetPath ".\plugin\大漠梦想" //↑指定“全局路径” Call 绑定() rem start dm.SendString hwnd, "我是来测试的"&i dm.KeyPress 13 Delay 1000 i = i + 1 Goto start End Sub //================子线程==============// //<>------------------------------ //================子程序==============// Sub 绑定() hwnd = 环境变量名 dm_ret = dm.BindWindow(hwnd,"dx2","normal","windows",0) If dm_ret = 0 Then //1：成功 0：失败 MessageBox "绑定失败" Else TracePrint dm_ret End If End Sub //<>------------------------------ Sub 注册大漠() PutAttachment ".\plugin","*.dll" PutAttachment ".\plugin\大漠梦想","*.bmp" PutAttachment ".\plugin\大漠梦想","*.txt" PutAttachment ".\plugin\大漠梦想","dm.dll" //↑PutAttachment释放附件 Call Plugin.RegDll.Reg(".\plugin\大漠梦想\dm.dll") set dm = createobject("dm.dmsoft") //↑大漠·注册 dm.SetPath ".\plugin\大漠梦想" //↑指定“全局路径” //dm.SetDict 0,"dm_soft.txt" //↑相对路径……第一个·字库 Delay 40 End Sub //<>------------------------------ Sub OnScriptExit() dm_ret = dm.UnBindWindow() End Sub //================子程序==============// Event Form1.InputBox1.Change End Event

开始界面进第二界面隐藏第一界面，第2界面跟随主窗体 //QUI界面建两个，第一个改名叫开始，添加按钮名称Button1，标题随便可以填开始 //第二个界面改名叫Form1，自己随意设计，没有下方启动等按钮。 //开始窗点开始按钮打开小精灵创建第2窗口 Event 开始.Button1.Click Form1.Show End Event //打开后根据标题隐藏开始窗口，制作小精灵标题名"按键小精灵"或更改另起。 Event Form1.Load Hwndaj = Plugin.Window.Find(0, "按键小精灵") Call Plugin.Window.Hide(Hwndaj) End Event //关闭第2窗口，恢复开始窗口 Event Form1.UnLoad Call Plugin.Window.Show(Hwndaj) End Event //关闭开始窗口，第2窗口同时关闭。 Event 开始.UnLoad Form1.Close End Event //得到鼠标指向的窗口句柄 Hwnd = Plugin.Window.MousePoint() //得到第2窗口的句柄。就是第2个界面 Hwnd1 = Plugin.Window.Find(0, "主要功能") //第2个界面循环跟随鼠标得到句柄的窗口 Do //获得鼠标得到句柄Hwnd边框大小 sRect = Plugin.Window.GetWindowRect(Hwnd) MyArray = Split(sRect, "|") L = Clng(MyArray(0)): T = Clng(MyArray(1)) R = Clng(MyArray(2)) : B = Clng(MyArray(3)) //"左" & L & ",右 "& R & ",上" & T & ",下" & B Delay 10 //循环第2窗口Hwnd1移动到鼠标得到句柄Hwnd右方 Call Plugin.Window.Move(Hwnd1, r, t) Loop

我的四级考题 //随机密码大小写间隔5-15位随机字符串生成 Function 随机(个数) For 个数/2+1 Randomize a = (Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", Int((26 - 0 + 1) * Rnd + 0), 1)) b = (Mid("abcdefghijklmnopqrstuvwxyz", Int((26 - 0 + 1) * Rnd + 0), 1)) c=c&a&b Next 随机 = (Mid(c, 1, 个数)) End Function TracePrint 随机(15) //运行脚本开始检测A键是否被按，按了就自定义延时依次按 C,D键 UserVar ys=1000 "延时" Rem ks Do key = WaitKey If key = 65 Then Exit Do End If Delay 100 Loop KeyPress "C", 1 Delay ys KeyPress "D", 1 Delay ys Goto ks //变量str，少于5位，在前面用A补全5位 str = "bbb" y = Len(str) x = 5-y z = "A" For x i=i+z Next d = i + str TracePrint d

按键精灵窗口桌面反弹代码 RunApp "notepad.exe" Delay 1000 Hwnd = Plugin.Window.Find(0, "无标题 - 记事本") Call Plugin.Window.SetClientSize(Hwnd, 200, 200) Call Plugin.Window.Top(Hwnd, 0) 弹球速度 = 10 宽度 = Plugin.GetSysInfo.GetScreenResolutionX 高度 = Plugin.GetSysInfo.GetScreenResolutionY Do If 往左弹 then 窗口横坐标 = 窗口横坐标 -弹球速度 Else 窗口横坐标 = 窗口横坐标 +弹球速度 End If If 往上弹 Then 窗口纵坐标 = 窗口纵坐标 -弹球速度 Else 窗口纵坐标 = 窗口纵坐标 +弹球速度 End If If 窗口纵坐标 + 200 > 高度 Then 往上弹 = True ElseIf 窗口横坐标 + 200 >宽度 Then 往左弹 = True ElseIf 窗口横坐标 < 0 Then 往左弹 = False ElseIf 窗口纵坐标 <0 Then 往上弹 = False End If Call Plugin.Window.Move(Hwnd, 窗口横坐标, 窗口纵坐标) Delay 50 Loop

按键精灵窗口跟随窗口脚本 //打开计算器，笔记本 RunApp "calc.exe" Delay 1000 RunApp "notepad.exe" Delay 1000 //句柄获得记事本句柄Hwnd，计算器句柄Hwnd1 Hwnd = Plugin.Window.Find(0, "无标题 - 记事本") Hwnd1 = Plugin.Window.Find(0, "计算器") Do //获得记事本句柄Hwnd边框大小 sRect = Plugin.Window.GetWindowRect(Hwnd) MyArray = Split(sRect, "|") L = Clng(MyArray(0)): T = Clng(MyArray(1)) R = Clng(MyArray(2)) : B = Clng(MyArray(3)) //"左" & L & ",右 "& R & ",上" & T & ",下" & B Delay 10 //循环计算器Hwnd1移动到记事本Hwnd右方等高度位置 Call Plugin.Window.Move(Hwnd1, r, t) Loop

datediff百度百科的定义取自 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fbaike.baidu.com%2Fview%2F674204.htm%3Ffromtitle%3DDateDiff%26fromid%3D5935703%26type%3Dsyn&urlrefer=dc7dcf5049704f45da868bd218ebc0de

datediff函数定义

欢迎光临datediff吧！本吧的作用~~~ datediff函数描述：返回两个日期之间的时间间隔。本吧就是提供一个稳定的网络验证时间的地方。举个栗子：按键代码2015/03/01 //先把以下函数代码放在脚本任何位置 //获得网页源代码（按键精灵自带的函数无法分辨网页源码的charset（字符集）编码） //GetHTML(URL, code, txtPath) //取网页源文件优化函数（参数别忘带""半角引号） //第一个参数URL需要获得源代码的网址 //第二个参数为网页编码，为空时获取网页头判断，若获取不到则设置为UTF-8。 //也可指定，如GB2312.UTF-8.gbk. //第三个参数将网页源文件保存到txt，相同名覆盖，为空时不存到文件。 Function GetHTML(URL, code, txtPath) Set obj = CreateObject("WinHttp.WinHttpRequest.5.1") Randomize With obj .Open "get", URL&"?"&Rnd .setRequestHeader "Content-Type", "application/x-www-form-urlencoded" .send .waitForResponse httpbody=.responsebody End With Set obj = Nothing If Len(httpbody) = 0 Then GetHTML = "" Exit Function End If If code = "" Then Dim mystr,start,t,i For i = 1 To 300 t = MidB(httpbody, i, 1) mystr=mystr+chr(AscB(t)) Next start=Instr(mystr, "charset=") If start>0 Then code = mid(mystr, start + 8, Instr(start+9, mystr, chr(34))-start-7) code = Replace(code, chr(34), "") Else code="UTF-8" End If End If Set ObjStream = CreateObject("Adodb.Stream") With ObjStream .Type = 1 .Mode = 3 .Open .write httpbody .position = 0 .Type = 2 .Charset = code GetHTML = .ReadText .Close End With Set ObjStream = Nothing IF txtPath <>"" Then If Plugin.File.IsFileExit(txtPath) = True Then Call Plugin.File.DeleteFile(txtPath) End If Call Plugin.File.WriteFileEx(txtPath,GetHTML) End If End Function //获得网页源码，返回值是网页源码 //（因为帖子没有发表，没有地址，发了好像又不能修改，记得下行地址修改下）返回值 = GetHTML("http://本贴地址", "", "") //下行代码去掉//可以弹出获得的源码 //MessageBox 返回值 //在返回的源码中搜索按键代码四个字搜索 = InStr(返回值, "按键代码") //弹出搜索到4个字（+4是越过按键代码4个字）显示后面10个字符（10） MessageBox Mid(返回值, 搜索 + 4, 10) //最后弹出的就是2015/03/01 Sub 时间() //返回值日期时间的两个网址是一个返回日期，一个返回时间（没有其他编码只有时间）我们只使用日期返回值日期 = GetHTML("http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fsymental.com%2Ftime%2Fdate.asp&urlrefer=e830b56353ffe7e05da0a9b52f6c4c76", "", "") 返回值时间 = GetHTML("http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fsymental.com%2Ftime%2Ftime.asp&urlrefer=89ef95649abdc1496b44ec80463d9157", "", "") //取返回的源代码10个字符日期 = Left(返回值日期, 10) //用到DateDiff函数了参数1：“d”是返回对比日期隔了多少“日” //参数2日期是我们区的网络时间 //参数3从本网页取的日期 //返回间隔值参数两个参数相差多少天间隔值=DateDiff("d", 日期,Mid(返回值, 搜索 + 4, 10) ) //弹出 MessageBox "当前时间"&日期&vbcrlf&"到期时间"&Mid(返回值, 搜索 + 4, 10)&vbcrlf&"还有"&间隔值&"天过期" End Sub 代码出处http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fbbs.anjian.com%2Fthread-415260-1-1.html&urlrefer=64c8cf476195ec07151a4f7dea960e0c

天降异宝纪录 51 天降异宝本人纪录

盛大千年3辅助盛大千年3辅助淘宝搜索：千年3辅助掌柜：lele1894 其他都是骗钱的

黄金洞窟二层爆物大概！欢迎补充!! 以下都是男女都暴：门口剑客：黑龙战甲.正气帽子洞穴蜘蛛：黑龙头盔.正气护腿蝙蝠群：黑龙靴子.正气护腕妖僧：九厥密令.金元.正气靴子这都是我打出来过的欢迎补充!!欢迎补充!!欢迎补充!!欢迎补充!!

关于周口网通~~~~ 新买的猫类设置问题河南周口网通的VPI/VCI是多少？谢谢各位大哥大姐谢绝复制长篇大论捣乱鄙视全“”