混子√的个人资料

用VB6调用百度AI的例子（源码）把上图保存到本地，后缀名改为zip或者rar解压查看源码

一个星期能干4000关的怎么玩的？广告看了无数啊。分解下来其实1个小时100关没问题，但是那也要各种材料啊~

vb6调用百度分词api，发送json POST Option Explicit Public Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long Private Const CP_UTF8 = 65001 Public Const BAIDU_APP_KEY = "你的APP KEY" '在百度申请后得到 Public Const BAIDU_SECRET_KEY = "你的SECRET KEY" '在百度申请后得到 Public Function strCut(strContent, strStart, strEnd) As String '文件截取函数 Dim strHTML, s1, s2 As String strHTML = strContent On Error Resume Next s1 = InStr(strHTML, strStart) + Len(strStart) s2 = InStr(s1, strHTML, strEnd) strCut = Mid(strHTML, s1, s2 - s1) End Function Private Function GetToken() As String Dim HTTP As Object Dim URL As String Dim Buff() As Byte On Error GoTo wrong Set HTTP = CreateObject("WinHttp.WinHttpRequest.5.1") '创建WinHttpRequest对象 URL = "http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Faip.baidubce.com%2Foauth%2F2.0%2Ftoken%3Fgrant_type%3Dclient_credentials%26client_id%3D&urlrefer=31595341104098ff9571a728f47b019a" & BAIDU_APP_KEY & "&client_secret=" & BAIDU_SECRET_KEY & "&" With HTTP .setTimeouts 50000, 50000, 50000, 50000 '设置超时时间 .Open "GET", URL, True .send .waitForResponse If .Status = 200 Then '成功获取页面 Buff = .ResponseBody GetToken = strCut(Utf8ToUnicode(Buff), "access_token"":""", """,""scope") Else MsgBox "Http错误代码:" & .Status, vbInformation, "提示" End If End With Set HTTP = Nothing Exit Function wrong: MsgBox "错误原因:" & Err.Description & "", vbInformation, "提示" Set HTTP = Nothing End Function Private Function Utf8ToUnicode(ByRef Utf() As Byte) As String 'utf-8解码 Dim lRet As Long Dim lLength As Long Dim lBufferSize As Long lLength = UBound(Utf) - LBound(Utf) + 1 If lLength <= 0 Then Exit Function lBufferSize = lLength * 2 Utf8ToUnicode = String$(lBufferSize, Chr(0)) lRet = MultiByteToWideChar(CP_UTF8, 0, VarPtr(Utf(0)), lLength, StrPtr(Utf8ToUnicode), lBufferSize) If lRet <> 0 Then Utf8ToUnicode = Left(Utf8ToUnicode, lRet) Else Utf8ToUnicode = "" End If End Function Public Function HttpPOST(ByVal JSONData As String) As String Dim HTTP As Object Dim URL As String Dim Buff() As Byte URL = "http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Faip.baidubce.com%2Frpc%2F2.0%2Fnlp%2Fv1%2Flexer%3Fcharset%3DUTF-8%26access_token%3D&urlrefer=a959d5fac5cea221aee471a43b6cc08d" & GetToken Set HTTP = CreateObject("WinHttp.WinHttpRequest.5.1") With HTTP .setTimeouts 50000, 50000, 50000, 50000 '设置超时时间 .Option(6) = False .Option(4) = 13056 .Open "POST", URL .setRequestHeader "Content-Length", LenB(StrConv(JSONData, vbFromUnicode)) .send JSONData .waitForResponse If .Status = 200 Then '成功获取页面 Buff = .ResponseBody HttpPOST = Utf8ToUnicode(Buff) End If End With Set HTTP = Nothing End Function

看一下吧龄 RT

很简单的动态效果 interval设置为200. Option Explicit Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer2.Enabled = True End Sub Private Sub Form_Load() Timer1.Enabled = False Timer2.Enabled = False End Sub Private Sub Timer1_Timer() Static a As Integer a = a + 1 If a = 1 Then lbljd.Caption = "─" If a = 2 Then lbljd.Caption = "＼" If a = 3 Then lbljd.Caption = "│" If a = 4 Then lbljd.Caption = "／": a = 0 End Sub Private Sub Timer2_Tim er() Static b As Integer b = b + 1 If b = 1 Then lbljd2.Caption = "." If b = 2 Then lbljd2.Caption = ".." If b = 3 Then lbljd2.Caption = "..." If b = 4 Then lbljd2.Caption = "...." If b = 5 Then lbljd2.Caption = ".....": b = 0 End Sub

头大了，内存溢出怎么找？代码太多太多太多。 IDE下正常，但是生成EXE后，显示内存溢出。之前是无误的，但是后来一直没生成EXE，就没管。突然有一天就内存溢出了，我真不知道哪里出现问题了，求快速找到溢出位置的办法。求调试高手啊。

VB6 ComboBox中国城市三级联动（第二版）以前用VB6写过一个ComboBox中国城市三级联动的例子，采用的是mdb数据库。几年前的代码了，地区数据库也不是最新的。今天给大家带来使用文本文件作为数据源的 ComboBox中国城市三级联动的代码。 1.地区库更新非常方便，不会影响到其他功能（区划代码是唯一的）。 2.文本文件读取来速度很快。

求助，字符串判断，替换的问题。