主頁 > 軟體工程 > VB6做聊天系統出錯

VB6做聊天系統出錯

2020-09-16 19:58:23 軟體工程

每次打開那個叫做頻道的視窗就顯示35764錯誤，以下為頻道視窗的代碼
Private Sub Command1_Click()

Open App.Path & "\" & Label2.Caption & ".html" For Output As #1

Print #1, 登錄.Text1.Text & "：" & Text1.Text

Close #1

Inet1.URL = "59.53.63.33"

Inet1.Protocol = 2

Inet1.UserName = "xiaowenwen"

Inet1.PassWord = "xiaowenwen"

Inet1.Execute , "PUT " & App.Path & "\" & Label2.Caption & ".html /wwwroot/msg/" & Label2.Caption & ".html"

Do While Inet1.StillExecuting

DoEvents

Loop

Shell "cmd.exe /k & @echo off & del " & App.Path & "\" & Label2.Caption & ".html"

End Sub



Private Sub Command2_Click()

Open App.Path & "\" & Label2.Caption & ".html" For Output As #1

Print #1, "公告：" & Text1.Text

Close #1

Inet1.URL = "59.53.63.33"

Inet1.Protocol = 2

Inet1.UserName = "xiaowenwen"

Inet1.PassWord = "xiaowenwen"

Inet1.Execute , "PUT " & App.Path & "\" & Label2.Caption & ".html /wwwroot/msg/" & Label2.Caption & ".html"

Do While Inet1.StillExecuting

DoEvents

Loop

Shell "cmd.exe /k & @echo off & del " & App.Path & "\" & Label2.Caption & ".html"

End Sub



Private Sub Form_Load()

If Val(登錄.Text1.Text) = Val(Inet1.OpenURL("http://xiaowenwen.w16.i93133.com/Owner/" & Label2.Caption & ".html")) Then Command2.Visible = True

Open App.Path & "\Login.key" For Input As #1

Do While Not EOF(1)

Line Input #1, Nextline

Label2.Caption = Nextline

頻道.Caption = "小文文暢聊 -頻道 " & Nextline & " 群主：" & Val(Inet1.OpenURL("http://xiaowenwen.w16.i93133.com/Owner/" & Label2.Caption & ".html"))

Loop

Close #1

End Sub





Private Sub Timer1_Timer()

Label1.Caption = Inet1.OpenURL("http://xiaowenwen.w16.i93133.com/msg/" & Label2.Caption & ".html")

If Val(Label1.Caption) = Val(Label2.Caption) Then

Else

List1.AddItem Label1.Caption

Label2.Caption = Label1.Caption

End If

End Sub

經過除錯，發現是這行代碼出了問題，求解
Label1.Caption = Inet1.OpenURL("http://xiaowenwen.w16.i93133.com/msg/" & Label2.Caption & ".html")

原始碼：http://pan.baidu.com/s/1pJV3zh5 密碼:2wuc

uj5u.com熱心網友回復：

icExecuting 35764 “還在執行上一個請求” 

 Private Sub Command1_Click()

        Inet1.URL = "http://www.microsoft.com"

        Inet1.Execute , "GET"

        Do While Inet1.StillExecuting

          DoEvents

        Loop

        Inet1.Execute , "GET"

      End Sub






  Private Sub Command1_Click()

          Inet1.Execute "http://www.microsoft.com", "GET"

          'download the start page of microsoft.com

      End Sub

      

      Private Sub Inet1_StateChanged(ByVal State As Integer)

         ' Retrieve server response using the GetChunk

         ' method when State = 12. This example assumes the

         ' data is text.



         Select Case State

         ' ... Other cases not shown.

      

         Case icResponseCompleted ' 12

            Dim vtData As Variant ' Data variable.

            Dim strData As String: strData = ""

            Dim bDone As Boolean: bDone = False

      

            ' Get first chunk.

            vtData = Inet1.GetChunk(1024, icString)

      

            Do While Not bDone

      

               strData = strData & vtData

               ' Get next chunk.

               vtData = Inet1.GetChunk(1024, icString)

               If Len(vtData) = 0 Then

                  bDone = True

               End If

            Loop

      

            MsgBox strData

         End Select



      End Sub

uj5u.com熱心網友回復：

參考 1 樓 zhao4zhong1 的回復:
icExecuting 35764 “還在執行上一個請求” 

 Private Sub Command1_Click()

        Inet1.URL = "http://www.microsoft.com"

        Inet1.Execute , "GET"

        Do While Inet1.StillExecuting

          DoEvents

        Loop

        Inet1.Execute , "GET"

      End Sub






  Private Sub Command1_Click()

          Inet1.Execute "http://www.microsoft.com", "GET"

          'download the start page of microsoft.com

      End Sub

      

      Private Sub Inet1_StateChanged(ByVal State As Integer)

         ' Retrieve server response using the GetChunk

         ' method when State = 12. This example assumes the

         ' data is text.



         Select Case State

         ' ... Other cases not shown.

      

         Case icResponseCompleted ' 12

            Dim vtData As Variant ' Data variable.

            Dim strData As String: strData = ""

            Dim bDone As Boolean: bDone = False

      

            ' Get first chunk.

            vtData = Inet1.GetChunk(1024, icString)

      

            Do While Not bDone

      

               strData = strData & vtData

               ' Get next chunk.

               vtData = Inet1.GetChunk(1024, icString)

               If Len(vtData) = 0 Then

                  bDone = True

               End If

            Loop

      

            MsgBox strData

         End Select



      End Sub

