帮我看个程序写的对不？

2013-07-25 03:06:09 188 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

自己写的Python程序模拟原神抽卡，问题很大，但不知道怎么解决，有人帮我看看吗 gacha函数里的参数times预想的是抽卡次数，但不管调用的时候写多少次都会持续输出到程序结束为止；而且概率明显偏高，不知道有什么问题。阅读详情

type
TCopyDataStruct = packed record
dwData: DWORD; // 条件
cbData: DWORD; // 信息长度需要 + 1，加一个结束符的位
lpData: Pointer; // 数据指针，传送数据的地址
end;

PCopyDataStruct = ^TCopyDataStruct;

type
TCardInfo = packed record
CardNO: array[0..24] of char;
Balance: integer;
end;

PCardInfo = ^TCardInfo;

procedure TMainForm.WMReceiveMsgFromCircul(var Msg: TMessage);
var
cdData: TCopyDataStruct;
cdInfo: TCardInfo;
begin
cdData := (PCopyDataStruct(Msg.LParam))^;
end;

一个程序按照TCopyDataStruct结构体的格式取地址强制转成整形，然后通过sendmessage，将值放在最后一个参数里，然后我的程序接收这个消息，将最后一个参数的值取出来，按照上面的写法来得到结果，但是有时报错，有时得不到结果。谁能帮我分析下？

...全文