diff --git a/Frm_Main.frm b/Frm_Main.frm index 58a3f97..25897f6 100644 --- a/Frm_Main.frm +++ b/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 diff --git a/Frm_Main.frx b/Frm_Main.frx new file mode 100644 index 0000000..985eb0b Binary files /dev/null and b/Frm_Main.frx differ diff --git a/娣樺疂鏍囩鐢熸垚.vbp b/娣樺疂鏍囩鐢熸垚.vbp index c8dc37e..7339617 100644 --- a/娣樺疂鏍囩鐢熸垚.vbp +++ b/娣樺疂鏍囩鐢熸垚.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="淘宝标签生成" diff --git a/娣樺疂鏍囩鐢熸垚.vbw b/娣樺疂鏍囩鐢熸垚.vbw index 37d7c18..6d9866e 100644 --- a/娣樺疂鏍囩鐢熸垚.vbw +++ b/娣樺疂鏍囩鐢熸垚.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