unitwz.pas

武林外传辅助软件 比较简单,功能也比较单一.有兴趣的朋友可以更改后发一份给我

  TalkNo:integer;
  TalkNumber:integer;
  TalkAll:integer;
  SelectYes:boolean;
begin
   TalkNo:=0;

   TalkAll:=TalkText.Count;

//   Label1.Caption:=inttostr(TalkAll);

   timer1.Enabled:=false;
   timer2.Enabled:=false;
   timer3.Enabled:=false;
   timer4.Enabled:=false;
   timer5.Enabled:=false;

   keybd_event(13,0,0,0);//模拟按下回车键
   keybd_event(13,0,KEYEVENTF_KEYUP,0);//模拟释放回车键

   TalkNumber:=random(TalkAll-1); //随机产生一个取向具体喊话内容的整数

   while TalkNo<TalkAll do
    begin
    SelectYes:=TalkText.Checked[TalkNo];
     if (SelectYes=true) and (talknumber=TalkNo) then
       Clipboard.AsText:=TalkText.Items.Strings[TalkNo];
       INC(TalkNo);
    end;

   keybd_event(VK_control,MapVirtualKey(VK_control,0),0,0);
//   按下ctrl健
   keybd_event(ord('V'),MapVirtualKey(ord('V'),0),0,0);
//   按下V键
   keybd_event(ord('V'),MapVirtualKey(ord('V'),0),KEYEVENTF_KEYUP,0);
//   放开v键
   keybd_event(VK_control,MapVirtualKey(vk_control,0),KEYEVENTF_KEYUP,0);
//   放开Ctrl健

   keybd_event(13,0,0,0);//模拟按下回车键
   keybd_event(13,0,KEYEVENTF_KEYUP,0);//模拟释放回车键

   keybd_event(13,0,0,0);//模拟按下回车键
   keybd_event(13,0,KEYEVENTF_KEYUP,0);//模拟释放回车键

   if CheckBox1.Checked=true then
     timer1.Enabled:=true
   else
     timer1.Enabled:=false;

   if CheckBox2.Checked=true then
     timer2.Enabled:=true
   else
     timer2.Enabled:=false;

   if CheckBox3.Checked=true then
     timer3.Enabled:=true
   else
     timer3.Enabled:=false;

   if CheckBox4.Checked=true then
     timer4.Enabled:=true
   else
     timer4.Enabled:=false;

   if CheckBox5.Checked=true then
     timer5.Enabled:=true
   else
     timer5.Enabled:=false;
end;

//----------------------------------------------//

procedure TFormWuLingWanZhuang.ButtonBeginClick(Sender: TObject);
begin

   FormWuLingWanZhuang.Hide;
//----------------------------------------
   Tab_value:=SpinEditTab.Value*1000;
   Key1_value:=SpinEdit1.Value*1000;
   Key2_value:=SpinEdit2.Value*1000;
   Key3_value:=SpinEdit3.Value*1000;
   Key4_value:=SpinEdit4.Value*1000;
   Key5_value:=SpinEdit5.Value*1000;
   Talk_value:=SpinEditTalk.Value*1000;
//----------------------------------------
   timerTab.Interval:=Tab_value;
   timer1.Interval:=Key1_value;
   timer2.Interval:=Key2_value;
   timer3.Interval:=Key3_value;
   timer4.Interval:=Key4_value;
   timer5.Interval:=Key5_value;
   timerTalk.Interval:=Talk_value;
//-----------------------------------------
   if CheckBoxTab.Checked then
     timerTab.Enabled:=true
   else
     timerTab.Enabled:=false;

   if CheckBox1.Checked then
     timer1.Enabled:=true
   else
     timer1.Enabled:=false;

   if CheckBox2.Checked then
     timer2.Enabled:=true
   else
     timer2.Enabled:=false;

   if CheckBox3.Checked then
     timer3.Enabled:=true
   else
     timer3.Enabled:=false;

   if CheckBox4.Checked then
     timer4.Enabled:=true
   else
     timer4.Enabled:=false;

   if CheckBox5.Checked then
     timer5.Enabled:=true
   else
     timer5.Enabled:=false;


   if CheckBoxTalk.Checked=true then
     timerTalk.Enabled:=true
   else
     timerTalk.Enabled:=false;

//----------------------------------------

end;



procedure TFormWuLingWanZhuang.ButtonStopClick(Sender: TObject);
begin
   timerTab.Enabled:=false;
   timer1.Enabled:=false;
   timer2.Enabled:=false;
   timer3.Enabled:=false;
   timer4.Enabled:=false;
   timer5.Enabled:=false;
   timerTalk.Enabled:=false;
