vb做qq消息群發(fā)源代碼

這個(gè)需要登錄嗎？如果需要登錄才能使用的，那是無法破解的，因?yàn)樾枰诜?wù)端來驗(yàn)證的

為臨漳等地區(qū)用戶提供了全套網(wǎng)頁(yè)設(shè)計(jì)制作服務(wù)，及臨漳網(wǎng)站建設(shè)行業(yè)解決方案。主營(yíng)業(yè)務(wù)為成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作、臨漳網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠(chéng)的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會(huì)得到認(rèn)可，從而選擇與我們長(zhǎng)期合作。這樣，我們也可以走得更遠(yuǎn)！

求VB.NET的QQ群

二級(jí)VB視頻教程： vb在線群3573536 最新vb全國(guó)討論群:15803023 群一 8936930 以滿 180人已經(jīng)滿人 群二 25054056 空 可容納180 群三 8871336 空 可容納180 群四 19340971 空 可容納180最新vb學(xué)習(xí)群:39070924，VB專業(yè)群 23987875， API 群 28397900 DELPHI群 6730188 ＶＢ群8936930歡迎加入 白云生處

VB.net的作品如果完成要發(fā)給別人用的話，要發(fā)哪些文件給別人就可以啦

只需要發(fā)應(yīng)用程序就行了, 就是后綴名為.exe的..... 其他東西都不用發(fā)的.

vb sendmessage 向QQ聊天窗口發(fā)送消息并發(fā)送.注:后臺(tái)運(yùn)行,即不需要聊天窗口獲得焦點(diǎn)也能發(fā)

用Win API函數(shù)GetWindow和FindWindow找到窗口句柄hwnd，然后再用SendMessage函數(shù)向句柄發(fā)消息就可以在后臺(tái)不停的發(fā)消息了。比SendKeys強(qiáng)大，但SendKeys掌握起來容易得多。

有關(guān)這三個(gè)函數(shù)的用法，在百度搜它們的名稱就找到了。

如果你編程水平不好，我給你出個(gè)主意。裝一個(gè)微軟的Virtual PC，這樣在你電腦上可以啟動(dòng)一臺(tái)虛擬電腦，它能共享你真電腦上網(wǎng)。你給虛擬PC裝上QQ和你的程序，讓這臺(tái)虛擬PC專職發(fā)消息，把它放在后臺(tái)也不會(huì)影響你做其它事情的。

有誰(shuí)搞過vb.net或c#給QQ好友發(fā)信息的？怎樣實(shí)現(xiàn)的，能不能說說

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Text;

using System.Windows.Forms;

using System.Security.Cryptography;

using System.Diagnostics;

namespace QQLogin

