vb.net從一臺主機通過socket同時向多臺主機傳送信息，如何操作？

用VB5 Winsock控件創建TCP/IP通訊程序 隨著Windows 95中文版和Windows NT Server 4.0中文版的流行， Microsoft公司推出了相應平臺上的開發軟件: Visual Basic 5.0 中文企業 版。它為Windows環境下的網絡開發提供了強大的工具，Winsock控件就是其中之一。 Winsock控件建立在TCP、UDP協議的基礎上，完成與遠程計算機的通信。即使對TCP/IP不太熟悉的用戶，使用該控件也可以在十幾分鐘內創建一個簡單的客戶機/服務器程序。下面我們對Winsock控件的事件、方法、屬性按其在程序中出現的順序分別作詳細的介紹，以便更好地理解程序源代碼。

成都創新互聯公司服務項目包括廣靈網站建設、廣靈網站制作、廣靈網頁制作以及廣靈網絡營銷策劃等。多年來，我們專注于互聯網行業，利用自身積累的技術優勢、行業經驗、深度合作伙伴關系等，向廣大中小型企業、政府機構等提供互聯網行業的解決方案，廣靈網站推廣取得了明顯的社會效益與經濟效益。目前，我們服務的客戶以成都為中心已經輻射到廣靈省份的部分城市，未來相信會繼續擴大服務區域并繼續獲得客戶的支持與信任！

有誰搞過vb.net或c#給QQ好友發信息的？怎樣實現的，能不能說說

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();//如果沒有提取出來對象，就創建一個

}

if (ui != null)

{

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

ui.Password = this.txtPwd.Text;

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

if (this.ValidateInput())

{//驗證是否輸入完全

if (string.IsNullOrEmpty(ui.Path))

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

DialogResult dr = this.opfQQ.ShowDialog();

if (dr == DialogResult.OK)

{

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

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()

{//驗證是否輸入完整

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命令來執行

Process MyProcess = new Process();

//設定程序名

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

//關閉Shell的使用

MyProcess.StartInfo.UseShellExecute = false;

//重定向標準輸入

MyProcess.StartInfo.RedirectStandardInput = true;

//重定向標準輸出

MyProcess.StartInfo.RedirectStandardOutput = true;

//重定向錯誤輸出

MyProcess.StartInfo.RedirectStandardError = true;

//設置不顯示窗口

MyProcess.StartInfo.CreateNoWindow = true;

//執行強制結束命令

MyProcess.Start();

MyProcess.StandardInput.WriteLine(path+" /start QQUIN:"+user+" PWDHASH:" + EncodeHash.pwdHash(pwd) + " /stat:"+type);//直接結束進程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)

{//只能輸入數字和退格鍵

e.Handled = true;

}

}

private void QQLoginForm_Load(object sender, EventArgs e)

{

LoadInfo();//單用戶獲取

}

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;//選擇登陸方式

}

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)

{//點擊一次文本框，彈出一次對話框來選擇QQ路徑

DialogResult dr = this.opfQQ.ShowDialog();

if (dr == DialogResult.OK)

{

this.txtPath.Text = opfQQ.FileName;

}

}

private bool ValidateInput()

{//驗證是否輸入完整

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;

}

}

}

}

請問VB.NET 如何利用PostMessage 向窗口的指定Edit發送信息

你不用程序的情況能不能用TAB切換焦點。如果這樣不行的話你用程序控件是沒用的。

或都直接對第二個編輯框發送消息。

C#實現發送短信到手機功能

常見兩種方式：

使用短信網關，有第三方的，也有和移動電信等簽約的。后者一般是大客戶才開放。前者你百度搜“短信通”就可以找到很多家提供這種服務的公司。提供的接口一般是http協議的調用。在C# WINFORM里就可以使用WebClient類來調用了。具體的接口你還是得看不同公司提供的文檔。

使用短信貓。是一個硬件設備，可以插SIM卡，然后通過短信貓提供的API去調用…具體還是得看那個API…我用過一個是提供一個dll給你import的。其他應該也一樣

Visual C#實現短信息發送的具體實現步驟：

Visual C#發送短信息的關鍵就是通過Web引用新浪網提供的發送短信息的Web Service，并在引用完成后。調用此Service的sendXml方法即可。以下就是Visual C#引用Web Service發送短信息的具體實現步驟：

1. 啟動Visual Studio .Net。

2. 選擇菜單【文件】|【新建】|【項目】后，彈出【新建項目】對話框。

3. 將【項目類型】設置為【Visual Basic項目】。

4. 將【模板】設置為【Windows應用程序】。

5. 在【名稱】文本框中輸入【短信】。

6. 在【位置】的文本框中輸入【E:/VS.NET項目】，然后單擊【確定】按鈕，這樣在"E:/VS.NET項目"目錄中就產生了名稱為"短信"的文件夾，并在里面創建了名稱為"短信"的項目文件。

7. 把Visual Studio .Net的當前窗口切換到【Form1.cs（設計）】窗口，并從【工具箱】中的【Windows窗體組件】選項卡中往Form1窗體中拖入下列組件，并執行相應的操作：