end;

procedure TFormWuLingWanZhuang.NSwithcClick(Sender: TObject);
begin
  ButtonBegin.Click;
end;

procedure TFormWuLingWanZhuang.NStopClick(Sender: TObject);
begin
  ButtonStop.Click;
end;


procedure TFormWuLingWanZhuang.StaticText1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  StaticText1.Cursor:=crHandPoint;
  StaticText1.Font.Style:=[fsbold,fsunderline];
  StaticText1.Color:=clGreen;
end;

procedure TFormWuLingWanZhuang.StaticText1Click(Sender: TObject);
begin
(*执行发送用户反馈信息*)
  ShellExecute(handle,nil,pchar('mailto:[e-mail]?subject=武林外传辅助软件用户反馈'),nil,nil,sw_hide);
end;

procedure TFormWuLingWanZhuang.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  StaticText1.Font.Style:=[fsbold];
  StaticText1.Color:=clBtnFace;
end;



procedure TFormWuLingWanZhuang.ButtonCloseClick(Sender: TObject);
begin
  close;
end;

procedure TFormWuLingWanZhuang.ButtonAddClick(Sender: TObject);
begin
 if trim(EditAdd.Text)<>'' then
   begin
    TalkText.Items.Append(EditAdd.Text);
    EditAdd.Text:='';
   end;
end;

procedure TFormWuLingWanZhuang.TrackBar1Change(Sender: TObject);
var l:longint;
begin
  l:=getWindowLong(Handle, GWL_EXSTYLE);
  l := l Or WS_EX_LAYERED;
  SetWindowLong (handle, GWL_EXSTYLE, l);
  SetLayeredWindowAttributes (handle, 0, TrackBar1.Position , LWA_ALPHA);
//第二个参数是指定透明颜色
//第二个参数为0则使用第四个参数设置alpha值，从0到255

end;

procedure TFormWuLingWanZhuang.FormClose(Sender: TObject; var Action: TCloseAction);
begin
{
  Action := caNone; //不对窗体进行任何操作
ShowWindow(Handle, SW_HIDE); //隐藏主窗体
//隐藏应用程序窗口在任务栏上的显示
ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
not (GetWindowLong(Application.handle, GWL_EXSTYLE)
or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW));
}
end;

procedure TFormWuLingWanZhuang.BitBtnRestoreClick(Sender: TObject);
//恢复默认值
begin
//----------------------------------------
   SpinEditTab.Value:=10;
   SpinEdit1.Value:=1;
   SpinEdit2.Value:=1;
   SpinEdit3.Value:=1200;
   SpinEdit4.Value:=3600;
   SpinEdit5.Value:=1740;
   SpinEditTalk.Value:=7;
//-----------------------------
  CheckBoxTab.Checked:=false;
  CheckBox1.Checked:=false;
  CheckBox2.Checked:=false;
  CheckBox3.Checked:=false;
  CheckBox4.Checked:=false;
  CheckBox5.Checked:=false;
//----------------------------------------
  SpinEditTalk.Value:=7;
  CheckBoxTalk.Checked:=false;
  TalkText.Items:=TempString.Items;

//----------------------------------------
end;

procedure TFormWuLingWanZhuang.BitBtnReadClick(Sender: TObject);

begin
  OpenDialog1.Execute;
  IniFilename:=OpenDialog1.FileName;
  myinifile:=Tinifile.Create(IniFileName);
//读取游戏快捷键设定（1）//
     Tab_value:=myinifile.ReadInteger('游戏快捷键设定(1)','Tab键时间',10);
     Key1_value:=myinifile.ReadInteger('游戏快捷键设定(1)','1键时间',1);
     Key2_value:=myinifile.ReadInteger('游戏快捷键设定(1)','2键时间',1);
     Key3_value:=myinifile.ReadInteger('游戏快捷键设定(1)','3键时间',1200);
     Key4_value:=myinifile.ReadInteger('游戏快捷键设定(1)','4键时间',3600);
     Key5_value:=myinifile.ReadInteger('游戏快捷键设定(1)','5键时间',1740);

     Tab_bool:=myinifile.ReadBool('游戏快捷键设定(1)','Tab键有效',false);
     Key1_bool:=myinifile.ReadBool('游戏快捷键设定(1)','1键有效',false);
     Key2_bool:=myinifile.ReadBool('游戏快捷键设定(1)','2键有效',false);
     Key3_bool:=myinifile.ReadBool('游戏快捷键设定(1)','3键有效',false);
     Key4_bool:=myinifile.ReadBool('游戏快捷键设定(1)','4键有效',false);
     Key5_bool:=myinifile.ReadBool('游戏快捷键设定(1)','5键有效',false);

