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