公司每天要記錄一些內容到EXCEL表格里，每個人一天，我想通過局域網把每天的內容都記錄到我的電腦里面 比如 D盤 1。txt,做了一個VB小程式，一個添加按鈕，一個查詢按鈕。一個寫入到我的電腦1.txt,一個讀取我的電腦1.txt到listbox控制元件里面，代碼如下：自己電腦IP172.16.2.10，自己電腦訪問正常，但是放到其他電腦上就不行了，求指教。
Private Sub Command2_Click()
List1.Visible = True
List1.Clear
Dim s As String
Dim a As String
Dim keyword As String
Dim keyword1 As String
Dim lujing As String
lujing = "\\172.16.2.10\D$\1.txt"
keyword1 = Text1.Text
Open lujing For Input As #1
While Not EOF(1)
Line Input #1, s
If InStr(1, s, keyword1) > 0 Then List1.AddItem List1.ListCount + 1 & " " & s
Wend
Close #1
End Sub
uj5u.com熱心網友回復：
還不如做個ASP頁面直接入資料庫uj5u.com熱心網友回復：
這有很多socket原始碼，服務器和客戶端都有，你找一個修改一下：http://download.csdn.net/detail/geoff08zhang/4571358
uj5u.com熱心網友回復：
大概你的路徑沒開共享uj5u.com熱心網友回復：
很明顯, 別人根本就無法從網路訪問你的電腦. 你先得確認別人在運行里面輸入\\172.16.2.10\D$\1.txt 可以打開你的這個檔案才行.uj5u.com熱心網友回復：
默認共享 D$ 僅供管理員訪問。僅僅為了讀一個檔案而開放整個 D$ 權限不夠安全。
可行的方案是：
服務器開啟一個共享目錄；
填 Excel 表的普通用戶有寫權限，向共享目錄寫一個用用戶名區分的 txt 檔案；
執行 exe 的匯總用戶有讀權限，可以讀取其他用戶的 txt 檔案；
如果資料保密性要求不高，共享目錄直接開讀取權限給所有人，簡化管理。
uj5u.com熱心網友回復：
不要用目錄共享的方式。在你的電腦上寫一個接收小程式。開放一個UDP埠。客戶端直接向這個埠發資料。你收到資料再寫到硬碟里uj5u.com熱心網友回復：
那還不如自己裝個IIS,然后寫個簡單的ASP頁面讓同事填寫并提交算了.轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/153320.html
標籤：網絡編程
上一篇：vb2010 修改資料集出錯
下一篇：mshflexgrid的 GetColumnInBandInfo和 SetColumnInBandInfo屬性怎么用?