倩女幽魂客户端辅助类小程序(附源码)：

山巔一寺一壺酒 · 发表于 2017-4-10 12:54:16

马上注册，结交更多好友，享用更多功能，让你轻松玩转新倩女幽魂社区。

您需要登录才可以下载或查看，没有帐号？创建论坛帐号

x

本帖最后由山巔一寺一壺酒于 2017-6-12 17:19 编辑

使用须知：本帖贴出的任何程序（但不包括其他人共享给朋友们的，仅限于本帖下载）都不会访问游戏文件夹、获取游戏进程数据，全部都需要自己手动在程序上面输入，所以不会被拉小黑屋。
由于防止他人恶意修改源程序伪造成楼主发布的共享给他人，楼主对程序作了混淆打包
所以由于混淆打包工具限制，过期不能使用请联系楼主进行帖子更新，重新打包程序：
帖源码(仅限逻辑代码，视图排版代码不贴)是为了懂代码的朋友不放心楼主程序自己复制生成使用
（但是重新生成的程序信息与楼主生成的会有差异，因此楼主以及懂的人可以区分是否是他人恶意修改后的程序）

1.侠侣诗词复制：
程序：

侠侣1-1.zip (560.68 KB, 下载次数: 837)
最新版本下载(移除第三方加密[需要收费，有时间限制，并且增加了程序的大小]，采用微软Dotfuscated混淆[无时间限制，可永久使用]，降低程序大小)：

1_1.zip (5.77 KB, 下载次数: 689)

点击复制后，在答题框使用Ctrl+V粘贴即可
程序截图：

视频示例：

C#源码：

using System;
using System.Collections.Generic;
using System.Drawing;
using System.Windows.Forms;
namespace _1_1
{
public partial class Form1 : Form
{
private Dictionary<string, string> m_Text;
private Dictionary<string, Button> m_btn;
private Timer timer;
private Dictionary<Button, DateTime> m_time;
public Form1()
{
InitializeComponent();
}
private void Form1_Load(object sender, EventArgs e)
{
foreach (KeyValuePair<string, string> item in GetText)
{
int index = panC.Controls.Find("key", false).Length;
int top = index * 30 + 10;
Label lab = new Label();
lab.Name = "key";
lab.Text = item.Key + ",";
lab.Left = 10;
lab.Top = top;
while (this.Height < (top + 60))
{
this.Height += 10;
}
panC.Controls.Add(lab);
Label result = new Label();
result.Name = "result";
result.Text = item.Value;
result.Left = lab.Left + lab.Width + 20;
result.Top = top;
panC.Controls.Add(result);
Button btn = new Button();
btn.Name = item.Key;
btn.Text = "复制";
btn.Click += Copy_Click;
btn.Left = result.Left + result.Width + 20;
btn.Top = top - 6;
panC.Controls.Add(btn);
}
this.Height += 30;
Label lText = new Label();
lText.Left = 10;
lText.Width = 300;
lText.Top = panC.Bottom - 30;
panC.Controls.Add(lText);
if (timer == null)
{
timer = new Timer();
timer.Interval = 100;
timer.Tick += Timer_Sender;
timer.Start();
}
}
private void Timer_Sender(object sender, EventArgs e)
{
if (ResetBtn.Count > 0)
{
Dictionary<Button, DateTime> temp = new Dictionary<Button, DateTime>();
foreach (KeyValuePair<Button, DateTime> item in BtnTime)
{
if ((DateTime.Now - item.Value).Seconds < 3)
{
temp.Add(item.Key, item.Value);
}
else
{
item.Key.Text = "复制";
item.Key.ForeColor = Color.Black;
ResetBtn.Remove(item.Key.Name);
}
}
m_time = temp;
}
}
private void Copy_Click(object sender, EventArgs e)
{
Button btn = sender as Button;
Clipboard.SetDataObject(GetText[btn.Name]);
btn.Text = "已复制";
btn.ForeColor = Color.Red;
if (!ResetBtn.ContainsKey(btn.Name))
ResetBtn.Add(btn.Name, btn);
if (!BtnTime.ContainsKey(btn))
BtnTime.Add(btn, DateTime.Now);
else
BtnTime[btn] = DateTime.Now;
}
private Dictionary<Button, DateTime> BtnTime
{
get
{
if (m_time == null)
m_time = new Dictionary<Button, DateTime>();
return m_time;
}
}
private Dictionary<string, Button> ResetBtn
{
get
{
if(m_btn==null)
{
m_btn = new Dictionary<string, Button>();
}
return m_btn;
}
}
private Dictionary<string, string> GetText
{
get
{
if (m_Text == null)
{
m_Text = new Dictionary<string, string>();
m_Text.Add("七月七日长生殿", "夜半无人私语时");
m_Text.Add("金风雨露一相逢", "便胜却人间无数");
m_Text.Add("自是人间一周岁", "何妨天上只黄昏");
m_Text.Add("凉风吹玉露", "河汉有幽期");
m_Text.Add("妆成应懒织", "今夕渡河归");
m_Text.Add("云阶月地一相过", "未抵经年别恨多");
m_Text.Add("争将世上无期别", "换得年年一度来");
m_Text.Add("几许欢情与离恨", "年年并在此宵中");
m_Text.Add("仙裙玉佩空自知", "天上人间不相见");
m_Text.Add("河汉清且浅", "相去复几许");
}
return m_Text;
}
}
}
}

