又来提问了，关于按键精灵中多线程单停的问题,大神快进来看看

Dimenv hwnd
Dim 句柄（100）
Dim 线程id（100）
i=0
Do
Key=WaitKey()
If Key = 118 Then
hwnd = Plugin.Window.MousePoint()
句柄（i） = hwnd
线程ID（i） = BeginThread(输入)
i = i + 1
ElseIf Key = 119 Then
hwndx = Plugin.Window.MousePoint()
For i = 0 To UBound(句柄)
If hwndx = CLng(句柄(i)) Then
StopThread 线程id(i)
End If
Next
End If
loop
Sub 输入()
q = hwnd
Do
Call Plugin.Window.SendString(q, now & vbcrlf)
Delay 1000
loop
End Sub
我是想向记事本输入信息的，可以开始线程，但是当按f9时无法停止线程，并提示 If hwndx = CLng(句柄(i)) Then这句话类型不匹配，也没发输出CLng(句柄(i)) 的值，请问下我是哪里错了？最好把改好的源码发上

Dimenv hwnd
Dim 句柄(100)
Dim 线程ID(100)
i=0
Do
Key=WaitKey()
If Key = 118 Then
hwnd = Plugin.Window.MousePoint()
句柄(I) = HWND
线程ID = BeginThread(输入)
i = i + 1
elseif Key = 119 Then
hwndx = Plugin.Window.MousePoint()
For i = 0 To UBound(句柄)
If 句柄(I) = clng(HWNdx) Then
StopThread 线程id(I)
Next
End If
End If
loop
Sub 输入()
q = hwnd
Do
Call Plugin.Window.SendString(q, now & vbscrlf)
Delay 10
loop
End Sub

If hwndx =句柄(i) Then 还有 For i = 0 To UBound(句柄)//这个有问题.i=0会与前面的i=i+1冲突. For f= 0 To 100//句柄的上标你已经定义为100.不管你给不给值他都是100

“妈！看你说的，也就你把我当宝。”凌雪感觉道妈妈那么爱她 ，非常感动。“好了，你把他带回来吧。我在家等你啊。”凌雪的妈说道。“嗯，好的，那妈，回家见。”“好的，回家见。 按键精灵多线程 ”说着她们就挂电话了。 “是啊，学进，我们不能没有你啊！”他妻子也劝道。“你们别劝了，一个人最重要的就是敢作敢当，现在你们回来了，不会再有危险了，我应该承担我 犯下的错误，我想政府是不会为难你们的。你们就不要劝了。”张学进坚持道。“你这又是何必呢，像你这样的人才 易语言 多线程 没了可是国家的损失。你到我们家来照样能为国家，为人民做贡献。告诉你吧，那个头盔就是我们给国家的，你看，我们跟国家可是有合作关系的。”我道。“真的吗，我还可以为国家做贡献？”张学进听了我的话就有点动心了，但还是想得到确定的答案。 按键精灵多线程 起探讨，共同提高！第五十二章 好深厚的背景周青听了天 易语言 多线程 行的话吓了一跳：“什么你们竟然把小涛给……”江涛虽然在地上打滚，但也听见了天行的话，直接就吓晕了过去，这倒减轻了他的痛苦。周青反映过来后对我们吼道：“你们竟然敢这么对小涛，你们死定了，你知道他是谁吗？他爷爷可是京城里的大人物。”其实他那么大声也是在发泄，江涛变成这样也是他没照顾好，他有不可推卸的责任，他的老上司也不会放过他的。