VB.NET里怎么得到 當(dāng)前應(yīng)用程序句柄?

Visual Basic .NET 中 App 對象的更改

成都創(chuàng)新互聯(lián)公司專注于企業(yè)成都全網(wǎng)營銷推廣、網(wǎng)站重做改版、隨州網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、H5開發(fā)、商城系統(tǒng)網(wǎng)站開發(fā)、集團(tuán)公司官網(wǎng)建設(shè)、外貿(mào)網(wǎng)站制作、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計(jì)等建站業(yè)務(wù)，價(jià)格優(yōu)惠性價(jià)比高，為隨州等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。

在 Visual Basic 6.0 中，App 對象是用于設(shè)置或檢索應(yīng)用程序信息的全局對象。Visual Basic .NET 中沒有 App 對象的直接等效項(xiàng)；然而它的大部分屬性可以映射為 .NET Framework 中的等效屬性。在 Visual Basic 6.0 中，App 對象是用于設(shè)置或檢索應(yīng)用程序信息的全局對象。Visual Basic .NET 中沒有 App 對象的直接等效項(xiàng)；然而它的大部分屬性可以映射為 .NET Framework 中的等效屬性。

VB6.0 App.HInstance 在VB.net中的表達(dá)參考以下內(nèi)容：

System.Runtime.InteropServices.Marshal.GetHINSTANCE(System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32

vb怎么獲取控件句柄和內(nèi)容

　先找到窗口的句柄，再來查找按鈕的句柄，如果按鈕有文本內(nèi)容，那就好辦，如果沒有，那建議你利用SPY++先來察看一下按鈕的類型，以此類型為查找參數(shù)多次調(diào)用FindWindowEx來查找，直到找到的的句柄和Spy++相同，那么這個(gè)按鈕就找到了。

按鈕類名同樣，但是你去遍歷的時(shí)候它的次序始終是固定的。通過id不可靠，有些有id但是有些id是0。

clswindow類，里面有個(gè)函數(shù)etElementHwndByClassName，可以得到指定的次序按鈕。加入你要處理的按鈕是在第二個(gè)次序，類名為Button，那么就用：GetElementHwndByClassName("Button",2)，即可，

具體代碼：

Private Sub Command6_Click()

Dim w As New clsWindow

Dim i%

If w.GetWindowHwndByTitleEx("自動(dòng)化操作框架") 0 Then

i = i + 1

Do While w.GetElementHwndByClassName("ThunderCommandButton", i) 0'按次序遍歷

MsgBox w.GetElementHwndByClassName("ThunderCommandButton", i)'得到當(dāng)前次序按鈕的句柄

w.SetElementTextByClassName "ThunderCommandButton", "次序" i, i'設(shè)置按鈕文本

i = i + 1

Loop

End If

End Sub

VB 運(yùn)行一個(gè)程序，并獲取句柄

比如下面的代碼：Private Sub Command1_Click()

Dim x As Long

x = Shell("1.exe")

Label1.Caption = Str(x)

End Sub運(yùn)行了1.exe并且在label標(biāo)簽上顯示了該程序的句柄

VB 獲取其他程序控件的句柄

一般是用鉤子程序的。

比較復(fù)雜，只能說個(gè)大體思路，要花最少30分鐘。分太少了。

API函數(shù)的聲明就不說了。

先用findwindow找到窗體，用GetWindow和GetClassName獲得其窗體內(nèi)各對象的句柄，從而可以獲得文本框的句柄。

最后用SendMessage函數(shù)想文本框發(fā)送文本。

tWnd = FindWindow(vbNullString, "窗口名")可以獲得外部程序窗口的句柄twnd

bwnd = GetWindow(tWnd, GW_CHILD)可以獲得該窗口子對象的集合句柄bwnd

Do Until bwnd = 0

GetClassName bwnd, sSave, 250

If InStr(1, UCase(sSave), "EDIT", vbTextCompare) 0 Then

editwnd = bwnd

Exit Do

End If

bwnd = GetWindow(bwnd, GW_HWNDNEXT)

Loop

以上代碼可以讀到該窗口中的第一個(gè)文本框的句柄editwnd

SendMessage editwnd, WM_SETTEXT, 6, "王小明"

以上代碼向editwnd中寫入“王小明”，6表示其長度。該方法寫入時(shí)，文本框中原有內(nèi)容全部覆蓋。

vb.net如何找到一個(gè)網(wǎng)頁中的按鈕的句柄

網(wǎng)頁中的按鈕沒有句柄可言，只有控件id，你想要的到底是什么，找到按鈕模擬點(diǎn)擊按鈕？

找到按鈕不難，查找input，id是那個(gè)按鈕的話就用DOM獲取到，然后發(fā)送.click方法

也可以用附加js腳本的方式來實(shí)現(xiàn)點(diǎn)擊那個(gè)按鈕，js腳本里實(shí)現(xiàn)獲取那個(gè)按鈕并點(diǎn)擊

VB.net 獲取控件句柄

Dim hwnd0 As Integer

Dim hwnd11 As Integer

第二個(gè)是你要生成EXE后 運(yùn)行EXE

第三就是沒好像沒有文本框控件