复制代码

2.官府兵器计算器：
程序：

CopyAndComputing.zip (561.96 KB, 下载次数: 585)
最新版本下载(移除第三方加密[需要收费，有时间限制，并且增加了程序的大小]，采用微软Dotfuscated混淆[无时间限制，可永久使用]，降低程序大小)：

CopyAndComputing.zip (7.43 KB, 下载次数: 496)

程序截图：

源码：

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Text.RegularExpressions;
using System.Windows.Forms;
namespace CopyAndComputing
{
public partial class Computing : Form
{
public Computing()
{
InitializeComponent();
AddStaticKeyValue();
}
private readonly Dictionary<byte, string> m_defaultText = new Dictionary<byte, string>();
private readonly Dictionary<byte, Dictionary<byte, string>> m_text = new Dictionary<byte, Dictionary<byte, string>>();
private void AddStaticKeyValue()
{
m_defaultText.Add(0, "第一个npc");
m_defaultText.Add(1, "第二个npc");
m_defaultText.Add(2, "第三个npc");
}
private void textbox_Enter_Click(object sender, EventArgs e)
{
TextBox tb = sender as TextBox;
tb.ReadOnly = false;
if (m_defaultText.ContainsValue(tb.Text))
tb.Text = "";
else
tb.Select(tb.Text.Length, 0);
if (m_text.Count > 0 && m_text.ContainsKey(0) && m_text[0].ContainsKey(0)
&& m_text.ContainsKey(1) && m_text[1].ContainsKey(0)
&& m_text.ContainsKey(2) && m_text[2].ContainsKey(0))
{
panelTwo.Visible = true;
}
else
panelTwo.Visible = false;
if (m_text.Count > 0 && m_text.ContainsKey(0) && m_text[0].ContainsKey(1)
&& m_text.ContainsKey(1) && m_text[1].ContainsKey(1)
&& m_text.ContainsKey(2) && m_text[2].ContainsKey(1))
{
panelThree.Visible = true;
}
else
panelThree.Visible = false;
}
private bool isDouble_Click_Select = false;
private void Double_Click(object sender, EventArgs e)
{
TextBox tb = sender as TextBox;
if (!m_defaultText.ContainsValue(tb.Text))
{
tb.Select(0, tb.Text.Length);
isDouble_Click_Select = true;
}
}
private void textbox_Levae(object sender, EventArgs e)
{
#region
if (string.IsNullOrEmpty((sender as TextBox).Text))
{
textbox_Enter_Click(sender, e);
if ((sender as TextBox).Name.ToLower().EndsWith("one"))
{
(sender as TextBox).Text = m_defaultText[0];
}
else if ((sender as TextBox).Name.ToLower().EndsWith("two"))
{
(sender as TextBox).Text = m_defaultText[1];
}
else
(sender as TextBox).Text = m_defaultText[2];
}
#endregion
}
private int ComputResult(byte m)
{
if (!m_text.ContainsKey(m))
return 0;
int result = 0;
foreach (KeyValuePair<byte, string> value in m_text[m])
{
int temp = 0;
int.TryParse(value.Value, out temp);
result += temp;
}
return result;
}
private void Key_Up(object sender, KeyEventArgs e)
{
if (!e.Control)
{
if (!isDouble_Click_Select)
{
TextBox tb = sender as TextBox;
Regex regex = new Regex("\\d*");
tb.Text = regex.Match(tb.Text).Value;
tb.Select(tb.Text.Length, 0);
if (tb.Name.ToLower().StartsWith("txtweapons"))
{
Update_Texts(0, tb);
txtWeaponsResult.Text = ComputResult(0).ToString();
}
else if (tb.Name.ToLower().StartsWith("txtarmor"))
{
Update_Texts(1, tb);
txtArmorResult.Text = ComputResult(1).ToString();
}
else
{
Update_Texts(2, tb);
txtHorseResult.Text = ComputResult(2).ToString();
}
textbox_Enter_Click(sender, null);
}
else
isDouble_Click_Select = false;
}
}
private void Update_Texts(byte m, TextBox tb)
{
if (tb.Name.ToLower().EndsWith("one"))
{
Update_Text(m, 0, tb.Text);
}
else if (tb.Name.ToLower().EndsWith("two"))
{
Update_Text(m, 1, tb.Text);
}
else
Update_Text(m, 2, tb.Text);
}
private void Update_Text(byte m, byte n, string value)
{
if (m_text.ContainsKey(m))
{
if (m_text[m].ContainsKey(n))
{
if (string.IsNullOrEmpty(value))
{
m_text[m].Remove(n);
}
else
m_text[m][n] = value;
}
else if (!string.IsNullOrEmpty(value))
m_text[m].Add(n, value);
}
else if (!string.IsNullOrEmpty(value))
{
Dictionary<byte, string> m_value = new Dictionary<byte, string>();
m_value.Add(n, value);
m_text.Add(m, m_value);
}
}
}
}