也就是說我要增加1個Inet是吧

uj5u.com熱心網友回復：

參考 1 樓 zhao4zhong1 的回復:
icExecuting 35764 “還在執行上一個請求” 

 Private Sub Command1_Click()

        Inet1.URL = "http://www.microsoft.com"

        Inet1.Execute , "GET"

        Do While Inet1.StillExecuting

          DoEvents

        Loop

        Inet1.Execute , "GET"

      End Sub






  Private Sub Command1_Click()

          Inet1.Execute "http://www.microsoft.com", "GET"

          'download the start page of microsoft.com

      End Sub

      

      Private Sub Inet1_StateChanged(ByVal State As Integer)

         ' Retrieve server response using the GetChunk

         ' method when State = 12. This example assumes the

         ' data is text.



         Select Case State

         ' ... Other cases not shown.

      

         Case icResponseCompleted ' 12

            Dim vtData As Variant ' Data variable.

            Dim strData As String: strData = ""

            Dim bDone As Boolean: bDone = False

      

            ' Get first chunk.

            vtData = Inet1.GetChunk(1024, icString)

      

            Do While Not bDone

      

               strData = strData & vtData

               ' Get next chunk.

               vtData = Inet1.GetChunk(1024, icString)

               If Len(vtData) = 0 Then

                  bDone = True

               End If

            Loop

      

            MsgBox strData

         End Select



      End Sub

順便再問一下，發現新的錯誤，發出去的訊息收不到，怎么辦

uj5u.com熱心網友回復：

參考 1 樓 zhao4zhong1 的回復:
icExecuting 35764 “還在執行上一個請求” 

 Private Sub Command1_Click()

        Inet1.URL = "http://www.microsoft.com"

        Inet1.Execute , "GET"

        Do While Inet1.StillExecuting

          DoEvents

        Loop

        Inet1.Execute , "GET"

      End Sub






  Private Sub Command1_Click()

          Inet1.Execute "http://www.microsoft.com", "GET"

          'download the start page of microsoft.com

      End Sub

      

      Private Sub Inet1_StateChanged(ByVal State As Integer)

         ' Retrieve server response using the GetChunk

         ' method when State = 12. This example assumes the

         ' data is text.



         Select Case State

         ' ... Other cases not shown.

      

         Case icResponseCompleted ' 12

            Dim vtData As Variant ' Data variable.

            Dim strData As String: strData = ""

            Dim bDone As Boolean: bDone = False

      

            ' Get first chunk.

            vtData = Inet1.GetChunk(1024, icString)

      

            Do While Not bDone

      

               strData = strData & vtData

               ' Get next chunk.

               vtData = Inet1.GetChunk(1024, icString)

               If Len(vtData) = 0 Then

                  bDone = True

               End If

            Loop

      

            MsgBox strData

         End Select



      End Sub

我還改了下這個頁的原始碼
Private Sub Command1_Click()

Open App.Path & "\" & Label2.Caption & ".html" For Output As #1

Print #1, 登錄.Text1.Text & "：" & Text1.Text

Close #1

Inet3.URL = "59.53.63.33"

Inet3.Protocol = 2

Inet3.UserName = "xiaowenwen"

Inet3.PassWord = "xiaowenwen"

Inet3.Execute , "PUT " & App.Path & "\" & Label2.Caption & ".html /wwwroot/msg/" & Label2.Caption & ".html"

Do While Inet1.StillExecuting

DoEvents

Loop

Shell "cmd.exe /k & @echo off & del " & App.Path & "\" & Label2.Caption & ".html"

End Sub



Private Sub Command2_Click()

Open App.Path & "\" & Label2.Caption & ".html" For Output As #1

Print #1, "公告：" & Text1.Text

Close #1

Inet1.URL = "59.53.63.33"

Inet1.Protocol = 2

Inet1.UserName = "xiaowenwen"

Inet1.PassWord = "xiaowenwen"

Inet1.Execute , "PUT " & App.Path & "\" & Label2.Caption & ".html /wwwroot/msg/" & Label2.Caption & ".html"

Do While Inet1.StillExecuting

DoEvents

Loop

Shell "cmd.exe /k & @echo off & del " & App.Path & "\" & Label2.Caption & ".html"

End Sub



Private Sub Form_Load()

If Val(登錄.Text1.Text) = Val(Inet1.OpenURL("http://xiaowenwen.w16.i93133.com/Owner/" & Label2.Caption & ".html")) Then Command2.Visible = True

Open App.Path & "\Login.key" For Input As #1

Do While Not EOF(1)

