如何通过 VB 获得 google 翻译的结果？
从网上找了一个版本，源代码如下：
VB code:
Option Explicit
'Global DefLang As String
Const WebURL As String = "http://translate.google.com/translate_t"
Const SearchString As String = "result_box dir="
Const EndString As String = "</"
Public Function Translation(InputText As String, LangPair As String) As String
Dim TMPString As String
Dim StartPos As Long
Dim DebString As String
Dim InitString As String
If IsConnected = False Then
MsgBox "You don't have Internet connection!", vbInformation, "Translation"
Translation = ""
Exit Function
End If
'InputText
TMPString = GetHTMLfromURL(WebURL & "?langpair=" & LangPair & "&text=" & InputText)
InitString = SearchString & Chr(34) & "ltr" & Chr(34) & ">"
StartPos = InStr(1, TMPString, InitString, vbTextCompare)
If StartPos = 0 Then
Translation = ""
Exit Function
End If
DebString = Right(TMPString, Len(TMPString) - (StartPos + Len(InitString) - 1))
StartPos = InStr(1, DebString, EndString, vbTextCompare)
Translation = ReplaceHTMLString(Left(DebString, StartPos - 1))
End Function
Public Function ReplaceHT
相关问答：
要采集的页面：http://city.qzone.qq.com/html/user/searchpro.htm#mod=0&act=city&cd=120000&pg=1
我想把搜索出来的QQ都采集出来，该怎么做。看了下代码好像不是普通的那种，网址里把1改成2没用 ......
vb写的程序编译后,运行若出错,如何知道到在哪一行?
按Ctrl+F5预编译，出错时会跳转到错误行
不是那样的了,我是要求编译成EXE后运行,提示出错能否提示错在哪一行.
我编译后在我的电脑上运行没问题,但� ......
请看看以下导出文本文件的模块函数，我应该怎么在按钮点击事件中实现调用。
Option Explicit
Public Function TabintoTxt(objConn As Object, TableName As String, Optional TextFileName As String) ......
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
