add icon...

Signed-off-by: j502647092 <jtb1@163.com>

Frm_Main.frm

@@ -1,10 +1,11 @@
 VERSION 5.00
 Begin VB.Form Frm_Main 
-   Caption         =   "淘宝标签生成"
+   Caption         =   "旺旺标签生成"
    ClientHeight    =   1590
    ClientLeft      =   60
    ClientTop       =   345
    ClientWidth     =   3375
+   Icon            =   "Frm_Main.frx":0000
    LinkTopic       =   "Form1"
    ScaleHeight     =   1590
    ScaleWidth      =   3375
@@ -12,7 +13,7 @@ Begin VB.Form Frm_Main
    Begin ÌÔ±¦±êÇ©Éú³É.XmlHttp XmlHttp 
       Height          =   240
       Left            =   285
-      Top             =   1095
+      Top             =   1305
       Visible         =   0   'False
       Width           =   240
       _ExtentX        =   423
@@ -23,7 +24,7 @@ Begin VB.Form Frm_Main
       Height          =   435
       Left            =   855
       TabIndex        =   4
-      Top             =   1005
+      Top             =   1035
       Width           =   1665
    End
    Begin VB.TextBox tip 
@@ -72,7 +73,7 @@ Private Sub submit_Click()
     Dim Html As String
     Html = LoadResString(1)
     Dim UID As String
-    UID = XmlHttp.URLEncode(username)
+    UID = XmlHttp.UTF8_URLEncoding(username)
     Html = Replace(Html, "{uid}", UID)
     Html = Replace(Html, "{tip}", tip.Text)
     Clipboard.SetText Html

淘宝标签生成.vbp

@@ -3,9 +3,10 @@ Form=Frm_Main.frm
 Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation
 UserControl=..\VB用户控件\XmlHttp.ctl
 ResFile32="淘宝标签生成.RES"
+IconForm="Frm_Main"
 Startup="Frm_Main"
 HelpFile=""
-ExeName32="淘宝标签生成.exe"
+ExeName32="旺旺标签生成.exe"
 Path32="C:\Users\Administrator\Desktop"
 Command32=""
 Name="淘宝标签生成"

淘宝标签生成.vbw

@@ -1,2 +1,2 @@
-Frm_Main = 455, 127, 1884, 632, , 22, 22, 1451, 527, C
-XmlHttp = 0, 0, 0, 0, C, 88, 88, 1517, 593, C
+Frm_Main = 107, 92, 1536, 597, C, 22, 22, 1451, 527, C
+XmlHttp = 312, 63, 1741, 725, , 88, 88, 1517, 593, C