Line Input #1, Nextline

Label2.Caption = Nextline

頻道.Caption = "小文文暢聊 -頻道 " & Nextline & " 群主：" & Val(Inet1.OpenURL("http://xiaowenwen.w16.i93133.com/Owner/" & Label2.Caption & ".html"))

Loop

Close #1

End Sub





Private Sub Timer1_Timer()

Label1.Caption = Inet2.OpenURL("http://xiaowenwen.w16.i93133.com/msg/" & Label2.Caption & ".html")

If Val(Label1.Caption) = Val(Label2.Caption) Then

Else

List1.AddItem Label1.Caption

Label2.Caption = Label1.Caption

End If

End Sub

求解收不到的問題，理論上應該是可以的

uj5u.com熱心網友回復：

這叫"VB6做聊天系統"?
你太搞笑了吧，呵呵。
按部就班吧，看看基礎教程，學點ui編程，學點winsock控制元件使用，以后再去看看socket api，之后再去看看p2p的范例。
這樣才對路子。

uj5u.com熱心網友回復：

參考 5 樓 SupermanKing 的回復:
這叫"VB6做聊天系統"?
你太搞笑了吧，呵呵。
按部就班吧，看看基礎教程，學點ui編程，學點winsock控制元件使用，以后再去看看socket api，之后再去看看p2p的范例。
這樣才對路子。

Winsock試過好多遍了，映射也不行，而且風險性大，所以我才用.net的

uj5u.com熱心網友回復：

Inet3.Execute , "PUT " & App.Path & "\" & Label2.Caption & ".html /wwwroot/msg/" & Label2.Caption & ".html"

Do While Inet3.StillExecuting

DoEvents

Loop

uj5u.com熱心網友回復：

參考 7 樓 zhao4zhong1 的回復:
Inet3.Execute , "PUT " & App.Path & "\" & Label2.Caption & ".html /wwwroot/msg/" & Label2.Caption & ".html"

Do While Inet3.StillExecuting

DoEvents

Loop

還是收不到，求助QAQ

uj5u.com熱心網友回復：

參考 7 樓 zhao4zhong1 的回復:
Inet3.Execute , "PUT " & App.Path & "\" & Label2.Caption & ".html /wwwroot/msg/" & Label2.Caption & ".html"

Do While Inet3.StillExecuting

DoEvents

Loop

試過了，訊息發送出去了，后臺收到了，可是就是客戶端收不到

uj5u.com熱心網友回復：

學會使用抓包軟體比如wireshark
《http權威指南》

uj5u.com熱心網友回復：

僅供參考：
Private Sub Command1_Click()

Dim strURL As String

Dim strlist As String

Dim strtitle As String

Dim i As Integer

Dim j As Integer

Dim t As String

Dim m As Integer

Dim n As Integer

Dim after As Double

On Error GoTo CCERR

    Command1.Enabled = False

    strURL = "http://www.xajh.com/DynaNews/SerialTitle.asp?site=1"

    strlist = Inet1.OpenURL(strURL, icString)

    Do

        i = InStr(strlist, "seriallist.asp?site=")

        If i > 0 Then

            strlist = Mid(strlist, i + 20)

            j = InStr(strlist, "'>")

            t = Mid(strlist, 1, j - 1)

            Debug.Print t

            strlist = Mid(strlist, j + 2)

            j = InStr(strlist, "<")

            Debug.Print Mid(strlist, 1, j - 1)

            strlist = Mid(strlist, j + 1)



            after = Now + 10# / 24# / 3600#

            Do

                DoEvents

                If Now > after Then Exit Do

            Loop

            strURL = "http://www.xajh.com/DynaNews/SerialTitle.asp?site=" & t

            strtitle = Inet1.OpenURL(strURL, icString)

            Do

                m = InStr(strtitle, "BoardList'>")

                If m > 0 Then

                    strtitle = Mid(strtitle, m + 11)

                    n = InStr(strtitle, "<")

                    Debug.Print Mid(strtitle, 1, n - 1)

                    strtitle = Mid(strtitle, n + 1)

                Else

                    Exit Do

                End If

            Loop

        Else

            Exit Do

        End If

    Loop

    Command1.Enabled = True

    Exit Sub

CCERR:

    Debug.Print "Err.Number="; Err.Number

    after = Now + 10# / 24# / 3600#

    Do

        DoEvents

        If Now > after Then Exit Do

    Loop

    Resume

End Sub



Private Sub Command2_Click()

'很多 World Wide Web 站點提供了搜索資料庫的能力。

'它是通過 HTTP 協議用通用網關介面 (CGI) 發送查詢的能力完成的。

'在這里不再討論 CGI 了。

'然而，如果對 CGI 比較了解，就可用 Execute 方法構造一個應用程式

'模擬 World Wide Web 站點的行為。

'例如，下面的代碼給出了典型的 CGI 查詢字串：

' http://www.webunion.com/cgi-localbin/bserve.cgi?win8711

' http://www.yippee.com/cgi-bin/find.exe?find=Hangzhou



