飞信炸弹v1.0做好咯~~(20090621修正V2.0)
刚花了半个小时做了个这个东东~~
名曰飞信炸弹…其实也可以通用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”);
}
}
}
很短….也很简单….