主题：[求助]尝试读取或写入受保护的内存。这通常指示其他内存已损坏

1、可以把间隔弄大一点测试；

2、进入执行的时候，有可能计划需要执行的时间超过1秒，超过1秒后，又会重新开启一个或者多个计划，导致冲突的。

进入计划后，把计划关闭，如 mytimers("计划1").Enabled = False

执行到最后，写代码开启 mytimers("计划1").Enabled = True

在计划那里写代码，如

mytimers("计划1").Enabled = False

'本来代码

mytimers("计划1").Enabled = true

我没有插上加密狗，测试没有报错。

你试试改成这样测试

Declare Function et_Verify Lib "FT_ET99_API.dll" (ByVal et99handle As Long, ByVal et99flag As Integer, ByRef et99pin As Stringbuilder) As Long

-----------------

Dim PID As String = "1Q2W3E4R"   '这是随便写的8位字符串,它要用狗的产生方法产生,在没插狗的情况下,本无意义
Dim n As Integer
Dim Upin As String = "IUHJHJODAHFOIUQWELJADFIO09ER089724502875"   '这是随便写的字符串,在没插狗的情况下,本无意义
Dim hl As Long

et_FindToken(pid , n )
MessageBox.Show("检测狗完成")

et_OpenToken(hl , pid , 1)
MessageBox.Show("打开狗完成")

Dim sb As new Stringbuilder
sb.append(Upin)
et_Verify(hl , 0, sb)  '我在插上狗,PID和UPIN都正确的情况下,前两步都顺利完成,但这一步就报错了
MessageBox.Show("验证用户ID完成")

有没有c#的实例？

http://converter.telerik.com/

那，请转换成vb.net代码后测试即可。

http://converter.telerik.com/

1、改成类似这样的，如

Declare Function et_Verify Lib "FT_ET99_API.dll" (ByVal hHandle As IntPtr, ByVal Flags As Integer, ByVal pucPIN As Byte()) As UInteger

2、对应的调用，也用byte()处理，如

Dim bytPIN As byte() = System.Text.Encoding.ASCII.GetBytes(strPIN)

1、先修改14楼的测试，看是否可以。

2、在这个网站里面转换 http://converter.telerik.com/

我只叫你修改这个啊

Declare Function et_Verify Lib "FT_ET99_API.dll" (ByVal hHandle As IntPtr, ByVal Flags As Integer, ByVal pucPIN As Byte()) As UInteger

vb 和 vb.net 是很很大区别的。vb.net 和 c# 基本相似，只是语法不同而已。