看到一个很不错的vb.net代码，想转换成vb，自己调试了很多天，但是还是没用弄好，甚为郁闷。后来继续搜索找到了其相应的c,c#和jscript代码，但是就是没有找到关于vb相关方面的代码。自己搞不定只有拿到这里来向各位请教了，谢谢。
下面列出vb.net代码，一个类文件。
Public Class JSDecoder
Private Const STATE_COPY_INPUT = 100
Private Const STATE_READLEN = 101
Private Const STATE_DECODE = 102
Private Const STATE_UNESCAPE = 103
Private Pick_Encoding, rawData As Integer()
Private Transformed(2, 287), Digits(122) As Integer
Public Sub New()
InitArrayData()
End Sub
Private Sub InitArrayData()
Dim i, j As Integer
Pick_Encoding = New Integer() { _
1, 2, 0, 1, 2, 0, 2, 0, 0, 2, 0, 2, 1, 0, 2, 0, _
1, 0, 2, 0, 1, 1, 2, 0, 0, 2, 1, 0, 2, 0, 0, 2, _
1, 1, 0, 2, 0, 2, 0, 1, 0, 1, 1, 2, 0, 1, 0, 2, _
1, 0, 2, 0, 1, 1, 2, 0, 0, 1, 1, 2, 0, 1, 0, 2 _
}
rawData = New Integer() { _
&H64, &H37, &H69, &
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
比如我打开桌面的“1.txt”文本，里面第一行是“111”，用VB怎么写个程序，可以定时改变“111”为“222”，再隔段时间变成“333”，怎么写 .....
对正在运行的文本有效吗，对正在运行的文本能不能马上看到变化（� ......
