关于delphi打字游戏源码的信息
本文目录一览：
- 1、Delphi 源码都有哪些后缀?
- 2、delphi编写能够模拟键盘输入应用程序的源代码
- 3、delphi 怎么写代码能想按键精灵一样(游戏)后台按键
- 4、求《热血传奇》的delphi完整源代码
- 5、求一delphi编写的小程序源码，能够运行会追加！
Delphi 源码都有哪些后缀?
dpr 为工程文件
dfm 为窗体文件
pas 为单元文件
cfg 配置文件
dof 为项目选项文件(一般没用)
dcu compiled units文件 ,编译后delphi打字游戏源码的单元文件
res 资源文件
ddp 文件就是Delphi Diagram Portfolio简写,是用来保存Code Editor中delphi打字游戏源码的Diagram信息delphi打字游戏源码的.
一般一个项目要 dpr,dfm,pas文件即可,如果有cfg,res也要(后两个文件很少用到)
delphi编写能够模拟键盘输入应用程序的源代码
下面是delphi打字游戏源码我很多年前编写的一个在“江湖”游戏里面泡点的程序delphi打字游戏源码，该程序手动选择浏览器的HANDLEdelphi打字游戏源码，然后自动完成打怪、发言等功能。，程序如下delphi打字游戏源码：
program jianghu;
{$apptype console}
uses windows,messages;
function GetFocusHld: hwnd;
var
windowhld:hwnd;
threadld:dword;
begin
windowhld:=GetForegroundWindow;
threadld:=GetWindowThreadProcessId(Windowhld,nil);
AttachThreadInput(GetCurrentThreadId,threadld,true);
Result:=getfocus;
AttachThreadInput(GetCurrentThreadId,threadld,false);
end;
procedure SendKeys(focushld:hwnd;sSend:string);
var
i:integer;
ch: byte;
begin
if focushld = 0 then Exit;
i := 1;
while i = Length(sSend) do
begin
ch := byte(sSend[i]);
if Windows.IsDBCSLeadByte(ch) then
begin
Inc(i);
SendMessage(focushld, WM_IME_CHAR, MakeWord(byte(sSend[i]), ch), 0);
end
else
SendMessage(focushld, WM_IME_CHAR, word(ch), 0);
Inc(i);
end;
postmessage(focushld,WM_keydown,13,0);
end;
procedure CloseIEPopWind;
var
hCurrentWindow, hActWind: HWnd;
szText: array [0..255] of char;
begin
hActWind:=FindWindow('Progman',nil);
hCurrentWindow := GetWindow(hActWind, GW_HWNDFIRST);
while hCurrentWindow 0 do
begin
if (GetWindowText(hCurrentWindow, @szText, 255)0) and (szText='Microsoft Internet Explorer')
then begin
//writeln('Found IE Pop Window ',hCurrentWindow, #9, szText);
PostMessage(hCurrentWindow,WM_CLOSE,1,0);
end;
hCurrentWindow:=GetWindow(hCurrentWindow, GW_HWNDNEXT);
end;
end;
var
s: string;
i,n: integer;
focushld: hwnd;
nosay: boolean;
begin
n:=0;
nosay:=false;
if ParamCount0 then begin
val(ParamStr(1),n,i);
nosay:=(i=0)and(n=0);
if i0 then n:=0
end;
if n=0 then n:=10;
writeln('江湖自动泡点程序－－杨光彬 2002年5月7日修订版'#13#10);
writeln('用法：',ParamStr(0),' [自动重复时间(这次为',n,'秒)]'#13#10);
n:=n*1000;
if not nosay then begin
writeln('请在五秒之内移动到江湖窗口，鼠标点击话语输入框，等待自动说出0'#13#10);
sleep(5000);
focushld:=getfocushld;
write('已经开始自动泡点，按Ctrl+C退出程序。(',focushld,') ... ');
end else write('此次仅仅是自动关闭IE弹出窗口，按Ctrl+C退出程序 ... ');
i:=0;
repeat
CloseIEPopWind;
if not nosay then begin
str(i,s);
if i mod (180000 div n)=0 then sendkeys(focushld,'/练武$') else
sendkeys(focushld,s);
inc(i);
end;
sleep(n);
until false;
end.
delphi 怎么写代码能想按键精灵一样(游戏)后台按键
用API把键盘 鼠标动作模拟出来 delphi打字游戏源码，像这样
GetCursorPos(po);
SetCursorPos(box[x1,y1].x,box[x1,y1].y);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Keybd_event(Ord('1'),MapVirtualkey(Ord('1'),0),0,0);//'1'键按下
Keybd_event(Ord('1'),MapVirtualkey(Ord('1'),0),KEYEVENTF_KEYUP,0);//'1'键弹起
求《热血传奇》的delphi完整源代码
哦 必须用jstl啊 你看你的list是不是没有值
先c:out value="${bean}"/c:out
看下list中是不是可以迭代出来集合的对象
如果可以迭代出来对象的话 那就只能说明你的${bean.column_length}引用不对
仔细检查下
求一delphi编写的小程序源码，能够运行会追加！
一、字符界面：
program Project1;
{$APPTYPE CONSOLE}
var
s, sub: string;
i: Integer;
begin
s := 'ACBDCABDCBAAAACCBDACDDBCAADBADCCC';
Read(sub);
i := Pos(sub, s);
if i 0 then Writeln('查找成功。位置：', i)
else Writeln('无法找到');
Readln;
Readln;
end.
二、Windows 界面
在Form上放一个Edit，放一个Button，在Button的OnClick事件中写：
procedure TForm1.Button1Click(Sender: TObject);
var
s, sub: string;
i: Integer;
begin
s := 'ACBDCABDCBAAAACCBDACDDBCAADBADCCC';
sub := Edit1.Text;
i := Pos(sub, s);
if i 0 then ShowMessage('查找成功。位置：' + IntToStr(i))
else ShowMessage('无法找到');
end;
