征途2新浪卡：之前帮朋友写的一个小工具-征途2新浪卡全自动淘号工具+按钮精灵脚本

 

比较简单的小工具

using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Drawing;using System.Linq;using System.Text;using System.Windows.Forms;using System.Net;using System.Text.RegularExpressions;using System.IO;namespace Zt2SinaTaoKaTool{ public partial class MainForm : Form { public MainForm() { InitializeComponent(); } private int ka_ren_count = 10; private WebClient client = null; private StreamWriter sw = new StreamWriter("ka.txt", true); private void button1_Click(object sender, EventArgs e) { button1.Enabled = false; button2.Enabled = true; textBox1.Enabled = false; try { ka_ren_count = Int32.Parse(textBox1.Text); } catch (Exception) { ka_ren_count = 10; } //开始任务 if (client == null) { client = new WebClient(); } else { if (client.IsBusy) { client.Dispose(); } client = new WebClient(); } client.OpenReadCompleted += new OpenReadCompletedEventHandler(client_OpenReadCompleted); // Add a user agent header in case the // requested URI contains a query. client.Headers.Add("user-agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.0.3705;)"); timer1.Start(); } private int tao_count = 0; void client_OpenReadCompleted(object sender, OpenReadCompletedEventArgs e) { MainForm pThis = sender as MainForm; if (e.Result != null) { using (e.Result) { StreamReader reader = new StreamReader(e.Result); string s = reader.ReadToEnd(); reader.Close(); Regex reg = new Regex(@"本组卡号已经被[\d]{0,4}人淘过"); Match match = reg.Match(s); if (match.Success) { string value = match.Value; string int_value = value.Replace("本组卡号已经被", "").Replace("人淘过", "").Trim(); if (int_value != "") { int ren = Convert.ToInt32(int_value); if (ren <= ka_ren_count) { Regex reg_ka = new Regex("(.){5}-(.){5}-(.){5}-(.){5}"); MatchCollection ka_matchs = reg_ka.Matches(s); if (ka_matchs.Count > 0) { StreamWriter sw_single = new StreamWriter(string.Format("ka_{0}_{1}.txt", DateTime.Now.Ticks, int_value), true); string _tempLastKa = ""; foreach (Match item in ka_matchs) { string _ka = item.Value; if (_tempLastKa == _ka) { continue; } _tempLastKa = _ka; sw.WriteLine(_ka); sw.Flush(); sw_single.WriteLine(_ka); listBox1.Items.Add(_ka); } sw_single.Close(); } } } } else { MessageBox.Show("网络请求出错了,重新打开试试!"); } } tao_count++; label2.Text = tao_count.ToString(); } } private void button2_Click(object sender, EventArgs e) { timer1.Stop(); client.OpenReadCompleted -= client_OpenReadCompleted; button1.Enabled = true; button2.Enabled = false; textBox1.Enabled = true; } private int timer_count = 0; private void timer1_Tick(object sender, EventArgs e) { timer_count++; label4.Text = timer_count.ToString(); if (timer_count >= 20) { timer_count = 0; try { client.OpenReadAsync(new Uri("http://ka.sina.com.cn/index.php/request/pickNum/gid/722/itemId/3843/1371195204095"), this); } catch (Exception) { MessageBox.Show("网络异常,关了重试!"); } } } private void listBox1_SelectedIndexChanged(object sender, EventArgs e) { //System.Collections.Specialized.StringCollection s = new System.Collections.Specialized.StringCollection(); //MessageBox.Show(listBox1.SelectedItem as string); //s.Add(listBox1.SelectedItem as string); Clipboard.SetDataObject(listBox1.SelectedItem as string); } private void MainForm_FormClosed(object sender, FormClosedEventArgs e) { sw.Close(); } }}

 

按钮精灵的脚本

Dim aSetSimMode 2VBS Dim fso,ts,textVBS Const ForReading = 1VBS Set fso = CreateObject("Scripting.FileSystemObject")Set ts = fso.OpenTextFile("e:\ka_tool\ka.txt", ForReading)Rem Read_1VBS kaTest=ts.ReadLineif kaTest="" or ts.AtEndOfStream Goto Read_OverEnd If LeftClick 1 /*左键，这是点NPC的*/ '==========以下是按键精灵录制的内容==========Delay 100MoveTo 456, 337Delay 30MoveTo 452, 337Delay 10MoveTo 450, 337Delay 30MoveTo 442, 337Delay 10MoveTo 438, 337Delay 30MoveTo 431, 335Delay 10MoveTo 426, 335Delay 30MoveTo 424, 335Delay 10MoveTo 422, 334Delay 30MoveTo 419, 333Delay 10MoveTo 416, 333Delay 30MoveTo 414, 332MoveTo 412, 331Delay 20MoveTo 408, 330Delay 10MoveTo 398, 328Delay 10MoveTo 385, 325Delay 20MoveTo 374, 321Delay 100MoveTo 357, 320Delay 100MoveTo 349, 319Delay 200MoveTo 342, 318Delay 200MoveTo 338, 318MoveTo 336, 318Delay 500LeftDown 1LeftClick 1LeftUp 1Delay 500'==========以上是按键精灵录制的内容========== a = left(kaTest, 23) //Plugin.Sys.SetCLB (a)//Delay 240//KeyDown "Ctrl", 1//Delay 150//KeyDown "V", 1//Delay 100//KeyUp "V", 1//Delay 30//KeyUp "Ctrl", 1SayString aKeyPress 13,1 Delay 1000 /*延迟1秒*/ KeyPress "Enter", 1 /*回车兑换*/ Delay 2000 /*延迟1秒*/ //下面这句在屏幕区域范围内截图保存到("C:\PIC.bmp")里 //Call Plugin.Pic.PrintScreen(369,274,716,422, "C:\PIC.bmp") FindPic 369,274,716,422,"Attachment:\2013621113659.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then Call Plugin.File.WriteFileEx("E:\ka_tool\ka_error.txt", a) Else Call Plugin.File.WriteFileEx("E:\ka_tool\ka_ok.txt", a) End If KeyPress "Enter", 1 /*把弹出的那个兑换成功啊还有卡号错误那个框框按掉*/ Delay 500 '==========以下是按键精灵录制的内容========== Delay 100 MoveTo 336, 318 MoveTo 338, 318 Delay 20 MoveTo 342, 318 Delay 20 MoveTo 349, 319 Delay 10 MoveTo 357, 320 Delay 10 MoveTo 374, 321 Delay 20 MoveTo 385, 325 Delay 10 MoveTo 398, 328 Delay 10 MoveTo 408, 330 Delay 20 MoveTo 412, 331 Delay 30 MoveTo 416, 333 Delay 10 MoveTo 419, 333 Delay 30 MoveTo 422, 334 Delay 10 MoveTo 424, 335 Delay 30 MoveTo 426, 335 Delay 10 MoveTo 431, 335 Delay 30 MoveTo 438, 337 Delay 10 MoveTo 442, 337 Delay 30 MoveTo 450, 337 Delay 10 MoveTo 452, 337Delay 30MoveTo 456, 337Delay 100'==========以上是按键精灵录制的内容==========Goto Read_1Rem Read_OverVBS ts.Close

 

转载于:https://my.oschina.net/u/158055/blog/694696