'如下所示，用 Execute 方法也可以發送同樣的查詢：

Dim strURL As String, strFormData As String

strURL = "http://www.xajh.com/dynanews/seriallist.asp?site=12"

'strURL = "http://www.xajh.com/xajh/0bar0.gif"

'strFormData = "win8711"

'strURL = "//www.yippee.com/cgi-bin/find.exe"

'strFormData = "find=Hangzhou"

Inet1.Protocol = icHTTP

Inet1.Execute strURL, "GET"



'如果希望得到從服務器發回的結果（如上面的示例所示），

'就必須使用 GetChunk 方法以獲取作為結果的 HTML 檔案。

    Command2.Enabled = False

End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)

Dim intFile As Integer

Dim vtData() As Byte

Debug.Print State

    Select Case State

    Case icResponseCompleted '12

    Debug.Print "len="; Inet1.GetHeader("Content-length")

    Debug.Print "typ="; Inet1.GetHeader("Content-type")

        intFile = FreeFile()

        Open "c:\temp\www.gif" For Binary Access Write As #intFile

        vtData() = Inet1.GetChunk(2048, icByteArray)

        Do While LenB(CStr(vtData())) > 0

            Put #intFile, , vtData()

            vtData() = Inet1.GetChunk(2048, icByteArray)

        Loop

        Put #intFile, , vtData()

        Close #intFile

        Command2.Enabled = True

    End Select

End Sub

uj5u.com熱心網友回復：

參考 11 樓 zhao4zhong1 的回復:
僅供參考：
Private Sub Command1_Click()

Dim strURL As String

Dim strlist As String

Dim strtitle As String

Dim i As Integer

Dim j As Integer

Dim t As String

Dim m As Integer

Dim n As Integer

Dim after As Double

On Error GoTo CCERR

    Command1.Enabled = False

    strURL = "http://www.xajh.com/DynaNews/SerialTitle.asp?site=1"

    strlist = Inet1.OpenURL(strURL, icString)

    Do

        i = InStr(strlist, "seriallist.asp?site=")

        If i > 0 Then

            strlist = Mid(strlist, i + 20)

            j = InStr(strlist, "'>")

            t = Mid(strlist, 1, j - 1)

            Debug.Print t

            strlist = Mid(strlist, j + 2)

            j = InStr(strlist, "<")

            Debug.Print Mid(strlist, 1, j - 1)

            strlist = Mid(strlist, j + 1)



            after = Now + 10# / 24# / 3600#

            Do

                DoEvents

                If Now > after Then Exit Do

            Loop

            strURL = "http://www.xajh.com/DynaNews/SerialTitle.asp?site=" & t

            strtitle = Inet1.OpenURL(strURL, icString)

            Do

                m = InStr(strtitle, "BoardList'>")

                If m > 0 Then

                    strtitle = Mid(strtitle, m + 11)

                    n = InStr(strtitle, "<")

                    Debug.Print Mid(strtitle, 1, n - 1)

                    strtitle = Mid(strtitle, n + 1)

                Else

                    Exit Do

                End If

            Loop

        Else

            Exit Do

        End If

    Loop

    Command1.Enabled = True

    Exit Sub

CCERR:

    Debug.Print "Err.Number="; Err.Number

    after = Now + 10# / 24# / 3600#

    Do

        DoEvents

        If Now > after Then Exit Do

    Loop

    Resume

End Sub



Private Sub Command2_Click()

'很多 World Wide Web 站點提供了搜索資料庫的能力。

'它是通過 HTTP 協議用通用網關介面 (CGI) 發送查詢的能力完成的。

'在這里不再討論 CGI 了。

'然而，如果對 CGI 比較了解，就可用 Execute 方法構造一個應用程式

'模擬 World Wide Web 站點的行為。

'例如，下面的代碼給出了典型的 CGI 查詢字串：

' http://www.webunion.com/cgi-localbin/bserve.cgi?win8711

' http://www.yippee.com/cgi-bin/find.exe?find=Hangzhou



'如下所示，用 Execute 方法也可以發送同樣的查詢：

Dim strURL As String, strFormData As String

strURL = "http://www.xajh.com/dynanews/seriallist.asp?site=12"

'strURL = "http://www.xajh.com/xajh/0bar0.gif"

'strFormData = "win8711"

'strURL = "//www.yippee.com/cgi-bin/find.exe"

'strFormData = "find=Hangzhou"

Inet1.Protocol = icHTTP

Inet1.Execute strURL, "GET"



'如果希望得到從服務器發回的結果（如上面的示例所示），

'就必須使用 GetChunk 方法以獲取作為結果的 HTML 檔案。

    Command2.Enabled = False

End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)

Dim intFile As Integer

Dim vtData() As Byte

