vb伺服器

1、在VB6上，怎麼實時接收伺服器通過Webserver返回的數據

如題：如何實時接收伺服器通過Webserver返回的數據？

Visual Basic code?

Dim oSoapClient As New MSSOAPLib30.SoapClient30
Dim bReturn() As Byte

oSoapClient.ClientProperty("ServerHTTPRequest") = True
oSoapClient.MSSoapInit WebServer

Dim bBuffer(0 To 9) As Byte
For i = 0 To 9
bBuffer(i) = DBBuffer(i)
Next i
bReturn = oSoapClient.sendPager(bBuffer)

'請在此等待返回並把數據存入DEBuffer (9)
For i = 0 To 9
DEBuffer(i) = bReturn(i)
Next i
Set oSoapClient = Nothing
Dim oSoapClient As New MSSOAPLib30.SoapClient30
Dim bReturn() As Byte

oSoapClient.ClientProperty("ServerHTTPRequest") = True
oSoapClient.MSSoapInit WebServer

Dim bBuffer(0 To 9) As Byte
For i = 0 To 9
bBuffer(i) = DBBuffer(i)
Next i
bReturn = oSoapClient.sendPager(bBuffer)

'請在此等待返回並把數據存入DEBuffer (9)
For i = 0 To 9
DEBuffer(i) = bReturn(i)
Next i
Set oSoapClient = Nothing

以上代碼是VB主動發，然後收取伺服器的返回。

我現在想，VB不發，然後被動地收取伺服器發送給VB的數據？要求實時

2、vb中如何打開伺服器上的文件

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Form_Load()

ShellExecute 0, "Open", "\\111.111.111.197\F\VB98\計算機圖形學\曲面程序\bezier曲面.vbp", "", "", vbNormalFocus

End Sub

3、vb獲取伺服器時間

日期：DateTime.Now.ToShortDateString時間：DateTime.Now.

4、關於VB測試伺服器連接

im conn,strDataPath,connStr
set conn=server.createobject("ADODB.connection") '//定義資料庫連接對象
strDataPath=server.MapPath("example.mdb") '//資料庫路徑字元串
connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDataPath '//資料庫連接
conn.open connStr

數據連接語句是上面的代碼？
你把獲取地址改成TEXTBOX1.TEXT 就好了
說到這里了不知道你明白不！！！
strDataPath=server.MapPath("example.mdb") 就是把這句寫成strDataPath=server.MapPath("TEXTBOX1.TEXT")

5、用VB怎麼做伺服器需要了解什麼

WinSock控制項 一般要到多線程,而VB在這方面是禁區,建議改用Vb.net去做.

6、vb獲取伺服器時間

在窗體中建一個文本框和時間控制項,可以在文本框中顯示跳動的伺服器時間 Private Sub Form_Load() Timer1.Interval = 300 End Sub Private Sub Timer1_Timer() Dim cnn As New ADODB.Connection Dim cmd As New ADODB.Command Dim rst As New ADODB.Recordset Dim Sqlser_time cnn.ConnectionString = "driver={SQL Server};" & _ "server=server;uid=sa;pwd=;database=master" cnn.Open cmd.ActiveConnection = cnn cmd.CommandText = "SELECT GETDATE() AS sys_Sqlser_time" Set rst = cmd.Execute Sqlser_time = rst(0) Text1.Text = Sqlser_time rst.Close cnn.Close End Sub

7、VB訪問SQL伺服器？

你直接使用ado控制項 右鍵屬性 裡面有連接向導 按提示輸入伺服器信息就可以連接 你也可以從設置好後的控制項屬性里提取連接字元串 用rs對象連接也行

8、我想運行伺服器上的vb程序，應該怎麼做

運行時請在text1中給定時器賦值,兩個小時就是輸入 120 就可以了單位默認是分了 還有請在text2中輸入"notepad.exe"不包括引號

9、vb訪問伺服器

1、是否與伺服器連上
2、先不要用配置文件，寫在程序中看能否連上
3、能否鏈接上本機的伺服器
發現問題的所在，當然可以逐條語句運行，看問題在哪?

10、vb獲取伺服器時間

在窗體中建一個文本框和時間控制項,可以在文本框中顯示跳動的伺服器時間
Private Sub Form_Load()
Timer1.Interval = 300
End Sub

Private Sub Timer1_Timer()
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset
Dim Sqlser_time
cnn.ConnectionString = "driver={SQL Server};" & _
"server=server;uid=sa;pwd=;database=master"
cnn.Open

cmd.ActiveConnection = cnn
cmd.CommandText = "SELECT GETDATE() AS sys_Sqlser_time"

Set rst = cmd.Execute

Sqlser_time = rst(0)

Text1.Text = Sqlser_time
rst.Close
cnn.Close
End Sub