stdlib.vbs

热血传奇买卖外挂热血传奇买卖外挂热血传奇买卖外挂

Dim QMDispatchObj
Set QMDispatchObj = CreateObject("QMDispatch.QMFunction")

function RunApp(AppPath)	'这个函数用来运行一个外部程序
QMDispatchObj.RunApp(AppPath)
end function

function MessageBox(Prompt)	'这个函数用来弹出一个对话框（可以随时查看你的变量的值）
QMDispatchObj.MessageBox(Prompt)
end function

function InputBox(Prompt)	'这个函数用来弹出输入对话框
Dim OutString
OutString = QMDispatchObj.InputBox(Prompt)
InputBox = OutString
end function

function GetCursorPos(ByRef CursorX,ByRef CursorY)	'这个函数用来得到鼠标当前位置
CursorPos = QMDispatchObj.GetCursorPos()
CursorY = CursorPos Mod 8192
CursorX = CInt(CursorPos / 8192)
end function

function GetPixelColor(PosX,PosY)	'这个函数得到某个指定点的颜色（用字符串表示）
GetPixelColor = QMDispatchObj.GetPixelColor(PosX,PosY)
end function

function FindColor(iLeft,iTop,iRight,iBottom,szColor,ByRef FoundX,ByRef FoundY)	'这个函数用来从某个矩形范围内查找指定的颜色，按从左到右，从上到下的顺序查找
FoundPixel = QMDispatchObj.FindColor(iLeft,iTop,iRight,iBottom,szColor,0)
FoundX = CInt(FoundPixel / 8192)
FoundY = FoundPixel Mod 8192
end function

function FindCenterColor(iLeft,iTop,iRight,iBottom,szColor,ByRef FoundX,ByRef FoundY)	'这个函数用来从某个矩形范围内查找指定的颜色，按从中间到四周的顺序查找
FoundPixel = QMDispatchObj.FindColor(iLeft,iTop,iRight,iBottom,szColor,1)
FoundX = CInt(FoundPixel / 8192)
FoundY = FoundPixel Mod 8192
end function

function ReadMemory(dwAddress, iType, ByRef ReadValue)  '这个函数用于读取当前进程的内存地址
If iType=0 Then
ReadValue = CByte(QMDispatchObj.ReadMemory(dwAddress, iType))
Else
ReadValue = CLng(QMDispatchObj.ReadMemory(dwAddress, iType))
End If 
end function

function FindPic(iLeft,iTop,iRight,iBottom,szFileName,fSimilar,ByRef FoundX,ByRef FoundY)
'这个函数用于在屏幕范围内查找图片
FoundPixel = QMDispatchObj.FindPic(iLeft,iTop,iRight,iBottom,szFileName,fSimilar)
FoundX = CInt(FoundPixel / 8192)
FoundY = FoundPixel Mod 8192
end function

function FindColorEx(iLeft,iTop,iRight,iBottom,szColor,iType,fSimilar,ByRef FoundX,ByRef FoundY)	'这个函数用来从某个矩形范围内模糊查找指定的颜色
FoundPixel = QMDispatchObj.FindColor(iLeft,iTop,iRight,iBottom,szColor,iType,fSimilar)
FoundX = CInt(FoundPixel / 8192)
FoundY = FoundPixel Mod 8192
end function

function GetCursorShape(iType)
'这个函数得到当前鼠标的形状特征（用一个整数表示，对这个整数进行比较，相当于对鼠标形状进行比较）
GetCursorShape=CLng(QMDispatchObj.GetCursorShape(iType))
end function

rem ====================下面的VBS函数仅仅是为了保持兼容性而保留，不推荐使用==============================
 
function Delay(iMilliSecond)		'这个函数可以延时，单位是毫秒，支持表达式      ==>今后请直接使用按键精灵的Delay命令
QMDispatchObj.SleepMS(iMilliSecond)
end function

function GetScreenResolution(ByRef ScreenX, ByRef ScreenY)	'这个函数用于得到当前屏幕分辨率  ==>今后请使用GetSysInfo.dll插件
Resolution = QMDispatchObj.GetScreenResolution()
ScreenX = CInt(Resolution / 8192)
ScreenY = Resolution Mod 8192
end function

function SetCursorPos(CursorX,CursorY)	'这个函数用来设置鼠标当前位置  ====>今后请使用按键精灵的MoveTo命令
Call QMDispatchObj.SetCursorPos(CursorX,CursorY)
end function

function SayString(Prompt)	'这个函数用来输入文本     ===>今后请直接使用按键精灵的SayExpression命令
Call QMDispatchObj.SendKeys(Prompt)
end function