Debug.Print State

    Select Case State

    Case icResponseCompleted '12

    Debug.Print "len="; Inet1.GetHeader("Content-length")

    Debug.Print "typ="; Inet1.GetHeader("Content-type")

        intFile = FreeFile()

        Open "c:\temp\www.gif" For Binary Access Write As #intFile

        vtData() = Inet1.GetChunk(2048, icByteArray)

        Do While LenB(CStr(vtData())) > 0

            Put #intFile, , vtData()

            vtData() = Inet1.GetChunk(2048, icByteArray)

        Loop

        Put #intFile, , vtData()

        Close #intFile

        Command2.Enabled = True

    End Select

End Sub

我改了下代碼，可以用了，但是經常會出現亂碼，怎么辦
Private Sub Command1_Click()

Open App.Path & "\" & Label2.Caption & ".html" For Output As #1

Print #1, 登錄.Text1.Text & "：" & Text1.Text

Close #1

Inet3.URL = "59.53.63.33"

Inet3.Protocol = 2

Inet3.UserName = "xiaowenwen"

Inet3.PassWord = "xiaowenwen"

Inet3.Execute , "PUT " & App.Path & "\" & Label2.Caption & ".html /wwwroot/msg/" & Label2.Caption & ".html"

Do While Inet3.StillExecuting

DoEvents

Loop

Shell "cmd.exe /k & @echo off & del " & App.Path & "\" & Label2.Caption & ".html"

End Sub



Private Sub Command2_Click()

Open App.Path & "\" & Label2.Caption & ".html" For Output As #1

Print #1, "公告：" & Text1.Text

Close #1

Inet3.URL = "59.53.63.33"

Inet3.Protocol = 2

Inet3.UserName = "xiaowenwen"

Inet3.PassWord = "xiaowenwen"

Inet3.Execute , "PUT " & App.Path & "\" & Label2.Caption & ".html /wwwroot/msg/" & Label2.Caption & ".html"

Do While Inet3.StillExecuting

DoEvents

Loop

Shell "cmd.exe /k & @echo off & del " & App.Path & "\" & Label2.Caption & ".html"

End Sub



Private Sub Form_Load()

If Val(登錄.Text1.Text) = Val(Inet1.OpenURL("http://xiaowenwen.w16.i93133.com/Owner/" & Label2.Caption & ".html")) Then Command2.Visible = True

Open App.Path & "\Login.key" For Input As #1

Do While Not EOF(1)

Line Input #1, Nextline

Label2.Caption = Nextline

頻道.Caption = "小文文暢聊 -頻道 " & Nextline & " 群主：" & Val(Inet1.OpenURL("http://xiaowenwen.w16.i93133.com/Owner/" & Label2.Caption & ".html"))

Loop

Close #1

End Sub





Private Sub Timer1_Timer()

Label1.Caption = Inet2.OpenURL("http://xiaowenwen.w16.i93133.com/msg/" & Label2.Caption & ".html")

If Label1.Caption = Label5.Caption Then

Else

List1.AddItem Label1.Caption

Label5.Caption = Label1.Caption

End If

End Sub

uj5u.com熱心網友回復：

對電腦而言沒有亂碼，只有二進制位元組；對人腦才有亂碼。啊 GBK:0xB0 0xA1,Unicode-16 LE:0x4A 0x55,Unicode-16 BE:0x55 0x4A,UTF-8:0xE5 0x95 0x8A

僅供參考：
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long

Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long

'常用的代碼頁：

const cpUTF8   =65001

const cpGB2312 =  936

const cpGB18030=54936

const cpUTF7   =65000

Function MultiByteToUTF16(UTF8() As Byte, CodePage As Long) As String

    Dim bufSize As Long

    bufSize = MultiByteToWideChar(CodePage, 0&, UTF8(0), UBound(UTF8) + 1, 0, 0)

    MultiByteToUTF16 = Space(bufSize)

    MultiByteToWideChar CodePage, 0&, UTF8(0), UBound(UTF8) + 1, StrPtr(MultiByteToUTF16), bufSize

End Function



Function UTF16ToMultiByte(UTF16 As String, CodePage As Long) As Byte()

    Dim bufSize As Long

    Dim arr() As Byte

    bufSize = WideCharToMultiByte(CodePage, 0&, StrPtr(UTF16), Len(UTF16), 0, 0, 0, 0)

    ReDim arr(bufSize - 1)

    WideCharToMultiByte CodePage, 0&, StrPtr(UTF16), Len(UTF16), arr(0), bufSize, 0, 0

    UTF16ToMultiByte = arr

End Function



Private Sub Command1_Click()

    MsgBox MultiByteToUTF16(UTF16ToMultiByte("ab中,c", cpUTF8), cpUTF8)

End Sub

uj5u.com熱心網友回復：

參考 13 樓 zhao4zhong1 的回復:
對電腦而言沒有亂碼，只有二進制位元組；對人腦才有亂碼。啊 GBK:0xB0 0xA1,Unicode-16 LE:0x4A 0x55,Unicode-16 BE:0x55 0x4A,UTF-8:0xE5 0x95 0x8A

僅供參考：
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long

Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long

'常用的代碼頁：

const cpUTF8   =65001

const cpGB2312 =  936

const cpGB18030=54936

const cpUTF7   =65000

