Private Structure RECT
Dim Left As Integer
Dim Top As Integer
Dim Right As Integer
Dim Bottom As Integer
End Structure
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ksWND As integer
Dim ksTitle As String
Dim winS As RECT
If TextBox1.Text "" Then
ksTitle = TextBox1.Text
ksWND = FindWindow(vbNullString, ksTitle)
GetWindowRect(ksWND, winS)
MsgBox("左上角坐标(" winS.Left "," winS.Top ")" vbCrLf "右下角坐标(" winS.Right "," winS.Bottom ")" vbCrLf "窗口高" winS.Bottom - winS.Top "窗口宽" winS.Right - winS.Left)
Else
MsgBox("请填写窗口名称")
End If
End Sub
可以通过调用ChinaStockWebService的服务来实现获取股票的实时数据,代码如下:
public?string[]?getStockInfo(string?stockcode)?
{
//string?url?=?""+stockcode;
//stockcode?某只股票的代码
string?url?=?"";
WebClient?client?=?new?WebClient();
Stream?data?=?client.OpenRead(url);
string?s?=?reader.ReadToEnd();
reader.Close();
data.Close();
return?s.Split(',');
}
Dim HttpReq As Object
Dim request As String
HttpReq.open("GET", uri, False)
HttpReq.send()
'解析返回值
request = HttpReq.responseBody
以上就是土嘎嘎小编为大家整理的vb.net获取股价相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!