Big Bug Ban

兴趣 践行 创新

飞信炸弹v1.0做好咯~~(20090621修正V2.0)

 

现在时间…凌晨2:34
刚花了半个小时做了个这个东东~~
名曰飞信炸弹…其实也可以通用qq啊什么的

先简单的上几个图

图标….(网上找的)

简单的界面

下载地址(如果不能运行…请先装net framework2.0)

备用下载地址1(只有在我电脑打开的时候才能下)

(20090621path—2.0–输入法bug修正)
说明在文件夹里面

最后附上源代码~~~

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using System.IO;

namespace FetionBOBM
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}

private void button1_Click(object sender, EventArgs e)
{
if (this.richTextBox1.Text.ToString() == “”)
{
MessageBox.Show(“对不起..请输入要发送的话”);
}
else
{
//预处理vbs
setfile();
//将数据放入剪贴板
Clipboard.SetText(this.richTextBox1.Text.ToString());
//提示信息
MessageBox.Show(“按下确认键10秒后即开始发送~~\r\n在此时间内把光标移动到对话框内\r\n”);
//开始
startsend();
}
}
public int setfile()
{
//建立新文件
FileStream File=new FileStream(Application.StartupPath + “/temp.vbs”, FileMode.Create);
File.Close();
StreamWriter Wfile= new StreamWriter(Application.StartupPath + “/temp.vbs”);
//初始化
Wfile.WriteLine(“Dim WshShell\r\nSet WshShell=WScript.CreateObject(\”WScript.Shell\”)”);
//设定
Wfile.WriteLine(“WScript.Sleep 10000”);
Wfile.WriteLine(“for i=1 to ” + this.textBox1.Text.ToString());
Wfile.WriteLine(“WshShell.SendKeys \”^v\””);
Wfile.WriteLine(“WScript.Sleep ” + this.textBox2.Text.ToString());

Wfile.WriteLine(“WshShell.SendKeys \”{ENTER}\””);

Wfile.WriteLine(“WshShell.SendKeys \”^{ENTER}\””);

Wfile.WriteLine(“next”);
Wfile.Close();
return 1;
}
void startsend()
{
//调用此vbs
System.Diagnostics.Process.Start(Application.StartupPath + “/temp.vbs”);

}

private void linkLabel1_LinkClicked(object sender, LinkLabelLinkClickedEventArgs e)
{
System.Diagnostics.Process.Start(“http://hi.baidu.com/baizhongwei”);

}
}
}

很短….也很简单….

Written by princehaku

4月 16th, 2009 at 2:34 上午

Posted in technology

without comments

Leave a Reply