Function MultiByteToUTF16(UTF8() As Byte, CodePage As Long) As String

    Dim bufSize As Long

    bufSize = MultiByteToWideChar(CodePage, 0&, UTF8(0), UBound(UTF8) + 1, 0, 0)

    MultiByteToUTF16 = Space(bufSize)

    MultiByteToWideChar CodePage, 0&, UTF8(0), UBound(UTF8) + 1, StrPtr(MultiByteToUTF16), bufSize

End Function



Function UTF16ToMultiByte(UTF16 As String, CodePage As Long) As Byte()

    Dim bufSize As Long

    Dim arr() As Byte

    bufSize = WideCharToMultiByte(CodePage, 0&, StrPtr(UTF16), Len(UTF16), 0, 0, 0, 0)

    ReDim arr(bufSize - 1)

    WideCharToMultiByte CodePage, 0&, StrPtr(UTF16), Len(UTF16), arr(0), bufSize, 0, 0

    UTF16ToMultiByte = arr

End Function



Private Sub Command1_Click()

    MsgBox MultiByteToUTF16(UTF16ToMultiByte("ab中,c", cpUTF8), cpUTF8)

End Sub

研究了一下，好像是網頁的代碼，好像是404頁的
每次收到訊息，都會先發出這段網頁的代碼

uj5u.com熱心網友回復：

參考 13 樓 zhao4zhong1 的回復:
對電腦而言沒有亂碼，只有二進制位元組；對人腦才有亂碼。啊 GBK:0xB0 0xA1,Unicode-16 LE:0x4A 0x55,Unicode-16 BE:0x55 0x4A,UTF-8:0xE5 0x95 0x8A

僅供參考：
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long

Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long

'常用的代碼頁：

const cpUTF8   =65001

const cpGB2312 =  936

const cpGB18030=54936

const cpUTF7   =65000

Function MultiByteToUTF16(UTF8() As Byte, CodePage As Long) As String

    Dim bufSize As Long

    bufSize = MultiByteToWideChar(CodePage, 0&, UTF8(0), UBound(UTF8) + 1, 0, 0)

    MultiByteToUTF16 = Space(bufSize)

    MultiByteToWideChar CodePage, 0&, UTF8(0), UBound(UTF8) + 1, StrPtr(MultiByteToUTF16), bufSize

End Function



Function UTF16ToMultiByte(UTF16 As String, CodePage As Long) As Byte()

    Dim bufSize As Long

    Dim arr() As Byte

    bufSize = WideCharToMultiByte(CodePage, 0&, StrPtr(UTF16), Len(UTF16), 0, 0, 0, 0)

    ReDim arr(bufSize - 1)

    WideCharToMultiByte CodePage, 0&, StrPtr(UTF16), Len(UTF16), arr(0), bufSize, 0, 0

    UTF16ToMultiByte = arr

End Function



Private Sub Command1_Click()

    MsgBox MultiByteToUTF16(UTF16ToMultiByte("ab中,c", cpUTF8), cpUTF8)

End Sub

不過很有可能是服務器的問題，但好像又不是

這是圖片，有些行會出現那些代碼

uj5u.com熱心網友回復：

《http權威指南》

uj5u.com熱心網友回復：

我好服啊,
也只有你適合趙四他教了
你繼續

uj5u.com熱心網友回復：

服了。真服了。雷鋒啊。

uj5u.com熱心網友回復：

只能表示，樓主還有很長的路要走！
前面人家說的 socket 就是 VB6 做聊天軟體 的最佳方案了！
用網頁做中間傳輸，也就只是玩玩而已，還走的是彎路！！！

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/59427.html

標籤：網絡編程

上一篇：VB持續讀取串口里的資料

下一篇：VS做的RDLC根據某一欄位分頁列印設計可付費

標籤雲
其他(157675) Python(38076) JavaScript(25376) Java(17977) C(15215) 區塊鏈(8255) C＃(7972) AI(7469) 爪哇(7425) MySQL(7132) html(6777) 基礎類(6313) sql(6102) 熊猫(6058) PHP(5869) 数组(5741) R(5409) Linux(5327) 反应(5209) 腳本語言(PerlPython)(5129) 非技術區(4971) Android(4554) 数据框(4311) css(4259) 节点.js(4032) C語言(3288) json(3245) 列表(3129) 扑(3119) C++語言(3117) 安卓(2998) 打字稿(2995) VBA(2789) Java相關(2746) 疑難問題(2699) 细绳(2522) 單片機工控(2479) iOS(2429) ASP.NET(2402) MongoDB(2323) 麻木的(2285) 正则表达式(2254) 字典(2211) 循环(2198) 迅速(2185) 擅长(2169) 镖(2155) 功能(1967) .NET技术(1958) Web開發(1951) python-3.x(1918) HtmlCss(1915) 弹簧靴(1913) C++(1909) xml(1889) PostgreSQL(1872) .NETCore(1853) 谷歌表格(1846) Unity3D(1843) for循环(1842)

