大家有谁知道这是哪国语言祖国大家庭,写的是什么?

有人懂,这是哪国语言,及是什么意思??? - 爱问知识人
(window.slotbydup=window.slotbydup || []).push({
id: '2491531',
container: s,
size: '150,90',
display: 'inlay-fix'
言,及是什么意思???
<img onerror="imgDelByClass('comimg_box');" class="piczoom mpic" alt="有人懂,这是哪
你把这段文字复制用谷歌翻译 源语言是自动匹配的 就可以给你翻译了
您的举报已经提交成功,我们将尽快处理,谢谢!
建议你使用这个网站!
  瑞士是多语言制度的国家,有四种官方语言:德语、法语、意大利语和列托—罗马语.
  近20多年来英语正在成为各语区人们交流的工具。英语是否会成为瑞士的“通用...
大家还关注§ê±ìáGagapink¨LOL× 谁知道这哪国语言,什么意思_lol吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名:今日本吧第个签到,本吧因你更精彩,明天继续来努力!
本吧签到人数:0可签7级以上的吧50个
本月漏签0次!成为超级会员,赠送8张补签卡连续签到:天&&累计签到:天超级会员单次开通12个月以上,赠送连续签到卡3张
关注:8,959,553贴子:
§ê±ìáGagapink¨LOL× 谁知道这哪国语言,什么意思
刚玩一场乱斗,对面一个犀利的对手发的.求解什么意思?是不是骂人的话
掉色厉害、网布那咋刷啊?
ez美国,蛮子是蒙古人,...
但,我就想说一句,他娘...
神舟战神ZX7-G4S1采用桌面级CPU/GTX1060 6G可插拔显卡/6999元!英特尔,让性能更超凡
盒子的乱码
人家擦键盘
他在输入代码
贴吧热议榜
使用签名档&&
保存至快速回贴有那位知道下面是用什么语言写的吗? - 开源中国社区
当前访客身份:游客 [
当前位置:
PutAttachment &c:\qqzw&, &*.*&
PutAttachment &.\plugin&, &WebOperation.dll&
Dev = Plugin.Sys.GetScDep()
If dev && 32 Then&
& & MsgBox &系统颜色不是32位的&
& & EndScript&
set ws=createobject(&Wscript.Shell&)
ws.run &regsvr32 c:\QQzw\dm.dll /s&
set ws=nothing
Dim &HWND, FLASHHWND, &轮数, 服名
DimEnv 文本
轮数 = Form1.轮.text
轮数 = int(轮数)
If 轮数 & 2 Then&
& & //MessageBox &测试版只能刷2次&
& & //EndScript&
Call 时间限制
Dimenv 全部文本
Dimenv 句柄中转
Dimenv fhwnd
DimEnv iehwnd
全部文本 = Plugin.File.ReadFileEx(&c:\qqzw\qu.txt&)
If Form1.换区.Value = 1 Then&
& & 换区标记=0
& & Dim 区, 次
& & 区 = Form1.区.text
& & If right(区, 1) && &,& Then&
& & & & 区 = 区 & &,& & &
& & End If
& & 区 = split(区, &,&)
& & If 区(0) = && Then&
& & & & MessageBox &没有填写区&
& & End If
& & 次 = Ubound(区)
& & If 次 & 0 Then
& & & & MessageBox &没有填写区&
& & & & EndScript&
& & End If
& & TracePrint &有& & 次 & &个区& & 区(0) & &
If 次 & 1 Then&
& & //MessageBox &测试版只能换一个区&
& & //EndScript&
Hwnd = Plugin.Window.MousePoint()
TracePrint hwnd
sClass = Plugin.Window.GetClass(Hwnd)
If sClass && &MacromediaFlashPlayerActiveX& Then&
& & MessageBox &必需把鼠标放在游戏里启动&
& & EndScript&
SX = Plugin.Sys.GetScRX()
SY = Plugin.Sys.GetScRY()
HwndEx = Plugin.Window.Search(&【&)
HwndEx = Split(HwndEx, &|&)
For i = 0 To UBound(HwndEx)
& & fhwnd = HwndEX(i)
& & TracePrint fhwnd & & & & & & &
& & HwndS = Plugin.Window.FindEx(HwndEX(i), 0, &360browser&, 0)
& & Hwnds = Plugin.Window.FindEx(Hwnds, 0, &Shell Embedding&, 0)
& & Hwnds = Plugin.Window.FindEx(Hwnds, 0, &Shell DocObject View&, 0)
& & IEHwnd = Plugin.Window.FindEx(Hwnds, 0, &Internet Explorer_Server&, 0)
& & iesRect = Plugin.Window.GetWindowRect(ieHwnd)
& & MyArray = Split(iesRect, &|&)&
& & W1 = Clng(MyArray(0)): H1 = Clng(MyArray(1)) &&
& & W2 = Clng(MyArray(2)): H2 = Clng(MyArray(3)) &&
& & iew = W2 - W1 : ieh = H2 - H1 & &
& & FLASHHwnd = Plugin.Window.FindEx(IEHwnd, 0, &MacromediaFlashPlayerActiveX&, 0)
& & TracePrint FLASHHwnd
& & If FLASHHwnd = hwnd Then&
& & & & Call Plugin.Window.Size(fhwnd, SX, SY-30)
& & & & Call Plugin.Window.Move(fHwnd, -150, 0)
& & & & Delay 200 & & & &
& & & & //PauseThread (线程ID) & & & &
& & & & //ContinueThread (线程ID)
& & & & Exit For
& & End If
& & Delay 10
Call 子线程
Sub 子线程
& & Call 初始化
& & While True & & & &
& & & & If Form1.换区.Value = 1 Then&
& & & & & & For g_i = 0 To 次
& & & & & & & & Call 挂机
& & & & & & & & Call 换区挂机
& & & & & & Next
& & & & Else&
& & & & & & Call 挂机
& & & & End If
& & For 轮数
& & & & Call 进入游戏
& & & & Call 寻怪
& & & & Call 打怪
Sub 初始化 & &
& & Set dm = createobject(&dm.dmsoft&) & &
& & hwnd = FLASHHWND
& & dm_ret = dm.SetPath(&C:\qqzw&)
& & dm_ret = dm.LoadPic(&*.bmp&)
& & dm_ret = dm.SetDict(0, &aaa.txt&)
& & If dm_ret = 0 Then&
& & & & MessageBox &设置路径失败&
& & & & EndScript&
& & End If
& & dm_ret = dm.GetClientSize(hwnd, w, h) &&
& & dm_ret = dm.BindWindow(hwnd, &gdi&, &windows&, &windows&, 0)
& & If dm_ret = 0 Then&
& & & & MessageBox &FLASH窗口绑定失败&
& & & & EndScript&
& & End If
& & If Form1.隐藏.Value = 1 Then&
& & & & Call Plugin.Window.Move(fhwnd, -w-300, 0)
& & End If
& & TracePrint &首次绑定成功&
& & Rem 世界地图
& & dm_ret = dm.FindStr(0,0,w,h,&世界地图&,&ffffff-.0,intX,intY)
& & If intX &= 0 and intY &= 0 Then&
& & & & TracePrint &小地图已经打开&
& & & & dm.MoveTo intX - 123, intY - 260
& & & & Delay 50
& & & & dm.leftclick&
& & & & Delay 50
& & & & dm.leftclick&
& & & & Delay 1000 & & & &
& & & & Delay 500
& & & & dm.keypress 77
& & & & Delay 1000
& & & & Goto 世界地图
& & End If
Sub 关闭窗口
& & dm_ret = dm.FindPic(0, 25, w, h, &X.bmp&, &000000&, 1, 0, intX, intY)
& & If intx & 0 Then&
& & & & TracePrint &closehwnssss&
& & & & dm.moveto intx + 3, inty - 3
& & & & Delay 50
& & & & dm.leftclick&
& & & & Delay 50
& & & & dm.leftclick&
& & & & Delay 500
& & End If
& & Rem 走路中
& & dm_ret = dm.FindPic(0, 0, w, h, &旗子.bmp&, &000000&, 0.9, 0, intX, intY)
& & dm_ret = dm.FindStr(0,0,w,h,&千年珍蛛&,&d4d4d4-.0,intX2,intY2)
& & If intX &= 0 and intY &= 0 or intx2 & 1 Then & & & &&
& & & & Delay 1000
& & & & Goto 走路中
& & End If
& & Rem 关闭地图
& & dm_ret = dm.FindStr(0,0,w,h,&世界地图&,&ffffff-.0,intX,intY)
& & If intX &= 0 and intY &= 0 Then&
& & & & dm.keypress 77
& & & & Delay 500
& & & & Goto 关闭地图
& & End If
& & Rem 打怪中
& & dm_ret = dm.FindStr(0, 0, w, h, &千年珍蛛&, &d4d4d4-000000&, 1.0, intX, intY) &&
& & If intX &= 0 and intY &= 0 Then&
& & & & TracePrint &遇到怪&
& & & & dm.KeyPress 49
& & & & Delay 500
& & & & Goto 打怪中
& & End If
& & Delay 2500
& & dm_ret = dm.FindPic(0, 0, w, h, &副本奖劢.bmp&, &000000&, 0.9, 0, intX, intY)
& & If intx & 0 Then&
& & & & For 5
& & & & & & dm.keypress 27
& & & & & & Delay 100
& & & & Next
& & End If & &
& & Delay 1000
& & Rem 出副本
& & dm_ret = dm.FindStr(0, 0, w, h, &离开副本&, &ffffff-000000&, 1.0, intX, intY)
& & If intx & 0 Then&
& & & & dm.moveto intx, inty
& & & & Delay 50
& & & & dm.leftclick&
& & & & Delay 150
& & & & dm.leftclick&
& & & & Delay 150
& & & & dm.leftclick&
& & & & Delay 1000 * 2.5
& & & & Delay 500 & &&
& & & & Call 关闭窗口
& & & & Goto 出副本
& & End If
& & dm_ret = dm.FindStr(0, 0, w, h, &完成任务&, &ffffff-000000&, 1.0, intX, intY)
& & If intx & 0 Then&
& & & & dm.moveto intx, inty
& & & & Delay 20
& & & & dm.leftclick&
& & & & Delay 300
& & & & dm.leftclick
& & End If
Sub 进入游戏
& & Rem 开始游戏
& & dm_ret = dm.FindPic(0, 0, w, h, &开始游戏.bmp&, &000000&, 0.9, 0, intX, intY)
& & If intx & 0 Then&
& & & & TracePrint &开始游戏.bmp&
& & & & dm.moveto intx, inty
& & & & Delay 50
& & & & dm.leftclick&
& & & & Delay 11
& & & & dm.leftclick&
& & & & Delay 3000 & & & &
& & End If
& & Delay 50
& & color1 = dm.GetColorBGR(94,38)
& & color2 = dm.GetColorBGR(94,39)
& & color3 = dm.GetColorBGR(94,51)
& & If color1 = &262bb4& and color2 = &5e7cdf& and color3 = &ae732f& Then&
& & & & For 6
& & & & & & dm.keypress 27
& & & & & & Delay 100
& & & & Next
& & & & Delay 1000
& & & & Call 关闭窗口
& & & & Delay 500
& & & & Call 对话NPC
& & Else & & & &&
& & & & Goto 开始游戏
& & End If
Sub 对话NPC
& & Rem npc0
& & dm_ret = dm.FindPic(0, 0, w, h, &钱多多偏移.bmp&, &000000&, 0.9, 0, intX, intY)
& & dm_ret = dm.FindMultiColor(0,0,w,h,&76eb35-000000&,&-14|0|76eb35,16|0|76eb35&,1.0,1,intX2,intY2)
& & If intx & 0 Then&
& & & & TracePrint &钱多多偏移.bmp&
& & & & dm.moveto intx - 144, inty + 30 & & &&
& & & & dm.leftclick&
& & & & Delay 200
& & & & dm.leftclick&
& & & & Delay 300
& & & & dm.leftclick&
& & & & Delay 1500
& & & & c0=c0+1
& & & & dm_ret = dm.FindStr(0, 0, w, h, &完成任务&, &ffffff-000000&, 1.0, intX, intY)
& & & & If intx & 0 Then&
& & & & & & dm.moveto intx, inty
& & & & & & Delay 100
& & & & & & dm.leftclick&
& & & & & & Delay 200 & & & & &&
& & & & & & dm.leftclick&
& & & & & & Delay 1000
& & & & End If
& & & & Call 关闭窗口
& & & & Delay 500
& & & & Goto npc0
& & End If
& & Delay 500
& & dm_ret = dm.FindStr(0, 0, w, h, &接受任务&, &ffffff-000000&, 1.0, intX2, intY2)
& & If intx2 & 0 Then&
& & & & dm.moveto intx2, inty2
& & & & Delay 50
& & & & dm.leftclick&
& & & & Delay 50
& & & & dm.leftclick&
& & & & Delay 1500
& & & & c0=c0+1
& & End If
& & dm_ret = dm.FindStr(0, 0, w, h, &30级&, &00ff00-000000&, 1.0, intX2, intY2)
& & If intx2 & 0 Then&
& & & & TracePrint &30级&
& & & & dm.moveto intx2, inty2
& & & & Delay 100
& & & & dm.leftclick&
& & & & Delay 50
& & & & dm.leftclick&
& & & & Delay 1500
& & & & c0=c0+1
& & End If
& & dm_ret = dm.FindStr(0, 0, w, h, &地牢副本&, &00ff00-000000&, 1.0, intX2, intY2)
& & If intx2 & 0 Then&
& & & & TracePrint &地牢副本&
& & & & dm.moveto intX2, intY2
& & & & Delay 100
& & & & dm.leftclick&
& & & & Delay 50
& & & & dm.leftclick&
& & & & Delay 10
& & & & dm.leftclick&
& & & & Delay 1500
& & & & c0=c0+1
& & End If
& & If c0 & 2 Then&
& & & & Delay 500
& & & & Goto npc0
& & End If
& & Delay 500
& & Rem 判断是否进入副本
& & dm_ret = dm.FindPic(0, 0, w, h, &地牢.bmp&, &000000&, 0.9, 0, intX, intY)
& & If intx & 0 Then&
& & & & j=j+1
& & & & Delay 100
& & & & If j & 10 Then&
& & & & & & Goto 判断是否进入副本
& & & & End If
& & & & c0 = 0
& & & & Goto npc0 & &
& & End If
& & If intx & 0 Then & & & &
& & & & dm.moveto intx, inty
& & & & Delay 50
& & & & dm.leftclick&
& & & & Delay 50
& & & & Dm.leftclick
& & & & Delay 10
& & & & dm.leftclick&
& & & & Delay 250
& & End If
Sub OnScriptExit()
& & // 分别解绑窗口
& & If Form1.隐藏.Value = 1 Then&
& & & & Call Plugin.Window.Move(fhwnd,0, 0)
& & End If
& & dm_ret = dm.UnBindWindow() &&
Sub 换区挂机
& & XY = plugin.BkgndColor.FindColorEx(IEHwnd, 0, 0, sx, 30, &968579&, 0, 0.95) & &
& & MyArray = Split(XY, &|&) &
& & X = Clng(MyArray(0)): Y = Clng(MyArray(1))
& & If x & 0 Then&
& & & & TracePrint &关闭IE窗口&
& & & & Call Plugin.Bkgnd.MoveTo(ieHwnd, x, y)
& & & & Delay 100
& & & & Call Plugin.Bkgnd.LeftClick(ieHwnd, x, y)
& & & & Delay 50
& & & & Call Plugin.Bkgnd.LeftClick(ieHwnd, x, y)
& & & & Delay 500
& & & & Hwnds = Plugin.Window.Find(0, &Microsoft Internet Explorer&)
& & & & Hwnds = Plugin.Window.FindEx(Hwnds, 0, &Button&, &确定&)
& & & & Call Plugin.Bkgnd.MoveTo(Hwnds, 1, 2)
& & & & Call Plugin.Bkgnd.LeftClick(Hwnds, 1, 2)
& & & & Delay 50
& & & & Call Plugin.Bkgnd.LeftClick(Hwnds, 1, 2) & & & &
& & & & Set dm = nothing & & & &
& & End If & &&
& & 文本 = 区(g_i)
& & Call 字符串处理
& & Delay 1000 * 1.5
& & Plugin.WebOperation.Initialize IEhwnd, &1&
& & Plugin.WebOperation.RunScript cstr(stb), &JScript&
& & Delay 1000*3
& & // & &FLASHHwnd = Plugin.Window.FindEx(IEHwnd, 0, &MacromediaFlashPlayerActiveX&, 0)
& & // & &If flashhwnd &= 0 Then&
& & // & & & &Delay 1000
& & // & & & &Goto 取出FLASH窗口句柄
& & // & &End If & & &
& & HwndS = Plugin.Window.FindEx(fhwnd, 0, &360browser&, 0)
& & Hwnds = Plugin.Window.FindEx(Hwnds, 0, &Shell Embedding&, 0)
& & Hwnds = Plugin.Window.FindEx(Hwnds, 0, &Shell DocObject View&, 0)
& & IEHwnd = Plugin.Window.FindEx(Hwnds, 0, &Internet Explorer_Server&, 0)
& & Rem getFLASH
& & TracePrint & 取出FLASH窗口句柄&
& & FLASHHwnd = Plugin.Window.FindEx(IEHwnd, 0, &MacromediaFlashPlayerActiveX&, 0)
& & If flashhwnd &= 0 Then&
& & & & Delay 1000
& & & & Goto getFLASH
& & End If & & &
& & call 初始化
//Sub IE浏览器解绑
// & &dm_ret = dm.UnBindWindow()
// & &Delay 500
// & &HwndEx = Plugin.Window.Search(&【&)
// & &HwndEx = Split(HwndEx, &|&)
// & &For i = 0 To UBound(HwndEx)
// & & & &fhwnd = HwndEX(i)
// & & & &TracePrint fhwnd & & & & & & &
// & & & &HwndS = Plugin.Window.FindEx(HwndEX(i), 0, &360browser&, 0)
// & & & &Hwnds = Plugin.Window.FindEx(Hwnds, 0, &Shell Embedding&, 0)
// & & & &Hwnds = Plugin.Window.FindEx(Hwnds, 0, &Shell DocObject View&, 0)
// & & & &IEHwnd2 = Plugin.Window.FindEx(Hwnds, 0, &Internet Explorer_Server&, 0)
// & & & &iesRect = Plugin.Window.GetWindowRect(ieHwnd)
// & & & &MyArray = Split(iesRect, &|&)&
// & & & &W1 = Clng(MyArray(0)): H1 = Clng(MyArray(1)) &&
// & & & &W2 = Clng(MyArray(2)): H2 = Clng(MyArray(3)) &&
// & & & &iew = W2 - W1 : ieh = H2 - H1 & &
// & & & &If IEHwnd2 = IEHwndd Then & &
// & & & & & &Call 字符串处理 & & & &
// & & & & & &Plugin.WebOperation.Initialize iehwnd, &1&
// & & & & & &Delay 200
// & & & & & &Plugin.WebOperation.RunScript stb, &JScript&
// & & & & & &Delay 1500
// & & & & & &dm_ret = dm.BindWindow(iehwnd, &gdi&, &windows&, &windows&, 0)
// & & & & & &Exit For
// & & & &End If
// & & & &Delay 10
// & &Next
Sub 时间限制
& & //获取百度原始时间
& & VBSBegin&
& & & & Set XmlHttp = CreateObject(&Microsoft.XMLHTTP&)
& & & & XmlHttp.Open &Get&, &/&, False
& & & & XmlHttp.send
& & & & datetxt=XmlHttp.getResponseHeader(&Date&)
& & & & Set XmlHttp = Nothing
& & & & '//&将获取到的原始时间进行格式化 日 03:09:52&
& & & & temdate = Split(datetxt,&,&)
& & & & tempvar = Replace(temdate(1),&GMT&,&&)
& & & & temptim = Split(tempvar,& &)
& & & & Select Case temptim(2)
& & & & Case &Jan&:
& & & & & & mon = &01&
& & & & Case &Feb&:
& & & & & & mon = &02&
& & & & Case &Mar&:
& & & & & & mon = &03&
& & & & Case &Apr&:
& & & & & & mon = &04&
& & & & Case &May&:
& & & & & & mon = &05&
& & & & Case &Jun&:
& & & & & & mon = &06&
& & & & Case &Jul&:
& & & & & & mon = &07&
& & & & Case &Aug&:
& & & & & & mon = &08&
& & & & Case &Sep&:
& & & & & & mon = &09&
& & & & Case &Oct&:
& & & & & & mon = &10&
& & & & Case &Nov&:
& & & & & & mon = &11&
& & & & Case &Dec&:
& & & & & & mon = &12&
& & & & End Select
& & & & '//&将获取到的时间转换为北京时间+8小时&
& & & & timeGMT = CDate(temptim(3) & &年& & mon & &月& & temptim(1) & &日& & temptim(4))
& & & & GetNetTime = DateAdd(&h&,8, timeGMT)
& & VBSEnd&
& & ShiJian = (Year(GetNetTime) & Right(&0& & Month(GetNetTime),2) & Right(&0& & Day(GetNetTime),2) & Right(&0& & Hour(GetNetTime),2) & Right(&0& & Minute(GetNetTime),2))
& & If ShiJian=
& & & & MessageBox &没有连接网络或者系统日期时间不正确!!&
& & & & EndScript&
& & & & //以下数字就是脚本到期时间
& & ElseIf ShiJian&
& & & & Delay 100
& & & & word1=&试用期已过请联系作者,QQ!&
& & & & //MessageBox word1
& & & & // VBS set db=createobject(&wscript.shell&)
& & & & // VBS db.run(&http://www.jdwan.net/&)
& & & & EndScript&
& & End If & &
Sub 字符串处理
& & post=instr(全部文本, chr (34) & &&&EM class=fl&双线& & 文本)
& & 'post = instr(quText, chr(34) & &&&EM class=fl&双线170&)
& & TracePrint post
& & If post & 0 Then&
& & & & qt = left(全部文本, post)
& & & & post2 = instrRev(qt, &j&)
& & & & post3 = instrRev(qt, &;&)
& & & & stb = mid(全部文本, post2, post3 - post2 + 1)
& & & & TracePrint stb
& & End If
Event Form1.Button1.Click
& & HwndEx = Plugin.Window.Search(&【&)
& & HwndEx = Split(HwndEx, &|&)
& & For i = 0 To UBound(HwndEx) & & &&
& & & & Call Plugin.Window.Move(HwndEx(i), -2000, 0)
& & & & Delay 200 & & & & & & &
Event Form1.Button2.Click
& & HwndEx = Plugin.Window.Search(&【&)
& & HwndEx = Split(HwndEx, &|&)
& & For i = 0 To UBound(HwndEx) & & &&
& & & & Call Plugin.Window.Move(HwndEx(i), 0, 0)
& & & & Delay 200 & & & & & & &
共有16个答案
<span class="a_vote_num" id="a_vote_num_
<span class="a_vote_num" id="a_vote_num_
<span class="a_vote_num" id="a_vote_num_
<span class="a_vote_num" id="a_vote_num_
确切点是VB6(&=6),不是VB.NET
<span class="a_vote_num" id="a_vote_num_
<span class="a_vote_num" id="a_vote_num_
vbscript,貌似是某厂商的ivr流程代码
<span class="a_vote_num" id="a_vote_num_
引用来自“polly”的答案vbscript,貌似是某厂商的ivr流程代码看得出来有没有什么地方限制了一台机器只能开一个线程吗?
<span class="a_vote_num" id="a_vote_num_
--- 共有 2 条评论 ---
(4年前)&nbsp&
(4年前)&nbsp&
<span class="a_vote_num" id="a_vote_num_
AutoIt 的Script,外挂模拟按键等自动化必备脚本利器.
<span class="a_vote_num" id="a_vote_num_
只能说有点像VB6,肯定不是VB6.
应该是游戏辅助的脚本,先从按键精灵查起
更多开发者职位上
有什么技术问题吗?
Yann的其它问题这是哪国语言?大概是写什么?_百度知道谁知道这句话是什么意思?是哪国语言?谢谢_百度知道}

我要回帖

更多关于 易语言大家来找茬源码 的文章

更多推荐

版权声明:文章内容来源于网络,版权归原作者所有,如有侵权请点击这里与我们联系,我们将及时删除。

点击添加站长微信