vb输入股票代码查询网页_用VB如何直接获取股票实时数据

Ⅰ VB填写网页表单

能实现这样的功能，你需要添加WebBrowser控件(Microsoft Internet Controls），然后在窗体上拖一个这个控件，命名为Web1，移动到看不见的位置就可以了。按钮的代码可以这么写：
'前面的省略
Web1.Navigate "网址"
DoEvents
While Web1.Busy '等待网页加载完
DoEvents
Wend
Web1.Document.GetElementById("code").Value=Text1.Text
....按照这种方法填写表单
Web1.Document.GetElementById("button").Click '模拟单击按钮提交表单
DoEvents
While Web1.Busy '等待网页加载完
DoEvents
Wend
Text3.Text=Web1.Document.InnerText '显示结果
'后面的省略

Ⅱ VB如何获取网页的内容

相关代码如下：

1、相关代码如下：
PublicFunctiongetHtmlStr(strUrlAsString)'获取远程网页源码
OnErrorResumeNext
DimXmlHttpAsObject,stime,ntime
SetXmlHttp=CreateObject("Microsoft.XMLHTTP")
XmlHttp.open"GET",strUrl,True
XmlHttp.send
stime=Now'获取当前时间
WhileXmlHttp.ReadyState<>4
DoEvents
ntime=Now'获取循环时间
IfDateDiff("s",stime,ntime)>3ThengetHtmlStr="":ExitFunction
Wend
getHtmlStr=StrConv(XmlHttp.responseBody,vbUnicode)
SetXmlHttp=Nothing
EndFunction
2、代码使用：在窗体代码相应位置写如下代码
dimaasstring
a=getHtmlStr("要获取的网站网址url")
上面a取得的值就是我们要的结果。

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

可以通过调用ChinaStockWebService的服务来实现获取股票的实时数据，代码如下：

publicstring[]getStockInfo(stringstockcode)
{

//stringurl="http://hq.sinajs.cn/list="+stockcode;
//stockcode某只股票的代码
stringurl="http://hq.sinajs.cn/list=sh600683";
WebClientclient=newWebClient();
client.Headers.Add("Content-Type","text/html;charset=gb2312");
Streamdata=client.OpenRead(url);
StreamReaderreader=newStreamReader(data,Encoding.GetEncoding("gb2312"));
strings=reader.ReadToEnd();
reader.Close();
data.Close();
returns.Split(',');
}

Ⅳ 想做一个单独的html页面，输入股票代码可以显示股票名称和当前价格。要求：用js调用webservice.

调用webservice的处理页面（AjaxTest.aspx）：
webxml.ChinaStockWebService ws = new webxml.ChinaStockWebService();
Response.Write(ws.getStockInfoByCode("sh601857")[1]);//参数可以用get方式传递，我为了省事写死了，取得返回的数组的第一个元素，也就是股票名称
Response.End();

取股票名称的页面，使用ajax调用：
<script type="text/javascript">
$(function()
{
$("#btnAjaxGet").click(function(event)
{
$("#divResult").load("AjaxTest.aspx");
});
})
</script>
<button id="btnAjaxGet">取股票信息</button><br />
<div id="divResult" style="border:1px solid red;width:200px;height:20px;"></div>

Ⅳ 求用VB打开网页的代码

Private Sub Command1_Click() '确定
WebBrowser1.Navigate "www..com"
End Sub

Private Sub Command2_Click() ‘关闭
WebBrowser1.Navigate "about:blank"
End Sub

添加2个按钮控件一个 web控件
需要更高级应用加我网络HI

Ⅵ 有哪个网站可以输入中文简称查到股票代码

呵呵，你最好下载一个证券的看盘软件，那上面都有键盘精灵

Ⅶ VB中如何实现输入网址

Shell "rundll32.exe url.dll,FileProtocolHandler " & Text1.Text & "/infocenter",
上面的代码就是用RUNDLL32.EXE程序来打开IE浏览器并输入指定的网址,网址可以在里面进行修改(也就是你的text控件进行修改).这样的方法可以不用担心IE放在哪的问题.

Ⅷ vb 获取网页指定内容，求代码

我用如下代码测试了。说明你要找的元素不存在。代码应该没问题
PrivateSubCommand1_Click()
Text1.Text=WebBrowser1.Document.getElementsByName("key")(0).Value

EndSub

PrivateSubForm_Load()
WebBrowser1.Navigate"http://www.yt969.com/"
EndSub

PrivateSubWebBrowser1_DocumentComplete(ByValpDispAsObject,URLAsVariant)
Text1.Text=WebBrowser1.Document.getElementsByName("key")(0).Value
EndSub

推荐用下面的方法，先获取源码，在做字符串分析。

FunctionGetHttpPage(GetUrl)
DimxmlHttp
SetxmlHttp=CreateObject("MSXML2.serverXMLHTTP.6.0")
xmlHttp.Open"GET",GetUrl,False
xmlHttp.setTimeouts10000,10000,10000,10000
'第一个数值:解析DNS名字的超时时间10秒
'第二个数值:建立Winsock连接的超时时间10秒
'第三个数值:发送数据的超时时间15秒
'第四个数值:接收response的超时时间15秒
'xmlHttp.setRequestHeader"Cookie",Cookie
OnErrorResumeNext
xmlHttp.send
IfErr.Number=-2147012894Then
GetHttpPage="$False$"
ExitFunction
EndIf
IfxmlHttp.readystate<>4Then
SetxmlHttp=Nothing
GetHttpPage="$False$"
ExitFunction
EndIf
GetHttpPage=BytesToBstr(xmlHttp.responseBody,"utf-8")
SetxmlHttp=Nothing
EndFunction

PublicFunctionBytesToBstr(Body,Cset)
DimobjStream
SetobjStream=CreateObject("adodb.stream")
objStream.Type=1
objStream.Mode=3
objStream.Open
objStream.WriteBody
objStream.Position=0
objStream.Type=2
objStream.Charset=Cset
BytesToBstr=objStream.ReadText
objStream.Close
SetobjStream=Nothing
EndFunction

Ⅸ 我需要用ASP VB编写一个网页具有查询功能的，哪位能提供代码呢

到我空间看看就知道了。http://hi..com/hanchuan/blog/item/a88fad6e3f631dda80cb4a66.html

Ⅹ 怎样才能在自己的网页中加入股票代码查询和显示股票行情呢

用新浪的股票查询可以~~~~~~~~

vb输入股票代码查询网页

与vb输入股票代码查询网页相关的内容