熱門瀏覽
  • Git本地庫既關聯GitHub又關聯Gitee

    創建代碼倉庫 使用gitee舉例（github和gitee差不多） 1.在gitee右上角點擊+，選擇新建倉庫 ? 2.選擇填寫倉庫資訊，然后進行創建 ? 3.服務端已經準備好了，本地開始作準備 （1）Git 全域設定 git config --global user.name "成鈺" git c ......

    uj5u.com 2020-09-10 05:04:14 more
  • CODING DevOps 代碼質量實戰系列第二課，相約周三

    隨著 ToB（企業服務）的興起和 ToC（消費互聯網）產品進入成熟期，線上故障帶來的損失越來越大，代碼質量越來越重要，而「質量內建」正是 DevOps 核心理念之一。**《DevOps 代碼質量實戰（PHP 版）》**為 CODING DevOps 代碼質量實戰系列的第二課，同時也是本系列的 PHP ......

    uj5u.com 2020-09-10 05:07:43 more
  • 推薦Scrum書籍

    推薦Scrum書籍 直接上干貨，推薦書籍清單如下（推薦有順序的哦） Scrum指南 Scrum精髓 Scrum敏捷軟體開發 Scrum捷徑 硝煙中的Scrum和XP : 我們如何實施Scrum 敏捷軟體開發:Scrum實戰指南 Scrum要素 大規模Scrum:大規模敏捷組織的設計 用戶故事地圖 用 ......

    uj5u.com 2020-09-10 05:07:45 more
  • CODING DevOps 代碼質量實戰系列最后一課，周四發車

    隨著 ToB（企業服務）的興起和 ToC（消費互聯網）產品進入成熟期，線上故障帶來的損失越來越大，代碼質量越來越重要，而「質量內建」正是 DevOps 核心理念之一。 **《DevOps 代碼質量實戰（Java 版）》**為 CODING DevOps 代碼質量實戰系列的最后一課，同時也是本系列的 ......

    uj5u.com 2020-09-10 05:07:52 more
  • 敏捷軟體工程實踐書籍

    Scrum轉型想要做好，第一步先了解并真正落實Scrum，那么我推薦的Scrum書籍是要看懂并實踐的。第二步是團隊的工程實踐要做扎實。 下面推薦工程實踐書單： 重構：改善既有代碼的設計 決議極限編程 : 擁抱變化 代碼整潔代碼 程式員的職業素養 修改代碼的藝術 撰寫可讀代碼的藝術 測驗驅動開發 : ......

    uj5u.com 2020-09-10 05:07:55 more
  • Jenkins+svn+nginx實作windows環境自動部署vue前端專案

    前面文章介紹了Jenkins+svn+tomcat實作自動化部署，現在終于有空抽時間出來寫下Jenkins+svn+nginx實作自動部署vue前端專案。 jenkins的安裝和配置已經在前面文章進行介紹，下面介紹實作vue前端專案需要進行的哪些額外的步驟。 注意：在安裝jenkins和nginx的 ......

    uj5u.com 2020-09-10 05:08:49 more
  • CODING DevOps 微服務專案實戰系列第一課，明天等你

    CODING DevOps 微服務專案實戰系列第一課**《DevOps 微服務專案實戰：DevOps 初體驗》**將由 CODING DevOps 開發工程師 王寬老師 向大家介紹 DevOps 的基本理念，并探討為什么現代開發活動需要 DevOps，同時將以 eShopOnContainers 項 ......

    uj5u.com 2020-09-10 05:09:14 more
  • CODING DevOps 微服務專案實戰系列第二課來啦！

    近年來，工程專案的結構越來越復雜，需要接入合適的持續集成流水線形式，才能滿足更多變的需求，那么如何優雅地使用 CI 能力提升生產效率呢？CODING DevOps 微服務專案實戰系列第二課 《DevOps 微服務專案實戰：CI 進階用法》 將由 CODING DevOps 全堆疊工程師 何晨哲老師 向 ......

    uj5u.com 2020-09-10 05:09:33 more
  • CODING DevOps 微服務專案實戰系列最后一課，周四開講！

    隨著軟體工程越來越復雜化，如何在 Kubernetes 集群進行灰度發布成為了生產部署的”必修課“，而如何實作安全可控、自動化的灰度發布也成為了持續部署重點關注的問題。CODING DevOps 微服務專案實戰系列最后一課：**《DevOps 微服務專案實戰：基于 Nginx-ingress 的自動 ......

    uj5u.com 2020-09-10 05:10:00 more
  • CODING 儀表盤功能正式推出，實作作業資料可視化！

    CODING 儀表盤功能現已正式推出！該功能旨在用一張張統計卡片的形式，統計并展示使用 CODING 中所產生的資料。這意味著無需額外的設定，就可以收集歸納寶貴的作業資料并予之量化分析。這些海量的資料皆會以圖表或串列的方式躍然紙上，方便團隊成員隨時查看各專案的進度、狀態和指標，云端協作迎來真正意義上 ......

    uj5u.com 2020-09-10 05:11:01 more
