[请教]调用迅雷下载时出现“建立新任务”窗口,希望通过findwindow获得句柄,并发送确认操作
调用迅雷下载时出现“建立新的下载任务
”窗口,希望通过findwindow获得句柄,并发送确认操作,但是获得了迅雷的句柄后无法得到“建立新的下载任务
”的句柄,不知道问题出在哪里,希望可以得到大家的帮助,谢谢。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ThunderEng As New THUNDERAGENTLib.Agent '创建讯雷调用对象
ThunderEng.AddTask("http://www.ahau.edu.cn/manage/Article/UploadFiles/200912/20091208120058874.rar", "20091208120058874.rar", "C:\TDDownload\", "任务注释", "引用地址", "-1", "1", "1") '添加下载任务
ThunderEng.CommitTasks() '提交下载任务
'建立新的下载任务
Dim hTemp As Long
hTemp = FindWindow(vbNullString, "迅雷5")
hTemp = FindWindowEx(hTemp, 0, vbNullString, "建立新的下载任务")
MessageBox.Show(hTemp)
End Sub