|
|
|
|
|
这个BC++代码用Delphi应该怎么写?
有点郁闷。。。 全部转出来了,可以编译 但是功能丢失了。。。 还是自己写好了 另外 procedure Mouseclick(x1,y1,x2,y2:Integer); var po:TPoint; Recta:TRect; begin GetWindowRect(GameHandle,Recta); GetCursorPos(po); SetCursorPos(box[x1,y1].x,box[x1,y1].y); mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0); mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); SetCursorPos(box[x2,y2].x,box[x2,y2].y); mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0); mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); SetCursorPos(po.X,po.Y); end; 鼠标点击事件转化用PostMessages怎么不对了 PostMessage(GameHandle,WM_LBUTTONDOWN,0,MAKELPARAM(box[x1,y1].x,box[x1,y1].y)); PostMessage(GameHandle,WM_LBUTTONUP,0,MAKELPARAM(box[x1,y1].x,box[x1,y1].y)); PostMessage(GameHandle,WM_LBUTTONDOWN,0,MAKELPARAM(box[x2,y2].x,box[x2,y2].y)); PostMessage(GameHandle,WM_LBUTTONUP,0,MAKELPARAM(box[x2,y2].x,box[x2,y2].y)); |
|
这个BC++代码用Delphi应该怎么写?
小虾 HANDLE TMainForm::GetGameHandle(void) 转成 Function TMainForm.GetGameHandle:THandle; 不对么? |
|
这个BC++代码用Delphi应该怎么写?
最初由 小虾 发布 感谢 我调试了下 Delphi中类应该是TPOINT Function TMainForm.GetOnePairs(var Areal,Area2:POINT):BOOL; 调试不通过 Function TMainForm.GetOnePairs(var Areal,Area2:TPOINT):BOOL; 才可以 谢谢 小虾 不清楚再来问:) 一堆代码要转。。汗 |
|
这个BC++代码用Delphi应该怎么写?
另外 POINT Posion1,Posion2; 是指针类型的么? bool TMainForm::GetOnePairs(POINT &Area1,POINT &Area2) BC++中前面加了个&代表啥意思? |
|
这个BC++代码用Delphi应该怎么写?
最初由 小虾 发布 强人~~感谢ing~ |
|
这个BC++代码用Delphi应该怎么写?
最初由 小虾 发布 谢谢 果然可以 不过有点不明白的 (LPARAM)MAKELPARAM(600,565))和600 or (565 shl 16)为啥是等价的? 我查了半天MSDN都没见说明 |
|
这个BC++代码用Delphi应该怎么写?
最初由 shoooo 发布 谢谢哦` 这个我后来装上BC++调用看到的 原来是我的数据类型不对应 |
|
[原创]Obsidium_1.0.0.69 口令加密功能的完全分析
呵呵 看来是花了不少时间 支持~ |
操作理由
RANk
{{ user_info.golds == '' ? 0 : user_info.golds }}
雪币
{{ experience }}
课程经验
{{ score }}
学习收益
{{study_duration_fmt}}
学习时长
基本信息
荣誉称号:
{{ honorary_title }}
能力排名:
No.{{ rank_num }}
等 级:
LV{{ rank_lv-100 }}
活跃值:
在线值:
浏览人数:{{ visits }}
最近活跃:{{ last_active_time }}
注册时间:{{ user_info.create_date_jsonfmt }}
勋章
兑换勋章
证书
证书查询 >
能力值