用VB如何直接获取股票实时数据

1. 用VB如何直接获取股票实时数据

可以通过调用ChinaStockWebService的服务来实现获取股票的实时数据，代码如下：
 public string[] getStockInfo(string stockcode)     {            //string url = "http://hq.sinajs.cn/list="+stockcode;       //stockcode 某只股票的代码        string url = "http://hq.sinajs.cn/list=sh600683";        WebClient client = new WebClient();        client.Headers.Add("Content-Type", "text/html; charset=gb2312");        Stream data = client.OpenRead(url);        StreamReader reader = new StreamReader(data, Encoding.GetEncoding("gb2312"));        string s = reader.ReadToEnd();        reader.Close();        data.Close();        return s.Split(',');    }

2. 在VB.NET中如何使用新浪股票数据接口

vb6.0中做过这个项目，但是vb.net中也遇到这个问题，看看能否交流一下，刚刚转vb.net。vb6.0中部分代码如下：
Dim HttpReq As Object
Dim request As String
HttpReq = CreateObject("MSXML2.XMLHTTP.3.0")
HttpReq.open("GET", uri, False)
HttpReq.send()
'解析返回值
request = HttpReq.responseBody
request = Split(Split(StrConv(request,vbUnicode,&H804),"=")(1),";")(0)

3. 用VB怎么编写学生成绩管理系统 要源代码而且和数据库要有联系

你要自己做还是我发给你？？？代码先给你。。。Public zf1 As Integer
Private Sub cj98_Click()
Dim bh
Data2.RecordSource = "98年成绩"
Data2.Refresh
bh = Data1.Recordset.Fields("编号")
Data2.Recordset.FindFirst ("编号" = bh)
Call zf
Label13 = zf1
End SubPrivate Sub cj99_Click()
Dim bh As Integer
Data2.RecordSource = "99年成绩"
Data2.Refresh
bh = Data1.Recordset.Fields("编号")
Data2.Recordset.FindFirst ("编号" = bh)
Call zf
Label13 = zf1
End SubPrivate Sub Data1_Reposition()
Dim bh As Integer
bh = Data1.Recordset.Fields("编号")
Data2.Recordset.MoveFirst
Do While Data2.Recordset.EOF = False
If Data2.Recordset.Fields("编号") = bh Then
Exit Do
Else
Data2.Recordset.MoveNext
End If
Loop
Call zf
Label13 = zf1
End Sub
Private Sub Z1_Click()
Dim bh
Data1.DatabaseName = "C:\Documents and Settings\Administrator\桌面\db2.mdb"
Data1.Refresh
Data2.DatabaseName = "C:\Documents and Settings\Administrator\桌面\db2.mdb"
Data2.Refresh
bh = Data1.Recordset.Fields("编号")
Data2.Recordset.FindFirst ("编号" = bh)
Call zf
Label13 = zf1
End Sub
Sub zf()
zf1 = Data2.Recordset.Fields("微机原理") + Data2.Recordset.Fields("OFFICE使用") + Data2.Recordset.Fields("五笔字型打字") + Data2.Recordset.Fields("VB编程")
End Sub

4. 股票指标源代码中的“VB”是指什么？

你这是因为代码不全，把下面的代码，粘贴到你公式前面，
V1:=(C*2+H+L)/4*10;
V2:=EMA(V1,13)-EMA(V1,34);
V3:=EMA(V2,5); V4:=2*(V2-V3)*5.5;
主力撤: IF(V4<=0,V4,0),colorblue;
主力进: IF(V4>=0,V4,0),colorff00ff;
V5:=(HHV(INDEXH,8)-INDEXC)/(HHV(INDEXH,8)-LLV(INDEXL,8))*8;
V6:=EMA(3*V5-2*SMA(V5,18,1),5);
V7:=(INDEXC-LLV(INDEXL,8))/(HHV(INDEXH,8)-LLV(INDEXL,8))*10;
V8:=(INDEXC*2+INDEXH+INDEXL)/4;
V9:=EMA(V8,13)-EMA(V8,34);
VA:=EMA(V9,3);
VB:=(V9-VA)/2;
再试一下，可以关注我，有问题再联系我。

5. 跪求用VB+SQL做的库存管理系统源代码

可以为你提供 1 份 de 适用于初学者 de VB+SQL做的库存管理系统代码,
有进 1 步需求，可以我们联系,,给我留 1 个你 de 问题和Email,有时间可以帮你，绝对救急,使用百度_Hi给我留言,

此回复对于所有需求和和来访者有效,
ES:\\09CBD23F01EF37B5F74CA0C76BC7B0E4

6. 请高人帮我用VB做个人员管理系统吧，要源代码的，自己太笨，不会，领导要啊，没办法！！！

建议抛开vb和sql先从功能需求入手，假设你是一个管理员那么你需要哪些功能你懂VB吗？ 学过编程吗，语言是无所谓的，关键是你要达到什么目标，

7. 谁有网上选课系统的源代码 要用VB做的 连接ACCESS数据库

网络硬盘有的

8. vb系统中的用户登录系统如何制作，求编程源代码和设计界面

Private Sub Command1_Click()
  Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim I,J AS Integer
Set xlApp = CreateObject("Excel.Application")
Dim ss As String

CommonDialog1.ShowOpen
Ain = CommonDialog1.filename
If Ain = "" Then Exit Sub
Set xlBook = xlApp.Application.Workbooks.Open(Ain) '("d:\40.xls")
Set xlSheet = xlBook.Worksheets(2)
       For I = 25 To 28
        For J = 3 To 5
         MSFlexGrid1.TextMatrix(I - 25, J - 3) = xlSheet.Cells(I, J)
         Next J
       Next I
          xlBook.Close
xlApp.Quit
end sub
希望对您有所启迪