Ⅰ 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
Ⅹ 怎樣才能在自己的網頁中加入股票代碼查詢和顯示股票行情呢
用 新浪的 股票 查詢 可以~~~~~~~~