//读取喊话设置//

     Talk_value:=myinifile.ReadInteger('喊话设置','自动喊话时间',7);
     Talk_bool:=myinifile.ReadBool('喊话设置','自动喊话有效',false);
//----------------------------------------
   SpinEditTab.Value:=Tab_value;
   SpinEdit1.Value:=Key1_value;
   SpinEdit2.Value:=Key2_value;
   SpinEdit3.Value:=Key3_value;
   SpinEdit4.Value:=Key4_value;
   SpinEdit5.Value:=Key5_value;
//----------------------------------------
  CheckBoxTab.Checked:=Tab_bool;
  CheckBox1.Checked:=Key1_bool;
  CheckBox2.Checked:=Key2_bool;
  CheckBox3.Checked:=Key3_bool;
  CheckBox4.Checked:=Key4_bool;
  CheckBox5.Checked:=Key5_bool;
//----------------------------------------
  SpinEditTalk.Value:=Talk_value;
  CheckBoxTalk.Checked:=Talk_bool;

//--------------------------------------------------

end;

procedure TFormWuLingWanZhuang.BitBtnSaveClick(Sender: TObject);
begin
 SaveDialog1.Execute;
 IniFilename:=SaveDialog1.FileName;
 if IniFileName<>'' then
begin
 IniFileName:=IniFileName+'.wg';
 myinifile:=Tinifile.Create(IniFileName);
//-------------------------------------

     Tab_value:=SpinEditTab.Value;
     Key1_value:=SpinEdit1.Value;
     Key2_value:=SpinEdit2.Value;
     Key3_value:=SpinEdit3.Value;
     Key4_value:=SpinEdit4.Value;
     Key5_value:=SpinEdit5.Value;
     Talk_value:=SpinEditTalk.Value;
//------------------------------
     Tab_bool:=CheckBoxTab.Checked;
     Key1_bool:=CheckBox1.Checked;
     Key2_bool:=CheckBox2.Checked;
     Key3_bool:=CheckBox3.Checked;
     Key4_bool:=CheckBox4.Checked;
     Key5_bool:=CheckBox5.Checked;
     Talk_bool:=CheckBoxTalk.Checked;

//保存游戏快捷键设定（1）//
//------------------------------------------------------------
     myinifile.WriteInteger('游戏快捷键设定(1)','Tab键时间',Tab_value);
     myinifile.WriteInteger('游戏快捷键设定(1)','1键时间',Key1_value);
     myinifile.WriteInteger('游戏快捷键设定(1)','2键时间',Key2_value);
     myinifile.WriteInteger('游戏快捷键设定(1)','3键时间',Key3_value);
     myinifile.WriteInteger('游戏快捷键设定(1)','4键时间',Key4_value);
     myinifile.WriteInteger('游戏快捷键设定(1)','5键时间',Key5_value);

     myinifile.WriteBool('游戏快捷键设定(1)','Tab键有效',Tab_bool);
     myinifile.WriteBool('游戏快捷键设定(1)','1键有效',Key1_bool);
     myinifile.WriteBool('游戏快捷键设定(1)','2键有效',Key2_bool);
     myinifile.WriteBool('游戏快捷键设定(1)','3键有效',Key3_bool);
     myinifile.WriteBool('游戏快捷键设定(1)','4键有效',Key4_bool);
     myinifile.WriteBool('游戏快捷键设定(1)','5键有效',Key5_bool);

//保存喊话设置//
     myinifile.WriteInteger('喊话设置','自动喊话时间',Talk_value);
     myinifile.WriteBool('喊话设置','自动喊话有限',Talk_bool);
     Talktext.Items.SaveToFile(TextFileName);
   end;
end;

procedure TFormWuLingWanZhuang.ButtonDelClick(Sender: TObject);
begin
 TalkText.DeleteSelected;
end;

procedure TFormWuLingWanZhuang.ButtonAllClick(Sender: TObject);
var
  TalkNo:integer;
  TalkAll:integer;
begin
  TalkAll:=TalkText.Items.Count;
  TalkNo:=0;
  While TalkNo< TalkAll do
   begin
    TalkText.State[TalkNo]:=cbChecked;
    Inc(TalkNo);
   end;
end;

end.