{

public partial class QQLoginForm : Form

{

public QQLoginForm()

{

InitializeComponent();

}

UserInfo ui;

private void button1_Click(object sender, EventArgs e)

{

//單用戶登陸

if (ui == null)

{

ui = new UserInfo();//如果沒有提取出來對(duì)象，就創(chuàng)建一個(gè)

}

if (ui != null)

{

ui.Username = this.txtUser.Text.Trim();

ui.Password = this.txtPwd.Text;

ui.Type = this.cboType.Text == "正常" ? "41" : "40";

if (this.ValidateInput())

{//驗(yàn)證是否輸入完全

if (string.IsNullOrEmpty(ui.Path))

{//判斷是否有QQ路徑，如果沒有就打開對(duì)話框來選擇一下

DialogResult dr = this.opfQQ.ShowDialog();

if (dr == DialogResult.OK)

{

ui.Path = opfQQ.FileName;//將選擇的路徑賦值給對(duì)象

this.LoginQQ(ui.Username, ui.Password, ui.Type, ui.Path);//登陸QQ

}

}

else

{

this.LoginQQ(ui.Username, ui.Password, ui.Type, ui.Path);

}

}

SerializeHelper.SerializeUserInfo(ui);//每次登陸都序列化保存一次

}

}

private bool ValidateInput()

{//驗(yàn)證是否輸入完整

if (this.txtUser.Text == "")

{

this.txtUser.Focus();

return false;

}

else if(this.txtPwd.Text=="")

{

this.txtPwd.Focus();

return false;

}

return true;

}

private void LoginQQ(string user,string pwd,string type,string path)

{//登陸QQ的命令，通過CMD命令來執(zhí)行

Process MyProcess = new Process();

//設(shè)定程序名

MyProcess.StartInfo.FileName = "cmd.exe";

//關(guān)閉Shell的使用

MyProcess.StartInfo.UseShellExecute = false;

//重定向標(biāo)準(zhǔn)輸入

MyProcess.StartInfo.RedirectStandardInput = true;

//重定向標(biāo)準(zhǔn)輸出

MyProcess.StartInfo.RedirectStandardOutput = true;

//重定向錯(cuò)誤輸出

MyProcess.StartInfo.RedirectStandardError = true;

//設(shè)置不顯示窗口

MyProcess.StartInfo.CreateNoWindow = true;

//執(zhí)行強(qiáng)制結(jié)束命令

MyProcess.Start();

MyProcess.StandardInput.WriteLine(path+" /start QQUIN:"+user+" PWDHASH:" + EncodeHash.pwdHash(pwd) + " /stat:"+type);//直接結(jié)束進(jìn)程ID

MyProcess.StandardInput.WriteLine("Exit");

}

private void btnExit_Click(object sender, EventArgs e)

{

Application.Exit();

}

private void txtUser_KeyPress(object sender, KeyPressEventArgs e)

{

if ((e.KeyChar '0' || e.KeyChar '9')e.KeyChar!=8)

{//只能輸入數(shù)字和退格鍵

e.Handled = true;

}

}

private void QQLoginForm_Load(object sender, EventArgs e)

{

LoadInfo();//單用戶獲取

}

private void LoadInfo()

{//單用戶獲取

ui = SerializeHelper.DeserializeUserInfo();//返回獲取后對(duì)象

if (ui != null)

{

this.txtUser.Text = ui.Username;//填充文本框

this.txtPwd.Text = ui.Password;//填充密碼框

this.cboType.SelectedIndex = ui.Type == "41" ? 0 : 1;//選擇登陸方式

}

else

{

this.cboType.SelectedIndex = 0;

}

}

private void btnConfig_Click(object sender, EventArgs e)

{

ConfigForm cf = new ConfigForm();

cf.ShowDialog();

LoadInfo();

}

}

}

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Text;

using System.Windows.Forms;

namespace QQLogin

{

public partial class ConfigForm : Form

{

UserInfo ui;

public ConfigForm()

{

InitializeComponent();

}

private void txtPath_Click(object sender, EventArgs e)

{//點(diǎn)擊一次文本框，彈出一次對(duì)話框來選擇QQ路徑

DialogResult dr = this.opfQQ.ShowDialog();

if (dr == DialogResult.OK)

{

this.txtPath.Text = opfQQ.FileName;

}

}

private bool ValidateInput()

{//驗(yàn)證是否輸入完整

if (this.txtUser.Text == "")

{

this.txtUser.Focus();

return false;

}

else if (this.txtPwd.Text == "")

{

this.txtPwd.Focus();

return false;

}

else if (this.txtPath.Text == "")

{

return false;

}

return true;

}

private void btnCancel_Click(object sender, EventArgs e)

{

this.Close();

}

private void ConfigForm_Load(object sender, EventArgs e)

{

LoadInfo();

}

private void btnSave_Click(object sender, EventArgs e)

{

ui = new UserInfo();

ui.Username = this.txtUser.Text.Trim();

ui.Password = this.txtPwd.Text;

ui.Type = this.cboType.Text == "正常" ? "41" : "40";

ui.Path = this.txtPath.Text;

if (this.ValidateInput())

{

SerializeHelper.SerializeUserInfo(ui);

this.Close();

}

}

private void LoadInfo()

{

ui = SerializeHelper.DeserializeUserInfo();

if (ui != null)

{

this.txtUser.Text = ui.Username;

this.txtPwd.Text = ui.Password;

this.cboType.SelectedIndex = ui.Type == "41" ? 0 : 1;

this.txtPath.Text = ui.Path;

}

else

{

this.cboType.SelectedIndex = 0;

}

}

}

}

當(dāng)前文章：包含vb.netqq群發(fā)的詞條
分享URL：http://chinadenli.net/article43/dseishs.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站維護(hù)、網(wǎng)站設(shè)計(jì)、網(wǎng)頁(yè)設(shè)計(jì)公司、網(wǎng)站改版、品牌網(wǎng)站設(shè)計(jì)、營(yíng)銷型網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)