你想要的應(yīng)該就是這個(gè)吧
創(chuàng)新互聯(lián)公司主要業(yè)務(wù)有網(wǎng)站營銷策劃、成都網(wǎng)站設(shè)計(jì)、做網(wǎng)站、微信公眾號(hào)開發(fā)、微信小程序開發(fā)、H5高端網(wǎng)站建設(shè)、程序開發(fā)等業(yè)務(wù)。一次合作終身朋友,是我們奉行的宗旨;我們不僅僅把客戶當(dāng)客戶,還把客戶視為我們的合作伙伴,在開展業(yè)務(wù)的過程中,公司還積累了豐富的行業(yè)經(jīng)驗(yàn)、成都全網(wǎng)營銷推廣資源和合作伙伴關(guān)系資源,并逐漸建立起規(guī)范的客戶服務(wù)和保障體系。
'獲取進(jìn)程id
Dim?p?As?Integer?=?Shell(TextBox1.Text)
'獲取進(jìn)程id對(duì)應(yīng)的句柄
Dim?h?As?IntPtr?=?System.Diagnostics.Process.GetProcessById(p).Handle
'顯示進(jìn)程id和對(duì)應(yīng)的句柄
Debug.Print(p)
Debug.Print(h.ToString)
網(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)擊
因?yàn)槟愦翱陉P(guān)閉的時(shí)候Time并沒有釋放,但是此時(shí)Label已經(jīng)不能訪問了
才會(huì)出現(xiàn)窗口句柄出錯(cuò),你試試加上下面的話
Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
timer1.Close()
timer2.Close()
End Sub
應(yīng)該就不會(huì)報(bào)錯(cuò)了。
希望能幫到你。
Visual Basic .NET 中 App 對(duì)象的更改
在 Visual Basic 6.0 中,App 對(duì)象是用于設(shè)置或檢索應(yīng)用程序信息的全局對(duì)象。Visual Basic .NET 中沒有 App 對(duì)象的直接等效項(xiàng);然而它的大部分屬性可以映射為 .NET Framework 中的等效屬性。在 Visual Basic 6.0 中,App 對(duì)象是用于設(shè)置或檢索應(yīng)用程序信息的全局對(duì)象。Visual Basic .NET 中沒有 App 對(duì)象的直接等效項(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
首先聲明一下API
在你窗口最頂?shù)奈恢蒙蠈懮?/p>
Private Declare Function 取窗口句柄 Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'由于VB支持中文的 我就定義成 取窗口句柄 這個(gè)了
'在窗體中添加一個(gè)按鈕里面放進(jìn)下面代碼就OK了
Private Sub Command1_Click()
Dim 窗口句柄 As Long '聲明窗口句柄變量存儲(chǔ)
窗口句柄 = 取窗口句柄(vbNullString, "新建 文本文檔.txt - 記事本") '取窗口標(biāo)題的句柄 把得到窗口標(biāo)題句柄賦予給剛才 窗口句柄 這變量里
If 窗口句柄 = 0 Then '判斷窗口句柄是否等于0 如果等于0表示無法找到窗口句柄
MsgBox "無法找到需要的窗口句柄"
Else
MsgBox "已找到窗口句柄 句柄數(shù)為:" 窗口句柄
End If
End Sub
Dim hwnd0 As Integer
Dim hwnd11 As Integer
第二個(gè)是你要生成EXE后 運(yùn)行EXE
第三就是沒好像沒有文本框控件