四個Label組件。

四個TextBox組件。

一個Button組件，其作用是發送短信息。并在這個Button組件拖入Form1的設計窗體后，雙擊它，則系統會在Form1.cs文件分別產生這個組件的Click事件對應的處理代碼。

8. 把Visual Studio .Net的當前窗口切換到Form1.vb的代碼編輯窗口，并用下列代碼替換Form1.cs中的InitializeComponent過程對應的代碼，下列代碼作用是初始化窗體中加入的組件：

private void InitializeComponent ( )

{

this.textBox1 = new System.Windows.Forms.TextBox ( ) ;

this.textBox2 = new System.Windows.Forms.TextBox ( ) ;

this.textBox3 = new System.Windows.Forms.TextBox ( ) ;

this.button1 = new System.Windows.Forms.Button ( ) ;

this.label1 = new System.Windows.Forms.Label ( ) ;

this.label2 = new System.Windows.Forms.Label ( ) ;

this.label3 = new System.Windows.Forms.Label ( ) ;

this.label4 = new System.Windows.Forms.Label ( ) ;

this.textBox4 = new System.Windows.Forms.TextBox ( ) ;

this.SuspendLayout ( ) ;

this.textBox1.Location = new System.Drawing.Point ( 144 , 16 ) ;

this.textBox1.Name = "textBox1" ;

this.textBox1.Size = new System.Drawing.Size ( 184 , 21 ) ;

this.textBox1.TabIndex = 0 ;

this.textBox1.Text = "" ;

this.textBox2.Location = new System.Drawing.Point ( 144 , 69 ) ;

this.textBox2.Name = "textBox2" ;

this.textBox2.PasswordChar = ''''''''*'''''''' ;

this.textBox2.Size = new System.Drawing.Size ( 184 , 21 ) ;

this.textBox2.TabIndex = 1 ;

this.textBox2.Text = "" ;

this.textBox3.Location = new System.Drawing.Point ( 144 , 122 ) ;

this.textBox3.Name = "textBox3" ;

this.textBox3.Size = new System.Drawing.Size ( 184 , 21 ) ;

this.textBox3.TabIndex = 2 ;

this.textBox3.Text = "" ;

this.button1.Location = new System.Drawing.Point ( 152 , 256 ) ;

this.button1.Name = "button1" ;

this.button1.Size = new System.Drawing.Size ( 80 , 32 ) ;

this.button1.TabIndex = 4 ;

this.button1.Text = "發送" ;

this.button1.Click += new System.EventHandler ( this.button1_Click ) ;

this.label1.Location = new System.Drawing.Point ( 56 , 24 ) ;

this.label1.Name = "label1" ;

this.label1.Size = new System.Drawing.Size ( 88 , 16 ) ;

this.label1.TabIndex = 5 ;

this.label1.Text = "注冊手機號：" ;

this.label2.Location = new System.Drawing.Point ( 88 , 77 ) ;

this.label2.Name = "label2" ;

this.label2.Size = new System.Drawing.Size ( 72 , 16 ) ;

this.label2.TabIndex = 6 ;

this.label2.Text = "口令：" ;

this.label3.Location = new System.Drawing.Point ( 56 , 128 ) ;

this.label3.Name = "label3" ;

this.label3.Size = new System.Drawing.Size ( 96 , 16 ) ;

this.label3.TabIndex = 7 ;

this.label3.Text = "目標手機號：" ;

this.label4.Location = new System.Drawing.Point ( 96 , 176 ) ;

this.label4.Name = "label4" ;

this.label4.Size = new System.Drawing.Size ( 72 , 16 ) ;

this.label4.TabIndex = 8 ;

this.label4.Text = "內容：" ;

this.textBox4.Location = new System.Drawing.Point ( 144 , 175 ) ;

this.textBox4.Multiline = true ;

this.textBox4.Name = "textBox4" ;

this.textBox4.Size = new System.Drawing.Size ( 184 , 48 ) ;

this.textBox4.TabIndex = 3 ;

this.textBox4.Text = "" ;

this.AutoScaleBaseSize = new System.Drawing.Size ( 6 , 14 ) ;

this.ClientSize = new System.Drawing.Size ( 410 , 303 ) ;

this.Controls.Add ( this.button1 ) ;

this.Controls.Add ( this.textBox4 ) ;

this.Controls.Add ( this.textBox3 ) ;

this.Controls.Add ( this.textBox2 ) ;

this.Controls.Add ( this.textBox1 ) ;

this.Controls.Add ( this.label4 ) ;

this.Controls.Add ( this.label3 ) ;

this.Controls.Add ( this.label2 ) ;

this.Controls.Add ( this.label1 ) ;

this.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle ;

this.MaximizeBox = false ;

this.Name = "Form1" ;

this.Text = "Visual C#實現短信發送" ;

this.ResumeLayout ( false ) ;

}

當前名稱：短信發送代碼vb.net 接收短信代碼
轉載注明：http://vcdvsql.cn/article12/ddoigdc.html

成都網站建設公司_創新互聯，為您提供建站公司、服務器托管、企業建站、外貿建站、域名注冊、ChatGPT

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