最新发布
  • windows系統git使用ssh方式和gitee/github進行同步

    使用git來clone專案有兩種方式：HTTPS和SSH：
    HTTPS：不管是誰，拿到url隨便clone，但是在push的時候需要驗證用戶名和密碼；
    SSH：clone的專案你必須是擁有者或者管理員，而且需要在clone前添加SSH Key。SSH 在push的時候，是不需要輸入用戶名的，如果配置... ......

    uj5u.com 2023-04-19 08:41:12 more
  • windows系統git使用ssh方式和gitee/github進行同步

    使用git來clone專案有兩種方式：HTTPS和SSH：
    HTTPS：不管是誰，拿到url隨便clone，但是在push的時候需要驗證用戶名和密碼；
    SSH：clone的專案你必須是擁有者或者管理員，而且需要在clone前添加SSH Key。SSH 在push的時候，是不需要輸入用戶名的，如果配置... ......

    uj5u.com 2023-04-19 08:35:34 more
  • 2023年農牧行業6大CRM系統、5大場景盤點

    在物聯網、大資料、云計算、人工智能、自動化技術等現代資訊技術蓬勃發展與逐步成熟的背景下，數字化正成為農牧行業供給側結構性變革與高質量發展的核心驅動因素。因此，改造和提升傳統農牧業、開拓創新現代智慧農牧業，加快推進農牧業的現代化、資訊化、數字化建設已成為農牧業發展的重要方向。 當下，企業數字化轉型已經 ......

    uj5u.com 2023-04-18 08:05:44 more
  • 2023年農牧行業6大CRM系統、5大場景盤點

    在物聯網、大資料、云計算、人工智能、自動化技術等現代資訊技術蓬勃發展與逐步成熟的背景下，數字化正成為農牧行業供給側結構性變革與高質量發展的核心驅動因素。因此，改造和提升傳統農牧業、開拓創新現代智慧農牧業，加快推進農牧業的現代化、資訊化、數字化建設已成為農牧業發展的重要方向。 當下，企業數字化轉型已經 ......

    uj5u.com 2023-04-18 08:00:18 more
  • 計算機組成原理—存盤器

    計算機組成原理—硬體結構 二、存盤器 1.概述 存盤器是計算機系統中的記憶設備，用來存放程式和資料 1.1存盤器的層次結構 快取-主存層次主要解決CPU和主存速度不匹配的問題，速度接近快取 主存-輔存層次主要解決存盤系統的容量問題，容量接近與價位接近于主存 2.主存盤器 2.1概述 主存與CPU的聯 ......

    uj5u.com 2023-04-17 08:20:31 more
  • 談一談我對協同開發的一些認識

    如今各互聯網公司普通都使用敏捷開發，采用小步快跑的形式來進行專案開發。如果是小專案或者小需求，那一個開發可能就搞定了。但對于電商等復雜的系統，其功能多，結構復雜，一個人肯定是搞不定的，所以都是很多人來共同開發維護。以我曾經待過的商城團隊為例，光是后端開發就有七十多人。 為了更好地開發這類大型系統，往 ......

    uj5u.com 2023-04-17 08:18:55 more
  • 專案管理PRINCE2核心知識點整理

    PRINCE2，即 PRoject IN Controlled Environment（受控環境中的專案）是一種結構化的專案管理方法論，由英國政府內閣商務部（OGC）推出，是英國專案管理標準。
    PRINCE2 作為一種開放的方法論，是一套結構化的專案管理流程，描述了如何以一種邏輯性的、有組織的方法，... ......

    uj5u.com 2023-04-17 08:18:51 more
  • 談一談我對協同開發的一些認識

    如今各互聯網公司普通都使用敏捷開發，采用小步快跑的形式來進行專案開發。如果是小專案或者小需求，那一個開發可能就搞定了。但對于電商等復雜的系統，其功能多，結構復雜，一個人肯定是搞不定的，所以都是很多人來共同開發維護。以我曾經待過的商城團隊為例，光是后端開發就有七十多人。 為了更好地開發這類大型系統，往 ......

    uj5u.com 2023-04-17 08:18:00 more
  • 專案管理PRINCE2核心知識點整理

    PRINCE2，即 PRoject IN Controlled Environment（受控環境中的專案）是一種結構化的專案管理方法論，由英國政府內閣商務部（OGC）推出，是英國專案管理標準。
    PRINCE2 作為一種開放的方法論，是一套結構化的專案管理流程，描述了如何以一種邏輯性的、有組織的方法，... ......

    uj5u.com 2023-04-17 08:17:55 more
  • 計算機組成原理—存盤器

    計算機組成原理—硬體結構 二、存盤器 1.概述 存盤器是計算機系統中的記憶設備，用來存放程式和資料 1.1存盤器的層次結構 快取-主存層次主要解決CPU和主存速度不匹配的問題，速度接近快取 主存-輔存層次主要解決存盤系統的容量問題，容量接近與價位接近于主存 2.主存盤器 2.1概述 主存與CPU的聯 ......

    uj5u.com 2023-04-17 08:12:06 more

Copyright © 2010-2020 有解無憂