复制代码

3.侠侣4-2计算器、提示打怪：（开发中、和朋友测怪物十位数的数据中..（有时间的朋友可以帮着测试数据的可以m我，我单独发给你们半成品程序测数据，谢谢）.）
程序：
(程序进度:可以提示接下来可以打的怪物（已经优化，按当前场景怪物的分数从高到低排序提示）不会出现混乱，目前需要大量数据测试十位数进行更正确的提示程序版本更换，界面迭代
第一版：（无打怪提示，需要切换窗口点击对应怪物以及开启怪物堆）

第二版：（取消语音输入[因兼容性不是很好]，取消怪物堆点击[需要首次点击]，增加快捷按钮[alt+1/2/3/4] 增加全局热键比如不与游戏冲突的Ctrl+F 可以置顶窗口，不需要切换窗口，只需要使用全局热键即可）

十位数已经测试完毕，最后测试场景怪物数量上限后即可完善女方数据(男方已经测试完毕)，开始正式游戏通关视频录制，
最终版本已确定，试用中。。。。

4_2计数、推荐打怪、计算砸群：

楼主梅花小魅(符号忘记了)：秋殤淚別離景

侠侣4_2龙飞版.zip (20.34 KB, 下载次数: 577)
龙飞(可砸群)版：

侠侣4_2龙飞带砸群版.zip (21.04 KB, 下载次数: 536)
龙飞凤舞（可砸群版）：

龙飞凤舞砸群版.zip (21 KB, 下载次数: 638)

在此感谢与我一起测试数据的朋友梅花：尘梦、花信

老司机专用 · 发表于 2019-7-1 17:41:27

749419 · 发表于 2019-6-26 00:42:30

虽然不知道楼猪在说什么

，但是看起来好厉害的样子！

233书 · 发表于 2019-6-25 12:03:28

111111111111111

红花丶 · 发表于 2019-2-28 08:53:21

楼主是新学编程吧，这个动手写程序习惯不错。建议把诗词这种数据写在单独的配置文件里，这样如果内容更新用户可以自行修改，你写在代码里如果要更新只能重新编译

枯骨含血 · 发表于 2019-2-27 16:40:18

只要不是钩子就没事。

。要不然会封号

1799285709 · 发表于 2018-12-7 23:10:58

一脸懵逼进来一脸茫然出去

山巔一寺一壺酒 · 发表于 2018-12-7 20:29:32

靡所厎止发表于 2018-10-15 16:24
懵逼这小程序是干嘛用的

计数自己打了多少，该打哪个的

山巔一寺一壺酒 · 发表于 2018-12-7 20:29:11

damo 发表于 2018-11-25 16:58
4-3可以搞个坐标控制的脚本通过视频通关记录的坐标节点。火球地方可以半自动。 ...

恩，那会被封的，，

山巔一寺一壺酒 · 发表于 2018-12-7 20:28:56

じ☆ve尐笨蛋灬发表于 2018-11-26 15:09

不会操作游戏，不会封号的

大二方 · 发表于 2018-11-26 17:43:28

真的是技术贴。。。

じ☆ve尐笨蛋灬 · 发表于 2018-11-26 15:09:58

damo · 发表于 2018-11-25 16:58:49

4-3可以搞个坐标控制的脚本通过视频通关记录的坐标节点。火球地方可以半自动。

靡所厎止 · 发表于 2018-10-15 16:24:35

懵逼这小程序是干嘛用的

影子侠 · 发表于 2018-9-28 18:27:50

没看明白

[任务] 倩女幽魂客户端辅助类小程序(附源码)：

马上注册，结交更多好友，享用更多功能，让你轻松玩转新倩女幽魂社区。