既然從網(wǎng)上找的實例沒問題,也許就是調(diào)用的時候沒出來或者在檢測網(wǎng)卡當(dāng)中出現(xiàn)了問題。
創(chuàng)新互聯(lián)公司成立與2013年,是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司,擁有項目網(wǎng)站制作、網(wǎng)站設(shè)計網(wǎng)站策劃,項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命,1280元陽曲做網(wǎng)站,已為上家服務(wù),為陽曲各地企業(yè)和個人服務(wù),聯(lián)系電話:18982081108
用WebService或者Remoting,提交服務(wù)器處理
___________________________
只要你的并發(fā)數(shù)并不大,sqlserver有并發(fā)控制,更新數(shù)據(jù)時會鎖住
以記事本為例
Public Class Form1
Public Sub ShellAndWait(ByVal ProcessPath As String)
Dim objProcess As System.Diagnostics.Process
Try
objProcess = New System.Diagnostics.Process()
objProcess.StartInfo.FileName = ProcessPath
objProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal
objProcess.Start()
objProcess.WaitForExit()
objProcess.Close()
Catch
MessageBox.Show("無法執(zhí)行文件 " ProcessPath, "錯誤")
End Try
End Sub
'監(jiān)視程序就可以了,若果監(jiān)視別的窗體的話,用SPY++ 找到句柄,配合FindWindowEx,SendMessage根據(jù)其屬性做
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ShellAndWait("Notepad.exe")
MessageBox.Show("筆記本被關(guān)閉后我才會出現(xiàn)")
End Sub
End Class
可以讓將你的數(shù)據(jù)庫放在固定的機子上,然后讓其它的客戶端來訪問就行了!!
你這段代碼可以獲得該主機名下的所有ip,每個ip地址都是有類型簇的,可以區(qū)別本地地址和網(wǎng)絡(luò)地址、ip6地址。
你獲取索引為0的ip,不一定是正確的網(wǎng)絡(luò)地址,它有時順序在中間,在后面。
應(yīng)該獲取所有ip,再通過ip地址簇類型區(qū)分
判斷連接本身有一個函數(shù),不過有時沒聯(lián)網(wǎng)也是真。
可以用ping,ping百度、ping訪問速度快、不經(jīng)常維護(hù)斷線的網(wǎng)絡(luò)主機。